Error de Crystal Reports

Hola, ¿puedes por favor ayudarme? Tengo una aplicación en un servidor y allí funcionan perfecto los reportes, pero cuando el usuario desde una terminal trata de generar el mismo reporte, sale "Error, ¿Directorio Inválido" puedes orientarme como puedo solucionarlo? Muchas Gracias
1

1 respuesta

Respuesta
1
¿En qué ruta esta buscando los reportes tu usuario?
Hola David, Gracias por Contestar:
En el servidor, esta una carpeta con el aplicativo así:
\\servidor\d$\Aplicacion\Reportes
Y en los equipos de los usuarios, se crea una unidad de red a la carpeta del servidor y se crea el ODBC.
Este es el código que llama el reporte:
Dim frmRep As New frmReportesConvenios
frmRep.Reporte = "\Reportes\ReporteContratos.rpt"
frmRep.Show vbModal
Set frmRep = Nothing
y la funcion es:
Private Sub Form_Load()
Dim ElReport As CRAXDRT.Report
Dim ElSubReport As CRAXDRT.Report
Dim Recset As ADODB.Recordset
Dim CrApp As New CRAXDRT.Application
Dim Conn As New ADODB.Connection
'Conn.ConnectionString = "DSN=ODBCSQL"
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition
On Error GoTo ErrHandler
Screen.MousePointer = vbHourglass
mflgContinuar = True
Reporte = App.Path & Reporte
MsgBox "Directorio: " & Reporte
Set crReport = CrApp.OpenReport(Reporte, 1)
Set crParamDefs = crReport.ParameterFields
For Each crParamDef In crParamDefs
' Select Case crParamDef.ParameterFieldName
' Case "Parametro1"
crParamDef.AddCurrentValue CInt(mstrParametro1)
'crParamDef.AddCurrentValue CInt(mstrParametro1)
' Case "Parametro2"
' crParamDef.AddCurrentValue (mlngParametro2)
'End Select
Next
CRViewer1.ReportSource = crReport
CRViewer1.DisplayGroupTree = False
CRViewer1.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", vbCritical, vbOKOnly
Else
MsgBox Err.Description, vbCritical + vbOKOnly
End If
mflgContinuar = False
Screen.MousePointer = vbDefault
End Sub
Si no le hago al usuario final el setup del aplicativo, sino le creo un acceso directo al .exe de la aplicación en el servidor, ¿si funciona imprimir... que puede ser?
En las siguientes líneas que valores son los que muestra:
Reporte = App.Path & Reporte
MsgBox "Directorio: " & Reporte
Porque se me hace que te falta una "\" después del app. Path

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas