各位老师帮助我看看这个例子，如何依据条件进行BOM的展开明细，谢谢

Benjamin_luk

哪个ERP系统导出的BOM？有以下几个问题：
1.一个产品是否有多个版本的BOM
2.只是列出下层BOM的信息？还是要按上层用量来计算数量
3.BOM是否有删除或有效日期问题

看这数据结构有点象老四班系统(Fourth Shift)

Benjamin_luk

yanwei82123300 发表于 2016-11-18 16:04
1暂时不考虑版本问题，我这里只有一个版本BOM,
2暂时先学习如何透出下层信息来
3不考虑时间问题，

公司版本太低，下班帮你看一下。
09年前，都是用四班的系统，生产计划、采购都整理过。

Benjamin_luk

问一下：M125155 与 125155是什么关系的

Benjamin_luk

方法：
1.读取了窗体中的记录集，取得“M“的产品
2.将”M”产品加入到临时表tblSKUtemp
3.用追加查询SQL_ExtBOM，将BOM资料加到表tblTempBOM_Breakformula里面

问题，
1.如果产品是“B”是否需要加到表tblTempBOM_Breakformula里面
2.可能BOM第二层还会有半成品; 如果还需要导的话，代码需要修改。






Private Sub Extract_Click()
Dim rs As Recordset, str As String, rs1 As Recordset
Dim I As Integer, K As Integer
Set rs = frmSubcheckBOMDetail.Form.Recordset
K = 0
If rs.RecordCount > 0 Then
    rs.MoveFirst
    CurrentDb.Execute "Delete * from tblSKUTemp"
    CurrentDb.Execute "Delete * from tblTempBOM_Breakformula"
    Set rs1 = CurrentDb.OpenRecordset("tblSKUTemp")
    Do Until rs.EOF        
        If rs("子项属性MB") = "M" Then
            rs1.AddNew
            rs1("SubSKU") = rs("子项")
            rs1.Update
            K = K + 1
        End If
    rs.MoveNext
    Loop
    If K > 0 Then
        DoCmd.OpenQuery "SQL_ExtBOM"
        MsgBox "BOM导出完成"
        Else
        MsgBox "没有需要生产的半成品"
    End If
End If
End Sub

Benjamin_luk

yanwei82123300 发表于 2016-12-6 08:25
Benjamin_luk谢谢老师您的帮助，我想做四班系统MBIL的代码

那就是多层BOM物料需求吧。
就上从上层一直导到最后一层吧
之前公司上电子帐册，有解过的多层为单层的；年代过久找不着了

这个可以先用查询将多层BOM组合起来。
1.需求算法是不是：生产数量* BOM消耗量*（1+报废率）
2.BOM里面是否有固定量消耗的？就是每个工单都消耗同一个数量
3.BOM的计划基数都是1吗？
4.你BOM最多是多少层？

Benjamin_luk

yanwei82123300 发表于 2016-12-6 13:56
学习了，谢谢了，四班太老了，落伍了，准备换oracle，不知这个高大上咋样？感觉印度人做的，有点绕弯

四班原是美国的。
Oracel没用过，听说与sap大致一样；
sap强在于MRP和扩展性
晚上再帮你整理多层查询

Benjamin_luk

大体做了一个，但以下没考虑以下内容（需要考虑才能用于实际MRP运算）
1.报废率
2.BOM里面是否有固定量消耗设置
3.第一层后的物料消耗不是基于第一层的用量，层次间的数量没有关联；

如果需要关联的话，在tblSKUtemp里面有记录上一层BOM需要的数量，自己做进一步处理就好了。
ParentQty就是上一层BOM需要的数量，BOMEXP记录对应的BOM是否展开过。
如果还需要上一层BOM的报废率，自己可以加上。