Clarion - Importar datos de un Txt a un archivo tps

Take Record                 ! por acá pasa cada vez que lee, pero como uso un archivo con 1 solo registro va a pasar solo una vez

                                     ! te paso el código como para que veas como lo hago.

I# = 0

SET(Ganados)

LOOP UNTIL Access:Ganados.NEXT()          !  Leo secuencial el archivo Ganados

    Clear(QResumen)                                       !  Limpio el registro de la Queue

    Dia             =  Sub (GAN1:Fecha,2,2)         ! en la primer posición  está el dia en la 5 el mes y así sucesivamente

    Mes             =  Sub (GAN1:Fecha,5,2)

    Anio            =  Sub (GAN1:Fecha,8,2) + 2000

    FechaString     =   (Format(Sub (GAN1:Fecha,1,2),@N02)&'/'& Format(Sub (GAN1:Fecha,4,2),@N02)&'/'&Format(Sub (GAN1:Fecha,7,2),@N02))

    FechaString     =   Dia & '/' & Mes & '/' & Anio

    QR:Fecha        =   Deformat (FechaString,@D06)    !Deformat(GAN1:Fecha,@D05)   !

    QR:Hora         =   Deformat(GAN1:Hora,@t01)

    QR:Lote         =   Int(Format(GAN1:Lote,@N03))

    QR:Estado       =   Int(Format(GAN1:Estado,@N02))

    QR:Observ       =   GAN1:Observ

    I# += 1                                          ! Sumo uno a la variable I#

    ADD(QResumen,I#)                     ! Grabo la queue

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

END