project QadFinancials > class BDivision > method AdditionalUpdates

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


oiReturnStatusoutputinteger


Internal usage


QadFinancials
method BDivision.ApiStdMaintainTT


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.