主题：[求助]先进的先出

 思路：统计出库总数，比如已出库1234，现在要出库100。循环入库每一行，累加每一行的值，直到大于1234，然后接着循环，减去100的值

 

 参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82143&skin=0

 

 不会做请上传实例。

 看2、3楼。不会做，单独做个例子发上来。

直接新增行测试。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1 (1).foxdb

 安装最新版，然后拷贝最新的文件出来，重新安装你的旧版本。

 

 要打开新版，就先启动那个拷贝出来的文件夹exe

 汗，本来的代码就没问题啊，你一行一行的增加就行啊。在库生命周期排序取出就行啊。

你这样拣货就是作死的节奏。

 

比如你有50个货物，放在1000个货物里面，你要出那50个货，最坏的打算，你是不是要把1000个货都扫一遍啊？

 

12楼的代码，就是你要的基本意义上的代码了，得到的数据，就是你要出货的数据，你扫描的时候，看在不在那堆数据里就行啊。

 

如果要再细分，你就先得出生命周期为3的，要多少件，生命周期为2的，要多少件。扫描到为2、3，都可以出库，直到最大值。

 

代码自己写。

按照你的订单号、物料号，对数据表进行分组统计，按照生命周期分组，得到各个什么周期的个数。

 

从上到下，累加各个值，直到累加数大于出库数

 

那就得出生命周期为3的，要多少件，生命周期为2的，要多少件。扫描到为2、3，都可以出库，直到最大值。

 

代码自己写。

或者，参考12楼代码，先得出所有值。

 

再统计，生命周期3的，有几个；生命周期2的，有几个。

 

扫描到2、3，就累加1，直到扫满。

最简单，按照顺序出货，先理解这个，再去做根据天数的。

 

Select Case e.DataCol.name
    Case "SN"
        If Not e.DataRow.IsNull("SN")  Then
            Dim dr As Row = Tables("销售出库单").current
            Dim drs As List(Of DataRow) = DataTables("库存明细表").Select(CExp("订单号='{0}' and 物料编码='{1}' and 状态='入库完成'", dr("订单号") ,dr("物料编码")),"在库生命周期 desc")
            If dr IsNot Nothing Then
                Dim count As Integer = e.DataTable.Compute("count(sn)","订单号='" & dr("订单号") & "' and 物料编码='" & dr("物料编码") & "' and SN is not null")
               
                If count >= dr("预发货数量") Then
                    dr("配货状态") = True
                    msgbox("已经扫描完")
                    Return
                End If
               
                For Each fdr As DataRow In drs
                    If fdr("SN") = e.DataRow("SN") Then
                        fdr("状态") = "出库"
                        e.DataRow("订单号") = fdr("订单号")
                        e.DataRow("物料编码") = fdr("物料编码")
                        msgbox("SN可以出货")
                        Return
                    End If
                    count += fdr("数量")
                    If count >= dr("预发货数量") Then
                        msgbox("SN不能出货")
                        Return
                    End If
                Next
            End If
        End If
End Select