fix: clear error messages between BOM extractions

Fix bug where error messages from previous orders were accumulating:
- Add ClearErrorMessages() public method to BomExtractor class
- Initialize pErrorMessages as new collection in ExtractBom()
- Replace commented-out pErrorMessages.Clear with proper initialization
- Ensures each order's error information is independent

Co-Authored-By: Claude Sonnet 4.5 <noreply@anthropic.com>
This commit is contained in:
Misaka
2026-02-01 22:42:00 +08:00
parent c7c12838b2
commit 73491c104b

View File

@@ -112,6 +112,14 @@ Public Sub ClearExcludeCategories()
Set pExcludeCategories = New collection Set pExcludeCategories = New collection
End Sub End Sub
'=====================================================================
' 方法: ClearErrorMessages
' 功能: 清空错误信息列表
'=====================================================================
Public Sub ClearErrorMessages()
Set pErrorMessages = New collection
End Sub
'===================================================================== '=====================================================================
' 方法: ExtractBom ' 方法: ExtractBom
' 功能: 根据产品条件提取BOM ' 功能: 根据产品条件提取BOM
@@ -124,8 +132,7 @@ Public Function ExtractBom(productConditions As Object) As collection
' 清空结果 ' 清空结果
Set pMatchedItems = New collection Set pMatchedItems = New collection
Set pRequiredCategories = New collection Set pRequiredCategories = New collection
Set pErrorMessages = New collection
'pErrorMessages.Clear
' 第一步:确定需要的类别 ' 第一步:确定需要的类别
DetermineRequiredCategories productConditions DetermineRequiredCategories productConditions