Public Sub PledgeandPayments()

Dim oPledge As CGift
Set oPledge = New CGift

oPledge.Init REApplication.SessionContext

Dim oInstall As CInstallment
Dim oPayment As CInstallmentPayment
Dim Count As Integer

oPledge.Load 2020  'Loads the Gift Id that is the Pledge

Count = 0

   For Each oInstall In oPledge.Installments
      Count = Count + 1
      Debug.Print "Installment #: " & Count
       For Each oPayment In oInstall.InstallmentPayments
           Debug.Print "Pledge Id: " & oPayment.Fields(INSTALLMENTPAYMENT_fld_PledgeId)
           Debug.Print "Gift Import Id: " & oPayment.Payment.Fields(GIFT_fld_Import_Id)
           Debug.Print "Amount: " & oPayment.Fields(INSTALLMENTPAYMENT_fld_Amount)
       Next oPayment
   Next oInstall

oPledge.Closedown
Set oPledge = 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. Our Customer Support can help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality. If you are interested in learning more about the VBA and API modules, contact your account manager.