Lineas de separacion en un Report

[jrestojeda]

Armando:

Si hago lo siguiente funciona perfecto:

Code: Select all  Expand view

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.

[Armando]

Esteban:

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

Saludos

[Ari]

como voce colocou a BITMAP lado esquerdo no titulo ?

Ari

[Armando]

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