Private Sub AddRecurring()

Dim oGift As CGift
Set oGift = New CGift

oGift.Init REApplication.SessionContext

With oGift
.Fields(GIFT_fld_Constit_ID) = 751
.Fields(GIFT_fld_Type) = "Recurring Gift"
.Fields(GIFT_fld_Amount) = 20
.Fields(GIFT_fld_Fund) = "Computer Lab Fund"
.Fields(GIFT_fld_Date) = "05/01/2009"
.Fields(GIFT_fld_Installment_Frequency) = "Monthly" 'For an ANNUAL gift, set oGift.Fields(GIFT_fld_Premium_Frequency) = "Annually"
.Fields(GIFT_fld_Schedule_DayOfMonth) = 1
.Fields(GIFT_fld_Schedule_Spacing) = 1
.Fields(GIFT_fld_Schedule_MonthlyOrdinal) = "First"
.Fields(GIFT_fld_Schedule_MonthlyDayOfWeek) = "Monday"
.Fields(GIFT_fld_Schedule_Date_1st_Pay) = "6/1/2010"
End With

oGift.Validate
oGift.Save
oGift.Closedown
Set oGift = Nothing

End Sub


Disclaimer: We provide programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes you are familiar with Microsoft Visual Basic and the tools used to create and debug procedures. Blackbaud Customer Support may help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality.