project QadFinancials > class BMfgSupplier > method CloseExternalInstances


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BMfgSupplier.AdditionalUpdates


program code (program1/bmfgsupplier.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 vlIsBMfgAddrOpHrBMfgSu and
       valid-handle(vhBMfgAddress7Inst)
    then do:
        <I-82 {bFcCloseInstance
             &CLASS           = "BMfgAddress"}>
        assign vlIsBMfgAddrOpHrBMfgSu = false. 
    end.

    /* ================================================================= *
     * BMfgAddressList component                                         *
     * ================================================================= */
    if vlIsBMfgAddrLstOpHrBMfgSu and
       valid-handle(vhBMfgAddressListDetail7Inst)
    then do:
        <I-4 {bFcCloseInstance
             &CLASS           = "BMfgAddressListDetail"}>
        assign vlIsBMfgAddrLstOpHrBMfgSu = false. 
    end.
end. /* MAIN_BLOCK */

assign oiReturnStatus = viLocalReturnStatus.