añadir un cuadro y textos a un informe

Board index FiveWin para Harbour/xHarbour añadir un cuadro y textos a un informe

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

añadir un cuadro y textos a un informe
Posted: Mon Jun 02, 2008 01: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-&gt;CODIGO

 COLUMN TITLE "Nombre del Agente"         DATA LEFT( AGENTES-&gt;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

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

cuatecatl82

Posts: 625

Joined: Wed Mar 14, 2007 06:49 PM

añadir un cuadro y textos a un informe
Posted: Mon Jun 02, 2008 03: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 Collapse

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

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

añadir un cuadro y textos a un informe
Posted: Mon Jun 02, 2008 08: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" ) )

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

FiveTech Support Forums

Continue the discussion