funciona bien el método Preview de la clase report

[RicardoB]

Hola.

¿¿¿ Sabe alguien si funciona el método Preview de la clase report, en versiones, 2.6 ó 2.7 de fivewin para harbour ???

Gracias.

[Antonio Linares]

Ricardo,

Acabamos de probar samples\TestPrn2.prg y el preview funciona bien.

Puedes probar ese ejemplo y ver si te funciona correctamente ? gracias,

[RicardoB]

Gracias Antonio por contestarme.

Si, el ejemplo que dices, me funcionó bien es decir se vé el preview perfectamente, pero en el resto de mis programas los cuales con versiones anteriores a la 2.6 funcionan sin problemas, ahora no me funcionan y me sacan un previsualizado sin datos ( pantalla de la prev32.dll de datos en blanco). Si quito el Preview, entonces si salen bien los datos por la impresora, pero claro, sin visualizarlos previamente.


Esperando tu ayuda.

Muchas Gracias.
Ricardo Blanco

[Antonio Linares]

Ricardo,

Podrias proporcionarnos un pequeño ejemplo, autocontenido, que reproduzca el error ? Gracias,

[RicardoB]

Antonio, he aislado los report que genero con mi aplicación y al compilarlos con el buildh.bat del direcctorio samples, si funcionan bien.

Lo que si observo es que cuando los incluyo como módulos de la aplicación para generar el listado, estos si crean bien los archivos temporales tmp0001.emf, tmp0002.emf ,etc... ,es decir ,dichos ficheros si contienen los datos y formato del report que deseo imprimir, pero el problema es que esos ficheros no se ven en la ventana del preview , no se si porque no los abre, no los encuentra, etc..., por lo que no se pueden imprimir.

Por cierto trabajo sobre windows 2000, por si sirve de algo para resolver el problema.

Gracias.

Ricardo Blanco
blanco.r@iveco.com

[RicardoB]

Antonio,

estoy haciendo pruebas y siempre el flujo del programa entra por el condicionante __CLIPPER_ , en la clase printer.

if ::lMeta
#ifndef __CLIPPER__
AAdd( ::aMeta, ::cDir + "\tmp" + PadL( ::nPage, 4, "0" ) + ".emf" )
::hDCOut := CreateEnhMetaFile( ::hDc,ATail( ::aMeta ), ::cDocument ) //jlcr

#else
AAdd( ::aMeta, ::cDir + "\tmp" + PadL( ::nPage, 4, "0" ) + ".wmf" )
::hDCOut := CreateMetaFile( ATail( ::aMeta ) )
#endif
else
StartPage( ::hDC )
endif

¿ Que estoy haciendo mal para que suceda esto ?


Gracias
Ricardo Blanco

[RicardoB]

Antonio.

Al compilar y linkar mi aplicación con la clase tprinter de fwh build 2.4 de Julio de 2.003 , el problema se soluciona, al no existir ningún condicionante del tipo __clipper__ en los métodos de dicha clase. El preview se muestra correctamente.

Espero tus sugerencias de la posible causa del porqué el flujo de ejecución de mi aplicación compilada con la versión 2.7 pasa siempre por __Clipper__ lo que provoca el mal funcionamiento del preview, yo no tengo ni idea de por donde pueden ir los tiros.

Muchas gracias por tu paciencia.

Ricardo Blanco
blanco.r@iveco.com

[Antonio Linares]

Ricardo,

El condicionante es en caso negativo:

#ifndef __CLIPPER__

if n def

luego es correcto si pasa por ahí.

Podrias enviarme por email uno de los ficheros EMF que no se visualizan ? gracias.

[RicardoB]

Antonio, ya le he enviado el fichero solicitado para su análisis a su correo privado

Muchas gracias

Un saludo