Bases de Datos > Crystal Reports

 Error 20525, No Se Puede Cargar El Informe

(1/1)

Shiquilla:
Buenas a todos/as. Tengo un problema al intentar llamar a un Report hecho con Crystal Reports 10. El informe que tengo diseñado tiene integrado un ODBC, asi que supongo que con sólo hacer esto ya bastaría.


--- Código: Text ---'    Me.CR.Connect = "DSN=SQL SERVER"    Me.CR.ReportFileName = App.Path & "\Informes\InformeFactura.rpt"    Me.CR.ReportTitle = "Facturas BIYONA S.A."    Me.CR.Action = True 
Pero me da error en la instrucción CR.Action. He estado mirando en internet y no consigo sacar el problema del error, ¿podrían echarme una mano? Muchas gracias.

Si no saben el problema que me da, por lo menos decidme los pasos a realizar para ver mi reporte teniendo en cuenta que tengo un ODBC definido en el mismo informe... por favor, es la primera vez que utilizo estos controles. Necesito ayuda!

Saludos.

Shiquilla:
Bueno, os escribo para escribiros la solución. Aún no sé por qué me daba ese error, pero al final he hecho esto y funciona.


--- Código: Text ---Option Explicit Private crApp As New CRAXDRT.ApplicationPrivate crReport As New CRAXDRT.Report Private mflgContinuar As BooleanPrivate mstrParametro1 As DoublePrivate mlngParametro2 As Long Public Sub PasarParametros(sParam1 As Double)    mstrParametro1 = sParam1'    mlngParametro2 = lParam2End Sub Private Sub Form_Resize()    CRViewer.Top = 0    CRViewer.Left = 0    CRViewer.Height = ScaleHeight    CRViewer.Width = ScaleWidthEnd Sub Private Sub Form_Load()    Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions    Dim crParamDef As CRAXDRT.ParameterFieldDefinition     On Error GoTo ErrHandler     'Abrir el reporte    Screen.MousePointer = vbHourglass        mflgContinuar = True    Set crReport = crApp.OpenReport(App.Path & "\Informes\InformeFactura.rpt", 1)     ' Parametros del reporte    Set crParamDefs = crReport.ParameterFields     For Each crParamDef In crParamDefs        Select Case crParamDef.ParameterFieldName            Case "Numero"                crParamDef.AddCurrentValue (mstrParametro1)         '           Case "Parametro2" '               crParamDef.AddCurrentValue (mlngParametro2)                        End Select     Next     CRViewer.ReportSource = crReport    CRViewer.DisplayGroupTree = False    CRViewer.ViewReport    Screen.MousePointer = vbDefault     Set crParamDefs = Nothing    Set crParamDef = Nothing    Exit Sub ErrHandler:    If Err.Number = -2147206461 Then        MsgBox "El archivo de reporte no se encuentra, restáurelo de los discos de instalación", _            vbCritical + vbOKOnly    Else        MsgBox Err.Description, vbCritical + vbOKOnly    End If     mflgContinuar = False    Screen.MousePointer = vbDefault    End Sub 
De todas formas, gracias.

Saludos.

arturo.michaca:
o sea que tu misma te preguntaste, y te contestaste?  que mal plan.

fijate que apenas me ando actualizando asi que tengo el mismo problema, pero faltan algunas prtes del codigo, como los parametros, desde donde los configuras, o como los llamas?  bueno si me puedes ayudar, te lo agradecere.  bye.

Navegación

[0] Índice de Mensajes