project QadFinancials > class BDebtorEndUser > 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 BDebtorEndUser.AdditionalUpdates
method BDebtorEndUser.ApiCreateDebtorEndUser
method BDebtorEndUser.DataLoadByInput
method BDebtorEndUser.ValidateComponent


program code (program/bdebtorenduser.p)

/* ==================================================================== *
 * BMfgEndUser                                                          *
 * ==================================================================== */
if viBMfgEndUserID <> ? and
   viBMfgEndUserID <> 0 and
   vlIsBMfgEndUserStartedHr
then do:
    if valid-handle(vhBMfgEndUserInst)
    then do:
        <I-34 {bFcCloseAndStopInstance
             &CLASS           = "BMfgEndUser"}>
    end.
    else do:
        <I-1 {bFcStopInstance
             &CLASS           = "BMfgEndUser"}>
    end.    

    assign viBMfgEndUserID          = 0
           vlIsBMfgEndUserStartedHr = false
           vlIsBMfgEndUserOpenedHr  = false.
end.

/* ==================================================================== *
 * BBusinessRelation                                                    *
 * ==================================================================== */
if viBBusinessRelation6Id <> ? and
   viBBusinessRelation6ID <> 0 and
   vlIsBBusinessRelationStartedHr
then do:
    if valid-handle(vhBBusinessRelation6Inst)
    then do:
        <I-17 {bFcCloseAndStopInstance
             &CLASS           = "BBusinessRelation"}>
    end.
    else do:
        <I-2 {bFcStopInstance
             &CLASS           = "BBusinessRelation"}>
    end.

    assign viBBusinessRelation6Id         = 0
           vlIsBBusinessRelationStartedHr = false
           vlIsBBusinessRelationOpenedHr  = false.
end.

/* ==================================================================== *
 * BMfgAddress                                                          *
 * ==================================================================== */
if viBMfgAddress9ID <> ? and
   viBMfgAddress9ID <> 0 and 
   vlIsBMfgAddressStartedHr
then do:
    if valid-handle(vhBMfgAddress9Inst)
    then do:
        <I-73 {bFcCloseAndStopInstance
             &CLASS           = "BMfgAddress"}>
    end.
    else do:
        <I-35 {bFcStopInstance
             &CLASS           = "BMfgAddress"}>
    end.
        
    assign viBMfgAddress9ID         = 0
           vlIsBMfgAddressStartedHr = false
           vlIsBMfgAddressOpenedHr  = false.
end.

/* ==================================================================== *
 * BMfgAddressListDetail                                                *
 * ==================================================================== */
if viBMfgAddressListDetail8ID <> ? and
   viBMfgAddressListDetail8ID <> 0 and 
   vlIsBMfgAddressListStartedHr
then do:
    if valid-handle(vhBMfgAddressListDetail8Inst)
    then do:
        <I-16 {bFcCloseAndStopInstance
             &CLASS           = "BMfgAddressListDetail"}>
    end.
    else do:
        <I-31 {bFcStopInstance
             &CLASS           = "BMfgAddressListDetail"}>
    end.
        
    assign viBMfgAddressListDetail8ID   = 0
           vlIsBMfgAddressListStartedHr = false
           vlIsBMfgAddressListOpenedHr  = false.
end.

<ANCESTOR-CODE>