project QadFinancials > class BCompany > method StopExternalInstances

Description

Stop instances that are started in AdditionalUpdates as part of current transaction


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method BCompany.AdditionalUpdates
method BCompany.ValidateComponent

QadFinancials
method BCompany.AdditionalUpdates
method BCompany.ValidateComponent


program code (program/bcompany.p)

<ANCESTOR-CODE>

if viBCompanyPropertyId <> 0 
then do :
    <I-1 {bFcStopInstance
            &CLASS           = "BCompanyProperty"}>
    assign viBCompanyPropertyId = 0.
end.

if viBPeriodMarkID <> 0 
then do :   
    <I-2 {bFcStopInstance
            &CLASS           = "BPeriodMark"}>
    assign viBPeriodMarkId = 0.
end.

if viBPeriodInCompanyID <> 0 and
   viBPeriodInCompanyID <> ?
then do:
    <I-3 {bFcStopInstance
            &CLASS           = "BPeriod"}>
    assign viBPeriodInCompanyID = 0.                      
end. /* if viBPeriodInCompanyID <> 0 */