From cd43daddec1c9a7981136e61aef290b568ffefef Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 3 Jul 2023 07:31:24 -0700
Subject: [PATCH] =?UTF-8?q?--=20se=20quitaron=20modulos=20de=20gr=C3=A1fic?=
 =?UTF-8?q?a=20gantt,=20unificaci=C3=B3n=20de=20promoci=C3=B3n=20globaldtu?=
 =?UTF-8?q?sos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsPaginas.vb | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index dbe3a8552..7ee59cc49 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4101,7 +4101,7 @@ Public Class ClsPaginas
             HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTAcumGarantiasMesesTipoUso(CveEmpresa As Integer, CveMarca As Integer) As DataTable
+    Property GlobalDTAcumGarantiasMesesTipoUso(CveEmpresa As Integer, CveMarca As Integer, CveTipoUso As Integer, Mes As Integer) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTAcumGarantiasMesesTipoUso-{CveEmpresa}"
             If Application(AppNombre) Is Nothing Then
@@ -4112,6 +4112,9 @@ Public Class ClsPaginas
             If CveMarca <> -1 Then
                 Dim Str As StringBuilder = New StringBuilder()
                 If CveMarca <> -1 Then Str.AppendFormat("CveMarca = {0}", CveMarca)
+                If CveTipoUso <> -1 Then Str.AppendFormat("CveTipoUso = {0}", CveTipoUso)
+                If Mes <> -1 Then Str.AppendFormat("Mes = {0}", CveTipoUso)
+
                 Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
                 GlobalDTAcumGarantiasMesesTipoUso = Dv.ToTable
                 Dv.Dispose()
@@ -8127,6 +8130,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/CargaCuentas.aspx".ToUpper(), -1)
             PaginaDict.Add("/OI/Tareas.aspx".ToUpper(), -1)
             PaginaDict.Add("/OI/RepProyectos.aspx".ToUpper(), 907)
+            'PaginaDict.Add("/OI/GraficaGantt.aspx".ToUpper(), 371)
             PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), 907)
             PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), 910)
             PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), 910)
@@ -9179,9 +9183,9 @@ Public Class ClsPaginas
             PaginaDict.Add("/Ventas/RepProductosServicios.aspx".ToUpper(), 352)
             PaginaDict.Add("/Ventas/RepProductosServiciosDetalle.aspx".ToUpper(), 352)
             PaginaDict.Add("/Ventas/RepPS.aspx".ToUpper(), 701)
-            PaginaDict.Add("/Ventas/RepABT.aspx".ToUpper(), 353)
+            'PaginaDict.Add("/Ventas/RepABT.aspx".ToUpper(), 353)
             PaginaDict.Add("/Ventas/CatPromociones.aspx".ToUpper(), 123)
-            PaginaDict.Add("/Ventas/Promociones.aspx".ToUpper(), 124)
+            PaginaDict.Add("/Ventas/Promociones.aspx".ToUpper(), 123)
             PaginaDict.Add("/Ventas/CatFamiliaSubFamilia.aspx".ToUpper(), 372)
             PaginaDict.Add("/Ventas/RepComisiones.aspx".ToUpper(), 382)
             PaginaDict.Add("/Ventas/RepComisionesDetalle.aspx".ToUpper(), 382)