project QadFinancials > class BBusinessComponent > 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


BLF
method BBusinessComponent.ApiSynchronise
method BBusinessComponent.ApiSynchroniseDefaultActivities


program code (program/bbusinesscomponent.p)

<ANCESTOR-CODE>

empty temp-table tMenuURICaller.

for each tBusComponent:
 
    for each tBusActivity where
             tBusActivity.tc_ParentRowid = tBusComponent.tc_Rowid:

        if tBusActivity.tc_Status  = 'D':U or
           tBusComponent.tc_Status = 'D':U
        then do:         

            /*delete mnd_det*/
            create tMenuURICaller.
            assign tMenuURICaller.tcResourceURI = "urn:cbf:":U + tBusComponent.BusComponentCode + ".":U + tBusActivity.BusActivityCode.
        end.

    end. /*for each tBusActivity:*/

end. /*for each tBusComponent*/

if can-find (first tMenuURICaller)
then do:
    if viBMfgMenu7ID = 0 or
       viBMfgMenu7ID = ?
    then do:
        <I-1 {bFcStartAndOpenInstance
            &ADD-TO-TRANSACTION = "true"
            &CLASS              = "BMfgMenu"}>
    end. 
    else do:
        <I-2 {bFcOpenInstance
            &CLASS           = "BMfgMenu"}>
    end.
    <M-4 run DeleteMenuFromResource
       (input  tMenuURICaller (tMenuURI), 
        output viLocalReturnStatus (oiReturnStatus)) in BMfgMenu>
    <I-3 {bFcCloseInstance
            &CLASS           = "BMfgMenu"}>
    if viLocalReturnStatus <> 0
    then assign oiReturnStatus = viLocalReturnStatus.
    if viLocalReturnStatus < 0
    then do:
        <M-5 run StopExternalInstances
           (output viFcReturnSuper (oiReturnStatus)) in BBusinessComponent>
        return.
    end.
end. /*if can-find (first tMenuURICaller)*/