Public Function AddObj(obj As clsAddData) As clsAddData

    Dim objNewMember As clsAddData
    Set objNewMember = New clsAddData

    objNewMember.FillAddData obj
    mCol.Add objNewMember, objNewMember.Key

    'return the object created
    Set AddObj = objNewMember
    Set objNewMember = Nothing
End Function

'***************************************************************************
'*  Name         : FillAddData
'*  Description  : Заполняет данными из другого объекта
'*  Parameters   : objVData - clsAddData
'*  Returns      : Nothing
'*  Date         : 20 мар 2005
'***************************************************************************

Public Sub FillAddData(ByVal vData As clsAddData)

Dim i As Long

On Error GoTo errHandler
For i = fdName To fdDoDiscount
    Me.DataElement(i) = vData.DataElement(i)
Next i
With Me
    .mdQuantity = vData.mdQuantity
    .TypeElement = vData.TypeElement
End With
Exit Sub

errHandler:

ErrStr = vbCrLf & "clsAddData метод - FillAddData" & vbCrLf
Debug.Print ErrStr
g_DebugOutput.AddLogEvent ErrStr
Resume Next
End Sub

Public Property Let DataElement(FieldEl As FieldData, ByVal vData As String)
Select Case FieldEl
Case fdName
    mvarsNameElement = vData
Case fdArtName
    mvarsArtElement = vData
Case fdType
    mvarsTypeElement = vData
Case fdDefValue
    mvarsDefaultValue = CBool(vData)
Case fdUnit
    mvarsUnitElement = vData
Case fdKoshtUnit
    vData = Replace(vData, ",", ".")
    mvardKoshtUnit = Val(vData)
Case fdDoDiscount
    mvarbDoDiscount = IIf(LCase$(vData) = "true", True, False)
End Select
End Property

Public Property Get DataElement(FieldEl As FieldData) As String
Select Case FieldEl
Case fdName
    DataElement = mvarsNameElement
Case fdArtName
    DataElement = mvarsArtElement
Case fdType
    DataElement = mvarsTypeElement
Case fdDefValue
    DataElement = mvarsDefaultValue
Case fdUnit
    DataElement = mvarsUnitElement
Case fdKoshtUnit
    DataElement = CStr(mvardKoshtUnit)
Case fdDoDiscount
    DataElement = CStr(mvarbDoDiscount)
End Select
End Property