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.