jvtecheto wrote:.
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
jvtecheto wrote:
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
.
ACTIVATE REPORT oReport.
CLOSE MYALIAS
ACTIVATE REPORT oRepAa FOR ArtApua->Fecha <= dFinal WHILE ! ArtApua->( Eof() )
ArtApua->( dbClosearea() )
ListA->( dbClosearea() )
ListO->( dbClosearea() )
cAlias := ALIAS()
cAlias2 := ALIAS()
cAlias3 := ALIAS()
CLOSE( cAlias )
CLOSE( cAlias2 )
CLOSE( cAlias3 ) ..., Etc.
BROWSE( cAlias ) // vacio..., etc...
jvtecheto wrote:Hi Mr. Rao.
Thanks for your reply
But not works, My code.
- Code: Select all Expand view
ACTIVATE REPORT oRepAa FOR ArtApua->Fecha <= dFinal WHILE ! ArtApua->( Eof() )
ArtApua->( dbClosearea() )
ListA->( dbClosearea() )
ListO->( dbClosearea() )
Regards.
Jose.
#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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 48 guests