扩展MRP统计

关于扩展MRP统计，请参考：扩展MRP统计 

本节介绍如何通过代码实现扩展MRP统计。

InlineMRPBuilder和LayersMRPBuilder都有一个Extensions属性，用于实现MRP扩展统计：

• Extensions
  
  用于增加扩展数据表，语法为：
  
  Add(DataTable, MaterialCol, QuantityCol，NewName)
  
  DataTable:      要附加的数据表
  MaterialCol：   物料列名称
  QuantityCol：   用量列名称
  NewName：       出现在MRP中的新列名

示例

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

2、本次MRP统计需要扩展两个数据表，分别是：

一个"采购在途"表，用于输入各种已经下单采购，正在途中的物料数量：

最后一个是"生产在线"表，用于输入已经在线生产的各种中间件的数量：

3、在命令窗口执行代码：

Dim mrp As New InlineMRPBuilder("统计表1")
'设置BOM表
mrp.BOM.DataTable = DataTables("物料清单A")
mrp.BOM.ParentCol = "上级"
mrp.BOM.MaterialCol = "物料"
mrp.BOM.QuantityCol = "用量"
'设置库存表
mrp.Stock.DataTable = DataTables("库存")
mrp.Stock.MaterialCol = "物料"
mrp.Stock.QuantityCol= "库存数量"
mrp.Stock.MinimumCol = "安全库存"
'设置生产计划
mrp.Plan.Add("P01",10)
mrp.Plan.Add("P02",8)
'增加扩展数据表
mrp.Extensions.Add(DataTables("采购在途"),"物料","数量", "计划_采购在途")
mrp.Extensions.Add(DataTables("生产在线"),"中间件","数量", "计划_生产在线")
'生成统计结果
mrp.Build()
MainTable = Tables("统计表1")

得到的统计结果如下：

上图中：

E03需求数量为180，其中库存可以提供3个，已经下单采购的有2个，所以实际需要采购的是175个。

M01需求数量20个，其中库存可以提供7个，已经在线生产的有5个，所以实际需要生产的是8个。