Como puedo separar lineas en un reporte

Post Reply
colthop
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España

Como puedo separar lineas en un reporte

Post by colthop »

Hola Amigos, hago los listados con el comando REPORTE y con dos tipos de fuentes quisiera saber como se pueden separar las lineas y que no me imprima todo tan junto. el codigo es el siguiente:

if opci00 = 1
store "Fecha : " + dtoc( datita ) to dati
else
store space(18) to dati
endif
DEFINE FONT oFont1 NAME "LUCIDA CONSOLE" SIZE 0, -12 BOLD
DEFINE FONT oFont2 NAME "LUCIDA CONSOLE" SIZE 4, 14
if opci14 = 2
REPORT oReporte TITLE "E X T R A C T O S D E C U E N T A S" CENTER ;
HEADER "Empresa : " + empr + " Nombre : " + trim(momb), " ",;
"Filtro Fechas Desde : " + dtoc(desf) + " Hasta : " + dtoc(hasf),;
"Filtro Apuntes Desde : " + str(des,6,0) + " Hasta : " + str(has,6,0),;
"Filtro Cuentas Desde : " + cue1 + " Hasta : " + cue2, " " LEFT ;
FOOTER " ", dati, "Página: " + STR( oReporte:nPage,10) RIGHT;
FONT oFont1, oFont2
else
REPORT oReporte TITLE "E X T R A C T O S D E C U E N T A S" CENTER ;
HEADER "Empresa : " + empr + " Nombre : " + trim(momb), " ",;
"Filtro Fechas Desde : " + dtoc(desf) + " Hasta : " + dtoc(hasf),;
"Filtro Apuntes Desde : " + str(des,6,0) + " Hasta : " + str(has,6,0),;
"Filtro Cuentas Desde : " + cue1 + " Hasta : " + cue2, " " LEFT ;
FOOTER " "," ", dati, "Página: " + STR( oReporte:nPage,10) RIGHT;
FONT oFont1, oFont2;
PREVIEW CAPTION "Extractos de Cuentas"
endif
COLUMN DATA trim(campo03) FONT 2 TITLE "Fecha" SIZE 11 CENTER
COLUMN DATA trim(campo04) FONT 2 TITLE "Asiento" SIZE 10 RIGHT
COLUMN DATA trim(campo05) FONT 2 TITLE "Apunte" SIZE 52
COLUMN DATA val(trim(imp01)) FONT 2 TITLE "Debe" SIZE 17 PICTURE p1b TOTAL RIGHT
COLUMN DATA val(trim(imp02)) FONT 2 TITLE "Haber" SIZE 17 PICTURE p1b TOTAL RIGHT
GROUP ON campo01 FOOTER space(40) + "Total Cuenta " HEADER trim(campo01) + " - " + trim(campo02) FONT 1
END REPORT
ACTIVATE REPORT oReporte while !eof() ON STARTGROUP oReporte:NewLine()
oFont1:End()
oFont2:End()

Deseo si se puede que cuando pase de registro deje un pequeño espacio para que las lineas del listado esten más separadas

Gracias
User avatar
Manuel Aranda
Posts: 561
Joined: Wed Oct 19, 2005 8:20 pm
Location: España

Post by Manuel Aranda »

Puedes poner una linea separadora con oReport:CellView()
o también puedes añadir una línea en blanco de la forma siguiente:
COLUMN TITLE " Apellidos y Nombre o Razón Social"," " ;
DATA SUBSTR(CLIENTES->NOMBRE,1,30), " " LEFT GRID

Un saludo,
Manuel
Post Reply