Ayuda sobre Report

Post Reply
softruz
Posts: 485
Joined: Fri Feb 09, 2007 10:34 am

Ayuda sobre Report

Post by softruz »

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

Post by softruz »

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

Post by softruz »

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

Gracias.
User avatar
sysctrl2
Posts: 833
Joined: Mon Feb 05, 2007 7:15 pm
Contact:

Post by sysctrl2 »

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 "
Post Reply