topic-19299

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Inconvenientes con printer - rpreview - SOLUCIONADO
Posted: Fri Jul 09, 2010 09:27 PM

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

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Re: Inconvenientes con printer - rpreview
Posted: Mon Jul 12, 2010 04:24 PM

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

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Inconvenientes con printer - rpreview
Posted: Mon Jul 12, 2010 04:56 PM

Tocayo:

síguele la hebra a este hilo.

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

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

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Re: Inconvenientes con printer - rpreview
Posted: Mon Jul 12, 2010 05:42 PM

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

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Re: Inconvenientes con printer - rpreview
Posted: Mon Jul 12, 2010 06:29 PM

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.

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Inconvenientes con printer - rpreview
Posted: Mon Jul 12, 2010 07:47 PM

Tocayo:

En mi caso sí se solucionaron los problemas !.

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

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Re: Inconvenientes con printer - rpreview
Posted: Mon Jul 12, 2010 11:16 PM

Tocayo...

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

Saludos

Armando

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Inconvenientes con printer - rpreview
Posted: Tue Jul 13, 2010 08:20 PM

Hola

Podrias ir quitando columna para ver donde casca..

puede que tu report este fuera de los margenes..

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Re: Inconvenientes con printer - rpreview
Posted: Tue Jul 13, 2010 09:09 PM

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

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Inconvenientes con printer - rpreview
Posted: Tue Jul 13, 2010 09:49 PM

Totalmente de acuerdo

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

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Lautaro

Posts: 337

Joined: Fri Oct 07, 2005 02:44 PM

Re: Inconvenientes con printer - rpreview
Posted: Wed Jul 14, 2010 01:52 PM

Armando,

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

Saludos,

Lautaro Moreira

Hola,

Soy un Contador que por necesidad aprendio a programar y se quedo programando.

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Re: Inconvenientes con printer - rpreview
Posted: Wed Jul 14, 2010 03:38 PM

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

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: Inconvenientes con printer - rpreview
Posted: Wed Jul 14, 2010 03:40 PM

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

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Re: Inconvenientes con printer - rpreview
Posted: Wed Jul 14, 2010 04:05 PM

Marcelo

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

Gracias

Armando

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

SantaCroya

Posts: 6

Joined: Mon Sep 22, 2008 01:45 PM

Re: Inconvenientes con printer - rpreview
Posted: Wed Jul 14, 2010 04:48 PM

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.

FiveTech Support Forums