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.
>>
>
>