diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index ceeb01198..88f01e6ec 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -113,11 +113,11 @@ Partial Class Sistemas_CatSesiones
 
     Private Sub CargaContratos()
         Dim ObjContratos As New ClsContratos
-        If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
-        If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
-        'If ObjContratos.GetContratosTipos() Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
+        If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
+        ' If ObjContratos.GetContratosTipos(UsuarioActual.CveEmpresa) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
         ObjContratos.Dispose()
-
+        GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Nothing
     End Sub
     Private Sub CargaTiposRelacion()
         Dim ObjVentas As New ClsVentas