diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 691ebe226..0fcf524a0 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -94,15 +94,15 @@ Partial Class PopUpVerFactura
                 Dim UserParams As Hashtable = Parametros(Decripta((Request.Headers("ADSToken").ToString)))
                 Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero()
                 Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero()
+                If CveEmpresaToken > 0 AndAlso CveUsuario > 0 Then
+                    Dim UsuarioToken As Usuario = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)
 
-                Dim UsuarioToken As Usuario = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)
-
-                If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then
-                    Context.Session("UsuarioSIG") = UsuarioToken
+                    If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then
+                        Context.Session("UsuarioSIG") = UsuarioToken
+                    End If
                 End If
             End If
 
-
             If Request("CVETIMBRE") IsNot Nothing AndAlso Request("CVETIMBRE") IsNot Nothing Then
                 ImprimeFormatoCartaPorteTimbrado(Request("CVETIMBRE").ToString.ToEntero)
             End If
@@ -1154,40 +1154,24 @@ Partial Class PopUpVerFactura
     End Sub
 #Region "U S U A R I O - T O K E N"
 
-    Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario
+    Private Function ValidaUsuarioSistema(CveEmpresa As Integer, CveUsuario As Integer) As Usuario
 
         Dim UsuarioToken As Usuario = Nothing
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuarios(CveUsuario) Then
-            If ObjUsuarios.DtResultados.Rows.Count > 0 Then
-                Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
-                Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
-                UsuarioToken.CveEmpresa = CveEmpresa
-                CreaObjetoEmpresa(UsuarioToken)
-            End If
+        'Dim tGrupoEmpresa As String = ClsPaginas.GlobalGrupoEmpresa(Request.Url.Host.ToUpper())
+        Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)
+
+        Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
+        UsuarioToken = ObjUsuarios.GetUsuarioDetalle(CveUsuario, CveEmpresa)
+        If UsuarioToken IsNot Nothing Then
+            Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
+            Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
+            UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
+            UsuarioToken.CveEmpresa = CveEmpresa
         End If
         ObjUsuarios.Dispose()
         Return UsuarioToken
     End Function
-    Private Sub CreaObjetoEmpresa(ByRef UsuarioToken As Usuario)
 
-        Dim ObjEmpresa As New ClsSisEmpresas()
-        If ObjEmpresa.GetEmpresas(UsuarioToken.CveEmpresa, "-1", "-1", "-1", "-1") Then
-            If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioToken.CveEmpresa) Then
-                Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
-
-                Dim EmpresasFuncionalidades As New HybridDictionary
-                For Each Row As Data.DataRow In dttmp.Rows
-                    EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
-                Next
-                ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
-            End If
-
-            UsuarioToken.Empresa = ObjEmpresa.Empresa
-        End If
-        ObjEmpresa.Dispose()
-    End Sub
 #End Region
 
     Private Sub SeleccionaReporte(UrlParametros As Hashtable)