Clarion - Seleccionar Registro en Queue

!        Cargo la Queue     la queue se llama QResumen y el prfijo es QR

I#              =   0

Free (QResumen)

Clear(Bas:Record)

SET(Baston)

LOOP UNTIL Access:Baston.Next()

    IF  Bas:Caravana    Not >   ''

        Cycle

    END

    I#  +=  1

    QR:CaravanaSenasa   =   AN1:CaravanaSenasa

    QR:Incluye          =   'SI'

    QR:Indice           =   I#

    ADD(QResumen,QR:Indice)    !   Grabo desde el indice

    IF ERRORCODE() THEN STOP(ERROR()).

END

!!!!!!!!!!!!!!!!!!   en el list agrego un aletkey

!  Selecciona Desmarca / Marca  registro        4000

!  Cambia Estado

IF  MouseLeft2

    IF  0{Prop:AcceptAll}   =   FALSE

    !   Traigo los datos del registro iluminado de QCarga

        GET(QResumen,CHOICE(?QResumen))

        IF ERRORCODE() THEN Display.

        IF  QR:Indice    >   0

            GET(QResumen, QR:Indice)     !   Leo desde el Indice

            IF ERRORCODE() THEN

                MESSAGE('Debe Posicionarse Sobre Algún Registro  ','Mensaje del Sistema',ICON:Exclamation)

                Select(?QResumen)          !   Vuelvo al list  del la Queue

                Cycle

            END

            IF  QR:Incluye  =   'SI'

                QR:Incluye  =   'NO'

            ELSE

                QR:Incluye  =   'SI'

            END

            PUT(QResumen, QR:Indice)

            IF ERRORCODE() THEN Display.

        END

        ThisWindow.ForcedReset=True

        ThisWindow.Reset

        Display

        Select(?QResumen)

        Cycle

! *  Final cambio caravana

    END

END