• Jueves 19 de Mayo de 2022, 11:49

Autor Tema:  Problema con CR 8.5 y Visual Basic 6  (Leído 1834 veces)

marco.quiroga

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Problema con CR 8.5 y Visual Basic 6
« en: Domingo 10 de Octubre de 2010, 09:18 »
0
Buen día a todos.
Tengo una aplicación hecha en Visual Basic 6, la cual solicita un rango de claves de productos (producto inicial/producto final). Para esto ya cree el reporte en CR 8.5, en donde le programé la petición de ambos parámetros (arriba citados). El reporte por sí sólo funciona a la perfección. El problema se presenta cuando corro la app VB6, en donde capturo ambas claves, pero en el momento en que hago la instancia del reporte para ser mostrado en el CRViewer SE ME VUELVE A SOLICITAR LOS DOS PARÁMETROS, los cuales previamente había ingresado.
Ya busqué en muchos foros y no he encontrado aún la solución a esta situación.
El código es el siguiente:

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 & "rptProductos.rpt", 1)

' Parametros del reporte
Set crParamDefs = crReport.ParameterFields
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "p1"
crParamDef.AddCurrentValue (mstrParametro1)
Case "p2"
crParamDef.AddCurrentValue (mlngParametro2)
End Select
Next

crReport.Database.Tables(1).SetLogOnInfo "DESKTOP", "capacitacion", "sa", "admin"
crReport.DiscardSavedData

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 "El archivo de reporte no se encuentra, restáurelo de los discos de instalación", vbCritical + vbOKOnly
Else
MsgBox Err.Description, vbCritical + vbOKOnly
End If
mflgContinuar = False
Screen.MousePointer = vbDefault
End Sub

Desde ya muchas gracias por su ayuda.