Consulta Total Final en REPORT *SOLUCIONADO*

[remtec]

Hola Amigos.

Estoy con un problema de totalizacion en un REPORT.

Este reporte va realizando Total por 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:

Code: Select all  Expand view  RUN

   REPORT oReporte;
                    TITLE cTi1,"EMPRESA --> " +(EmpTrans->Nom_Emp) ;
          FONT   oFo1,oFo2,oFo3,oFo4,oFo5;
          PEN    oPen1,;
                 oPen2 ;
          HEADER cTi0,"Fecha: "+dtoc(date()),;
                 "Hora:  "+time(), ;
                 "Página: "+str(oReporte:nPage,3) ;
                 RIGHT ;
          PREVIEW

          COLUMN TITLE "Nro. Ing."             DATA Fol_Ing PICTURE "9999999999" SIZE 10   FONT 4
          COLUMN TITLE "Fecha Ing."            DATA Fec_Ate SIZE 10  FONT 4
          COLUMN TITLE "Nombre Paciente"       DATA Nom_Pac SIZE 30 FONT 4
          COLUMN TITLE "T. Atenc."             DATA Tip_Ate SIZE 08  FONT 4
          COLUMN TITLE "T. Pago"               DATA Tip_Pag SIZE 08  FONT 4
          COLUMN TITLE "Valor Examen"          DATA Tot_Cop PICTURE "999,999,999" TOTAL RIGHT FONT 3  SIZE 12

         GROUP ON b->Rut_Emp ;
                     HEADER "Empresa: "+EmpTrans->Nom_Emp;
           FOOTER "Total Empresa "+oReporte:aGroups[1]:cValue+ ;
                  " ("+ltrim(str(oReporte:aGroups[1]:nCounter))+")" +"           "+Transform(oReporte:aGroups[1]:aTotal[6] ,"999,999,999")  FONT 2       EJECT
         

   END REPORT
     oReporte:oTitle:aFont[1] := {|| 2 }
     oReporte:oTitle:aFont[2] := {|| 1 }
     oReporte:oHeader:aPad[1]:= LINE_LEFT
     oReporte:oHeader:aFont[1] := {|| 5 }
     oReporte:lJoin := .t.
     oReporte:nSeparator := 0

     oReporte:lPageTotal:=.f.                   // Quitar Total x Pagina (Pense que con esto elimina imprimir el total, pero igual imprime la Monto.
 
    oReporte:oDevice:SetPortrait()             // Vertical en TReport
   oReporte:oDevice:lPrvModal:=.t.            // Para que Preview salga de Frente no en una Ventana aparte
 
     oReporte:bInit := { || b->( DBGOTOP() ) }           // Habilita Boton Excel en Preview
         ACTIVATE REPORT oReporte   // ON INIT oRep:TPreview:SaveAs(.t.,.f.)

 

[cnavarro]

Has probado

oReporte:lTotal:=.f.

[remtec]

Hola Cristóbal

Deseo que estés muy bien.

Muchas gracias por responder.

Aplique lo que me indicas, pero sigue imprimiendo la sumatoria Total del informe, específicamente para este informe, no corresponde que se imprime esta línea al finalizar el reporte.

Saludos

Antonio

[FranciscoA]

Hola Antonio, intenta asi:

Code: Select all  Expand view  RUN

//No imprimir el acum en cada pagina.
    oReport:bEndPage:= {||oReport:lPageTotal:=.f.}

 //no imprimir el gran total en la ultima pagina
    oReport:bEnd:= {||oReport:lTotal:=.f. }

[remtec]

Hola Antonio, intenta asi:

Code: Select all  Expand view  RUN

//No imprimir el acum en cada pagina.
    oReport:bEndPage:= {||oReport:lPageTotal:=.f.}

 //no imprimir el gran total en la ultima pagina
    oReport:bEnd:= {||oReport:lTotal:=.f. }

Hola Amigo Francisco.

Deseo que estes muy bien.

Como siempre presente en ayudame, muchas gracias.

Funciono Perfecto

Saludos

Antonio