Error no existe Alias al exportar a Excel (SOLUCIONADO)

[jvtecheto]

Hola foro.

Supongo que sera por algo, por supuesto. Pero me gustaria comprender porque el bEnd de un Report se produce antes de mostrar el preview del Informe y no despues de pulsar el boton de salida.

Me direis porque te interesa esto?, os explico.
Yo tenia problemas al salir del informe y volver al Xbrowse , se quedaba en blanco, entonces Mr. Rao, siempre tan amable y dispuesto a ayudar , me sugirio que en el informe abriera las dbfs con otros
alias .

Pertecto me puse al tema y enseguida lo consegui, y ahora el Xbrowse como no toco sus dbfs esta como sino hubieramos hecho nada.
Entonces en el informe abro las dbfs con otro alias pero al final del mismo las cierro, todo OK.

El problema viene cuando habilito el boton para exportar a Excel, ya que cuando pulso el boton de exportacion las dbfs ya estan cerradas, es por el comportamiento del informe que antes de mostrarse por pantalla
ya se ha producido su evento bEnd (Finalizacion).

La solucion seria dejar siempre las bases de datos abiertas, pero si tengo 20 informes en el programa tengo que mantener 40 dbfs de manera permanente lo cual consume recursos, ya se que hoy en dia nos sobran
pero no es la solucion ideal.

Alguien me puede ayudar en este tema. ?

Muchisimas gracias.

Jose.

[karinha]

Tiene un ejemplo para pruebas?

Saludos.

[jvtecheto]

Joao muy fácil de probar, en cualquier informe que tengas, al final del mismo cierra las bases de datos que uses,
Activa el botón de la exportación a Excel

Podrás comprobar que cuando pulsas el botón de exportación a Excel te da error, porque no existe el alias. La dbf ya esta cerrada cuando se muestra el preview.

También lo puedes probar con el evento bEnd del informe, coloca un msginfo y comprobarás que se muestra antes de mostrar el preview.

Sencillo.

Gracias por tu ayuda.

Jose.

Enviado desde mi POCOPHONE F1 mediante Tapatalk

[karinha]

No me hace sentido, porquê cierra las bases de datos? Debes cerrar las bases de datos solo cuando sale del programa principal. Asi lo hago y funciona de 1000. No comprendo tú lógica, desculpas.

Saludos.

[artu01]

.

Me direis porque te interesa esto?, os explico.
Yo tenia problemas al salir del informe y volver al Xbrowse , se quedaba en blanco, entonces Mr. Rao, siempre tan amable y dispuesto a ayudar , me sugirio que en el informe abriera las dbfs con otros
alias

Por que se queda en blanco?, quizas falte refrescar el xbrowse cuando consigue el foco y deja los indices activos que inicialmente pusiste al armar el xbrowse
al retornar del preview

El problema viene cuando habilito el boton para exportar a Excel, ya que cuando pulso el boton de exportacion las dbfs ya estan cerradas, es por el comportamiento del informe que antes de mostrarse por pantalla
.

Has pensado en usar una tabla temporal para mostrar el informe?

[jvtecheto]

Joao

Cierro esas dbfs porque solo las utilizo en el informe. Esas mismas dbfs ya las tengo abiertas con otro alias ,que son las que mantengo abiertas y solamente las cierro cuando termina la app.

De todas maneras no debería ser problema abrirlas para el informe y una vez terminado el mismo cerrarlas.

Enviado desde mi Lenovo TB-J606F mediante Tapatalk

[jvtecheto]

Artu01 .

El quedarme el xbrowse vacío yo creo que era porque tenía el browse con set relación y luego al ejecutar el informe cambiaba índices y hacia filtros con el mismo dbfs del xbrowse Por eso MR. Rao me sugirió usar diferentes alias.

Lo de la tabla temporal, no lo he usado nunca , no veo el beneficio por ahora. lo investigo.

Gracias.

Enviado desde mi Lenovo TB-J606F mediante Tapatalk

[nageswaragunupudi]

It is perfectly ok to close the DBFs after the report is finished.
But do not close the DBF in the bEnd codeblock.
Close the DBF after the command

Code: Select all  Expand view  RUN

ACTIVATE REPORT oReport.
CLOSE MYALIAS
 

[jvtecheto]

Hi Mr. Rao.

Thanks for your reply

But not works, My code.

Code: Select all  Expand view  RUN

ACTIVATE REPORT oRepAa FOR ArtApua->Fecha <= dFinal WHILE ! ArtApua->( Eof() )
ArtApua->( dbClosearea() )
ListA->( dbClosearea() )
ListO->( dbClosearea() )  
 

Regards.

Jose.

[karinha]

Como declaras Lista y los demás Alias? Porquê nos hace?

LOCAL cAlias, cAlias2, cAlias3

Code: Select all  Expand view  RUN

   cAlias   := ALIAS()
   cAlias2 := ALIAS()
   cAlias3 := ALIAS()
 

...REPORT...

...

...ENDREPORT...

Code: Select all  Expand view  RUN

   CLOSE( cAlias )
   CLOSE( cAlias2 )
   CLOSE( cAlias3 ) ..., Etc.

   BROWSE( cAlias ) // vacio..., etc...
 

Saludos.

[karinha]

Si hubieras hecho una DEMO como sugerí, ya tendríamos otros modos de lógica que harían lo mismo que quieres, de diferentes maneras. No tengas miedo a las críticas. Aprender es un arte ...

Regards, saludos.

[nageswaragunupudi]

Hi Mr. Rao.

Thanks for your reply

But not works, My code.

Code: Select all  Expand view  RUN

ACTIVATE REPORT oRepAa FOR ArtApua->Fecha <= dFinal WHILE ! ArtApua->( Eof() )
ArtApua->( dbClosearea() )
ListA->( dbClosearea() )
ListO->( dbClosearea() )  
 

Regards.

Jose.

Are you sure you are not closing the aliases inside oRepAa:bEnd also?

[nageswaragunupudi]

Please try this sample

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "report.ch"

function Main()

   local oRep, oFont, oBold, oCol

   USE STATES NEW SHARED
   GO TOP

   DEFINE FONT oFont NAME "TAHOMA"  SIZE 0,-12
   REPORT oRep PREVIEW FONT oFont

   COLUMN oCol TITLE "CODE" DATA FIELD->CODE
   COLUMN oCol TITLE "NAME" DATA FIELD->NAME

   ENDREPORT

   oRep:bInit := { || STATES->( DBGOTOP() ) }

   ACTIVATE REPORT oRep
   RELEASE FONT oFont
   STATES->( DBCLOSEAREA() ) // or simpler CLOSE STATES

return nil
 

[jvtecheto]

Mr rao

His example works thanks.

and in my program I have also tried to move it to a simple dialog and I call the summary report and it also works.

What I still do not understand because in the program where I have filters, conditions etc, the normal thing does not work for me,

I am frankly sad.

Thank you so much everyone.

Jose.

[nageswaragunupudi]

It has to work.
There could be some obscure reason why it is not working in your situation.
With some patience you can locate it.