project QadFinancials > class BQBudgetCommitment > 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 BQBudgetCommitment.ApiCreateQBudgetLinkCommit
method BQBudgetCommitment.ApiDeleteQBudgetLinkCommit


program code (program1/bqbudgetcommitment.p)

/* ===================================================================== */
    /* For every tQBudgetLinkCommit (temporarely records) that gets deleted, */
    /* a QBudgetLinkCommit record will be created. These QBudgetLinkCommit   */ 
    /* records are the permanent linkt between the po-line and the budget    */
    /* ===================================================================== */
    if can-find (first tQBudgetLinkCommit where 
                       tQBudgetLinkCommit.tc_Status = "D":U)
    then do :
        <M-1 run AdditionalUpdatesDelete (output viFcReturnSuper (oiReturnStatus)) in BQBudgetCommitment>
        if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
        if oiReturnStatus < 0 
        then do :
            <M-3 run StopExternalInstances
               (output viFcReturnSuper (oiReturnStatus)) in BQBudgetCommitment>
            Return.
        end. /* if oiReturnStatus < 0 */
    end. /* if can-find */
    
    
                                                                     
    /* =========================================================== */
    /* Ancestor code is skipped. KriLae 20050324                   */
    /* As not necessary for Q-tabling and only causes overhead     */
    /* =========================================================== */