topic-29714

Board index FiveWin para Harbour/xHarbour Report y Saybitmap

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Report y Saybitmap
Posted: Sat Nov 29, 2014 07:14 AM

Necesito imprimir unas lineas de texto después de un report con una longitud de lineas siempre variable y lo hago con la función DatosFin(oReport) de la forma siguiente:

Code (fw): Select all Collapse

//
 IF oReport:lCreated
     oReport:bPostEnd :={|| (CkNewPage(oReport,13), DatosFin( oReport )) }
 ENDIF
 //
***********************************
 FUNCTION DatosFin( oReport )
***********************************
//
oReport:lGrid := .f.
oReport:StartLine()
oReport:EndLine()
oReport:NewLine()
oReport:Say(3,"Texto a imprimir1",3 )
oReport:Say(3,"_______________________",3 )
oReport:Say(12,"    Texto a imprimir 2",3 )
oReport:Say(12,"_____________________",3 )
oReport:NewLine()
oReport:EndLine()
oReport:NewLine()
oReport:NewLine()
oReport:Say(2,"Texto a imprimir3" )
oReport:Say(11,"Texto a imprimir4" )
oReport:NewLine()
oReport:EndLine()
oReport:NewLine()
oReport:NewLine()
oReport:NewLine()
oReport:SayBitmap(oReport:nRow,3,"IMAGEN.BMP",3,4,RPT_CMETERS)
oReport:lFinish := .t.
//
RETURN NIL

Ahora lo que necesito es incluir una imagen BMP a continuación del texto4 y lo estoy intentando así:
oReport:SayBitmap(oReport:nRow,3,"IMAGEN.BMP",3,4,RPT_CMETERS) , sin embargo no funciona adecuadamente.
Obviamente la posición de nRow siempre será relativa y no sé como indicar ese valor.
¿Alguna idea?

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Report y Saybitmap
Posted: Sat Nov 29, 2014 10:32 AM

Creo que la clase sólo modifica el valor de oReport:nRow en las llamadas a oReport:EndLine() y no en oReport:NewLine()
A ver si te sirve de algo, por que tampoco entiendo bien lo que te pasa.

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Re: Report y Saybitmap
Posted: Sat Nov 29, 2014 12:51 PM

Gracias por tu interés, Cristobal.
A ver si me explico mejor:
Para poner un texto después del report lo hago con oReport:Say(2,"Texto a imprimir3" ), sin tener que indicar la línea en la que quiero hacerlo.
Sin embargo para poner una imagen con oReport:SayBitmap sí que tengo que indicar la línea (según los parámetros de SayBitmap( nRow, nCol, cBitmap, nWidth, nHeight, nScale, nAlphaLevel ). Si ignoro nRow me imprime la imagen al principio del reporte

Se me ha ocurrido hacer esto: oReport:SayBitmap(oReport:nRow/120,5,"IMAGEN.BMP",3,4,RPT_CMETERS) y ¡funciona!
La verdad es que hay leves desplazamientos dependiendo del número de líneas del reporte, pero, a falta de una mejor solución, de momento me vale.
(Aunque desconozco absolutamente este comportamiento).

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

FiveTech Support Forums

Continue the discussion