project QadFinancials > class BDebtor > method StopExternalInstances
Description
Stop instances that are started in AdditionalUpdates as part of current transaction
Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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>