Lineas de separacion en un Report

Postby jrestojeda » Fri Aug 03, 2007 6:42 pm

Armando:

Si hago lo siguiente funciona perfecto:

Code: Select all  Expand view  RUN
oReport:bSkip :={|nRecs|oDbf:Skip(1)}
oReport:bStartLine := {|oReport|IF(oReport:nCounter % 2 =0,PintaLi(oReport),)}

ACTIVATE REPORT oReport ON INIT oDbf:Seek(vDes,.t.)


Pero si en ON INIT Mando una función tomo como si fuera todas las líneas una sola y la pinta.
User avatar
jrestojeda
 
Posts: 601
Joined: Wed Jul 04, 2007 3:51 pm
Location: Buenos Aires - Argentina

Postby Armando » Fri Aug 03, 2007 10:24 pm

Esteban:

Eso parece confirmar mi teoria, trata de adaptar los cambios a cada empleado pero usando en ciclo natural de TReport.

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3235
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby Ari » Thu Dec 27, 2007 5:32 pm

como voce colocou a BITMAP lado esquerdo no titulo ?

Ari
User avatar
Ari
 
Posts: 236
Joined: Fri Feb 03, 2006 4:21 pm
Location: São Paulo, SP - Brazil

Postby Armando » Thu Dec 27, 2007 6:26 pm

Ari:

En cada inicio de página se llama a la función MyBitMap()

ACTIVATE REPORT oReporte;
ON STARTPAGE MyBitMap(oReporte,.5,1.0,.5,.52);
ON END ( oReporte:ENDLINE(),MessageBeep())

Y esta es la función MyBitMap()

FUNCTION MyBitMap(oReporte,nRow,nCol,nWidth,nHeight)
oReporte:SayBitMap(nRow,nCol,".\MiLogo.Bmp",nWidth,nHeight,1)
RETURN (NIL)

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3235
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Previous

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 55 guests