Foxtable(狐表) → 用户栏目 → 专家坐堂 → 内联MRP统计库存表不能同一种物料填两行或多行


  共有3240人关注过本帖树形打印复制链接

主题：内联MRP统计库存表不能同一种物料填两行或多行
帅哥哟，离线，有人找我吗？
chk
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：528 威望：0 精华：0 注册：2018/4/23 8:59:00 		内联MRP统计库存表不能同一种物料填两行或多行  发帖心情 Post By：2022/2/19 14:40:00 [只看该作者]

 您好！
         刚刚使用内联MRP统计，填写库存表时遇到问题，因为有几个仓库不同地方的管理员要填写同一种物料的库存，所以同一种物料分两行或多行填写的，但是MRP分析时没有把库存表的同一种物料合并起来一起分析，求解，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/2/19 14:47:00 [只看该作者]

请上传实例说明

 回到顶部
帅哥哟，离线，有人找我吗？
chk
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：528 威望：0 精华：0 注册：2018/4/23 8:59:00 		  发帖心情 Post By：2022/2/19 14:59:00 [只看该作者]

您好！
      这个是刚刚做的一个测试的，只做了一个1号仓库和2号仓库，麻烦看看谢谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试5.rar

！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/2/19 15:47:00 [只看该作者]

用代码处理，先对库存生成一个分组统计

Dim g As New GroupTableBuilder("库存2", DataTables("库存"))
g.Groups.AddDef("物料")
g.Totals.AddDef("库存数量")
g.Totals.AddDef("安全库存")
g.Filter = "[物料] is not null"
g.Build()

然后根据库存统计生成mrp统计
Dim mrp As New InlineMRPBuilder("统计表1")
'设置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("库存2")
mrp.Stock.MaterialCol = "物料"
mrp.Stock.QuantityCol= "库存数量"
mrp.Stock.MinimumCol = "安全库存"
'设置生产计划
For Each dr As DataRow In DataTables("生产计划").DataRows
    mrp.Plan.Add(dr("产品"), dr("数量"))
Next
'生成统计结果
mrp.Build()
MainTable = Tables("统计表1")
 回到顶部
帅哥哟，离线，有人找我吗？
chk
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：528 威望：0 精华：0 注册：2018/4/23 8:59:00 		  发帖心情 Post By：2022/2/19 16:15:00 [只看该作者]

 您好！
     
Dim g As New GroupTableBuilder("库存2", DataTables("库存"))
g.Groups.AddDef("物料")
g.Totals.AddDef("库存数量")
g.Totals.AddDef("安全库存")
g.Filter = "[物料] is not null"
g.Build()
这个代码要在哪里填？图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/2/19 16:20:00 [只看该作者]

设计一个窗口，放到按钮里点击。或者设计菜单按钮

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 5 次数据查询