From 85a0218df2e8d1bc5ecdecaee200cef5fdbd69da Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 18 Jan 2021 17:37:14 -0700
Subject: [PATCH] Filtro de Vendedor/Cliente

---
 Ventas/RepVentaDetalle.aspx.vb |  3 ++-
 Ventas/RepVentas.aspx.vb       | 20 +++++++++++++++++++-
 2 files changed, 21 insertions(+), 2 deletions(-)

diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 324054b77..8f5e3b4e2 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -374,7 +374,8 @@ Partial Class RepVentaDetalle
 
         'Vendedor
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
-        DdlVendedor.DataBind()
+        DdlVendedor.DataBind()
+        DdlVendedor.Items.Insert(0, New ListItem("Sin Vendedor", "-2"))
 
         'CargaUsuarios
         DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 2365c576f..3826e9a93 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -137,7 +137,8 @@ Partial Class Ventas_RepVentas
         DdlGrupo.Items.Insert(11, New ListItem("Mes Ejec.", "12"))
         DdlGrupo.Items.Insert(12, New ListItem("Año/Mes Ejec.", "13"))
         DdlGrupo.Items.Insert(13, New ListItem("Fecha Ejec.", "14"))
-        DdlGrupo.Items.Insert(13, New ListItem("Tipo Cliente", "20"))
+        DdlGrupo.Items.Insert(13, New ListItem("Tipo Cliente", "20"))
+        DdlGrupo.Items.Insert(13, New ListItem("Vendedor/Cliente", "21"))
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("3")
     End Sub
@@ -395,6 +396,7 @@ Partial Class Ventas_RepVentas
                 e.Row.Cells(2).BackColor = Drawing.Color.Transparent
                 e.Row.Cells(6).BackColor = Drawing.Color.Transparent
             End If
+
             If e.Row.DBCampo("GPO") = "Total Dólares" Then
                 e.Row.CssClass = "Totales"
             End If
@@ -492,6 +494,22 @@ Partial Class Ventas_RepVentas
                 e.Row.Attributes.Add("style", "background:#CCCCCC !important")
             End If
 
+
+            If DdlGrupo.SelectedValue.ToEntero = 21 Then
+                If e.Row.DBCampo("GPO").Contains("Total") Then
+                    e.Row.CssClass = "Totales"
+                    e.Row.Cells(2).BackColor = Drawing.Color.Transparent
+                    e.Row.Cells(6).BackColor = Drawing.Color.Transparent
+                Else
+                    If e.Row.DBCampo("CveCliente") = "" Then
+                        e.Row.CssClass = "SubTotales"
+                        e.Row.Cells(2).BackColor = Drawing.Color.Transparent
+                        e.Row.Cells(6).BackColor = Drawing.Color.Transparent
+                    End If
+                End If
+
+
+            End If
         End If
     End Sub
 #End Region