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


program code (program/bdebtor.p)

/* =========== */
/* BBankNumber */
/* =========== */
if viBBankNumber4ID <> 0
then do :
    <I-1 {bFcStopInstance
            &CLASS           = "BBankNumber"}>
    assign viBBankNumber4Id = 0.
end. /* if viBBankNumberId <> 0 */

/* ============ */
/* BMfgCustomer */
/* ============ */
if viBMfgCustomerID <> 0 and 
   vlBMfgCustomerStarted = true
then do :
      <I-2 {bFcStopInstance
            &CLASS           = "BMfgCustomer"}>    
    assign 
        viBMfgCustomerID = 0
        vlBMfgCustomerStarted = false.
end.
    
/* =============== */
/* MfgNotification */
/* =============== */
if viMfgNotification6ID <> 0
then do:
     <I-3 {bFcStopInstance
            &CLASS           = "MfgNotification"}>
    
     assign viMfgNotification6ID = 0. 
end.

/* ======== */
/* BCompany */
/* ======== */
if viBCompany6ID <> 0 and
   viBCompany6ID <> ?
then do:
     <I-4 {bFcStopInstance
          &CLASS           = "BCompany"}>
    assign viBCompany6ID = 0.          
end.

/* ============== */
/* BDebtorEndUser */
/* ============== */
if viBDebtorEndUserID <> 0 and
   viBDebtorEndUserID <> ?
then do:
    <I-5 {bFcStopInstance
         &CLASS           = "BDebtorEndUser"}>
    assign viBDebtorEndUserID = 0.         
end.

/* ============= */
/* BDebtorShipTo */
/* ============= */
if viBDebtorShipToID <> 0 and
   viBDebtorShipToID <> ?
then do:
    <I-6 {bFcStopInstance
         &CLASS           = "BDebtorShipTo"}>
    assign viBDebtorShipToID = 0.
end.

<ANCESTOR-CODE>