project QadFinancials > class BMfgSupplier > method StopExternalInstances

Description

Stop instances that are started in AdditionalUpdates as part of current transaction


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BMfgSupplier.AdditionalUpdates
method BMfgSupplier.ValidateComponent


program code (program/bmfgsupplier.p)

/* ============================================================================= *
 * BMfgAddress                                                                   *
 * ============================================================================= */
if viBMfgAddress7ID <> ? and 
   viBMfgAddress7ID <> 0 and
   vlIsBMfgAddrStHrBMfgSu
then do:
    if valid-handle(vhBMfgAddress7Inst)
    then do:
        <I-32 {bFcCloseAndStopInstance
             &CLASS           = "BMfgAddress"}>
    end.
    else do:
        <I-27 {bFcStopInstance
             &CLASS           = "BMfgAddress"}>
    end.
    assign viBMfgAddress7ID       = 0
           vlIsBMfgAddrStHrBMfgSu = false
           vlIsBMfgAddrOpHrBMfgSu = false.
end.

/* ============================================================================= *
 * BMfgAddressList                                                               *
 * ============================================================================= */
if viBMfgAddressListDetail7ID <> ? and
   viBMfgAddressListDetail7ID <> 0 and
   vlIsBMfgAddrLstStHrBMfgSu
then do:
    if valid-handle(vhBMfgAddressListDetail7Inst)
    then do:
        <I-57 {bFcCloseAndStopInstance
             &CLASS           = "BMfgAddressListDetail"}>
    end.
    else do:
        <I-14 {bFcStopInstance
             &CLASS           = "BMfgAddressListDetail"}> 
    end.

    assign viBMfgAddressListDetail7ID = 0
           vlIsBMfgAddrLstStHrBMfgSu  = false
           vlIsBMfgAddrLstOpHrBMfgSu  = false.
end.

<ANCESTOR-CODE>