none
mandar llamar un reporte una vez seleccionando un dropdownlist RRS feed

  • Pregunta

  • Buenas tardes, alguien me puede ayudar?

    necesito mandar llamar un .rdl una vez haber seleccionado en "bimestre"

    anexo còdigo:

    Protected Sub Ddl_año_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Ddl_año.SelectedIndexChanged
            'Bimestre
            Ddl_bimestre.DataSource = oSar.cargabimrechsiri(Ddl_año.SelectedValue)
            Ddl_bimestre.DataTextField = "Bimestre"
            Ddl_bimestre.DataValueField = "Bimestre"
            Ddl_bimestre.DataBind()
            Ddl_bimestre.Items.Insert(0, "Seleccione Bimestre")
            'Fin
        End Sub
    
        'Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            If Not IsPostBack = True Then
                Ddl_año.DataSource = oSar.cargaañorechsiri()
                Ddl_año.DataTextField = "Anio"
                Ddl_año.DataValueField = "Anio"
                Ddl_año.DataBind()
                Ddl_año.Items.Insert(0, "Seleccione Año")
                '' '' ''rpte()
                '' '' ''Visualizador.Enabled = True
            End If
        End Sub
    
    
    ESTE ES EL REPORTE QUE QUIERO MANDAR LLAMAR CUANDO EL USUARIO HAYA SELECCIONADO EL "bimestre":
    
     Private Sub rpte()
            Page.Title = "Reportes de rechazos de SIRI"
            Try
                Visualizador.ProcessingMode = Microsoft.Reporting.WebForms.ProcessingMode.Remote
                Visualizador.ServerReport.ReportServerUrl = New Uri("http://pimav1/reportServer/")
                Visualizador.ServerReport.ReportPath = "/Oficina de pago federal/SIAP/Anexoa_error_siri_xbim"
                Visualizador.ServerReport.Refresh()
            Catch ex As Exception
            End Try
    
            'gil
            Dim params1(0), params2(0) As Microsoft.Reporting.WebForms.ReportParameter
            Dim p2, p3 As Microsoft.Reporting.WebForms.ReportParameter
            p2 = New Microsoft.Reporting.WebForms.ReportParameter("Año", Request.QueryString("Año"))
            p3 = New Microsoft.Reporting.WebForms.ReportParameter("bimestre", Request.QueryString("binestre"))
            params2(0) = p2
            params2(0) = p3
        End Sub
    GRACIAS POR SU AYUDA

    jueves, 16 de enero de 2014 21:21

Todas las respuestas

  • Buenas tardes, alguien me puede ayudar?
    necesito mandar llamar un .rdl una vez haber seleccionado en "bimestre"
    
    anexo còdigo:
    
    Protected Sub Ddl_año_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Ddl_año.SelectedIndexChanged
            'Bimestre
            Ddl_bimestre.DataSource = oSar.cargabimrechsiri(Ddl_año.SelectedValue)
            Ddl_bimestre.DataTextField = "Bimestre"
            Ddl_bimestre.DataValueField = "Bimestre"
            Ddl_bimestre.DataBind()
            Ddl_bimestre.Items.Insert(0, "Seleccione Bimestre")
            'Fin
        End Sub
    
        'Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            If Not IsPostBack = True Then
                Ddl_año.DataSource = oSar.cargaañorechsiri()
                Ddl_año.DataTextField = "Anio"
                Ddl_año.DataValueField = "Anio"
                Ddl_año.DataBind()
                Ddl_año.Items.Insert(0, "Seleccione Año")
                '' '' ''rpte()
                '' '' ''Visualizador.Enabled = True
            End If
        End Sub
    
    
    ESTE ES EL REPORTE QUE QUIERO MANDAR LLAMAR CUANDO EL USUARIO HAYA SELECCIONADO EL "bimestre":
    
     Private Sub rpte()
            Page.Title = "Reportes de rechazos de SIRI"
            Try
                Visualizador.ProcessingMode = Microsoft.Reporting.WebForms.ProcessingMode.Remote
                Visualizador.ServerReport.ReportServerUrl = New Uri("http://pimav1/reportServer/")
                Visualizador.ServerReport.ReportPath = "/Oficina de pago federal/SIAP/Anexoa_error_siri_xbim"
                Visualizador.ServerReport.Refresh()
            Catch ex As Exception
            End Try
    
            'gil
            Dim params1(0), params2(0) As Microsoft.Reporting.WebForms.ReportParameter
            Dim p2, p3 As Microsoft.Reporting.WebForms.ReportParameter
            p2 = New Microsoft.Reporting.WebForms.ReportParameter("Año", Request.QueryString("Año"))
            p3 = New Microsoft.Reporting.WebForms.ReportParameter("bimestre", Request.QueryString("binestre"))
    params2(0) = p2
            params2(0) = p3
        End Sub
    
    GRACIAS POR SU AYUDA
    

    jueves, 16 de enero de 2014 22:00