project QadFinancials > class BMfgEndUser > 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 BMfgEndUser.AdditionalUpdates
method BMfgEndUser.ValidateComponent


program code (program/bmfgenduser.p)

/* ============================================================================= *
 * BMfgAddress                                                                   *
 * ============================================================================= */
if viBMfgAddress10Id <> ? and 
   viBMfgAddress10ID <> 0 and
   vlIsBMfgAddressStartedHr
then do:
    if valid-handle(vhBMfgAddress10Inst)
    then do:
        <I-55 {bFcCloseAndStopInstance
             &CLASS           = "BMfgAddress"}>
    end.
    else do:
        <I-1 {bFcStopInstance
             &CLASS           = "BMfgAddress"}>
    end.
    assign viBMfgAddress10Id        = 0
           vlIsBMfgAddressStartedHr = false
           vlIsBMfgAddressOpenedHr  = false.
end.

/* ============================================================================= *
 * BMfgAddressList                                                               *
 * ============================================================================= */
if viBMfgAddressListDetail11Id <> ? and
   viBMfgAddressListDetail11Id <> 0 and
   vlIsBMfgAddressListStartedHr
then do:
    if valid-handle(vhBMfgAddressListDetail11Inst)
    then do:
        <I-52 {bFcCloseAndStopInstance
             &CLASS           = "BMfgAddressListDetail"}>
    end.
    else do:
        <I-2 {bFcStopInstance
             &CLASS           = "BMfgAddressListDetail"}> 
    end.

    assign viBMfgAddressListDetail11id  = 0
           vlIsBMfgAddressListStartedHr = false
           vlIsBMfgAddressListOpenedHr  = false.
end.

<ANCESTOR-CODE>