采购成本统计

InlineMRPBuilder和LayersMRPBuilder都有一个Purchase属性，用于进行采购成本计算。

关于采购成本计算，参考：采购成本计算

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

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

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

Dim mrp As New LayersMRPBuilder("统计表1")
'设置BOM表
mrp.BOM.DataTable = DataTables("物料清单B")
mrp.BOM.PathCol = "级码"
mrp.BOM.MaterialCol = "物料"
mrp.BOM.QuantityCol = "数量"
mrp.BOm.Separator = "."  '指定分割符号
'设置成品率表
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.Plan.Add("P01",10)
mrp.Plan.Add("P02",8)
'生成统计结果
mrp.Build()
MainTable = Tables("统计表1")

得到的统计结果为：