Inconvenientes con printer - rpreview - SOLUCIONADO

[Armando Picon]

Ultimamente, porque estoy cambiando una aplicación de FW20 a FWH712 o FWH811. El caso es que, cuando emito los reportes, al finalizar estoy recibiendo un mensaje proveniente de la rutina deleteenhmetafile. He rastreado el error hasta el archivo metafi32.C y no me ha sido posible corregirlo. Agradecería muchísimo si pueden darme una mano

Este es el trozo de codigo que genera el mensaje dichoso, lo que no ocurría con FW20:


PROCEDURE Matric1(nSalida)
* Padron General de Matriculas
LOCAL oRepo, oFont2
LOCAL Crleft := chr(10)+chr(13)
LOCAL oPrn

//Print oPrn

IF nSalida == 1
DEFINE FONT oFont2 FROM USER
REPORT oRepo TITLE oApp:kMembrete CENTER ;
HEADER "*** MAESTRO DE MATRICULA ***" CENTER ;
FOOTER OEMTOANSI(oApp:kPie + " - P g. No.")+str(oRepo:nPage,4,0) RIGHT ;
FONT oFont2 ;
PREVIEW
ELSE
//oPrn:setup()
DEFINE FONT oFont2 FROM USER
REPORT oRepo TITLE oApp:kMembrete CENTER ;
HEADER "*** MAESTRO DE MATRICULA ***" CENTER ;
FOOTER OEMTOANSI(oApp:kPie + " - P g. No.")+str(oRepo:nPage,4,0) RIGHT ;
FONT oFont2
ENDIF
COLUMN TITLE OEMTOANSI("Fecha") DATA DTOC(FECHMAT)
COLUMN TITLE OEMTOANSI("Programa") DATA CODIPRO
COLUMN TITLE OEMTOANSI("Durac.") DATA DURACIO
COLUMN TITLE OEMTOANSI("No.Mat.") DATA NUMEMAT
COLUMN TITLE OEMTOANSI("Id.Alumn.") DATA IDALUMN
COLUMN TITLE OEMTOANSI("Id.Promot.") DATA IDPROMO
COLUMN TITLE OEMTOANSI("Id.Cobrad.") DATA IDCOBRA
COLUMN TITLE OEMTOANSI("Mensual") DATA IMPOCUR
COLUMN TITLE OEMTOANSI("Matr¡cula") DATA MATRCUR
COLUMN TITLE OEMTOANSI("Certif.") DATA CERTCUR
COLUMN TITLE OEMTOANSI("Durac.") DATA DURACIO
COLUMN TITLE OEMTOANSI("Observaciones") DATA OBSERVA

END REPORT

ACTIVATE REPORT oRepo //;
//ON INIT Margins(oRepo)

oFont2:end()
//oPrn:end()
oRepo:end()

RETURN

[Armando Picon]

Upsss!!! ¿Alguien que me dé alguna sugerencia? Se acepta todo porque el tiempo me aprieta...

[Armando]

Tocayo:

síguele la hebra a este hilo.

viewtopic.php?f=6&t=18706&p=98017&hilit=metafile#p98017

Saludos

[Armando Picon]

Tocayo

Gracias por la pista. Voy a seguirla a ver que hace. En tu caso ¿se solucionó o no? Esta aplicación mía viene funcionando en un antiguo cliente y me pidieron que si lo pudiera actualizar para 32 bits y en ella hago uso intenso de la clase report y rpreview. Llevo una semana revisando los posibles orígenes del fallo y nada...

Saludos

[Armando Picon]

Tocayo

Hice los cambios que te sugirió Garcia-Gil y NADA, continúa saliendo el mensaje. Tal parece que el BUG se encuentra relacionado con los siguientes metodos de tPrinter y Treport:

printer.prg => TPRINTER:ENDPAGE(487)
report.prg => TREPORT:ENDPAGE(1459)
report.prg => TREPORT:END(1362)

En uno de ellos, se crea un metafile adicional, luego es borrado y por eso la rutina C no la ubica. Me parece que por eso es
que arroja el mensaje.

Continúo investigando para encontrar una solución. Lo último que me queda sería tener que escribir todas las rutinas de reportes (alrededor de 40) basados solamente en tprinter.

[Armando]

Tocayo:

En mi caso sí se solucionaron los problemas !.

Saludos

[Armando Picon]

Tocayo...

Algo a la desesperada... ¿tienes skype o puedes instalarlo para conversar? Ubícame mediante esta herramienta como usuario armando.picon

Saludos

Armando

[Patricio Avalos Aguirre]

Hola

Podrias ir quitando columna para ver donde casca..

puede que tu report este fuera de los margenes..

[Armando Picon]

Patricio

Esa es la próxima tarea que debo emprender para ajustar a 32 bits... aunque, hablando en strictu sensus, en teoría eso no debería ser necesario ya que no se ha tocado el codigo fuente original que sí funcionaba sin problema alguno en FW2.0 Lo que agrava el tema es que hay alrededor de 40 reportes utilizando el TReport y ya puedes imaginar lo arduo de tener que ir haciendo pruebas respecto a evaluacion de márgenes por cada uno de los reportes ¿verdad?

Saludos

Armando

[Patricio Avalos Aguirre]

Totalmente de acuerdo

solo te lo decia para ir viendo donde ir atacando el problema..

[Lautaro]

Armando,

Por si te sirve, yo tuve alguna vez un problema similar porque hacia un startpage sin su endpage correspondiente.


Saludos,

Lautaro Moreira

[Armando Picon]

Lautaro

Gracias por la pista. En este momento todo vale. Este tema de pasar de Fw2.0d a FWh me está blanqueando los pocos pelos negros que aún me quedan. El caso es que se ha utilizado el comando "puro y pelado" del Report sin ninguna "sazón", por asi decirlo, como puedes ver en el codigo que muestro en mi mensaje inicial. Funciona perfecto en Fw2.0d pero da ese mensaje en Fwh. En este ultimo, el mensajito de marras se puede cerrar y se puede continuar, pero... como dicen en Lima, ¡qué roche! ---por decir ¡qué verguenza!--- que no pueda explicar porqué el dichoso mensaje.

Estoy casi convencido que es un "bug" de la clase, solo que recién salta porque en Fwh nunca he utilizado el Report sino el Printer, ya que puedo controlar perfectamente lo que pasa en los impresos... Al final, lo que queda es revisar completamente la clase y ver el porqué de la falla. Presumo que es un tema de lógica en el proceso de emisión, pero es algo para después, cuando haya tiempo.

Saludos

Armando

[Marcelo Via Giglio]

Hola,

1.- crear un directorio por ejemplo c:\mitmp

2.- en tu definicion del repoerte oRepo:oDevice:cDir := 'c:\mitmp'

y nos comentas solo una idea

saludos

Marcelo

[Armando Picon]

Marcelo

Como digo todo vale. Voy a probar tu sugerencia y luego comento los resultados.

Gracias

Armando

[SantaCroya]

A mi eso me pasaba cuando mandaba más de una copia del report al preview.

Si solo se manda una copia el mensaje no aparece.

Espero te sirva.