method ApiStdMaintainTTWithIntPostDates

Description

This method is a submethod of ApiStdMaintainTTWitIntPostDates.
This method calculates the due date and the discount due date of the debtor invoice.

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

QadFinancials

method BDInvoice.ApiCreateDInvoicesFinCharge
method BDInvoice.ApiStdMaintainTTWithIntPost
method BDInvoice.StdMaintainTTWithIntPost

program code (program9/bdinvoice.p)

/* =================== */
    /* Dalculate due dates */
    /* =================== */
    if tDIOpenBalance.tcNormalPaymentConditionCode <> "":U and tDIOpenBalance.tcNormalPaymentConditionCode <> ?
    then do:
         <I-6 {bFcStartAndOpenInstance
              &ADD-TO-TRANSACTION = "false"
              &CLASS              = "BPaymentCondition"}>
        <M-5 run CalculateDueDiscountDate
           (input  ? (iiPaymentConditionID), 
            input  tDIOpenBalance.tcNormalPaymentConditionCode (icPaymentConditionCode), 
            input  tDIOpenBalance.ttInvoiceDate (itInvoiceDate), 
            output tDIOpenBalance.ttInvoiceDueDate (otDueDate), 
            output tDIOpenBalance.ttInvoiceDiscountDueDate (otDiscountDate), 
            output viFcReturnSuper (oiReturnStatus)) in BPaymentCondition>
        if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)
        then assign oiReturnStatus = viFcReturnSuper.

         <I-7 {bFcCloseAndStopInstance
              &CLASS           = "BPaymentCondition"}>
              
        if oiReturnStatus < 0 then return.  
    end. /* if tDIOpenBalance.tcNormalPaymentConditionCode <> "":U and */