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.