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/bpayconf.p)

<ANCESTOR-CODE>

for each tPayConf:
    <Q-16 run GLById (all) (Read) (NoCache)
       (input ?, (CompanyId)
        input tPayConf.AROverPayGL_ID, (GLId)
        output dataset tqGLById) in BGL>
    find first tqGLById no-error.
    if available tqGLById then
    do:
        assign tPayConf.tcOverPayGLDescription = tqGLById.tcGLDescription.
               tPayConf.tcOverPayGLCode = tqGLById.tcGLCode.
    end.

    <Q-35 run GLById (all) (Read) (NoCache)
       (input ?, (CompanyId)
        input tPayConf.ARShortPayGL_ID, (GLId)
        output dataset tqGLById) in BGL>
     find first tqGLById no-error.
     if available tqGLById then
     do:
         assign tPayConf.tcShortPayGLDescription = tqGLById.tcGLDescription
                tPayConf.tcShortPayGLCode = tqGLById.tcGLCode.
     end.

     /*<Q-51 run BankNumberByIDForPayConf (all) (Read) (NoCache)
        (input ?, (CompanyId)
         input tPayConf.BankNumber_ID, (BankNumberId)
         output dataset tqBankNumberByIDForPayConf) in BBankNumber>
     find first tqBankNumberByIDForPayConf no-error.
     if available tqBankNumberByIDForPayConf then
         assign tPayConf.tcCurrencyCode = tqBankNumberByIDForPayConf.tcCurrencyCode.*/
end.