project QadFinancials > class BDInvoice > 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


oiReturnStatusoutputintegerReturn 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 */