From e2635a1901f04105bbbc74a9e5e45e8277d04de0 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 3 Mar 2023 11:37:48 -0700
Subject: [PATCH] =?UTF-8?q?--ACTIVACI=C3=93N=20DE=20grupo=20proyecto/subpr?=
 =?UTF-8?q?oyecto?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/RepProductosServicios.aspx.vb | 52 +++++++++++++++-------------
 1 file changed, 27 insertions(+), 25 deletions(-)

diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index 6225d3e6e..ed6a05dc5 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -61,29 +61,31 @@ Partial Class Ventas_RepProductosServicios
 
 #Region "  CARGA DATOS INICIALES  "
 
-    Private Sub CargaGrupo()
-        DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
-        DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4"))
-        DdlGrupo.Items.Insert(2, New ListItem("Productos-Servicios", "5"))
-        DdlGrupo.Items.Insert(3, New ListItem("Año", "6"))
-        DdlGrupo.Items.Insert(4, New ListItem("Mes", "7"))
-        DdlGrupo.Items.Insert(5, New ListItem("Año/Mes", "8"))
-        DdlGrupo.Items.Insert(6, New ListItem("Fecha", "9"))
-        DdlGrupo.Items.Insert(7, New ListItem("Cliente", "10"))
-        DdlGrupo.Items.Insert(8, New ListItem("Vendedor", "12"))
-        DdlGrupo.Items.Insert(9, New ListItem("Usuario", "13"))
-        DdlGrupo.Items.Insert(10, New ListItem("Estatus Fact.", "14"))
-        DdlGrupo.Items.Insert(11, New ListItem("Año Ejec.", "15"))
-        DdlGrupo.Items.Insert(12, New ListItem("Mes Ejec.", "16"))
-        DdlGrupo.Items.Insert(13, New ListItem("Año/Mes Ejec.", "17"))
-        DdlGrupo.Items.Insert(14, New ListItem("Fecha Ejec.", "18"))
-        DdlGrupo.Items.Insert(15, New ListItem("Cliente - PS", "20"))
-        DdlGrupo.Items.Insert(16, New ListItem("Sucursal - PS", "21"))
-        DdlGrupo.Items.Insert(17, New ListItem("Familia - Marca - Tipo", "22"))
-        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"))
+    Private Sub CargaGrupo()
+        If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+        DdlGrupo.Items.Add(New ListItem(LblSubProyecto.Text, "2"))
+        DdlGrupo.Items.Add(New ListItem("Categoria", "3"))
+        DdlGrupo.Items.Add(New ListItem("Clasificación", "4"))
+        DdlGrupo.Items.Add(New ListItem("Productos-Servicios", "5"))
+        DdlGrupo.Items.Add(New ListItem("Año", "6"))
+        DdlGrupo.Items.Add(New ListItem("Mes", "7"))
+        DdlGrupo.Items.Add(New ListItem("Año/Mes", "8"))
+        DdlGrupo.Items.Add(New ListItem("Fecha", "9"))
+        DdlGrupo.Items.Add(New ListItem("Cliente", "10"))
+        DdlGrupo.Items.Add(New ListItem("Vendedor", "12"))
+        DdlGrupo.Items.Add(New ListItem("Usuario", "13"))
+        DdlGrupo.Items.Add(New ListItem("Estatus Fact.", "14"))
+        DdlGrupo.Items.Add(New ListItem("Año Ejec.", "15"))
+        DdlGrupo.Items.Add(New ListItem("Mes Ejec.", "16"))
+        DdlGrupo.Items.Add(New ListItem("Año/Mes Ejec.", "17"))
+        DdlGrupo.Items.Add(New ListItem("Fecha Ejec.", "18"))
+        DdlGrupo.Items.Add(New ListItem("Cliente - PS", "20"))
+        DdlGrupo.Items.Add(New ListItem("Sucursal - PS", "21"))
+        DdlGrupo.Items.Add(New ListItem("Familia - Marca - Tipo", "22"))
+        DdlGrupo.Items.Add(New ListItem("Tipo Cliente", "23"))
+        DdlGrupo.Items.Add(New ListItem("Marca", "24"))
+        DdlGrupo.Items.Add(New ListItem("Cliente Sucursal", "26"))
+        DdlGrupo.Items.Add(New ListItem("Giro", "27"))
 
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")
@@ -157,9 +159,9 @@ Partial Class Ventas_RepProductosServicios
         DdlClienteClasificacion.DataBind()
         DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        CargaGrupo()
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
-        CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
+        CargaGrupo()
 
         TipoCambio = 1
         TCEspecifico = 0