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

   

   oRec.Save

   'Cleanup

   Set oRec2 = Nothing

   Set oTax = Nothing

   oRec.Closedown

   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.