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


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

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


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]库存  发帖心情 Post By：2020/6/25 13:30:00 [只看该作者]

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


加好友 发短信
等级：幼狐 帖子：50 积分：516 威望：0 精华：0 注册：2017/3/14 14:39:00 		  发帖心情 Post By：2020/6/26 11:45:00 [只看该作者]

帮助里面的<跨表统计的自动更新> http://www.foxtable.com/help/index.htm?page=1472.htm

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105868 积分：538397 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/27 9:55:00 [只看该作者]

使用上有什么问题？按什么规则计算？

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


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2020/6/28 9:32:00 [只看该作者]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105868 积分：538397 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/28 9:53:00 [只看该作者]

我不懂业务，没看懂，就实例的数据，手工填写截图说明。比如出库填写批次，数量50，出库明细和入库明细最后的结果应该是怎么样的？数量填90、120、200，出库明细和入库明细最后的结果又应该是怎么样的？

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


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2020/6/28 13:26:00 [只看该作者]

老师好

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105868 积分：538397 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/28 13:43:00 [只看该作者]

到入库表根据批次把库存取过来不就行了

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


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2020/6/28 21:47:00 [只看该作者]

老师好

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

 

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105868 积分：538397 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/28 21:58:00 [只看该作者]

根据什么规则改这个批次号？

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


加好友 发短信
等级：七尾狐 帖子：1700 积分：11344 威望：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
 回到顶部
总数 28 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 6 次数据查询