project QadFinancials > class BPaymentSelection > 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 BPaymentSelection.AdditionalUpdates
method BPaymentSelection.APITransferPayments
method BPaymentSelection.GetInvWithCommonPayAttributes
method BPaymentSelection.ValidateComponent
method BPaymentSelection.ValidateComponentPreBankPayFormat


program code (program/bpaymentselection.p)

if viBPrepaymentID <> 0 and
   viBPrepaymentID <> ? and
   vlBPrepayIsStartedFromPaySel
then do:
    <I-1 {bFcStopInstance
            &CLASS           = "BPrepayment"}>

    assign viBPrepaymentID              = 0
           vlBPrepayIsStartedFromPaySel = false.
end.

if viBCDocumentPaySelID <> 0 and
   viBCDocumentPaySelID <> ? and
   vlBCDocIsStartedFromPaySel
then do:
    <I-2 {bFcStopInstance
            &CLASS           = "BCDocument"}>

    assign viBCDocumentPaySelID       = 0
           vlBCDocIsStartedFromPaySel = false.
end.

if viBCCollectionPaySelID <> 0 and
   viBCCollectionPaySelID <> ? and
   vlBCCollIsStartedFromPaySel
then do:
    <I-3 {bFcStopInstance
            &CLASS           = "BCCollection"}>

    assign viBCCollectionPaySelID      = 0
           vlBCCollIsStartedFromPaySel = false.
end.

if viBCInvoicePaySelID <> 0 and
   viBCInvoicePaySelID <> ? and
   vlBCInvIsStartedFromPaySel
then do:
    <I-4 {bFcStopInstance
            &CLASS           = "BCInvoice"}>

    assign viBCInvoicePaySelID        = 0
           vlBCInvIsStartedFromPaySel = false.
end.

if viBDInvoicePaySelID <> 0 and
   viBDInvoicePaySelID <> ? and
   vlBDInvIsStartedFromPaySel
then do:
    <I-5 {bFcStopInstance
            &CLASS           = "BDInvoice"}>

    assign viBDInvoicePaySelID        = 0
           vlBDInvIsStartedFromPaySel = false.
end.

if viBBankNumberPaySelID <> 0 and
   viBBankNumberPaySelID <> ? and
   vlBanknumberStartedFromPaySel
then do:
     <I-6 {bFcStopInstance
          &CLASS           = "BBankNumber"}>
    assign
         viBBankNumberPaySelID = 0
         vlBankNumberStartedFromPaySel = false.
end.
<ANCESTOR-CODE>