project QadFinancials > class BGLMask > 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 BGLMask.ApiGetGLMasks
method BGLMask.ApiSetGLMasks
method BGLMask.ApiStdMaintainTT


program code (program/bglmask.p)

assign viLocalReturnStatus = oiReturnStatus
       oiReturnStatus      = -98.

PROCESSINGBLOCK: DO:  
         
    /* Check if replication is enabled.  Replication is normally disabled during conversion */
    <M-15 run IsOperationalReplicationEnabled
       (output vlReplicationEnabled (olReplicationEnabled), 
        output viLocalReturnStatus (oiReturnStatus)) in BGLMask> 
    
    if viFcReturnSuper <> 0
    then assign viLocalReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then LEAVE PROCESSINGBLOCK.              

    if vlReplicationEnabled = true
    then do:
        /* ======================= */
        /* Updates towards MfgPro  */
        /* ======================= */
        if viBMfgAcctSubCCProjID = 0 or 
           viBMfgAcctSubCCProjID = ?
        then do:
            <I-6 {bFcStartAndOpenInstance
                &ADD-TO-TRANSACTION = "true"
                &CLASS              = "BMfgAcctSubCCProj"}>
        end. /* if viBMfgCostCenterFromFinID = 0 or viBMfgCostCenterFromFinID = ? */
        else do:
            <I-7 {bFcOpenInstance
                &CLASS           = "BMfgAcctSubCCProj"}>
        end. /* Not if viBMfgCostCenterFromFinID = 0 or viBMfgCostCenterFromFinID = ? */
    
        <M-14 run ApiReplicateFromFinancials
           (input  tGLMask (tGLMask), 
            output viExternalReturnStatus (oiReturnStatus)) in BMfgAcctSubCCProj>
        <I-9 {bFcCloseInstance
                &CLASS           = "BMfgAcctSubCCProj"}>
        if viExternalReturnStatus <> 0
        then assign viLocalReturnStatus = viExternalReturnStatus.
        if viExternalReturnStatus < 0
        then LEAVE PROCESSINGBLOCK.
    end. /* if vlReplicationEnabled = true */      
        
END. /* PROCESSINGBLOCK */       

/* ======================== */
/* Set ReturnStatus         */
/* ======================== */
assign oiReturnStatus = viLocalReturnStatus.
if viLocalReturnStatus < 0 
then do :
    <M-16 run StopExternalInstances
       (output viFcReturnSuper (oiReturnStatus)) in BGLMask>
    return.
end. /* if viLocalReturnStatus < 0  */

<ANCESTOR-CODE>