Tengo un REPORT, que imprime una lista de clientes con una columna con un Total, uso Group para totalizar por Med_Tra, esta aqui esta muy bien, pero necesito que cuando imprima el Total del Group y el Total General del informe, al lado del total, pueda agregar un calculo de ese total.
Ejecmplo: Total Cliente XXXX (18) 25.000 Calculo Requerido ( 2.500 ) que es el 10% de los 25.000 impresos por el Report.
Como puedo agregar este calculo tanto en el Total Group y luego en el Total General del informe?
Muchas gracias y Muchos Saludos.
Antonio.
Dejo el Codigo:
- Code: Select all Expand view
Function Rep(Titu)
LOCAL oFont1, oFont2, oFont3,oFont4, oPen1, oPen2
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-10 BOLD
DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-12 BOLD
DEFINE FONT oFont4 NAME "ARIAL" SIZE 0, -16 BOLD
DEFINE PEN oPen1 STYLE 0 WIDTH 1 COLOR RGB(0, 0, 0)
DEFINE PEN oPen2 STYLE PS_DOT WIDTH 1 COLOR RGB(0, 0, 0)
Sele b
GO TOP
cTi0:= "EMPRESA LOCAL"
cTi1:= Titu
REPORT oReport ;
TITLE cTi1;
FONT oFont1,oFont2,oFont3,oFont4;
PEN oPen1,oPen2;
HEADER cTi0,"Fecha: "+dtoc(date()),;
"Hora: "+time(), ;
"Página: "+str(oReport:nPage,3) ;
RIGHT ;
FOOTER OemtoAnsi("Pagina: ")+str(oReport:nPage,3) ;
CENTERED ;
PREVIEW
GROUP ON b->Med_Cli ;
HEADER "Cliente : "+oReport:aGroups[1]:cValue;
FOOTER "Total Cliente "+oReport:aGroups[1]:cValue+ ;
" ("+ltrim(str(oReport:aGroups[1]:nCounter))+")" FONT 2
COLUMN TITLE "Folio" ;
DATA b->Fol_Ing ;
PICTURE "9999999999" ;
SIZE 6 ;
FONT 1
COLUMN TITLE "Fecha" ;
DATA b->Fec_Ate SIZE 8 FONT 1
COLUMN TITLE "Nombre Cliente" ;
DATA b->Nom_Cli SIZE 25 FONT 1
COLUMN TITLE "Valor" ;
DATA b->Val_Bon ;
PICTURE "9,999,999" ;
SIZE 7 ;
TOTAL FONT 1
COLUMN TITLE "T. Ate" ;
DATA b->Tip_Ate SIZE 4 FONT 1
COLUMN TITLE "T. Pago" ;
DATA b->Tip_Pag SIZE 4 FONT 1
COLUMN TITLE "Digi" ;
DATA b->Cod_Dig SIZE 4 FONT 1
COLUMN TITLE "Nro. Dcto." ;
DATA b->Num_Bon SIZE 10 FONT 1
COLUMN TITLE "R.U.T" ;
DATA b->Rut_Cli RIGHT SIZE 10 FONT 1
END REPORT
IF oReport:lCreated
oReport:nTitleUpLine := RPT_SINGLELINE // Permite Imprimir Lineas Simples en encabezado
oReport:nTitleDnLine := RPT_SINGLELINE // RPT_DOUBLELINE Para Lineas Dobles
// RPT_NOLINE No Imprime Lineas
oReport:nGroupLine := RPT_SINGLELINE
oReport:oTitle:aFont[1] := {|| 3 }
oReport:oHeader:aPad[1]:= LINE_LEFT
oReport:oHeader:aFont[1] := {|| 4 }
oReport:lJoin := .t.
oReport:nSeparator := 0
oReport:cGrandTotal := "Total General"
oReport:cPageTotal := "Page Total..."
oReport:bInit := { || b->( DBGOTOP() ) } // Habilita Boton Excel en Preview
ENDIF
ACTIVATE REPORT oReport ON STARTGROUP oReport:NewLine()
oFont1:End()
oFont2:End()
oFont3:End()
oFont4:End()
oPen1:End()
oPen2:End()
Sele b
Go top
RETURN NIL
