FiveTech Support Forums

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.

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

Gracias.

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

Gracias.

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.sytes.net/tprinterimg.jpg
[/url]