project BLF > class Business Component > method AddSupers

system procedure

Description

Define the super procedures of each component.
Because this cannot be done with procedure overloading (of course), this method must be copied into each server component, see the 'system method' flag.

PreCondition

Ths procedure is called when starting a business component. It should not be used anywhere else.


Parameters


oiReturnStatusoutputintegerReturn status.


Internal usage


unused


program code (program1/business.p)

assign oiReturnStatus = -98.

/* Avoid decimal comma problems on get/set public data and on dynamic queries */
if session:numeric-format <> "American":U
then assign session:numeric-format = "American":U.

if session:date-format <> "mdy":U
then assign session:date-format = "mdy":U.

if vhFcSuper = ?
then assign vhFcSuper = this-procedure.
else do:
    if ih_ParentComponent:super-procedures <> ""
    then do viFcCount1 = num-entries(ih_ParentComponent:super-procedures) to 1 by -1:
        assign vhWork = widget-handle(entry(viFcCount1,ih_ParentComponent:super-procedures)).
        this-procedure:add-super-procedure(vhWork).
    end.

    this-procedure:add-super-procedure(ih_ParentComponent).
end.

if oiReturnStatus = -98
then assign oiReturnStatus = 0.