Autor Tema: Error 20525, No Se Puede Cargar El Informe (Leído 5921 veces)

Shiquilla · « **en:** Sábado 3 de Julio de 2004, 11:43 »

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 = &#34;DSN=SQL SERVER&#34;
    Me.CR.ReportFileName = App.Path & &#34;&#092;Informes&#092;InformeFactura.rpt&#34;
    Me.CR.ReportTitle = &#34;Facturas BIYONA S.A.&#34;
    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.Application
Private crReport As New CRAXDRT.Report
 
Private mflgContinuar As Boolean
Private mstrParametro1 As Double
Private mlngParametro2 As Long
 
Public Sub PasarParametros(sParam1 As Double)
    mstrParametro1 = sParam1
'    mlngParametro2 = lParam2
End Sub
 
Private Sub Form_Resize()
    CRViewer.Top = 0
    CRViewer.Left = 0
    CRViewer.Height = ScaleHeight
    CRViewer.Width = ScaleWidth
End 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 & &#34;&#092;Informes&#092;InformeFactura.rpt&#34;, 1)
 
    ' Parametros del reporte
    Set crParamDefs = crReport.ParameterFields
 
    For Each crParamDef In crParamDefs
        Select Case crParamDef.ParameterFieldName
            Case &#34;Numero&#34;
                crParamDef.AddCurrentValue (mstrParametro1)
        
 '           Case &#34;Parametro2&#34;
 '               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 &#34;El archivo de reporte no se encuentra, restáurelo de los discos de instalación&#34;, _
            vbCritical + vbOKOnly
    Else
        MsgBox Err.Description, vbCritical + vbOKOnly
    End If
 
    mflgContinuar = False
    Screen.MousePointer = vbDefault
    
End Sub
 

De todas formas, gracias.

Saludos.

arturo.michaca · « **Respuesta #2 en:** Sábado 2 de Mayo de 2009, 08:31 »

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.

SoloCodigo

Autor Tema: Error 20525, No Se Puede Cargar El Informe (Leído 5921 veces)

Shiquilla

Error 20525, No Se Puede Cargar El Informe

Shiquilla

Re: Error 20525, No Se Puede Cargar El Informe

arturo.michaca

Re: Error 20525, No Se Puede Cargar El Informe