reporte metas por vendedor

Ventas/MetasVendedores.aspx.vb

@@ -4,14 +4,26 @@ Imports Microsoft.Reporting.WebForms
 
 Partial Class MetasVendedores
     Inherits ClsPaginas
+    Private Property DtDatos As DataTable
+        Get
+            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
 
+        Set(ByVal value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaDatosModal()
             CargaDatosFiltros()
+            CargarDatosReporte()
         End If
     End Sub
     Private Sub CargaDatosFiltros()
+        Dim dNow As Date = Now
+        TxtFechaMes.Text = dNow.ToString("dd/MM/yyyy")
+
         DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
         DdlSubProyectoFiltro.DataBind()
         DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -55,6 +67,17 @@ Partial Class MetasVendedores
         DdlMarcas.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
+    Private Sub CargarDatosReporte()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
+                                           DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
+                                           DdlSubProyectoFiltro.SelectedValue.ToEntero) Then
+            GV.DataSource = ObjVentas.DtResultados
+            DtDatos = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GV.DataBind()
+    End Sub
     Private Sub ResetDatosSeleccionadosModal()
         DdlVendedores.SelectedValue = "-1"
         TxtFechaI.Text = ""
@@ -83,4 +106,42 @@ Partial Class MetasVendedores
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
         ResetDatosSeleccionadosModal()
     End Sub
+
+    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
+        CargarDatosReporte()
+        UPDatos.Update()
+    End Sub
+
+    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Select Case e.Row.DataKey("Etiqueta")
+                Case "Categoria"
+                    e.Row.CssClass = "Totales"
+                Case "Clasificacion"
+                    e.Row.CssClass = "SubTotales2"
+                Case "Clasificacion2"
+                    e.Row.CssClass = "SubTotales"
+                Case "Marca"
+            End Select
+        End If
+    End Sub
+
+    Protected Sub LnkPDF_RowDataBound(sender As Object, e As EventArgs) Handles LnkPDF.Click
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("pImg", logouri))
+        Else
+            params.Add(New ReportParameter("pImg", ""))
+        End If
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+        params.Add(New ReportParameter("FechaImpresion", Today))
+        params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
+        params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))
+
+        ImprimirPDF("Empresas/Grales/Formatos/MetasVendedores.rdlc", DtDatos, params, "Rep. Metas por vendedores", "PDF", RDSName:="DataSet1")
+    End Sub
 End Class