Description
This empty method allows to do additional updates on class temp-tables after records were received (and validated) from outside, using method SetPublicTables.
You can start instances of other business classes to do those updates.
Parameters
oiReturnStatus | output | integer | |
Internal usage
QadFinancials
program code (program/bdivision.p)
<ANCESTOR-CODE>
assign oiReturnStatus = -98.
/* Validate created profiles */
if viBProfile8ID <> 0 and viBProfile8ID <> ?
then do:
<I-11 {bFcOpenInstance
&CLASS = "BProfile"}>
<M-12 run ValidateBCAdditionalUpdates (output viLocalReturnStatus (oiReturnStatus)) in BProfile>
<I-13 {bFcCloseInstance
&CLASS = "BProfile"}>
if viLocalReturnStatus <> 0 then assign oiReturnStatus = viLocalReturnStatus.
if viLocalReturnStatus < 0
then do :
<M-14 run StopExternalInstances
(output viFcReturnSuper (oiReturnStatus)) in BDivision>
Return.
end. /* if viLocalReturnStatus < 0 */
end.
if viBMfgSubAccountID = 0 or viBMfgSubAccountID = ? then do:
<I-4 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "true"
&CLASS = "BMfgSubAccount"}>
end.
else do:
<I-7 {bFcOpenInstance
&CLASS = "BMfgSubAccount"}>
end.
<M-5 run MaintainData
(input tDivision (tDivision),
output viLocalReturnStatus (oiReturnStatus)) in BMfgSubAccount>
<I-6 {bFcCloseInstance
&CLASS = "BMfgSubAccount"}>
if viLocalReturnStatus <> 0 then assign oiReturnStatus = viLocalReturnStatus.
if viLocalReturnStatus < 0
then do :
<M-10 run StopExternalInstances
(output viFcReturnSuper (oiReturnStatus)) in BDivision>
Return.
end. /* if viLocalReturnStatus < 0 */
/* ======================== */
/* Set ReturnStatus = OK */
/* ======================== */
if oiReturnStatus = -98
then assign oiReturnStatus = 0.