Public Sub RollBackTransaction()

Dim oGift As CGift
Set oGift = New CGift

With oGift
.Init REApplication.SessionContext

'Load existing recurring gift using System Record ID
.Load 1304

'This step is necessary to set the recurring gift activity in the background
If Not .RecurringGiftActivities Is Nothing Then

.RollBackTransaction
.Save

End If

End With

'Cleanup
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.