Filtro de Vendedor/Cliente

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)

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