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.
