Espero que te ayude
Publicado por
Mao (1 intervención) el 01/06/2005 19:20:28
La base de datos la pasas a archivo texto, las columnas del mismo tamaño, los valores numericos los justificas con ceros a la izquierda.
0010 BEGIN
0011 ESCAPE
0020 INITFILE "APRECIO.BBX"
0030 OPEN (1)"C:\INFORMES\aponte\LIMITE_BARCELONA.txt"; OPEN (2)"APRECIO.BBX"
0040 READ (1,END=0090)A$
0050 IF LEN(A$)=0 THEN GOTO 0040
0060 LET CODIGO$=A$(1,4),DIA=NUM(A$(6,2)),LIM=NUM(A$(9))
0070 WRITE (2,DOM=0090)CODIGO$,DIA,LIM; LET C1=C1+1
0080 GOTO 0040
0090 GOTO VERIFICAR
0100 ERROR:
0110 ESCAPE
0120 END
0130 VERIFICAR:
0140 LET ACU=0
0150 READ (2,KEY="",DOM=0160)
0160 LET K$=KEY(2,END=0210)
0170 READ (2,KEY=K$)CODIGO$,VALOR
0180 LET ACU=ACU+VALOR; LET C=C+1
0190 GOTO 0160
0200 RETURN
0210 PRINT ACU