-- modulo liberado.

usuario fromo, e119

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