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


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

主题:[求助]库存

帅哥哟,离线,有人找我吗?
有点蓝
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


                    
                    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("入库单编号明细") & ","
                            Exit For
                        Else
                            s &= dr("入库单编号明细") & ","
                            K &= dr("库存") & ","
                            cb += dr("入库_单价") * dr("库存")
                            dr("出库") = dr("入库_数量")
                            dr("库存") = 0
                        End If
                    Next
                            r("入库批次号") = s.trim(",")   
                            r("提取数量") = K.trim(",")
                            r("成本") = cb

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


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

那就去掉黄色的代码

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


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

哪个表的库存列?

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


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

老师,是出库明细表

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我不懂您的业务,这个应该是您自己需要思考的问题。出库明细表的库存列数据从哪来,按照什么规则计算显示?

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


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望: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吨

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

这个?

r("库存") = datatables("入库明细").compute("sum(入库_数量)","商品ID = '" & e.DataRow("商品ID") & "' And 库存状态 = '可出库' and 入库批次号='" & e.datarow("入库批次号") & "'") - datatables("出库明细").compute("sum(出库_数量)","商品ID = '" & e.DataRow("商品ID") & "' and 入库批次号='" & e.datarow("入库批次号") & "' and 出库日期 < #" &  e.DataRow("出库日期") & "#")

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


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望: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
详细错误信息:
调用的目标发生了异常。
未找到列 [入库批次号]。


 回到顶部
总数 28 上一页 1 2 3 下一页