mmendoza_001
20 de Agosto del 2005

Tengo mi codigo tal como sigue:

Dim New_Form As New frmRepMain
Dim crpParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crpParamDef As CRAXDRT.ParameterFieldDefinition
Set CrxReport = CrxApplication.OpenReport("Kardex.rpt", 1)
CrxReport.Database.Tables.Item(1).SetLogOnInfo Trim$(sNombreDSN), sNombreBaseDeDatos, Trim$(sNombreDeUsuario), Trim$(sPasswordDeUSuario)
CrxReport.EnableParameterPrompting = False
Set crpParamDefs = CrxReport.ParameterFields
For Each crpParamDef In crpParamDefs
With crpParamDef
Select Case UCase(.ParameterFieldName)
Case "@DTFECHAINI"
.SetCurrentValue dtefecha01
Case "@DTFECHAFIN"
.SetCurrentValue dtefecha02
Case "@STRIDVENDEDOR"
.SetCurrentValue strIdvende
Case "@INTIDINVENTARIO"
.SetCurrentValue intInventa
End Select
End With
Next
New_Form.Show 1

Con este codigo la ventana de parametros no me muestra pero los resultados es en blanco, como si no hubiera pasado ningun parametro.

Al quitar la linea de:
CrxReport.EnableParameterPrompting = False

Me muestra la ventana de parametros y luego de presionar ok. me muestra los resultados deseados.

Agradere sus ayuda.

Atte.
Marco Mendoza