- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请蓝版帮我完善下自动批次出库代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160748)
-- 发布时间：2021/2/20 11:47:00
-- 请蓝版帮我完善下自动批次出库代码
蓝版，以下代码可以实现按批次自动生成出库行，但我想再完善下代码，实现以下功能：
1、当出库批次”表中，数量列为0时，就自动删除“出库批次”表中，数量列为0的行。
2、当出库数量大于库存数量，提醒库存数量小于出库数量，最多只能出库多少量。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自动批次出库.foxdb |
出库表Datacolchanged事件
If e.DataCol.Name = "数量" Then
If e.NewValue > 0 Then
Dim drs As List(Of DataRow) = DataTables("批次库存").Select("零件号=\'" & e.DataRow("零件号") & "\'","零件批次")
Dim sl As Integer = e.NewValue
For Each dr As DataRow In drs
If sl > 0 Then
Dim dr2 As DataRow = DataTables("出库批次").AddNew
dr2("零件号") = dr("零件号")
dr2("零件批次") = dr("零件批次")
If dr("当前库存") > sl Then
dr2("数量") = sl
Return
Else
dr2("数量") = dr("当前库存")
sl = sl - dr2("数量")
End If
Else
Return
End If
Next
End If
End If
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:自动批次出库.foxdb |
-- 发布时间：2021/2/20 12:15:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自动批次出库.zip |
-- 发布时间：2021/2/20 13:50:00
--
蓝版
1、蓝版写的代码，出库小于或者等于库存数量时，没有问题。如果出库大于库存数量时，有问题。
2、 If sl > 0 Then
msgbox("库存数量小于出库数量")
End If
这么写，来提示库存小于出库数量不对吧？
假如出库大于库存数量时，仍然生成了“出库批次”和“批次库存”的数据，并按最大数量进行了出库，这点可以，但出库表的数量按录入那个数据显示的，要么就按最大库存数量显示，要么就不生成“出库批次”和“批次库存”的数据。
3、当出库时有修改或者删除时，怎样才能让“批次库存”表和“出库批次”生成正确的数据。
目前是修改或者删除数据，生成的“出库批次”和“批次库存”的数据仍然保留。
-- 发布时间：2021/2/20 14:09:00
--
1、2；在生成出库数据先，先使用compute统计所有的可用库存是否足够，再开始循环处理
3、很难控制。
建议添加一个审核列，审核后在出库，审核后就不允许更改数量。如果需要修改，数量不够的重新开一张出库单。数量开多的先正常出库，再通过回退入库的方式处理