Autor Tema: Crystal Reports 8 y 9 en vb6  (Leído 2158 veces)

0 Usuarios y 2 Visitantes están viendo este tema.

potus

  • Bit
  • Mensajes: 1
  • Reputación: +0/-0
    • Ver Perfil
Crystal Reports 8 y 9 en vb6
« en: Diciembre 03, 2015, 11:13:44 am »
Hola amigos del foro; ;D

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