From 3740d8c9191e43425d9b63a30f072b44d1194a5c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 22 Jul 2021 20:26:50 -0700
Subject: [PATCH] -- modulo liberado. usuario fromo, e119

---
 App_Code/ClsPaginas.vb | 25 +++++++++++++++++++++----
 1 file changed, 21 insertions(+), 4 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index b7c9bd027..63911c9ad 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1798,12 +1798,29 @@ Public Class ClsPaginas
             Application("GlobalDTContratosSecciones") = value
         End Set
     End Property
-    Property GlobalDTContratos() As DataTable
+    Property GlobalDTContratos(CveEmpresa As Integer, Optional CveContrato As Integer = -1, Optional CveSubProyecto As Integer = -1) As DataTable
         Get
-            GlobalDTContratos = DirectCast(Application("GlobalDTContratos"), DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTContratos-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Using ObjContratos As New ClsContratos
+                    If ObjContratos.GetContratos(-1, -1) Then Application(AppNombre) = ObjContratos.DtResultados Else Application(AppNombre) = Nothing
+                End Using
+            End If
+
+            Dim StrSQL As New StringBuilder
+            StrSQL.Append(" 1 = 1 ")
+            If CveContrato >= 0 Then StrSQL.AppendFormat(" AND CveContrato = {0} ", CveContrato)
+            If CveSubProyecto >= 0 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0} ", CveSubProyecto)
+
+            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows)
+            GlobalDTContratos = Dv.ToTable
+            Dv.Dispose()
+
         End Get
         Set(value As DataTable)
-            Application("GlobalDTContratos") = value
+            Dim AppNombre As String = String.Format("GlobalDTContratos-{0}", CveEmpresa)
+            Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTContratosTipos(CveEmpresa As Integer) As DataTable
@@ -5083,7 +5100,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Ventas/RepAuxiliarFacturas.aspx".ToUpper(), 567)
             PaginaDict.Add("/Ventas/CatAutorizacionLimites.aspx".ToUpper(), 781)
             PaginaDict.Add("/Ventas/RepComisionesServec.aspx".ToUpper(), 782)
-            PaginaDict.Add("/Ventas/RepComisionesServecDetalle.aspx".ToUpper(), 783)
+            PaginaDict.Add("/Ventas/RepComisionesServecDetalle.aspx".ToUpper(), 782)
 #End Region