Problemas con los metafiles

Problemas con los metafiles

Postby Armando » Sat May 01, 2010 12:48 am

Maestro Antonio, Daniel y amigos del foro:

He estado lidiando con un problema que se presenta al imprimir con TReport,
trataré de explcarlo, El programa manda un error como el siguiente:

Error (6) deleting enhanced metafile
Error description

Para que esto suceda deben concurrir dos situaciones

1.- Que se haga uso del método POSTEND o del método END para ira a una función donde se imprimen varias líneas y

2.- Que las líneas a imprimir excedan el alto de la hoja

Todo hace suponer que trata de crear un nuevo metafile pero sin incrementar el número por
lo que intenta crearlo con el mismo número inmediato anterior y es ahi donde casca, supongo que no puede encimar un nuevo metafile.

El problema se me recrudece ahora que estoy pasando mi unica aplicacion de 16 bits a 32, en 16 bits no se presenta el problema, deduzco que es porque los metafiles se usan a partir de los 32 bits.

Hasta ahora había yo solventado el problema saltando a la siguiente hoja antes de imprimir las lineas del POSTEND peroooo como les he comentado es una aplicación de 16 bits que esta en uso por varios clientes y ahora hay uno que me reclama ese salto de hoja extra, él quiere que salga como estaba en 16bits :evil:

Antonio, sería posible resolver esta situación ?. (Ya no aguanto al cliente)

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
User avatar
Armando
 
Posts: 3209
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Problemas con los metafiles

Postby Antonio Linares » Sat May 01, 2010 11:23 pm

Armando,

Has comprobado que no tengas algún ENDPAGE de más ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42078
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Problemas con los metafiles

Postby Armando » Sun May 02, 2010 12:34 am

Antonio:

Muchas gracias por tu interés, pues no, no hay un ENDPAGE de más.

Es muy sencillo hacer una prueba de lo que menciono, basta con crear un reporte con la
clase TReport, imprimir unas 10 líneas de manera natural al finalizar en el método POSTEND
ir a una función que imprima varias líneas usando oReport:SAY() (digamos 80) las suficientes para exceder el largo de la página y VOILA, seguro recibes el mencionado mensaje de error.

Saludos para ti y para Daniel
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
User avatar
Armando
 
Posts: 3209
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Problemas con los metafiles

Postby Daniel Garcia-Gil » Mon May 03, 2010 12:41 pm

Armando


No logro repoducir el error, si pudieras publicar el ejemplo seria de utilidad

gracias
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: Problemas con los metafiles

Postby Armando » Mon May 03, 2010 4:48 pm

Daniel:

Muchas gracias por el interés.

Aquí tienes el link de descarga:

http://www.megaupload.com/?d=VJ3AIGTN

Si hay dudas, por favor déjame saberlo.

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
User avatar
Armando
 
Posts: 3209
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Problemas con los metafiles

Postby Armando » Wed May 05, 2010 3:56 pm

Daniel:

Tendras alguna novedad ?

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
User avatar
Armando
 
Posts: 3209
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Problemas con los metafiles

Postby Daniel Garcia-Gil » Wed May 05, 2010 3:58 pm

Armando

Disculpa aun no he podido dedicarle 100% a tu problema, a la brevedad posible (espero sea hoy mismo) pueda ofrecerte una respuesta
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: Problemas con los metafiles

Postby Daniel Garcia-Gil » Wed May 05, 2010 5:03 pm

Armando

Intenta cambiar el methodo EndLine

Code: Select all  Expand view

METHOD EndLine( nHeight, lAuto ) CLASS TReport

   static lRunning := .f.

   DEFAULT nHeight := ::nStdLineHeight
   DEFAULT lAuto   := .T.
   

   if ::bEndLine != nil .and. !lRunning
      lRunning := .t.
      Eval( ::bEndLine, Self)
      lRunning := .f.
   endif

   ::nRow      += nHeight
   ::lFirstRow := .f.

   if ::NeedNewPage()
      if lAuto
         ::EndPage()
         ::StartPage()
      else
         ::EndPage()
      endif
   endif

return nil
 


para usarlo (y no romper compatibilidad) solo llama a :EndLine( , .T. ) para generar automaticamente la proxima pagina
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: Problemas con los metafiles

Postby Armando » Wed May 05, 2010 6:20 pm

Daniel:

Perfecto, como siempre.

Me felicito por contar con tu apoyo y felicito a Antonio por tan acertada adquisición.

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
User avatar
Armando
 
Posts: 3209
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 38 guests