project QadFinancials > class BRole > 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 BRole.AdditionalUpdates

QadFinancials
method BRole.AdditionalUpdates


program code (program/brole.p)

If viBMfgRoleID <> 0 Or
   viBMfgRoleID <> ?
Then Do:
    <I-1 {bFcStopInstance
            &CLASS           = "BMfgRole"}>
    Assign viBMfgRoleID = 0.
End.

If viBMfgMenuID <> 0 Or
   viBMfgMenuID <> ?
Then Do:
    <I-2 {bFcStopInstance
            &CLASS           = "BMfgMenu"}>
    Assign viBMfgMenuID = 0.
End.

If viBMfgAccount6ID <> 0 Or
   viBMfgAccount6ID <> ?
Then Do:
    <I-3 {bFcStopInstance
            &CLASS           = "BMfgAccount"}>
    Assign viBMfgAccount6ID = 0.
End.

If viBMfgControlWorkTableID <> 0 Or
   viBMfgControlWorkTableID <> ?
Then Do:
    <I-4 {bFcStopInstance
            &CLASS           = "BMfgControlWorkTable"}>
    Assign viBMfgControlWorkTableID = 0.
End.

If viBMfgDataEntryProfileID <> 0 Or
   viBMfgDataEntryProfileID <> ?
Then Do:
    <I-5 {bFcStopInstance
            &CLASS           = "BMfgDataEntryProfile"}>
    Assign viBMfgDataEntryProfileID = 0.
End.

If viBMfgInventoryMovSiteID <> 0 Or
   viBMfgInventoryMovSiteID <> ?
Then Do:
    <I-6 {bFcStopInstance
            &CLASS           = "BMfgInventoryMovSite"}>
    Assign viBMfgInventoryMovSiteID = 0.
End.

If viBMfgSiteID<> 0 Or
   viBMfgSiteID <> ?
Then Do:
    <I-7 {bFcStopInstance
            &CLASS           = "BMfgSite"}>
    Assign viBMfgSiteID = 0.
End.

<ANCESTOR-CODE>