Private Sub FindSoftCredits()
Dim oGifts As CGifts
Dim oGift As CGift
Dim oGS As CGiftSoftCredit
Dim oGSCredits As CGiftSoftCredits
Dim oRec As CRecord
Set oRec = New CRecord
Set oGifts = New CGifts
oGifts.Init REApplication.SessionContext, tvf_Gift_UseFilterObject
oGifts.FilterObject.ConstitRecordID = 280
'looping through all matching gifts
For Each oGift In oGifts
Set oGSCredits = oGift.SoftCredits
For Each oGS In oGSCredits
oRec.Init REApplication.SessionContext
Set oRec = oGS.Constituent
Debug.Print "Gift: " & oGift.Fields(GIFT_fld_Constituent_Name) & " - " & oGift.Fields(GIFT_fld_Amount)
Debug.Print "Soft Credit: " & oRec.Fields(RECORDS_fld_FULL_NAME) & " - " & oGS.Fields(GIFTSOFTCREDIT_fld_Amount)
oRec.Closedown
Set oRec = Nothing
Next oGS
oGift.Closedown
Next oGift
Set oGift = Nothing
oGifts.Closedown
Set oGifts = Nothing
End Sub
Blackbaud Community
Connect and collaborate with fellow Blackbaud users.