Skip to Content
0
Former Member
Nov 04, 2008 at 09:00 AM

Problema con Crystal Reports

414 Views

Buenos días amig@s

Tengo un pequeño pero molesto problema a la hora de llamar a un informe de Crystal Reports desde SAP. Resulta que el informe aparece sin ningún problema, pero cuando pasa cierto tiempo la pantalla abierta, ella sola se cierra. No os puedo decir que se cierra a un tiempo de estar la pantalla de previsualización abierta porque cada vez se cierra más o menos tarde.

Ya os digo que es un problema muy molesto, ya que no quiero sacar a papel los datos, pero quiero comprobarlos, entonces los quiero tener en pantalla todo lo que yo quiera, hasta que yo cierre la pantalla, no hasta que se cierre ella sola cuando le de la gana.

Os pongo el código que tengo para llamar al informe de Crystal:

' Obtenemos los datos necesarios para crear la conexión ADO

' Creamos la conexión ADO. Se usa para acceder a Crystal Report

strCnn = "Provider=SQLOLEDB.1;User ID=xx;Password=xxxxx;"

strCnn = strCnn & "Server=xxxxxxxxx;Initial Catalog=" & oCompany.CompanyDB & ";"

strCnn = strCnn & "Application Name=ESTD;Persist Security Info=True"

CnnADO = New ADODB.Connection

CnnADO.Open(strCnn, "xx", "xxxxxxx")

' Realizamos la conexión ADO para mostrar los datos en Crystal

ReOpen(RstADO, sSql, CnnADO)

oCR = New Crystal.CrystalReport

With oCR

.Reset()

' Dependiendo del tipo de informe tenemos que seleccionar un report u otro

.ReportFileName = CurDir() & "Reports eport.rpt"

.WindowShowGroupTree = True

.WindowShowPrintSetupBtn = True

.WindowState = Crystal.WindowStateConstants.crptMaximized

.WindowShowCancelBtn = True

.WindowAllowDrillDown = True

.WindowBorderStyle = Crystal.WindowBorderStyleConstants.crptSizable

.WindowControlBox = True

.WindowControls = True

.WindowShowCloseBtn = True

.WindowShowExportBtn = True

.WindowShowProgressCtls = True

.WindowShowRefreshBtn = True

.WindowShowNavigationCtls = True

.WindowShowSearchBtn = True

.WindowShowZoomCtl = True

.ProgressDialog = True

.WindowState = Crystal.WindowStateConstants.crptMaximized

.SetTablePrivateData(0, 3, RstADO)

.Action = 1

End With

Espero que alguien sepa que es lo que puede pasar y me de una solución.

Muchísimas gracias!!!

Un saludo.

Edited by: Rui Pereira on Nov 7, 2008 10:56 AM