' ========================================
' 类模块: 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