feat: Add GetValidMaterialsByModel and completeness check
Implemented logic to retrieve materials based on a model string and verify if the resulting set is complete. Added: - `GetValidMaterialsByModel`: Parses the model, extracts conditions, and matches materials against root categories. - `CheckCategoryCompleteness`: Recursively validates categories to ensure exactly one material match per required category (leaf or parent). This enables the BOM Manager to return a collection of materials alongside a boolean flag indicating if the collection satisfies the structural completeness rules.
This commit is contained in:
Misaka_Company
@@ -499,4 +499,156 @@ Sub Example6_CompareAutoFallback()
|
||||
"启用降级: " & bomMgr.GetMaterialsByModel(modelStr, "部件", True).Count & " 个物料" & vbCrLf & _
|
||||
"禁用降级: " & bomMgr.GetMaterialsByModel(modelStr, "部件", False).Count & " 个物料", _
|
||||
vbInformation
|
||||
End Sub
|
||||
|
||||
' ========================================
|
||||
' 示例7: 测试GetValidMaterialsByModel方法
|
||||
' ========================================
|
||||
Sub Example7_TestGetValidMaterialsByModel()
|
||||
Dim bomMgr As New clsBOMManager
|
||||
Dim wsConfig As Worksheet
|
||||
Dim wsPlatform As Worksheet
|
||||
|
||||
' 加载配置
|
||||
Set wsConfig = ThisWorkbook.Worksheets("领料配置")
|
||||
Set wsPlatform = ThisWorkbook.Worksheets("平台配置清单")
|
||||
bomMgr.LoadData wsConfig, wsPlatform
|
||||
|
||||
' 创建测试结果工作表
|
||||
Dim wsTest As Worksheet
|
||||
On Error Resume Next
|
||||
Application.DisplayAlerts = False
|
||||
ThisWorkbook.Worksheets("物料完整性测试").Delete
|
||||
Application.DisplayAlerts = True
|
||||
On Error GoTo 0
|
||||
|
||||
Set wsTest = ThisWorkbook.Worksheets.Add
|
||||
wsTest.Name = "物料完整性测试"
|
||||
|
||||
' 写入标题
|
||||
Dim row As Long
|
||||
row = 1
|
||||
wsTest.Cells(row, 1).value = "物料完整性测试报告"
|
||||
wsTest.Cells(row, 1).Font.Bold = True
|
||||
wsTest.Cells(row, 1).Font.Size = 14
|
||||
row = row + 2
|
||||
|
||||
' 测试多个型号
|
||||
Dim testModels() As Variant
|
||||
testModels = Array( _
|
||||
Array("YTHN-100.A0.532.M203.M16.Y3|BP-095.2312.M16.PA3", "完整型号测试1"), _
|
||||
Array("YTHN-100.A0.532.M203.M02.Y3|BP-095.2312.M02.PA3", "完整型号测试2"), _
|
||||
Array("YTHN-100.A0.532.M203.M12.Y3|BP-095.2312.M12.PA3", "完整型号测试3"), _
|
||||
Array("YTHN-100.A0.532.M203.M17.Y3", "可能不完整的型号") _
|
||||
)
|
||||
|
||||
Dim i As Long
|
||||
For i = LBound(testModels) To UBound(testModels)
|
||||
Dim modelStr As String
|
||||
Dim testName As String
|
||||
modelStr = testModels(i)(0)
|
||||
testName = testModels(i)(1)
|
||||
|
||||
' 调用GetValidMaterialsByModel
|
||||
Dim result As collection
|
||||
Set result = bomMgr.GetValidMaterialsByModel(modelStr)
|
||||
|
||||
Dim materials As collection
|
||||
Dim isComplete As Boolean
|
||||
Set materials = result("Materials")
|
||||
isComplete = result("IsComplete")
|
||||
|
||||
' 写入测试名称和型号
|
||||
wsTest.Cells(row, 1).value = "测试 " & (i + 1) & ": " & testName
|
||||
wsTest.Cells(row, 1).Font.Bold = True
|
||||
row = row + 1
|
||||
|
||||
wsTest.Cells(row, 1).value = "型号:"
|
||||
wsTest.Cells(row, 2).value = modelStr
|
||||
row = row + 1
|
||||
|
||||
wsTest.Cells(row, 1).value = "完整性:"
|
||||
wsTest.Cells(row, 2).value = IIf(isComplete, "?? 完整", "?? 不完整")
|
||||
If isComplete Then
|
||||
wsTest.Cells(row, 2).Font.Color = RGB(0, 128, 0) ' 绿色
|
||||
Else
|
||||
wsTest.Cells(row, 2).Font.Color = RGB(255, 0, 0) ' 红色
|
||||
End If
|
||||
wsTest.Cells(row, 2).Font.Bold = True
|
||||
row = row + 1
|
||||
|
||||
wsTest.Cells(row, 1).value = "物料数量:"
|
||||
wsTest.Cells(row, 2).value = materials.count
|
||||
row = row + 1
|
||||
|
||||
' 写入物料明细表头
|
||||
wsTest.Cells(row, 1).value = "类别"
|
||||
wsTest.Cells(row, 2).value = "代号"
|
||||
wsTest.Cells(row, 3).value = "名称"
|
||||
wsTest.Cells(row, 4).value = "数量"
|
||||
wsTest.Cells(row, 5).value = "选择条件"
|
||||
wsTest.Range(wsTest.Cells(row, 1), wsTest.Cells(row, 5)).Font.Bold = True
|
||||
wsTest.Range(wsTest.Cells(row, 1), wsTest.Cells(row, 5)).Interior.Color = RGB(200, 200, 200)
|
||||
row = row + 1
|
||||
|
||||
' 写入每个物料
|
||||
Dim mat As clsMaterialItem
|
||||
Dim j As Long
|
||||
For j = 1 To materials.count
|
||||
Set mat = materials(j)
|
||||
wsTest.Cells(row, 1).value = mat.Category
|
||||
wsTest.Cells(row, 2).value = mat.code
|
||||
wsTest.Cells(row, 3).value = mat.Name
|
||||
wsTest.Cells(row, 4).value = mat.Quantity
|
||||
wsTest.Cells(row, 5).value = IIf(mat.Condition = "", "(无条件)", mat.Condition)
|
||||
row = row + 1
|
||||
Next j
|
||||
|
||||
' 添加分隔行
|
||||
row = row + 1
|
||||
wsTest.Cells(row, 1).value = String(80, "-")
|
||||
row = row + 2
|
||||
Next i
|
||||
|
||||
' 添加统计汇总
|
||||
wsTest.Cells(row, 1).value = "测试汇总"
|
||||
wsTest.Cells(row, 1).Font.Bold = True
|
||||
wsTest.Cells(row, 1).Font.Size = 12
|
||||
row = row + 1
|
||||
|
||||
Dim completeCount As Long
|
||||
Dim incompleteCount As Long
|
||||
completeCount = 0
|
||||
incompleteCount = 0
|
||||
|
||||
For i = LBound(testModels) To UBound(testModels)
|
||||
modelStr = testModels(i)(0)
|
||||
Set result = bomMgr.GetValidMaterialsByModel(modelStr)
|
||||
If result("IsComplete") Then
|
||||
completeCount = completeCount + 1
|
||||
Else
|
||||
incompleteCount = incompleteCount + 1
|
||||
End If
|
||||
Next i
|
||||
|
||||
wsTest.Cells(row, 1).value = "总测试数:"
|
||||
wsTest.Cells(row, 2).value = UBound(testModels) - LBound(testModels) + 1
|
||||
row = row + 1
|
||||
|
||||
wsTest.Cells(row, 1).value = "完整:"
|
||||
wsTest.Cells(row, 2).value = completeCount
|
||||
wsTest.Cells(row, 2).Font.Color = RGB(0, 128, 0)
|
||||
row = row + 1
|
||||
|
||||
wsTest.Cells(row, 1).value = "不完整:"
|
||||
wsTest.Cells(row, 2).value = incompleteCount
|
||||
wsTest.Cells(row, 2).Font.Color = RGB(255, 0, 0)
|
||||
|
||||
' 格式化
|
||||
wsTest.Columns("A:E").AutoFit
|
||||
|
||||
MsgBox "物料完整性测试完成！" & vbCrLf & _
|
||||
"完整: " & completeCount & " 个" & vbCrLf & _
|
||||
"不完整: " & incompleteCount & " 个" & vbCrLf & vbCrLf & _
|
||||
"请查看工作表: 物料完整性测试", vbInformation
|
||||
End Sub
|
||||
Reference in New Issue
Block a user