Ayuda sobre Report

Ayuda sobre Report

Postby softruz » Mon Apr 02, 2007 10:44 am

Muy buenas, estoy realizando un listados y agrupado por clientes y me gustaría saber como puedo hacer que en cada cliente apareciera un listado con su cabecera de por ejemplo sus obras, sería mas o menos así:

CODIGO NOMBRE
---------- ----------
00001 PEPE

COD.OBRA TOTAL
------------ --------
000000001 25
000000003 25
000000003 25

y cada uno de los encabezados encuadrado en cajas.

Gracias.
softruz
 
Posts: 485
Joined: Fri Feb 09, 2007 10:34 am

Mas cosas

Postby softruz » Mon Apr 02, 2007 4:28 pm

Me gustaria hacer eso con el tprinter o treport, la cuestion es poner cajas para enmarcar los encabezados.

Gracias.
softruz
 
Posts: 485
Joined: Fri Feb 09, 2007 10:34 am

Mas cosas

Postby softruz » Mon Apr 02, 2007 4:32 pm

Me gustaria hacer eso con el tprinter o treport, la cuestion es poner cajas para enmarcar los encabezados.

Gracias.
softruz
 
Posts: 485
Joined: Fri Feb 09, 2007 10:34 am

Postby sysctrl2 » Tue Apr 03, 2007 4:04 pm

Con la tprinter es facil,,

te adjunto, 2 funciones, para dibujar cajas o lineas

cualquier comentario,

aqui andamos.


function _dibujaCuadro(nLinInicial, nColInicial, nLinFinal, nColFinal, oPrn, oPen)
oPrn:Cmtr2Pix(@nLinInicial, @nColInicial)
oPrn:cmtr2Pix(@nLinFinal, @nColFinal)
oPrn:Box(nLinInicial, nColInicial, nLinFinal, nColFinal, oPen )
return (.T.)

function _dibujaLinea(nRen, nColInicial,nColFinal,oPrn, oPen)
local nRen1,nRen2
default nColInicial := 1
default nColFinal := 20.5
nren1 := oPrn:cmtr2pix(nRen,nColInicial)
nren2 := oPrn:cmtr2pix(nRen,nColFinal)
oPrn:line(nren1[1],nren1[2],nren2[1],nren2[2],oPen)
return (.T.)

http://sysctrl...net/tprinterimg.jpg
[/url]
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1003
Joined: Mon Feb 05, 2007 7:15 pm


Return to FiveWin para Harbour/xHarbour

Who is online

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