Error "Se ha encontrado el final del archivo"
Publicado por Gustavo (2 intervenciones) el 05/05/2017 21:56:23
Saludos Programadores:
Tengo el siguiente código que lo que hace es tomar los datos de una tabla y determinar registro por registro que tiene 5 numeros almacenados, cuales son los números que más se repiten, en los sorteos de la Lotto y guarda el contador en un arreglo:
La tabla LOTTO cuenta con 102 registros.
Cuando se ejecuta el programa en la línea del SKIP da el error "Se ha encontrado el final del archivo". Ya le he modificado un chorro de veces y sigue el error. Podrían ayudarme por favor?.
Tengo el siguiente código que lo que hace es tomar los datos de una tabla y determinar registro por registro que tiene 5 numeros almacenados, cuales son los números que más se repiten, en los sorteos de la Lotto y guarda el contador en un arreglo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
DIMENSION numMasSalir[36] as Integer = 0
SELECT 1
USE LOTTO INDEX LOTTOI1 ==> Ordenado por el campo SORTEO (Caracter 4)
REINDEX
GO TOP
DO WHILE .T.
IF .NOT. EOF()
@ 12,10 SAY SORTEO + " - " + DTOC(FECHA)
SUM 1 TO numMasSalir[VAL(NUM1)]
SUM 1 TO numMasSalir[VAL(NUM2)]
SUM 1 TO numMasSalir[VAL(NUM3)]
SUM 1 TO numMasSalir[VAL(NUM4)]
SUM 1 TO numMasSalir[VAL(NUM5)]
SKIP
ELSE
EXIT
ENDIF
ENDDO
La tabla LOTTO cuenta con 102 registros.
Cuando se ejecuta el programa en la línea del SKIP da el error "Se ha encontrado el final del archivo". Ya le he modificado un chorro de veces y sigue el error. Podrían ayudarme por favor?.
Valora esta pregunta
0
