以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  内联MRP统计库存表不能同一种物料填两行或多行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175094)
--  作者：chk
--  发布时间：2022/2/19 14:40:00
--  内联MRP统计库存表不能同一种物料填两行或多行
 您好！
         刚刚使用内联MRP统计，填写库存表时遇到问题，因为有几个仓库不同地方的管理员要填写同一种物料的库存，所以同一种物料分两行或多行填写的，但是MRP分析时没有把库存表的同一种物料合并起来一起分析，求解，谢谢！
--  作者：有点蓝
--  发布时间：2022/2/19 14:47:00
--  
请上传实例说明
--  作者：chk
--  发布时间：2022/2/19 14:59:00
--  
您好！
      这个是刚刚做的一个测试的，只做了一个1号仓库和2号仓库，麻烦看看谢谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试5.rar

！
--  作者：有点蓝
--  发布时间：2022/2/19 15:47:00
--  
用代码处理，先对库存生成一个分组统计

Dim g As New GroupTableBuilder("库存2", DataTables("库存"))
g.Groups.AddDef("物料")
g.Totals.AddDef("库存数量")
g.Totals.AddDef("安全库存")
g.Filter = "[物料] is not null"
g.Build()

然后根据库存统计生成mrp统计
Dim mrp As New InlineMRPBuilder("统计表1")
\'设置BOM表
mrp.BOM.DataTable = DataTables("物料清单")
mrp.BOM.ParentCol = "上级"
mrp.BOM.MaterialCol = "物料"
mrp.BOM.QuantityCol = "用量"
\'设置成品率表
mrp.Yield.DataTable = DataTables("成品率")
mrp.Yield.MaterialCol = "物料"
mrp.Yield.YieldCol= "成品率"
\'设置库存表
mrp.Stock.DataTable = DataTables("库存2")
mrp.Stock.MaterialCol = "物料"
mrp.Stock.QuantityCol= "库存数量"
mrp.Stock.MinimumCol = "安全库存"
\'设置生产计划
For Each dr As DataRow In DataTables("生产计划").DataRows
    mrp.Plan.Add(dr("产品"), dr("数量"))
Next
\'生成统计结果
mrp.Build()
MainTable = Tables("统计表1")
--  作者：chk
--  发布时间：2022/2/19 16:15:00
--  
 您好！
     
Dim g As New GroupTableBuilder("库存2", DataTables("库存"))
g.Groups.AddDef("物料")
g.Totals.AddDef("库存数量")
g.Totals.AddDef("安全库存")
g.Filter = "[物料] is not null"
g.Build()
这个代码要在哪里填？图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2022/2/19 16:20:00
--  
设计一个窗口，放到按钮里点击。或者设计菜单按钮