project BLF > class BEventConfig > 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/beventconfig.p)
<ANCESTOR-CODE>
for each tEventConfig:
if tEventConfig.EventConfigStatusFieldName begins "D+" /* support for SP5 */
then assign tEventConfig.EventConfigStatusFieldName = substring (tEventConfig.EventConfigStatusFieldName,3,-1,"CHARACTER")
tEventConfig.EventConfigSuppressEmpty = ?
tEventConfig.tlSuppressEmptyFields = no
tEventConfig.tlSuppressDefaultFields = yes.
else
if tEventConfig.EventConfigSuppressEmpty = yes
then assign tEventConfig.tlSuppressEmptyFields = yes
tEventConfig.tlSuppressDefaultFields = no.
else
if tEventConfig.EventConfigSuppressEmpty = no
then assign tEventConfig.tlSuppressEmptyFields = no
tEventConfig.tlSuppressDefaultFields = no.
else assign tEventConfig.tlSuppressEmptyFields = no
tEventConfig.tlSuppressDefaultFields = yes.
end.