project QadFinancials > class BCashReport > 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


oiReturnStatusoutputinteger


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: */