FiveTech Support Forums

   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:SaveAs(.t.,.f.)

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