Public Sub AddGiftAmendment()

   Dim oGift As CGift
   Set oGift = New CGift
   oGift.Init REApplication.SessionContext
  
   oGift.Load 1287

   Dim oAmend As IBBAmendment

   Dim oGS As CGiftSplit

   Dim oAmServer As CAmendmentServer
   Set oAmServer = New CAmendmentServer
  
   With oAmServer
       .Init REApplication.SessionContext, oGift
       Set oAmend = .AddAmendment()
      
       With oAmend
           .Fields(AMENDMENT_fld_Amount) = 100
          
           For Each oGS In .Splits
               If oGS.Fields(GIFTSPLIT_fld_Fund) = "2000 Annual Fund" Then
                   oGS.Fields(GIFTSPLIT_fld_Fund) = "Natural Disaster Relief Fund"
                   oGS.Fields(GIFTSPLIT_fld_Amount) = 50
               End If
              
               If oGS.Fields(GIFTSPLIT_fld_Fund) = "2000 Membership Fund" Then
                   oGS.Fields(GIFTSPLIT_fld_Fund) = "2001 Annual Fund"
                   oGS.Fields(GIFTSPLIT_fld_Amount) = 50
               End If
           Next oGS
       End With
      
       .Validate
       .Save
  
   End With
  
   oAmServer.CloseDown
   Set oAmServer = Nothing
  
   oGift.Save
   oGift.CloseDown
   Set oGift = Nothing
  
   Set oGS = Nothing
   Set oAmend = 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.