1
Visual Basic 6 / Crystal Reports 8 y 9 en vb6
« en: Diciembre 03, 2015, 11:13:44 am »
Hola amigos del foro; 
Les comento que poseo todo un desarrollo hecho en vb6 que trabaja con Crystal 8 pero este es muy limitado y quiseramos poner al menos la versión 9 del Crystal.
Al abrir con Crystal 9 un archivo .rpt (hecho con Crystal 8) me obliga a sobreescribir el archivo al momento de guardarlo. Y ya mi código vb no puede ejecutar el reporte, directamente al reporte no lo abre.
Mi pregunta es ¿Son compatibles?, ¿Tengo que cambiar el código?
Saludos.
Codigo Actual que trabaja con Crystal 8

Les comento que poseo todo un desarrollo hecho en vb6 que trabaja con Crystal 8 pero este es muy limitado y quiseramos poner al menos la versión 9 del Crystal.
Al abrir con Crystal 9 un archivo .rpt (hecho con Crystal 8) me obliga a sobreescribir el archivo al momento de guardarlo. Y ya mi código vb no puede ejecutar el reporte, directamente al reporte no lo abre.
Mi pregunta es ¿Son compatibles?, ¿Tengo que cambiar el código?

Saludos.
Codigo Actual que trabaja con Crystal 8
Código: [Seleccionar]
Private Sub btnImprimirDetalle_Click()
Dim objAdo As New DbaFxADO28_dll.DbaFxADO28
Dim intIdSessionCPR As Integer
On Error GoTo ErrorHandler
With CRPListados
.Reset
intIdSessionCPR = .LogOnServer("p2ssql.dll", objAdo.ShowServidorSQL, objAdo.ShowNombreDatabase, objAdo.ShowUsuarioSQL, objAdo.ShowPasswordUserSQL)
.ReportFileName = App.Path & "\rptRelFlowArticuloProcesoDetalle.rpt"
.WindowTitle = "Pedidos de venta por fecha"
.ParameterFields(0) = "@Articulo;" & gArticulo.lngCodigo & ";true"
.ParameterFields(1) = "@Proceso;" & gArticulo.strProceso & ";true"
.ParameterFields(2) = "@Flow;" & Me.cmbVersionFlow & ";true"
.WindowTop = 50
.WindowLeft = (Screen.Width / 1024)
.WindowWidth = (Screen.Width / 14) - 120
.WindowHeight = (Screen.Height / 17)
.Destination = 0
.WindowShowPrintSetupBtn = True
.WindowShowSearchBtn = True
.PrintReport
End With
Exit Sub
ErrorHandler:
MsgBox "Error al imprimir el flow. " & vbCrLf & "Error nro: " & Err.Number & " - Detalle: " & Err.Description & "", vbExclamation, "Error en datos"
End Sub