method Calculate

Description

Add code here to initialize the calculated fields of the class temp-tables after loading existing records from the application database.

Parameters

oiReturnStatus

output

integer

Internal usage

unused

program code (program/bpaymentcondition.p)

<ANCESTOR-CODE>

for each tPaymentCondition:

    if vlDataLoadKeepPrevious and 
       can-find (tAlreadyCalculatedRecords where
                 tAlreadyCalculatedRecords.tcTableName = "PaymentCondition" and
                 tAlreadyCalculatedRecords.tc_Rowid    = tPaymentCondition.tc_Rowid)
    then next.

    <M-1 run ApiIsPaymentConditionAlreadyUsed
       (input  viCompanyId (iiCompanyId), 
        input  tPaymentCondition.PaymentCondition_ID (iiPaymentConditionID), 
        input  '':U (icPaymentConditionCode), 
        output tPaymentCondition.tlPaymentConditionIsAlreadyUsed (olIsPaymentConditionAlreadyUsed), 
        output viFcReturnSuper (oiReturnStatus)) in BPaymentCondition>
end.