FiveTech Software tech support forums

... Grupo, y esta perfecto. Lo que necesito es que no me imprima el Total General del Reporte al final del informe. Aun cuando tengo "oReporte:lPageTotal:=.f. ", igual se imprime el valor total acumulado. Muchos Saludos Antonio Codigo:    REPORT oReporte;                    TITLE cTi1,"EMPRESA ...

... : "+STRZERO(oReport:aGroups[1]:nCounter,4) FONT 1 END REPORT oReport:bInit:={|| ::oSql:GOTOP() } oReport:bSkip:={|| ::oSql:SKIP() } oReport:lPageTotal:=.F. oReport:cGrandTotal:="TOTALES:" ACTIVATE REPORT oReport WHILE !::oSql:Eof(); ON STARTGROUP EVAL({|| nSaldo:=::oSql:saldoini,oReport:NewLine(),oReport:SAY(9,"SALDO ...

Hola Arvisnet,

Si estas usando el REPORT, solo debes usar:

oReport:lPageTotal:=.F.

y listo!!

Quizás aun te sirva.

Saludos,

... FONT 1 GROUP ON .T. HEADER "Saldo inicial al "+DTOC(dF1) IF(lCUADRIC,oReport:CellView(),) END REPORT oReport:lPageTotal:=.F. ACTIVATE REPORT oReport FOR FIELD->FECHA>=dF1 .AND. FIELD->FECHA<=dF2 ON INIT (oReport:Say(5,TRANSFORM(nSal,'99999,999.99'),2,2)) ...

... FONT 1 SIZE 6 GROUP ON CODPROV // DEFINO EL ROMPIMIENTO SIN NECESIDAD DEL DO WHILE END REPORT ACTIVATE REPORT oReport ON ENDPAGE oReport:lPageTotal:= .f. ; ON STARTGROUP( oReport:NewLine(), oReport:EndLine(), oReport:Say(0,"CLIENTE : " +codprov+"-"+ALLTRIM(codprov),4,,oReport:nRow), ...

... 1 SIZE 20 COLUMN TITLE "Largo/Alt" DATA largo,ancho FONT 1 SIZE 8 GROUP ON CODPROV END REPORT ACTIVATE REPORT oReport ON ENDPAGE oReport:lPageTotal:= .f. ; ON STARTGROUP( oReport:NewLine(),; oReport:EndLine(),; oReport:Say(0,"CLIENTE : " +codprov+"-"+ALLTRIM(codprov),4,,oReport:nRow),; ...

... TOTAL GROUP ON C->CODIGO // DEFINO EL ROMPIMIENTO SIN NECESIDAD DEL DO WHILE END REPORT ACTIVATE REPORT oReport ON ENDPAGE oReport:lPageTotal:= .f. ; ON STARTGROUP( oReport:NewLine(),; oReport:EndLine(),; oReport:Say(0,"CLIENTE : " +C->CODIGO+"-"+ALLTRIM(C->NOMBRES),4,,oReport:nRow),; ...

... ); ON ENDGROUP ( oReport:nPage:=0, Eval(bCabez)); ON END oReport:lTotal:=.f. ; //No imprimir el gran total en la ultima pagina ON ENDPAGE oReport:lPageTotal:=.f. //No imprimir el acum en cada pagina oFont:End() oFont1:End() oFont2:End() oPen1:End() RETURN NIL

... de pagina es el siguiente: static function Mirasipagina(oPrint,o) if o:PaginaPor $ "Ss" oPrint:EndPage() oPrint:nGroupLine:=RPT_NOLINE oPrint:lPageTotal:=.t. end if return GRACIAS Aqui tienes un ejemplo completo. Ajustalo a tus necesidades. //------------------------------------------------------------------------- ...

... de pagina es el siguiente: static function Mirasipagina(oPrint,o) if o:PaginaPor $ "Ss" oPrint:EndPage() oPrint:nGroupLine:=RPT_NOLINE oPrint:lPageTotal:=.t. end if return GRACIAS

... de última página) ACTIVATE REPORT oReport ...... ON END oReport:lTotal:=.f. Total por pagina: ACTIVATE REPORT oReport ...... ON ENDPAGE oReport:lPageTotal:=.f. Gracias a todos, y especialmente... Gracias amigo Keyber.

... ando como en antaño ayudando en lo que se puede. Es muy sencillo quitar los totales de cada página, el Objeto Report tiene una propiedad llamada lPageTotal ( true, false ) oReport:lPageTotal = .t. // Pone Totales oReport:lPageTotal = .f. // NO Pone Totales Revisa en Sources/Classes las propiedades ...

Hello, you can try with some of the follow code blocks bpostgroup, bend, bpostend and define data :ltotal := .F. or :lpagetotal := .F. I hope this can help you regards Marcelo Dear All, I want to page Pagewise Total but not Grand Total ? How can I achieve it ? I am printing Report ...