diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index 1ec1f9d38..ac31e4b1a 100644
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -184,20 +184,20 @@ Partial Class LogIn
         Return URLParametros
     End Function
 
-    Property GlobalDTUsuarios(Optional CveUsuario As Integer = -1, Optional CveEmpresa As Integer = -1) As Data.DataTable
-        Get
-            If CveUsuario <> -1 Then
-                Dim Dv As New Data.DataView(DirectCast(Application("GlobalDTUsuarios"), Data.DataTable), "CveUsuario =" & CveUsuario, "", Data.DataViewRowState.CurrentRows)
-                GlobalDTUsuarios = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTUsuarios = DirectCast(Application("GlobalDTUsuarios"), Data.DataTable)
-            End If
-        End Get
-        Set(value As Data.DataTable)
-            Application("GlobalDTUsuarios") = value
-        End Set
-    End Property
+    'Property GlobalDTUsuarios(Optional CveUsuario As Integer = -1, Optional CveEmpresa As Integer = -1) As Data.DataTable
+    '    Get
+    '        If CveUsuario <> -1 Then
+    '            Dim Dv As New Data.DataView(DirectCast(Application("GlobalDTUsuarios"), Data.DataTable), "CveUsuario =" & CveUsuario, "", Data.DataViewRowState.CurrentRows)
+    '            GlobalDTUsuarios = Dv.ToTable
+    '            Dv.Dispose()
+    '        Else
+    '            GlobalDTUsuarios = DirectCast(Application("GlobalDTUsuarios"), Data.DataTable)
+    '        End If
+    '    End Get
+    '    Set(value As Data.DataTable)
+    '        Application("GlobalDTUsuarios") = value
+    '    End Set
+    'End Property
     Dim BtnLogIn_Clickenter As Integer = 0
     Protected Sub BtnLogIn_Click(ByVal sender As Object, ByVal e As EventArgs) 'Handles CmdLogIn.Click
         Dim ReturnUrl As String = "/"
@@ -251,16 +251,20 @@ Partial Class LogIn
                     Else
                         'PLATAFORMA SIG
                         CType(Session("UsuarioSIG"), Usuario).CvePlataforma = 1
-                        Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
-                        If dt IsNot Nothing Then
-                            If dt.Rows.Count >= 1 Then
-                                If dt.Rows.Count > 1 Then
-                                    Usuario.MultipleEmpresa = True
+                        Using ObjUsuarios As New ClsSisUsuarios
+                            If ObjUsuarios.GetUsuariosEmpresas(Usuario.CveUsuario) Then
+                                Dim dt As Data.DataTable = ObjUsuarios.DtResultados
+                                If dt IsNot Nothing Then
+                                    If dt.Rows.Count >= 1 Then
+                                        If dt.Rows.Count > 1 Then
+                                            Usuario.MultipleEmpresa = True
+                                        End If
+                                        'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario), False)
+                                    End If
                                 End If
-                                'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario), False)
+                                dt.Dispose()
                             End If
-                        End If
-                        dt.Dispose()
+                        End Using
                     End If
 
                     Dim cookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario, False)