Tengo un reporte, con Report, me piden que el encabezado y pie de pagina, las lineas que estan es cada columna, sea una linea completa y no que se corte entre cada columna.
Quedo atento a su ayuda.
Muchas gracias.
Antonio.
Codigo del Reporte:
- Code: Select all Expand view
#include "fivewin.ch"
#include "report.ch"
STATIC oReporte
function Rep2()
Local cTi,cTi3,oPen1,oPen2
Sele 1
Use Pasoinf
DEFINE FONT oFo1 NAME "ARIAL" SIZE 0, -10
DEFINE FONT oFo2 NAME "ARIAL" SIZE 0, -10 BOLD
//DEFINE PEN oPen1 STYLE 0 WIDTH 3 COLOR CLR_RED
//DEFINE PEN oPen2 STYLE 1 WIDTH 2 COLOR CLR_BLUE
DEFINE PEN oPen1 STYLE 0 WIDTH 1 COLOR CLR_RED OF oReporte
//DEFINE PEN oPen2 STYLE 1 WIDTH 1 COLOR CLR_BLUE
DEFINE PEN oPen2 STYLE PS_DOT WIDTH 1 COLOR CLR_HGRAY OF oReporte
cTi3:= "INFORMES ECOGRAFIAS INFORMADAS FEBRERO DE 2021"
cTi:="Para Revision"
REPORT oReporte;
TITLE cTi3,;
"",;
cTi,;
"" ;
FONT oFo1,;
oFo2;
PEN oPen1,;
oPen2 ;
HEADER "Fecha: "+dtoc(date()),;
"Hora: "+time() ;
RIGHT ;
PREVIEW
COLUMN TITLE "Nro. Ingreso" DATA Nro_Bon PICTURE "9999999999" SIZE 9
COLUMN TITLE "Fecha Ingreso" DATA Fec_Bon SIZE 10
COLUMN TITLE "Fecha Informe" DATA Fec_Inf SIZE 10
COLUMN TITLE "Nombre Paciente" DATA Nom_Pac SIZE 30
COLUMN TITLE "Tipo Pago" DATA Tip_Pag SIZE 8
COLUMN TITLE "Valor Examen" DATA Val_Bon PICTURE "99,999,999" TOTAL RIGHT FONT 2 SIZE 10
END REPORT
oReporte:cPageTotal:= "Total Pagina"
oReporte:cGrandTotal:="Total General"
oReporte:lPageTotal:=.t.
oReporte:oDevice:SetPortrait()
oReporte:oDevice:lPrvModal:=.t.
ACTIVATE REPORT oReporte
RELEASE FONT oFo1, oFo2
return nil
