REPORT

HMG en Español

Moderator: Rathinagiri

Post Reply
SALINETAS24
Posts: 102
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 1 time
Been thanked: 1 time

REPORT

Post by SALINETAS24 » 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í.
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() )
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.

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.

Post Reply