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/bcashreport.p)
<ANCESTOR-CODE>
for each tCashReportGL:
if tCashReportGL.CashReportGLIsCumul = true
then assign tCashReportGL.tcCumul = {&CASHREPORTCUMUL-CUMUL}.
else assign tCashReportGL.tcCumul = {&CASHREPORTCUMUL-NONCUMUL}.
if tCashReportGL.CashReportGLIsAccount = true
then assign tCashReportGL.tcAccount = {&CASHREPORTACCOUNT-ACC}.
else assign tCashReportGL.tcAccount = {&CASHREPORTACCOUNT-MAN}.
if tCashReportGL.tcAccount = {&CASHREPORTACCOUNT-MAN}
then do:
if tCashReportGL.CashReportGLAmountType = {&CASHREPORTGL-AMOUNTTYPE-BALANCE}
then tCashReportGL.tlGLIsBalanceAccount = true.
else tCashReportGL.tlGLIsBalanceAccount = false.
end.
assign tCashReportGL.tcCashReportGLCompanyCode = vcCompanyLC.
end. /* for each tCashReportGL: */