Page 1 of 1
CENTRADO DE CABECERAS EN TREPORT
Posted: Sun Aug 30, 2020 4:10 pm
by rterraz
Hola amigos.
Alguien sabe como hacer para alinear las cabeceras y los totales de las columnas de un treport ?
Las cabeceras las alinea siempre segun el alineamiento de la columna correspondiente, como hago para cambiarlo y ponerlas todas centradas por ejemplo?
He probado con oHeader (ej:oRpt:oHeader:aPad[1] := RPT_CENTER etc,etc y nada funciona
Los totales de las columnas numericas salen centrados y quisiera alinearlos a la derecha !
Saludos a todos
Re: CENTRADO DE CABECERAS EN TREPORT
Posted: Sun Aug 30, 2020 4:24 pm
by Armando
Rterraz:
A ver si esto es lo que buscas:
En encabezados del reporte hay dos grupos, HEADER propiamente y TITLE, en cada uno puede
haber uno o mas renglones contenidos en arrays, entonces:
Code: Select all
oReporte:oHeader:aPad[1] := RPT_LEFT // aPad[1] se refiere al primer renglón de encabezados
oReporte:oTitle:aPad[2] := RPT_RIGHT // aPad[2] se refiere al segundo renglón de títulos
Ahora para alinear los renglones de detalle:
Code: Select all
COLUMN TITLE "Nombre" DATA ALLTRIM(oRsCli:Fields("CLI_NOM"):Value) SIZE 55 LEFT // Observa la clausula de alineación
COLUMN TITLE "RFC" DATA ALLTRIM(oRsCli:Fields("CLI_RFC"):Value) SIZE 14 LEFT
COLUMN TITLE "Número" DATA oRsCli:Fields("CLI_CLI"):Value SIZE 6 RIGHT PICTURE "@Z 99999"
Finalmente para alinear los renglones de totales
Code: Select all
oReporte:SAY( 2,TRANSFORM(nTotGui,"99,999"),,RPT_RIGHT) // Observa las contantes con nombre RPT_RIGHT
oReporte:SAY( 3,"Guías",,RPT_LEFT) // RPT_LEFT y también existe RPT_CENTER
Saludos
Re: CENTRADO DE CABECERAS EN TREPORT
Posted: Sun Aug 30, 2020 8:05 pm
by rterraz
hola Armando, te agradezco tu respuesta
la linea de totales funciona perfecto
los header me ignoran, lo justifica siempre como justifica la data de la columna, sera porque tengo 2 lineas en cada header ?
Re: CENTRADO DE CABECERAS EN TREPORT
Posted: Sun Aug 30, 2020 8:27 pm
by Armando
RTerraz:
Va un ejemplo más completo
Code: Select all
REPORT oReporte CAPTION "Ventas del mes por cliente" PREVIEW;
HEADER ALLTRIM((cEmpresa)->EMP_RAZ),;
aMes[nMes]+"/"+STR(nAmo,4,0),;
"Ventas del mes por cliente",;
"" CENTER;
TITLE "Fecha: "+Date2Txt(DATE(),,,,,,),;
"Hoja No:"+STR(oReporte:nPage,3);
FONT aFnt[1],aFnt[2],aFnt[3];
PEN aPen[1],aPen[2]
COLUMN TITLE "Guia" DATA (cDetHDev)->DET_NDG SIZE 6 RIGHT
COLUMN TITLE "Destino" DATA (cCiudades)->CIU_NOM SIZE 35 LEFT
COLUMN TITLE "Undd" DATA (cFacturas)->FAC_CAM SIZE 5 RIGHT
COLUMN TITLE "Operador" DATA (cFacturas)->FAC_CVE SIZE 5 LEFT
COLUMN TITLE "Importe" DATA (cDetHDev)->DET_IDG SIZE 9 RIGHT TOTAL PICTURE "99,999,999.99"
COLUMN TITLE "Seguro" DATA (cFacturas)->FAC_SEG SIZE 9 RIGHT TOTAL PICTURE "99,999,999.99"
GROUP gCliente ON (cDetHDev)->DET_CLI;
FOOTER "Totales: " + cDetCli + SPACE(5) + ALLTRIM((cClientes)->CLI_NOM) ;
+ SPACE(5) + STR(oReporte:aGroups[1]:nCounter) + " Guias" FONT 2
gCliente:bHeader := {|| "** "+(cDetHDev)->DET_CLI}
END REPORT
IF oReporte:lCreated
oReporte:cGrandTotal := "GRAN TOTAL"
oReporte:oHeader:aFont[1] := {||3}
oReporte:oHeader:aFont[2] := {||3}
oReporte:SetTxtColor(CLR_BLACK,1) // Color del texto de la hoja default NEGRO
oReporte:SetTxtColor(CLR_HRED,2) // Color de encabezado y totales del grupo
oReporte:SetTxtColor(CLR_HRED,3) // Color para el primer titulo del encabezado
oReporte:SetPenColor(CLR_HBLUE) // Color para las líneas
oReporte:SetShdColor(CLR_YELLOW) // Color para el sombreado
oReporte:oHeader:aPad[2] := RPT_RIGHT
oReporte:oTitle:aPad[1] := RPT_LEFT
oReporte:oTitle:aPad[2] := RPT_RIGHT
oReporte:nDnMargin := 300
oReporte:lPageTotal := (.F.)
oReporte:bPostEnd := { || Totales(oReporte,nTotGui)}
ENDIF
ACTIVATE REPORT oReporte FOR (cCartera)->(DBSEEK(STR((cDetHDev)->DET_NDG,6,0)));
WHILE ! (cDetHDev)->(EOF());
ON STARTPAGE (Alinea(oReporte,1,2));
ON STARTGROUP (cDetCli := (cDetHDev)->DET_CLI,oReporte:EndLine(),;
(cClientes)->(DBSEEK((cFacturas)->FAC_CLI)));
ON ENDGROUP nTotGui += oReporte:aGroups[1]:nCounter
Cierra()
Saludos
Re: CENTRADO DE CABECERAS EN TREPORT
Posted: Sun Aug 30, 2020 9:18 pm
by rterraz
Hola de nuevo,
Creo que me he explicado mal, lo que necesito centrar son los TITULOS de las columnas, creo que estaba usando headers en forma equivocada
Excuse me
Re: CENTRADO DE CABECERAS EN TREPORT
Posted: Mon Aug 31, 2020 2:46 am
by nageswaragunupudi
rterraz wrote:Hola amigos.
Alguien sabe como hacer para alinear las cabeceras y los totales de las columnas de un treport ?
Las cabeceras las alinea siempre segun el alineamiento de la columna correspondiente, como hago para cambiarlo y ponerlas todas centradas por ejemplo?
He probado con oHeader (ej:oRpt:oHeader:aPad[1] := RPT_CENTER etc,etc y nada funciona
Los totales de las columnas numericas salen centrados y quisiera alinearlos a la derecha !
Saludos a todos
Column titles, data and totals use same alignment.
What you want can not be achieved except by change in TRColumn class in rcolumn.prg.
Re: CENTRADO DE CABECERAS EN TREPORT
Posted: Mon Aug 31, 2020 3:41 am
by nageswaragunupudi
Please try making these changes in
\fwh\source\classes\rcolumn.prg
Add this new data to the class declartion
Then change the last line of code in the METHOD SayTitle( .... )
Existing code in the last line:
Code: Select all
::oReport:oDevice:Say(nRow, nCol, cTitle, oFont, ::nWidth,;
::oReport:aClrText[nFont],,::nPad-1)
Replace this line with this new line of code:
Code: Select all
::oReport:oDevice:Say(nRow, nCol, cTitle, oFont, ::nWidth,;
::oReport:aClrText[nFont],,IfNil( ::nAlignTitle, ::nPad ) - 1 )
Include this revised rcolumn.prg in your project.
In your application, define the COLUMN like this
Code: Select all
COLUMN oCol TITLE "NAME" DATA FIELD->FIRST FONT 1
oCol:nAlignTitle := RPT_CENTER
Re: CENTRADO DE CABECERAS EN TREPORT
Posted: Mon Aug 31, 2020 12:14 pm
by rterraz
Estimado Sr Rao
Muchas gracias por su respuesta y por su inestimable ayuda
Saludos