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
oiReturnStatus | output | integer | Return 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.