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)