REPORT
Posted: Sun Apr 08, 2018 9:18 pm
Hola y gracias de antemano.
Sigo profundizando y ajustando mis antiguos prg.
Quiero imprimir un numero determinados de registros, ya sean articulos, clientes, o cuentas...o lo que sea.
He llegado al REPORT y tengo una duda.
En mis programas antiguos utilizaba una libreria "SPTOOLS", que me permitía hacer un código así.
Lo que quiero hacer es de un fichero DBF imprimir un listado que tenga un numero de clientes determinado de clientes, seleccionados por el usuario, el primero y el último, por ejemplo del 1 al 10, o del 10 al 20, pero no todos.
Se puede hacer de esta forma...?
Muchas garcias.
Sigo profundizando y ajustando mis antiguos prg.
Quiero imprimir un numero determinados de registros, ya sean articulos, clientes, o cuentas...o lo que sea.
He llegado al REPORT y tengo una duda.
En mis programas antiguos utilizaba una libreria "SPTOOLS", que me permitía hacer un código así.
Veo que en HMG es muy parecido, pero me asalta la duda en la parte final, en el ACTIVATE REPORT, que ahora cambiaría por EXECUTE REPORT y sobre todo en la parte condicionante del WHILE.DEFINE REPORT rptComis
HEADER "- " + cStr( rptComis:nPage ) + " -" CENTER
HEADER cCab+SPACE(80-LEN(cCab)-12)+cDate2Word(Date())
HEADER Agenc ->R_SOCIAL
HEADER ""
COLUMN "COD" PRINT Clien->NUMERO PICTURE "99999"
COLUMN "NOMBRE" PRINT LEFT(Clien-> NOMBRE,25)
COLUMN "TELEFONO" PRINT Clien-> TELEF_1
COLUMN "TELEFONO" PRINT Clien-> TELEF_2
COLUMN "FAX" PRINT Clien-> FAX
FOOT ""
FOOT ""
FOOT ""
END REPORT
Clien -> ( DbSeek (nInicial))
ACTIVATE REPORT rptComis ;
WHILE ! Clien ->( EoF() ) .AND. LASTKEY(INKEY())!=K_ESC ;
.AND. Clien->NUMERO <= nFinal ;
ACTION Clien ->( DbSkip() )
Lo que quiero hacer es de un fichero DBF imprimir un listado que tenga un numero de clientes determinado de clientes, seleccionados por el usuario, el primero y el último, por ejemplo del 1 al 10, o del 10 al 20, pero no todos.
Se puede hacer de esta forma...?
Muchas garcias.