255bcdb5fe
- Commented out verbose Debug.Print statements in `GetMaterialsByModel` and `FilterCategoryWithSubcategories` to reduce console noise.
- Added validation checks to ensure required worksheets ('平台配置清单', '产品订单') exist before loading data.
- Refactored order processing logic to aggregate results into a Collection for structured output generation, including headers.
34 lines
1.1 KiB
OpenEdge ABL
34 lines
1.1 KiB
OpenEdge ABL
' ========================================
|
|
' 类模块: clsMaterialWithFlag
|
|
' 用途: 包装物料对象及其匹配状态标志
|
|
' ========================================
|
|
Option Explicit
|
|
|
|
Private mMaterial As clsMaterialItem ' 物料对象
|
|
Private mIsComplete As Boolean ' 是否完整匹配
|
|
|
|
' ========================================
|
|
' 属性: Material
|
|
' 说明: 获取或设置物料对象
|
|
' ========================================
|
|
Public Property Get Material() As clsMaterialItem
|
|
Set Material = mMaterial
|
|
End Property
|
|
|
|
Public Property Set Material(ByVal value As clsMaterialItem)
|
|
Set mMaterial = value
|
|
End Property
|
|
|
|
' ========================================
|
|
' 属性: IsComplete
|
|
' 说明: 获取或设置是否完整匹配
|
|
' True: 该物料属于完整的物料清单
|
|
' False: 该物料属于不完整的物料清单（某些类别缺失物料）
|
|
' ========================================
|
|
Public Property Get isComplete() As Boolean
|
|
isComplete = mIsComplete
|
|
End Property
|
|
|
|
Public Property Let isComplete(ByVal value As Boolean)
|
|
mIsComplete = value
|
|
End Property |