project QadFinancials > class BDebtorShipTo > method CloseExternalInstances

Description

This method can be used to close all opened external instances of the component.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BDebtorShipTo.AdditionalUpdates


program code (program1/bdebtorshipto.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.

    /* ================================================================= *
     * BBusinessRelation component                                       *
     * ================================================================= */
    if vlIsBBusinessRelationOpenedHr and
       valid-handle(vhBBusinessRelation1Inst)
    then do:
        <I-37 {bFcCloseInstance
             &CLASS           = "BBusinessRelation"}>
        assign vlIsBBusinessRelationOpenedHr = false. 
    end.

    /* ================================================================= *
     * BMfgAddress component                                             *
     * ================================================================= */
    if vlIsBMfgAddressOpenedHr and
       valid-handle(vhBMfgAddress2Inst)
    then do:
        <I-80 {bFcCloseInstance
             &CLASS           = "BMfgAddress"}>
        assign vlIsBMfgAddressOpenedHr = false. 
    end.

    /* ================================================================= *
     * BMfgAddress component                                             *
     * ================================================================= */
    if vlIsBMfgAddressListOpenedHr and
       valid-handle(vhBMfgAddressListDetail6Inst)
    then do:
        <I-90 {bFcCloseInstance
             &CLASS           = "BMfgAddressListDetail"}>
        assign vlIsBMfgAddressListOpenedHr = false. 
    end.
end. /* MAIN_BLOCK */

assign oiReturnStatus = viLocalReturnStatus.