From 85d204a05e9721d15866c11e642832094fa912a3 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 21 Oct 2022 18:42:49 -0700
Subject: [PATCH] Agrupador de giro de clientes en reportes

---
 Ventas/RepProductosServicios.aspx.vb        | 1 +
 Ventas/RepProductosServiciosDetalle.aspx.vb | 3 ++-
 Ventas/RepVentaDetalle.aspx.vb              | 5 +++--
 Ventas/RepVentas.aspx.vb                    | 3 ++-
 4 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index de016ffb0..8197382c5 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -99,6 +99,7 @@ Partial Class Ventas_RepProductosServicios
         DdlGrupo.Items.Insert(18, New ListItem("Tipo Cliente", "23"))
         DdlGrupo.Items.Insert(18, New ListItem("Marca", "24"))
         DdlGrupo.Items.Insert(18, New ListItem("Cliente Sucursal", "26"))
+        DdlGrupo.Items.Insert(18, New ListItem("Giro", "27"))
 
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")
diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb
index ac8f1f55b..9d810b992 100644
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -263,6 +263,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
         DdlClienteClasificacion.DataSource = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
         DdlClienteClasificacion.DataBind()
         DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlClienteClasificacion.Items.Insert(0, New ListItem("Sin Giro", "-2"))
 
         If UsuarioActual.CveEmpresa.Contiene(141) Then
             DivDdlTipo.Visible = True
@@ -363,7 +364,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
         TipoDocto = If(Request("TipoDocto") IsNot Nothing AndAlso Request("TipoDocto").ToString() <> "-1", Request("TipoDocto").ToString(), "-1").ToString
         TipoCambio = If(Request("TipoCambio") IsNot Nothing AndAlso Request("TipoCambio").ToEntero() <> -1, Request("TipoCambio").ToEntero(), 1).ToEntero
         TCEspecifico = If(Request("TCEspecifico") IsNot Nothing AndAlso Request("TCEspecifico").ToDouble() <> 0, Request("TCEspecifico").ToDouble(), 0).ToString.ToDouble
-        CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing AndAlso Request("CveClienteClasificacion").ToEntero() > 0, Request("CveClienteClasificacion").ToEntero(), -1).ToString
+        CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing, Request("CveClienteClasificacion").ToEntero(), -1).ToString
         CveProveedorCompra = If(Request("CveProveedorCompra") IsNot Nothing AndAlso Request("CveProveedorCompra").ToEntero() > 0, Request("CveProveedorCompra").ToEntero(), -1).ToString.ToEntero
         CveMarca = If(Request("CveMarca") IsNot Nothing AndAlso Request("CveMarca").ToEntero() > 0, Request("CveMarca").ToEntero(), -1).ToString.ToEntero
         CveClasificacionDetalle = If(Request("CveClasificacionDetalle") IsNot Nothing AndAlso Request("CveClasificacionDetalle").ToEntero() > 0, Request("CveClasificacionDetalle").ToEntero(), -1).ToString.ToEntero
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index c811cee1b..c174ff737 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -140,7 +140,7 @@ Partial Class RepVentaDetalle
         'Dim CveSubProyecto As Integer
         Grupo = If(Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0, Request("GPO").ToEntero(), -1).ToString
         CveCliente = If(Request("CveCliente") IsNot Nothing AndAlso Request("CveCliente").ToEntero() > 0, Request("CveCliente").ToEntero(), -1).ToString
-        CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing AndAlso Request("CveClienteClasificacion").ToEntero() > 0, Request("CveClienteClasificacion").ToEntero(), -1).ToString
+        CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing, Request("CveClienteClasificacion").ToEntero(), -1).ToString
         CveSucursal = If(Request("CveSucursal") IsNot Nothing AndAlso Request("CveSucursal").ToEntero() > 0, Request("CveSucursal").ToEntero(), -1).ToString
         CveSubProyectoEjecucion = If(Request("CveSubProyectoEjecucion") IsNot Nothing AndAlso Request("CveSubProyectoEjecucion").ToEntero() > 0, Request("CveSubProyectoEjecucion").ToEntero(), -1).ToString
 
@@ -406,7 +406,8 @@ Partial Class RepVentaDetalle
         'Carga Clasificacion Cliente
         DdlClienteClasificacion.DataSource = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
         DdlClienteClasificacion.DataBind()
-        DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlClienteClasificacion.Items.Insert(0, New ListItem("Sin Giro", "-2"))
 
 
         DdlTipoRelacion.DataSource = GlobalDTVtaTiposRelacion
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 9c12ca6f6..0da4229ba 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -156,7 +156,8 @@ Partial Class Ventas_RepVentas
         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("Vendedor/Cliente", "21"))
+        DdlGrupo.Items.Insert(13, New ListItem("Vendedor/Cliente", "21"))
+        DdlGrupo.Items.Insert(13, New ListItem("Giro", "22"))
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("3")
     End Sub