View Single Post

Old 02-05-2008, 07:28 PM   #3 (permalink)
IVasilev IVasilev is offline
Junior Member

Join Date: Jan 2008
Location: Atlanta, GA
Posts: 12
Rep Power: 0 IVasilev is on a distinguished road

Blackbaud Products
- Raiser's Edge (RE)
- API/VBA

David,
Thank you very much!!!

I added the code and now I see the attribute field as a batch field. Actually I see the description of the attribute I needed. When I add a gift, an attribute is added but the value of the attribute is not assigned. This is the procedure I use in order to add a gift:
Public Sub AddGift(....)
Dim oGift As CGift
Set oGift = New CGift

With oGift
.Init REAPI.SessionContext

' Init Gift’s fields
......

'ADD Credit Card Information
......
End With

' Add Attribute
With oGift.Attributes.Add
.Fields(Attribute_fld_ATTRIBUTETYPES_ID) = lAttributeID
.Fields(Attribute_fld_VALUE) = True ' Yes/No attribute
End With

'AddGiftToBatch oGift
Dim oTempRecord As CTempRecord
Dim oTempRecords As CTempRecords

Set oTempRecords = oBatch.TempRecords
Set oTempRecord = oTempRecords.Add
Set oTempRecord.DataObject = oGift

oGift.CloseDown
Set oGift = Nothing
End Sub

I don’t know if this is the only way to add a gift to a batch. I wish the documentation had more information.

I really appreciate your help!!!

Ivan
__________________
Ivan Vasilev
Database Manager
USA, Atlanta, GA
Reply With Quote