以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- MRP统计设置两个库存表结果MPR运算只能跑出一个库存表的值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176698) |
-- 作者:chk -- 发布时间:2022/4/23 10:09:00 -- MRP统计设置两个库存表结果MPR运算只能跑出一个库存表的值 您好! 下面MRP运算代码,加了另一个库存表后,MRP运算只能跑出("布料仓库汇总表")的需求数量,原来的("原辅料仓库汇总表")需求数量跑不出来了,需要怎么更改才能使两个库存表都能跑出需求数量?(标红的地方是我新加的库存表) Dim mrp As New InlineMRPBuilder("MRP统计表")
\'设置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("原辅料仓库汇总表") mrp.Stock.MaterialCol = "物料编号" mrp.Stock.QuantityCol= "库存数量" mrp.Stock.MinimumCol = "安全库存" \'设置布料库存表 mrp.Stock.DataTable = DataTables("布料仓库汇总表") mrp.Stock.MaterialCol = "物料编号" mrp.Stock.QuantityCol= "仓库总数" \'设置采购价格表 mrp.Purchase.DataTable = DataTables("采购价格表") mrp.Purchase.MaterialCol = "物料编号" mrp.Purchase.PriceCol= "单价" \'设置生产计划 For Each dr As DataRow In DataTables("生产计划汇总").DataRows mrp.Plan.Add(dr("产品编号"), dr("未生产数量")) \'增加扩展数据表 mrp.Extensions.Add(DataTables("采购在途"),"物料编号","数量", "计划_采购在途") mrp.Extensions.Add(DataTables("生产在线"),"中间件","数量", "计划_生产在线") Next \'附加数据列 mrp.Additions.Add(DataTables("物料库"), "物料编号", "物料名称", "物料名称") \'生成统计结果 mrp.Build() MainTable = Tables("MRP统计表") |
-- 作者:有点蓝 -- 发布时间:2022/4/23 10:10:00 -- 2个库存表合并为一个查询表使用 |