以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  MRP运算扩展数据计算问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176703)
--  作者：chk
--  发布时间：2022/4/23 16:23:00
--  MRP运算扩展数据计算问题
您好！
       增加的扩展数据表"生产在线"，假如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统计表")图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2022/4/23 16:27:00
--  
把这几个表的数据导出来测试一下
--  作者：chk
--  发布时间：2022/4/23 17:32:00
--  
您好！
     用什么方式导出来测试，可以找出问题？
--  作者：有点蓝
--  发布时间：2022/4/23 17:39:00
--  
方法1、把这个项目文件发过来测试