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

yanwei82123300

各位老师帮助我看看这个例子，如何依据条件进行BOM的展开明细，谢谢
子窗体中MB属性为"M"的代表是有下层BOM的需要进行二次加工；"B"为没有为直接采购物料，
问题，我的想法是将子窗体中"子项属性MB"属性为"M"的，后面的字段"MB"值进行选择，然后点击命令按钮"Extract"进行拆分提取出它的明细,将子窗体中明细追加到表"tblTempBOM_Breakformula"中。
请大家看看

Benjamin_luk

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

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

yanwei82123300

Benjamin_luk 发表于 2016-11-18 15:54
哪个ERP系统导出的BOM？有以下几个问题：
1.一个产品是否有多个版本的BOM
2.只是列出下层BOM的信息？还是 ...

确实是四班系统的BOM,

yanwei82123300

1暂时不考虑版本问题，我这里只有一个版本BOM,
2暂时先学习如何透出下层信息来
3不考虑时间问题，
请帮助,,x

Benjamin_luk

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

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

yanwei82123300

Benjamin_luk 老师以后多多交流一下四班的问题可以吗？谢谢这个问题谢谢帮助！

Benjamin_luk

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

yanwei82123300

Benjamin_luk 发表于 2016-11-18 23:53
问一下：M125155 与 125155是什么关系的

不带M为发货产品，带M为内部使用

yanwei82123300

都是一样的产品

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