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.
Ayuda sobre Report
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]
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 "
SysCtrl Software
Mexico
' Sin +- FWH es mejor "