Fonts en Totales de Columnas

[Martin del Angel[1]]

Hola !
Tengo un problema en un reporte :
El reporte cuenta con grupos, en los Totales de cada grupo si puedo cambiar
el Font , pero en el Total General no se como hacerlo.
El Total General es la ultima linea del Reporte que imprime el Total de las
columnas.
Hay manera de ponerle un Box o Cuadro al rededor del total y cambiarle su
Font y hasta el color?
Sugerencia:
*** Porque no le ponen un boton en el Preview del Reporte para Exportar a
Excel.

[_support_]

Martín,
Consulte el evento TRptColumn:OnPrintTotal.
Un saludo,
"Martin del Angel" <martindelangel@msn.com> escribió en el mensaje
news:[email=457780c2@news.xailer.com...]457780c2@news.xailer.com...[/email]
> Hola !
>
> Tengo un problema en un reporte :
>
> El reporte cuenta con grupos, en los Totales de cada grupo si puedo
> cambiar el Font , pero en el Total General no se como hacerlo.
>
> El Total General es la ultima linea del Reporte que imprime el Total de
> las columnas.
>
> Hay manera de ponerle un Box o Cuadro al rededor del total y cambiarle su
> Font y hasta el color?
>
>
>
> Sugerencia:
>
> *** Porque no le ponen un boton en el Preview del Reporte para Exportar a
> Excel.
>

[Martin del Angel[1]]

Gracias por la respuesta!
Estoy utilizando este codigo, no se si es correcto, pero no me cambia el
Fonto en los Totales
SELE(ALIAS_REPVENTASTMP)
GO TOP
IF ::oRadioVentas:nIndex=1
IF cFECI == cFECF
cTITULO:= " Ventas de Contado del "+FEC2000(::oFechaInicial:Value)
ELSE
cTITULO:= " Ventas de Contado del "+FEC2000(::oFechaInicial:Value)+
'al '+ FEC2000(::oFechaFinal:Value)
ENDIF
ELSE
IF cFECI == cFECF
cTITULO:= " Ventas de Credito del "+FEC2000(::oFechaInicial:Value)
ELSE
cTITULO:= " Ventas de Credito del "+FEC2000(::oFechaInicial:Value)+ '
al '+ FEC2000(::oFechaFinal:Value)
ENDIF
ENDIF
With Object oFont1 := TFont():New()
:cName := "Arial"
:nSize := 9
:lBold := .T.
END WITH
With Object oFont2 := TFont():New()
:cName := "Arial"
:nSize := 8
:lBold := .f.
END WITH
With Object oFont3 := TFont():New()
:cName := "Courier new"
:nSize := 10
:lBold := .f.
END WITH
With Object oFont4 := TFont():New()
:cName := "Arial"
:nSize := 12
:lBold := .t.
END WITH
REPORT oRep HEADER "Farmacia Regis de Reynosa S.A. de C.V."," " ALIGN
taCENTER;
TITLE cTITULO, " Pág. "+STR(oRep:nPage,3) ALIGN taCENTER;
FOOTER "Dymsa Sistemas";
JOBNAME 'Reporte de Ventas';
PREVIEW MODAL FONT oFont1 ,oFont2, oFont3,oFont4
COLUMN OF oRep DATA DEPTO ALIGN taLEFT PICTURE '@!' CHARSIZE 15 FONT 2
COLUMN OF oRep TITLE "Venta Bruta" DATA VTABRUTA ALIGN taRIGHT
PICTURE [email='@R]'@R[/email] 999,999,999.99' CHARSIZE 12 TOTAL FONT 2
COLUMN OF oRep TITLE "Descuentos" DATA DSCTOS PICTURE [email='@R]'@R[/email]
999,999,999.99' CHARSIZE 12 ALIGN taRIGHT TOTAL FONT 2
COLUMN OF oRep TITLE "Ventas Netas" DATA VTABRUTA-DSCTOS PICTURE [email='@R]'@R[/email]
999,999,999.99' ALIGN taRIGHT CHARSIZE 12 TOTAL FONT 2
COLUMN OF oRep TITLE "Devoluciones","con Descuento" DATA DEVCDSCTO
ALIGN taRIGHT PICTURE '999,999,999.99' TOTAL CHARSIZE 12 FONT 2
COLUMN OF oRep TITLE "Ventas","Totales" DATA VTABRUTA-DSCTOS-DEVCDSCTO
ALIGN taRIGHT PICTURE '999,999,999.99' TOTAL CHARSIZE 12 FONT 2
COLUMN OF oRep TITLE "IvaVentas" DATA IVAVENTAS ALIGN taRIGHT
PICTURE '999,999,999.99' TOTAL CHARSIZE 12 FONT 2
COLUMN OF oRep TITLE "Iva","Devoluciones" DATA IVADEVOL ALIGN taRIGHT
PICTURE '999,999,999.99' TOTAL CHARSIZE 12 FONT 2
COLUMN OF oRep TITLE "Iva Total" DATA IVAVENTAS-IVADEVOL ALIGN
taRIGHT PICTURE '999,999,999.99' TOTAL CHARSIZE 12 FONT 2
COLUMN OF oRep TITLE "Venta","General" DATA
VTABRUTA-DSCTOS-DEVCDSCTO+IVAVENTAS-IVADEVOL ALIGN taRIGHT PICTURE
'999,999,999.99' TOTAL CHARSIZE 12 FONT 2
GROUP oGroup OF oRep ON FARMACIA
oGroup:bHeader := {|| (ALIAS_REPVENTASTMP)->FARMACIA }
oGroup:bFooter := {|| SPACE(15) }
oGroup:bGroup := {|| (ALIAS_REPVENTASTMP)->FARMACIA }
oGroup:nFONT :=1
*oGroup:onPrintTotal := {|oSender, cText, nFont, nColor| nFont := 3 }
WITH OBJECT oRep
:aColumns[1]:lTotal:=.f.
:aColumns[1]:onPrintData := {|oSender, nLine, cText, nFont, nColor|
nFont := 3 }
:aColumns[10]:onPrintTotal := {|oSender, cText, nFont, nColor| nFont
:=1 } <----------------- no me cambia el Font
*:nGridStyle := rgVERTICAL
*:nGroupLine := rlNONE
:nTitleUpLine := rlNONE
:nTitleDnLine := rlSINGLE
:bSkip := {|| (ALIAS_REPVENTASTMP)->(DBSKIP())}
:nClrLined:= clAliceBlue //clLtGray
:oTitle:aAlignment[2] := taRIGHT
:oTitle:aFonts[1] := 1
:oHeader:aFonts[1] := 4
:oFooter:aFonts[1] := 3
:cGrandTotal:=' Total General'
:nTotalLine:=rlDOUBLE
:lTotal:=.T.
END WITH
Gracias
"Ignacio Ortiz de Zúñiga" <_support_@xailer.com> wrote in message
news:[email=4577dcc6@news.xailer.com...]4577dcc6@news.xailer.com...[/email]
> Martín,
>
> Consulte el evento TRptColumn:OnPrintTotal.
>
> Un saludo,
>
> "Martin del Angel" <martindelangel@msn.com> escribió en el mensaje
> news:[email=457780c2@news.xailer.com...]457780c2@news.xailer.com...[/email]
>> Hola !
>>
>> Tengo un problema en un reporte :
>>
>> El reporte cuenta con grupos, en los Totales de cada grupo si puedo
>> cambiar el Font , pero en el Total General no se como hacerlo.
>>
>> El Total General es la ultima linea del Reporte que imprime el Total de
>> las columnas.
>>
>> Hay manera de ponerle un Box o Cuadro al rededor del total y cambiarle
>> su Font y hasta el color?
>>
>>
>>
>> Sugerencia:
>>
>> *** Porque no le ponen un boton en el Preview del Reporte para Exportar a
>> Excel.
>>
>
>