Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]库存


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

主题：[求助]库存
帅哥哟，离线，有人找我吗？
江南小镇
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]库存  发帖心情 Post By：2020/6/25 13:30:00 [显示全部帖子]

老师，出库明细表的库存怎样获取，出库明细表有代码。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:进销存.rar
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2020/6/28 9:32:00 [显示全部帖子]

老师好，出库批次号根据入库批次号计算出同一批次号最后的库存。

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


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2020/6/28 13:26:00 [显示全部帖子]

老师好

图片点击可在新窗口打开查看此主题相关图片如下：image 5.png
图片点击可在新窗口打开查看
 

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


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2020/6/28 21:47:00 [显示全部帖子]

老师好

图片点击可在新窗口打开查看此主题相关图片如下：image 1.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:进销存.table

 

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


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2020/6/29 14:47:00 [显示全部帖子]

老师，"出库明细"表“出库_数量”列输入数据后“入库批次”列总是把原来的批次号修改成第一批次。标出的代码屏蔽是不自动修改的。


Select Case e.DataCol.name
    Case "商品ID","出库_数量"
        If e.newvalue <> e.oldvalue Then '不是重置列
            
            If e.DataRow("出库_数量") IsNot Nothing Then
                Dim r As DataRow = e.DataRow
                If e.DataCol.name = "出库_数量" AndAlso e.OldValue<> Nothing Then
                    Dim count As Integer = 0
                    Dim bhs = r("入库批次号").split(",")
                    Dim kcs = r("提取数量").split(",")
                    For i As Integer = 0 To bhs.length-1
                        Dim fdr As DataRow = DataTables("入库明细").find("入库单编号明细 = '" & bhs(i) & "'") 
                        If fdr IsNot Nothing Then               
                            fdr("出库") -= kcs(i)                           
                        End If
                    Next                   
                End If
                Dim sum As Double = DataTables("入库明细").compute("sum(库存)", "商品ID = '" & e.DataRow("商品ID") & "' And 库存状态 = '可出库'")
                If sum < r("出库_数量") Then  
                    msgbox("库存不够")
                Else
                    
                    '==================================
                    Dim count As Integer = 0
                    Dim cb As Double = 0
                    Dim drs As List(Of DataRow) = DataTables("入库明细").Select("商品ID = '" & e.DataRow("商品ID") & "' And 库存状态 = '可出库'", "入库日期, _Identify")
                    Dim s As String = ""
                    Dim K As String = ""
                    
                    For i As Integer = 0 To drs.count - 1
                        Dim dr As DataRow = drs(i)
                        count += dr("库存")
                        Dim sy As Integer = count - r("出库_数量")
                        
                        If sy >= 0 Then
                            cb += dr("入库_单价") * (dr("库存")-sy)
                            K &= dr("库存")-sy & ","
                            dr("出库") = dr("入库_数量") - sy
                            s &= dr("入库单编号明细") & ","
                            r("入库批次号") = s.trim(",")   
                            r("提取数量") = K.trim(",")
                            r("成本") = cb
                            Exit For
                        Else
                            s &= dr("入库单编号明细") & ","
                            K &= dr("库存") & ","
                            cb += dr("入库_单价") * dr("库存")
                            dr("出库") = dr("入库_数量")
                            dr("库存") = 0
                        End If
                    Next
                End If
                
            End If
            
        End If
End Selec
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2020/6/29 15:50:00 [显示全部帖子]

老师，还是不行，数量列输入数据后，入库批次列的数据还是会自动修改。

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


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2020/6/29 19:28:00 [显示全部帖子]

老师，库存列的数据怎样得到。

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


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2020/6/29 21:27:00 [显示全部帖子]

老师，是出库明细表

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


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2020/6/30 5:15:00 [显示全部帖子]

老师，出库明细表想要获得的是每个批次的最后库存。辟如，入库批次001入库数量100吨   入库批次002入库数量50吨。
   销售数量      单位    入库批次号       库存
        10          吨          001             80
         5           吨          001             75
         20         吨          002             30
         25         吨          002              5
         76         吨          001              此时对话框显示库存只有75吨。本批次没有那么多货。销售数量不能大于75吨
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2020/6/30 15:35:00 [显示全部帖子]

老师，上面代码设置后报错。


.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2017.4.22.1
错误所在事件：表，出库明细，DataColChanged
详细错误信息：
调用的目标发生了异常。
未找到列 [入库批次号]。
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询