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

<ANCESTOR-CODE>

for each tOIAdjustLn:
    if tOIAdjustLn.DInvoice_ID <> 0 then
    do:
        <Q-48 run DInvoiceByID (all) (Read) (NoCache)
           (input ?, (CompanyId)
            input tOIAdjustLn.DInvoice_ID, (DInvoice_ID)
            output dataset tqDInvoiceByID) in BDInvoice>
        find first tqDInvoiceByID no-error.
        if available tqDInvoiceByID then
            tOIAdjustLn.tcOIAjustLnDIText = tqDInvoiceByID.tcDInvoiceDIText.
    end.
end.