Buenos dias amigo del foros.
tengo un proyecto hecho en visual studio 2005, mi problema es cuando diseño reportes incrustados en crystal report que ejecuta procedimientos almacenados cuando lo enlazo con el crystalreportviewer y lo ejecuto paso los parametros pero cuando lo ejecuto me vuelve a pedir los valores de los parametros del procedimiento almacenado.
ahi adjunto codigo fuente.
Dim parametro As New ParameterDiscreteValue
Dim numero As New ParameterDiscreteValue
Dim tipo As New ParameterDiscreteValue
Dim placasolicitante As New ParameterDiscreteValue
Dim placa As New ParameterDiscreteValue
Dim codigoestado As New ParameterDiscreteValue
parametro.Value = "A"
numero.Value = txtnumero.Text
tipo.Value = txttipo.Text
placasolicitante.Value = txtcodigosolicitante.Text
placa.Value = txtplaca.Text
codigoestado.Value = 1
Dim prmlista As New ParameterFields
Dim prm As ParameterField
Dim prm1 As ParameterField
Dim prm2 As ParameterField
Dim prm3 As ParameterField
Dim prm4 As ParameterField
Dim prm5 As ParameterField
prm = New ParameterField
prm.ParameterFieldName = "@parametro"
prm.CurrentValues.Add(parametro)
prmlista.Add(prm)
prm1 = New ParameterField
prm1.ParameterFieldName = "@numero"
prm1.CurrentValues.Add(numero)
prmlista.Add(prm1)
prm2 = New ParameterField
prm2.ParameterFieldName = "@tipo"
prm2.CurrentValues.Add(tipo)
prmlista.Add(prm2)
prm3 = New ParameterField
prm3.ParameterFieldName = "@idplacasolicitante"
prm3.CurrentValues.Add(placasolicitante)
prmlista.Add(prm3)
prm4 = New ParameterField
prm4.ParameterFieldName = "@placa"
prm4.CurrentValues.Add(placa)
prmlista.Add(prm4)
prm5 = New ParameterField
prm5.ParameterFieldName = "@codigoestado"
prm5.CurrentValues.Add(codigoestado)
prmlista.Add(prm5)
Select Case txttipo.Text
Case "R"
If nombredominio = "intranet" Then
CrystalReportViewer2.Enabled = False
CrystalReportViewer2.Visible = False
CrystalReportViewer1.Dock = DockStyle.Fill
CrystalReportViewer1.DisplayGroupTree = False
CrystalReportViewer1.ShowGroupTreeButton = False
CrystalReportViewer1.ParameterFieldInfo = prmlista
CrystalReportViewer1.RefreshReport()
End If
If nombredominio = "agrodoral.com" Then
CrystalReportViewer2.Enabled = False
CrystalReportViewer2.Visible = False
CrystalReportViewer1.Dock = DockStyle.Fill
CrystalReportViewer1.DisplayGroupTree = False
CrystalReportViewer1.ShowGroupTreeButton = False
CrystalReportViewer1.ParameterFieldInfo = prmlista
CrystalReportViewer1.RefreshReport()
End If
Case "E"
If nombredominio = "intranet" Then
CrystalReportViewer1.Enabled = False
CrystalReportViewer1.Visible = False
CrystalReportViewer2.Dock = DockStyle.Fill
CrystalReportViewer2.DisplayGroupTree = False
CrystalReportViewer2.ShowGroupTreeButton = False
CrystalReportViewer2.ParameterFieldInfo = prmlista
CrystalReportViewer2.RefreshReport()
End If
If nombredominio = "agrodoral.com" Then
CrystalReportViewer1.Enabled = False
CrystalReportViewer1.Visible = False
CrystalReportViewer2.Dock = DockStyle.Fill
CrystalReportViewer2.DisplayGroupTree = False
CrystalReportViewer2.ShowGroupTreeButton = False
CrystalReportViewer2.ParameterFieldInfo = prmlista
CrystalReportViewer2.RefreshReport()
End If
End Select
y mi otro problema como enlazo el crystalreportviewer con un servidor remoto ya que localmente si puedo si alguien me puede pasar el codigo.
Att.
Ing. Jusein Quevedo Cabrera
Agrodoral S.A.
[email protected]
