Private Sub VoidARPayment()

    Dim oVoid As CVoidPaymentHeader
    Dim oBag As IBBPropBag
   
    Set oVoid = New CVoidPaymentHeader
    oVoid.Init FE_Application.SessionContext
   
    Set oBag = oVoid
    oBag.Property("POSTDATE", "01/01/2009") = "01/01/2009"
    Set oBag = Nothing
   
    oVoid.VoidPaymentHeader 175, False
   
    oVoid.CloseDown
    Set oVoid = 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.