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/bfrwreportmaster.p)
<ANCESTOR-CODE>
/* ============================================================================ */
/* For backwards compatibility - the code/description/both is now a combo box */
/* rather than a lookup. The reason for this was for case-sensitivity. */
/* ============================================================================ */
if tFRWRepMstr.FRWRepMstrCodeDescOption = {&FRWREPMSTRCODE}
then do:
assign tFRWRepMstr.FRWRepMstrCodeDescOption = {&FRWREPMSTRCODE}.
end.
else if tFRWRepMstr.FRWRepMstrCodeDescOption = {&FRWREPMSTRBOTH}
then do:
assign tFRWRepMstr.FRWRepMstrCodeDescOption = {&FRWREPMSTRBOTH}.
end.
else do:
assign tFRWRepMstr.FRWRepMstrCodeDescOption = {&FRWREPMSTRDESC}.
end.
if tFRWRepMstr.FRWRepMstrThousandMillion = "":U or tFRWRepMstr.FRWRepMstrThousandMillion = ?
then assign tFRWRepMstr.FRWRepMstrThousandMillion = {&FRWREPMSTRAMOUNTROUNDING-DECIMAL}.
if tFRWRepMstr.FRWRepMstrZeroSuppressType = "":U or tFRWRepMstr.FRWRepMstrZeroSuppressType = ?
then assign tFRWRepMstr.FRWRepMstrZeroSuppressType = {&FRWREPMSTRZEROSUPPRESS-NONE}.
/* ================================================================= */
/* Fields calculated from FRWRepMstrRole table */
/* ================================================================= */
for each tFRWRepMstr where
tFRWRepMstr.tc_Status <> "D":U:
if tFRWRepMstr.tcFRWRepMstrRoles = "" or
tFRWRepMstr.tcFRWRepMstrRoles = ?
then do:
assign tFRWRepMstr.tcFRWRepMstrRoles = "":U.
for each tFRWRepMstrRole where
tFRWRepMstrRole.tc_ParentRowid = tFRWRepMstr.tc_Rowid:
if tFRWRepMstr.tcFRWRepMstrRoles = "":U
then assign tFRWRepMstr.tcFRWRepMstrRoles = tFRWRepMstrRole.tcRoleName.
else assign tFRWRepMstr.tcFRWRepMstrRoles = tFRWRepMstr.tcFRWRepMstrRoles + "," + tFRWRepMstrRole.tcRoleName.
end.
end. /* if tFRWRepMstr.tcFRWRepMstrRoles = "" or */
end. /* for each tFRWRepMstr where */