Foxtable(狐表) → 用户栏目 → 专家坐堂 → 出库单保存前先检查库存


  共有3564人关注过本帖树形打印复制链接

主题：出库单保存前先检查库存
帅哥哟，离线，有人找我吗？
hopestarxia
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：934 积分：6733 威望：0 精华：0 注册：2013/8/10 18:33:00 		出库单保存前先检查库存  发帖心情 Post By：2017/5/21 16:09:00 [显示全部帖子]

设计了一个出库单录入窗口，出库单窗口表体主要内容是关联到出库单主表，窗口中Table关联到了出库表明细，主表与明细表用单据ID相关联。
目前在录入窗口关联的Table中关联了选择货品的窗口，双击窗口可以选择得到货品的基本信息，包括当前库存信息到出库单录入窗口中，在填上相应的数量和单价即可。
出库单录入窗口中有一“保存”按钮，现在想实现在点击保存按钮时，先实现库存检测，如果存在明细行出库数量大于库存数量的，即提示库存不足，同时停止运行，不保存单据，需要人为重新调整单据内容，再重新点“保存”按钮，没有不合理的时再实现保存完成。
请问保存按钮处的这个判断怎么写？
 回到顶部
帅哥哟，离线，有人找我吗？
hopestarxia
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：934 积分：6733 威望：0 精华：0 注册：2013/8/10 18:33:00 		  发帖心情 Post By：2017/5/21 23:12:00 [显示全部帖子]

Dim t1 As Table = e.form.Controls("Table1").Table
For Each r As Row In t1.Rows

If  r("quantity") > r("xqjc")  Then
    msgbox("库存不足,请检查")
    Return
End If

Next
目前使用的代码,没有效果,请问是哪里错误?
 回到顶部
帅哥哟，离线，有人找我吗？
hopestarxia
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：934 积分：6733 威望：0 精华：0 注册：2013/8/10 18:33:00 		1  发帖心情 Post By：2017/5/22 8:47:00 [显示全部帖子]

不是,是在点击保存时,如果5条记录发现有一条或一条以上的记录库存不足记录,则停止运行都不保存.
需要录单的操作人员将库存不足的记录修改出库数量至合理数值,或是删除该行后再重新点保存按钮.
 回到顶部
帅哥哟，离线，有人找我吗？
hopestarxia
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：934 积分：6733 威望：0 精华：0 注册：2013/8/10 18:33:00 		  发帖心情 Post By：2017/5/22 8:49:00 [显示全部帖子]

谢谢老师,正在学习当中,这个还没考虑到.我先以单机达到功能.

 回到顶部
帅哥哟，离线，有人找我吗？
hopestarxia
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：934 积分：6733 威望：0 精华：0 注册：2013/8/10 18:33:00 		  发帖心情 Post By：2017/5/22 8:52:00 [显示全部帖子]

有点色老师,您的意思是我的代码看着没什么问题?不运行可能是其他原因引起的?
我再检查一下,如果不行的话我把项目发上来.
 回到顶部
帅哥哟，离线，有人找我吗？
hopestarxia
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：934 积分：6733 威望：0 精华：0 注册：2013/8/10 18:33:00 		  发帖心情 Post By：2017/5/22 8:55:00 [显示全部帖子]

做个约束就限制所有人了.
我想先实现这步,后面再加上权限区分,如果是用管理人员身份登录的话就不检查库存了,就允许库存不足出库.
文员录的时候库存不足就提示不能完成保存.
 回到顶部
帅哥哟，离线，有人找我吗？
hopestarxia
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：934 积分：6733 威望：0 精华：0 注册：2013/8/10 18:33:00 		  发帖心情 Post By：2017/5/22 11:13:00 [显示全部帖子]

谢谢 各位老师的帮忙.功能已经实现了.
通过老师们的指导检查后发现我发出来的语句上没有问题.是在引用库存到出库单明细表那里出现了错误,所以造成了后面保存单据时不提示了.

另外,在那个语句前面加上了判断当前操作员是不是管理员,也实现了管理员不受库存开单的限制的功能.谢谢各位老师的指导.
 回到顶部
帅哥哟，离线，有人找我吗？
hopestarxia
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：934 积分：6733 威望：0 精华：0 注册：2013/8/10 18:33:00 		  发帖心情 Post By：2017/7/2 12:49:00 [显示全部帖子]

我的意思是想如果有一条库存小于0，那么就全部停止保存，需要删除不正确的行后再重点保存，谢谢、

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询