project QadFinancials > class BMfgEndUser > method CloseExternalInstances
Parameters
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bmfgenduser.p)
/* ====================================================================================== *
* Method : CloseExternalInstances *
* Description : This method is used to close opened instances of the related components *
* -------------------------------------------------------------------------------------- *
* Parameters : *
* ====================================================================================== */
MAIN_BLOCK:
do on error undo, return:
assign oiReturnStatus = -98
viLocalReturnStatus = 0.
/* ================================================================= *
* BMfgAddress component *
* ================================================================= */
if vlIsBMfgAddressOpenedHr and
valid-handle(vhBMfgAddress10Inst)
then do:
<I-21 {bFcCloseInstance
&CLASS = "BMfgAddress"}>
assign vlIsBMfgAddressOpenedHr = false.
end.
/* ================================================================= *
* BMfgAddress component *
* ================================================================= */
if vlIsBMfgAddressListOpenedHr and
valid-handle(vhBMfgAddressListDetail11Inst)
then do:
<I-6 {bFcCloseInstance
&CLASS = "BMfgAddressListDetail"}>
assign vlIsBMfgAddressListOpenedHr = false.
end.
end. /* MAIN_BLOCK */
assign oiReturnStatus = viLocalReturnStatus.