Public Sub RemoveTaxDeclaration()


   Dim oRec As CRecord

   Set oRec = New CRecord


   oRec.Init REApplication.SessionContext


   Dim oRec2 As IBBRecord2


   'Load the record

   oRec.Load 280

   'Set oRec2 to equal orec to get to the tax declarations


   Set oRec2 = oRec

   'Get an instance of CTaxDeclaration


   Dim oTax As CTaxDeclaration

   Dim oTaxes As CTaxDeclarations

   Set oTaxes = oRec2.TaxDeclarations


   'Remove the tax delcration depending on the date

   For Each oTax In oTaxes

       If oTax.Fields(TaxDeclaration_Fld_DeclarationStarts) = "01/01/2005" Then

           oTaxes.Remove (oTax.Fields(TaxDeclaration_Fld_DeclarationID))

   End If


   Next oTax




   Set oRec2 = Nothing

   Set oTax = Nothing


   Set oRec = Nothing

   Set oTaxes = 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.