añadir un cuadro y textos a un informe

añadir un cuadro y textos a un informe

Postby MOISES » Mon Jun 02, 2008 1:56 pm

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
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Postby cuatecatl82 » Mon Jun 02, 2008 3:22 pm

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
Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
User avatar
cuatecatl82
 
Posts: 625
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México

Postby MOISES » Mon Jun 02, 2008 8:00 pm

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" ) )
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 42 guests