Visual Basic - Abrir Crystal 11 con VB6

Life is soft - evento anual de software empresarial
   
Vista:

Abrir Crystal 11 con VB6

Publicado por Carlos Difilippo (5 intervenciones) el 08/07/2013 13:56:37
Hola a todos...

Actualmente creamos Reportes con Crystal Reports 7 y los abrimos desde vb6

de la siguiente manera

1
2
3
4
5
6
7
8
9
10
crtReport.ReportFileName = DirReportes & txtReporte & ".rpt"
    crtReport.WindowTitle = txtReporte
    crtReport.Destination = crptToWindow
    crtReport.PrintFileType = crptCrystal
    crtReport.PrinterCopies = 1
    crtReport.PrinterCollation = crptUncollated
    crtReport.SetTablePrivateData 0, 3, rsResultado
    crtReport.WindowState = crptMaximized
 
    crtReport.Action = 1



Esto con Crystal Reports 11 no funciona...

alguien sabe como hacerlo?

Gracias

** Los reportes tienen un archivo asociado (ttx) para el origen de datos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Abrir Crystal 11 con VB6

Publicado por pedro Luis (57 intervenciones) el 09/07/2013 14:54:50
En el 11 no se pero en el 9 que igual se parecen es mas omenos asi

Dim Listado1 As New lAdjConIva
Dim Propiedad1 As CRAXDRT.ConnectionProperty
Dim Tablas1 As CRAXDRT.DatabaseTable
Set Tablas1 = Listado1.Database.Tables(1)
Set Propiedad1 = Tablas1.ConnectionProperties("Database Name")
Propiedad1.Value = Camino + "\Datos\" + Base
Set Propiedad1 = Tablas1.ConnectionProperties("Database Password")
Listado1.RecordSelectionFormula = Condiciones
If Fecha(1) <> "" Then Listado1.FormulaFields.Item(2).Text = "'" & Format(Fecha(1), "d-mmm-yyyy") & "'" Else Listado1.FormulaFields.Item(2).Text = ""
If Fecha(2) <> "" Then Listado1.FormulaFields.Item(3).Text = "'" & Format(Fecha(2), "d-mmm-yyyy") & "'" Else Listado1.FormulaFields.Item(3).Text = ""
If Combo(1) <> "" Then
Listado1.FormulaFields.Item(4).Text = "'" & Combo(1) & "'"
Else
Listado1.FormulaFields.Item(4).Text = "'Todas'"
End If
If Combo(2) <> "" Then
Listado1.FormulaFields.Item(6).Text = "'" & Combo(2) & "'"
Else
Listado1.FormulaFields.Item(6).Text = "'Todos'"
End If
If Combo(3) <> "" Then
Listado1.FormulaFields.Item(5).Text = "'" & Combo(3) & "'"
Else
Listado1.FormulaFields.Item(5).Text = "'Todos'"
End If
If Combo(4) <> "" Then
Listado1.FormulaFields.Item(7).Text = "'" & Combo(4) & "'"
Else
Listado1.FormulaFields.Item(7).Text = "'Todos'"
End If
Listar.VerListado.ReportSource = Listado1
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar