añadir un cuadro y textos a un informe

[MOISES]

Hola:

Tengo un informe del tipo:

REPORT oReport TITLE OemToAnsi("*** Listado de AGENTES ***") ;
PREVIEW CAPTION OemToAnsi("Listado de AGENTES")


COLUMN TITLE OemToAnsi("C¢digo") DATA AGENTES->CODIGO

COLUMN TITLE "Nombre del Agente" DATA LEFT( AGENTES->NOMBRE, 30 )

END REPORT

ACTIVATE REPORT oReport


Al final del REPORT, me gustaría añadir una tabla con varios datos:

del tipo:

=====================
Resumen anual
====================
Total primer trimestre 100
====================
Total segundo trimestre 200
====================

¿cómo se puede hacer?. Muchas gracias. Un saludo

[cuatecatl82]

Moises buen inicio de semana:

Se me ocurre esto:

La forma mas facil de hacerlo es usando los footers o pies de pagina nativos de los reportes, es posible asignarles los valores como variables e irlos actualizando conforme los necesites en cada pagina generada

Code: Select all  Expand view  RUN

REPORT oReporte TITLE   "Titulo del Reporte",;
                HEADER  "Cabececera del Reporte",;
                RIGHT;
                FOOTER  "Una Linea", "Dos lineas", "Otra Linea Mas";
                PREVIEW;   
                CAPTION "Usuarios Registrados"
                                 
  COLUMN TITLE "Nombre"      DATA Usr->Nombre       LEFT   
  COLUMN TITLE "Nivel"       DATA Usr->Privilegio   CENTER   
  COLUMN TITLE "Domicilio"   DATA Usr->Domicilio    LEFT
  COLUMN TITLE "Telefono"    DATA Usr->Telefono     RIGHT   
 
END REPORT

ACTIVATE REPORT oReporte ON STARTPAGE (oReporte:Box(nRow, nCol, nBottom, nRight, nPen, nScale))


Yo los uso así y no es muy complicado, ahora, lo de dibujar el cuadro no tiene mucha ciencia, usa el comando oReport:Box() y probando las coordenasdas que necesites...

Espero te sirve y te de una idea...
Saludos

[MOISES]

Hola:

Hay que usar

ON END ( oRpt:TotalLine( RPT_DOUBLELINE ),;
oRpt:Say( 1, "This is the first line" ),;
oRpt:StartLine(),;
oRpt:EndLine(),;
oRpt:Say( 1, "This is the second line" ) )