您好!
增加的扩展数据表"生产在线",假如M01需求数量20个,其中库存可以提供0个,已经在线生产的有5个,所以实际需要生产的是15个,但是得出的结果是实际需要生产的是10个。换了几组数据测试,结果是在线生产数计算出实际生产数时每次感觉都翻了一倍,不知道为什么?谢谢,麻烦帮忙看看!
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.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统计表")