Ayuda con TReport

[ricardog]

Buen dia.

Alguién me pude apoyar en esto:

Necesito imprimir un resumen de totales, después de los titulos del reporte y antes de los titulos de las columnas:

Titulo 1
Titulo 2

RESUMEN 1 ...................................
RESUMEN 2 ...................................
RESUMEN 3 ...................................

Código Nombre U de Med
----------------- ---------------------- ------------------

Gracias...

[cnavarro]

Hola
Yo para poder sacar en cada hoja los acumulados anteriores (totales de la pagina anterior), modifique el metodo startpage

Code: Select all  Expand view

METHOD StartPage() CLASS TReport
   Local cTotPag := ::cPageTotal
   Local lFin    := ::lTotFin
   STATIC lRunning := .F.

   ::lTotFin := .f.

   ::oDevice:StartPage()

   ::nPage++

   ::oRptWnd:Refresh()

   IF ::bStartPage != nil .AND. !lRunning
       lRunning := .T.
       Eval( ::bStartPage, Self )
       lRunning := .F.
   ENDIF

   ::oHeader:Say()
   ::oTitle:Say()

// En tu caso tendrias que añadir el codigo que necesitas antes que dibuje los titulos de columnas

   ::ColTitle()
   ::lFirstRow := .T.


// codigo añadido por mi
   if ::lTotalAnt
      ::cPageTotal   := "Acumulado Anterior:"
      ::PageTotal(1)
      ::TotalLine(::nTotalLine, GRID_ABOVE)
      ::cPageTotal := cTotPag
   endif

   ::lTotFin := lFin

RETURN NIL
 

En tu caso, sería antes de dibujar los titulos de columnas como te indico en el codigo anterior
Espero que te sirva de algo
Saludos

[ricardog]

Funciono perfecto
Muchas gracias.


Saludos

[cnavarro]

Me alegro de haberte ayudado
Quizás lo ideal seria que tuviéramos unas DATAs tipo before y after, por ejemplo (codeblock), de cada seccion para poder programar el report sin tener que modificar la clase

Saludos

[Antonio Linares]

Cristobal,

Muchas gracias por la idea,

En breve tengo previsto una revisión a fondo de la Clase TReport, asi que cualquier sugerencia es bienvenida

[cnavarro]

Antonio
Como sugerencias iniciales:

- Alto de Fila
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=26536#p146697

- DATA nLinesPag -> Nº de lineas por página
Para lo que seguramente se necesite la DATA
DATA nLine ( ::nLine++ en el METHOD EndLine() )

A tu disposicion
Saludos