委外加工成本计算

InlineMRPBuilder和LayersMRPBuilder都有一个Subcontract属性，用于进行委外加工成本计算。

关于委外加工成本计算，参考：委外加工成本计算

我们现在通过一个例子学习如何使用代码进行成本计算，同样非常的简单：

1、打开CaseStudy目录下的示例文件: MRP统计.Table

2、选择表"物料清单A"，在命令窗口执行代码：

Dim mrp As New InlineMRPBuilder("统计表1")
'设置BOM表
mrp.BOM.DataTable = DataTables("物料清单A")
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= "单价"
'设置委外加工成本表
mrp.Subcontract.DataTable = DataTables("加工价格")
mrp.Subcontract.MaterialCol = "物料"
mrp.Subcontract.PriceCol= "单价"
'设置生产计划
mrp.Plan.Add("P01",10)
mrp.Plan.Add("P02",8)
'生成统计结果
mrp.Build()
MainTable = Tables("统计表1")

得到的统计结果为：