diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 6458bcae7..9d09dedbe 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -684,16 +684,22 @@ Public Class ClsPaginas
     End Property
     Property GlobalDTNomSatRegimenContratacion() As DataTable
         Get
-            GlobalDTNomSatRegimenContratacion = DirectCast(Application("GlobalDTNomSatRegimenContratacion"), DataTable)
+            Dim AppNombre As String = "GlobalDTNomSatRegimenContratacion"
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjNom As New ClsNominas
+                If ObjNom.GetRegimenContratacion Then Application(AppNombre) = ObjNom.DtResultados
+                ObjNom.Dispose()
+            End If
+            GlobalDTNomSatRegimenContratacion = DirectCast(Application(AppNombre), DataTable)
         End Get
         Set(ByVal value As DataTable)
-            Application("GlobalDTNomSatRegimenContratacion") = value
+            Dim AppNombre As String = "GlobalDTNomSatRegimenContratacion"
+            Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTRegimenesFiscales(Optional TipoPersona As Integer = -1) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTRegimenesFiscales")
-            'sino existe, recarga los datos
+            Dim AppNombre As String = "GlobalDTRegimenesFiscales"
             If Application(AppNombre) Is Nothing Then
                 Dim ObjGral As New ClsSisEmpresas
                 If ObjGral.GetRegimenFiscal(-1) Then Application(AppNombre) = ObjGral.DtResultados
diff --git a/Global.asax b/Global.asax
index c391efa77..7e6a2e2a2 100644
--- a/Global.asax
+++ b/Global.asax
@@ -94,7 +94,7 @@
             If ObjNom.GetPeriodos(-1, -1, -1, -1, -1) Then Application("GlobalDTNominasPeriodos") = ObjNom.DtResultados Else Application("GlobalDTNominasPeriodos") = Nothing
             If ObjNom.GetBancos Then Application("GlobalDTNomSatBancos") = ObjNom.DtResultados Else Application("GlobalDTNomSatBancos") = Nothing
             If ObjNom.GetConceptos Then Application("GlobalDTNomSatConceptos") = ObjNom.DtResultados Else Application("GlobalDTNomSatConceptos") = Nothing
-            If ObjNom.GetRegimenContratacion Then Application("GlobalDTNomSatRegimenContratacion") = ObjNom.DtResultados Else Application("GlobalDTNomSatRegimenContratacion") = Nothing
+            'If ObjNom.GetRegimenContratacion Then Application("GlobalDTNomSatRegimenContratacion") = ObjNom.DtResultados Else Application("GlobalDTNomSatRegimenContratacion") = Nothing
             If ObjNom.GetRiesgoPuesto Then Application("GlobalDTNomSatRiesgoPuesto") = ObjNom.DtResultados Else Application("GlobalDTNomSatRiesgoPuesto") = Nothing
             If ObjNom.GetTipoIncapacidad Then Application("GlobalDTNomSatTipoIncapacidad") = ObjNom.DtResultados Else Application("GlobalDTNomSatTipoIncapacidad") = Nothing
         End Using