none
Reportviewer RRS feed

  • Pregunta

  • Hola tengo un pequeño problema ojala me puedan ayudar:

    este es mi procedimiento almacenado :

    CREATE PROCEDURE VENTAS_X_PERIODO_IMPRIMIR
     as
     select E.IdEmpresa,E.Nombre_E,V.Periodo,V.Fecha_Venta,V.Tip_Documento,V.Num_Documento,MAX(C.Nombre) as Nombre, MAX(C.DNI_RUC)as DNI_RUC,SUM(DV.Neto)AS Neto,SUM(DV.N_Credito)as N_Credito, SUM(DV.IGV)as IGV, SUM(DV.Total)as Total,MAX(DV.Tipo_Cambio)as Tipo_Cambio,SUM(DV.Dolares)as Dolares
     
      from  dbo.DETALLE_VENTA DV join
            dbo.VPRODUCTO P on DV.IdProducto=P.IdProducto join
            dbo.VENTA V on DV.IdVenta=V.IdVenta join
            dbo.VCLIENTE C on V.IdCliente=C.IdCliente JOIN
            dbo.EMPRESA E ON V.IdEmpresa = E.IdEmpresa  
            
            
     Group By V.Num_Documento,V.Periodo,V.Fecha_Venta,V.Tip_Documento,E.IdEmpresa,E.Nombre_E
     order by V.Num_Documento desc

    E CREADO UN INFORME :

    Y UN REPORTVIEWER :

    E CREADO PARAMETROS :

    Private Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click
            Dim DT1 As String
            DT1 = cboPeriodo.Text
            Dim p As New ReportParameter("Periodo", DT1)
            ReportViewer1.LocalReport.SetParameters(p)
            Me.VENTAS_X_PERIODO_IMPRIMIRTableAdapter.Fill(Me.SysVenCom17DataSet1.VENTAS_X_PERIODO_IMPRIMIR)
            Me.ReportViewer1.RefreshReport()
    
    
            Dim DT2 As String
            DT2 = cboEmpresa.Text
            Dim p As New ReportParameter("Nombre_E", DT2)
            ReportViewer1.LocalReport.SetParameters(p)
            Me.VENTAS_X_PERIODO_IMPRIMIRTableAdapter.Fill(Me.SysVenCom17DataSet1.VENTAS_X_PERIODO_IMPRIMIR)
            Me.ReportViewer1.RefreshReport()
    
        End Sub

    Y ME MANDA ERROR CUANDO SELECCIONO CON LOS COMBOBOX .. NO SE QUE ESTOY HACIENDO MAL OJALA ME PUEDAN AYUDAR

    SALUDOS..

    miércoles, 22 de febrero de 2017 20:47