method AdditionalUpdatesInvWHT

Description

Method to create the WHT record if needed. Interaction with component BWithHoldingTax.

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

QadFinancials

method BBankEntry.AdditionalUpdatesInv

program code (program4/bbankentry.p)

/* ===================================================================== */
/* Method      : AdditionalUpdatesWHT                                    */
/* Desc        : This method does additional updates on withholding tax  */
/* --------------------------------------------------------------------- */
/* Params:       none                                                    */
/* ===================================================================== */
    
if can-find (first tInvoiceWHTPaymentForBE)
then do:
    /* Update WHT */
    empty temp-table tInvoiceWHTPaymentCIWHTForBE.
    <M-15 run CreateAndOrUpdateWHT
       (input  tInvoiceWHTPaymentForBE (tInvoiceWHTPayment), 
        input  tInvoiceWHTPaymentCIWHTForBE (tInvoiceWHTPaymentCIWHT), 
        output viFcReturnSuper (oiReturnStatus)) in BWithholdingTax>
    if viFcReturnSuper < 0 or oiReturnStatus  = 0
    then assign oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.
end. /* if can-find (first tInvoiceWHTPaymentForBE) */