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...
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 NILFunciono perfecto
Muchas gracias.
Saludos
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
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 
