*-----------------------------------------------------------------------------
* <Rating>439</Rating>
*-----------------------------------------------------------------------------
SUBROUTINE NOFILE.ENQ.RR1(ALL.DATA)
*-----------------------------------------------------------------------------
*
*-----------------------------------------------------------------------------
* Modification History :
*-----------------------------------------------------------------------------
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_ENQUIRY.COMMON
$INSERT I_F.CUSTOMER
$INSERT I_F.ACCOUNT
$INSERT I_F.CURRENCY
$INSERT I_F.APP.CUENTA.RUSSILLO2
*-----------------------------------------------------------------------------
DEBUG
GOSUB INITIALIZE
GOSUB OPEN.FILE
GOSUB PROCESS

RETURN


INITIALIZE:
FN.ACCOUNT = 'F.ACCOUNT'
F.ACCOUNT = ''

FN.CUSTOMER = 'F.CUSTOMER'
F.CUSTOMER = ''

FN.CURRENCY = 'F.CURRENCY'
F.CURR = ''

FN.APP.CUENTA.RUSSILLO.2 = 'F.APP.CUENTA.RUSSILLO2'
F.APP.CUENTA.RUSSILLO.2 = ''

RETURN



OPEN.FILE:

CALL OPF (FN.ACCOUNT,F.ACCOUNT)
CALL OPF (FN.CUSTOMER,F.CUSTOMER)
CALL OPF (FN.APP.CUENTA.RUSSILLO.2,F.APP.CUENTA.RUSSILLO.2)
CALL OPF (FN.CURRENCY,F.CURR)
RETURN



PROCESS:
    DEBUG
    ALL.DATA = ""
    Y.LINEA = ""

    Y.CUSTOMER.ID = ""
    LOCATE "CUSTOMER.ID" IN D.FIELDS<1> SETTING Y.CUSTOMER.ID.POS THEN
        Y.CUSTOMER.ID = D.RANGE.AND.VALUE<Y.CUSTOMER.ID.POS>
    END

    Y.ACCOUNT.ID = ""
    LOCATE "CUENTA.ID" IN D.FIELDS<1> SETTING Y.ACCOUNT.ID.POS THEN
        Y.ACCOUNT.ID = D.RANGE.AND.VALUE<Y.ACCOUNT.ID.POS>
    END






    IF Y.ACCOUNT.ID THEN
        CALL F.READ(FN.ACCOUNT, Y.ACCOUNT.ID,R.ACCOUNT,F.ACCOUNT,Y.ACC.ERR)

        IF Y.ACC.ERR THEN
            ENQ.ERROR = "Y.ACC.ERR"
             RETURN
        END
            CALL F.READ(FN.CUSTOMER, Y.CUSTOMER.ID, R.CUSTOMER, F.CUSTOMER, Y.ERR.CUS)

            IF Y.ERR.CUS THEN
                ENQ.ERROR = Y.ERR.CUS
             RETURN
            END
            Y.CUSTOMER.ID = R.ACCOUNT<AC.CUSTOMER>

    END

    ELSE




    IF NOT (Y.CUSTOMER.ID OR Y.CUENTA.ID) THEN
        SEL.CMD = "SELECT ":FN.APP.CUENTA.RUSSILLO.2
    END
    ELSE
        IF Y.CUSTOMER.ID THEN
            SEL.CMD = "SELECT":FN.ACCOUNT:" WITH CUSTOMER EQ ":Y.CUSTOMER.ID
        END
    END

    CRT " TEST"
    CALL EB.READLIST(SEL.CMD,SEL.LIST,'',NO.OF.REC,RET.CODE)

    LOOP

    REMOVE Y.ID FROM SEL.LIST SETTING Y.POS
    WHILE Y.ID:Y.POS
        CALL F.READ(FN.ACCOUNT, Y.ID, R.ACCOUNT, F.ACCOUNT, Y.ACC.ERR)
        CALL F.READ(FN.APP.CUENTA.RUSSILLO.2,Y.ID,R.CUENTA,.F.APP.CUENTA.RUSSILLO.2, Y.CUENTA.ERR)
        IF NOT(Y.ACC.ERR) THEN
            IF NOT (Y.CUENTA.ERR) AND R.CUENTA NE '' THEN
                LT.APP = 'APP.CUENTA.RUSSILLO2'
                LREF.FIELDS = 'LT.ULTSALDO'
                LOCAL.REF.POS = ''

                CALL MULTI.GET.LOC.REF(LT.APP,LT.FIELDS,LOCAL.REF.POS)
                Y.LT.ULTSALDO.POS = LOCAL.REF.POS<1,1>
                Y.SALDOS = R.CUENTA<APP.CU.RR2.LOCAL.REF,Y.LT.ULTSALDO.POS>
                Y.CANT.SALDOS = DCOUNT(Y.SALDO,VM)
                IF Y.CANT.SALDOS GE 2 THEN

                    Y.CUSTOMER = R.ACCOUNT<AC.CUSTOMER>
                    Y.ESTADO<-1> = R.CUENTA<APP.CU.RR2.ESTADO>
                    Y.CATEGORIA<-1> = R.ACCOUNT<AC.CATEGORY>
                    Y.MONEDA.ID<-1> = R.ACCOUNT<AC.CURRENCY>

                    CALL F.READ(FN.CURRENCY,Y.MONEDA.ID,R.CURR,F.CURR,Y.CURR.ERR)
                    IF NOT(Y.CURR.ERR) THEN
                        Y.DESC.MONEDA=R.CURR<EB.CUR.CCY.NAME>
                        Y.MONEDA<-1> = Y.DESC.MONEDA
                    END
                 END

            END
        END

        IF Y.CANT.SALDOS GE 2 THEN
            CHANGE FM TO VM IN Y.MONEDA
            CHANGE FM TO VM IN Y.CATEGORIA
            CHANGE FM TO VM IN Y.CUENTAS
            CHANGE FM TO VM IN Y.SALDOS

            Y.LINEA = Y.ID
            Y.LINEA := "*" : Y.CUSTOMER
            Y.LINEA := "*" : Y.ESTADO
            Y.LINEA := "*" : Y.CATEGORIA
            Y.LINEA := "*" : Y.MONEDA

            ALL.DATA<-1> = Y.LINEA
        END

    REPEAT


    END


    END

RETURN



END