Parameters
Internal usage
QadFinancials
program code (program1/bbusinessrelation.p)
assign oiReturnStatus = 0.
if viPGTM9ID = 0 or
viPGTM9ID = ?
then do:
<I-36 {bFcStartAndOpenInstance
&CLASS = "PGTM"}>
end.
else do:
<I-95 {bFcOpenInstance
&CLASS = "PGTM"}>
end.
<M-62 run ValidateAddress
(input-output tBusRelAvaReturnAddress (tAvaReturnAddress),
output tBusRelAvaReturnMessage (tAvaReturnMessage),
output viFcReturnSuper (oiReturnStatus)) in PGTM>
<I-61 {bFcCloseInstance
&CLASS = "PGTM"}>
<M-92 run ValidateAvaAddress (output viFcReturnSuper (oiReturnStatus)) in BBusinessRelation>
if viFcReturnSuper <> 0
then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.