diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 38ccbc84f..d82bbdd16 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1758,12 +1758,12 @@ Public Class ClsPaginas
     End Property
     Property GlobalDTContratosTipos(CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTContratosTipos-{0}", CveEmpresa)
+            Dim AppNombre As String = "GlobalDTContratosTipos"
 
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjContratos As New ClsContratos
-                If ObjContratos.GetContratosTipos(CveEmpresa) Then Application(AppNombre) = ObjContratos.DtResultados
+                If ObjContratos.GetContratosTipos(-1) Then Application(AppNombre) = ObjContratos.DtResultados
                 ObjContratos.Dispose()
             End If
 
@@ -1771,7 +1771,7 @@ Public Class ClsPaginas
 
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTContratosTipos-{0}", CveEmpresa)
+            Dim AppNombre As String = "GlobalDTContratosTipos"
             Application(AppNombre) = value
         End Set
     End Property