diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb
index 070cc0ae7..fcebdda87 100644
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -189,16 +189,12 @@ Public Class ClsSisUsuarios
         End Try
         Return Retorno
     End Function
-    Public Function ValidaUsuario(Usuario As String, Password As String, tIMEI As String, Optional CveEmpresa As Integer = -1, Optional GrupoEmpresa As String = "", Optional CvePlataforma As Integer = -1) As Usuario
+    Public Function ValidaUsuario(Usuario As String, Password As String, Optional CveEmpresa As Integer = -1, Optional GrupoEmpresa As String = "") As Usuario
         Dim Retorno As Usuario = Nothing
-        DataAdapter("PA_Sis_UsuariosGet")
+        DataAdapter("PA_Sis_UsuarioValidacionGet")
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveUsuario", SqlDbType.Int).Value = -1
-            .Add("@CveRol", SqlDbType.Int).Value = -1
             .Add("@Usuario", SqlDbType.VarChar).Value = Usuario
             .Add("@Contraseña", SqlDbType.VarChar).Value = Password
-            .Add("@CvePlataforma", SqlDbType.Int).Value = CvePlataforma
-            .Add("@EsLogIn", SqlDbType.Bit).Value = 1
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@GrupoEmpresa", SqlDbType.VarChar).Value = GrupoEmpresa
         End With
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index c6406dcbb..1f852c7c0 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -3531,7 +3531,7 @@ Public Class ClsVentas
                         CveVentasError.Add(PCveVenta.ToEntero)
                         Continue For
                     End If
-                    Usuario = ObjUsuario.ValidaUsuario(Nombre, Contraseña, IMEI)
+                    Usuario = ObjUsuario.ValidaUsuario(Nombre, Contraseña)
 
                     If ObjEmpresa.GetEmpresas(pCveEmpresa, "-1", "-1", "-1", "-1") Then
                         Usuario.Empresa = ObjEmpresa.Empresa
diff --git a/App_Code/WS/WSUSer.vb b/App_Code/WS/WSUSer.vb
index 9f8f2f502..27213e81a 100644
--- a/App_Code/WS/WSUSer.vb
+++ b/App_Code/WS/WSUSer.vb
@@ -44,7 +44,7 @@ Namespace SIG
             Dim Retorno As List(Of String) = Nothing
             If continuar Then
                 Using objuser As New ClsSisUsuarios
-                    Dim user As Usuario = objuser.ValidaUsuario(username, Extensiones.ModExtensiones.Encripta(password), "-1", CveEmpresastr.ToEntero())
+                    Dim user As Usuario = objuser.ValidaUsuario(username, Extensiones.ModExtensiones.Encripta(password), CveEmpresa:=CveEmpresastr.ToEntero())
 
                     Dim OjEmpresa As Empresa = Nothing
                     If user IsNot Nothing Then
diff --git a/App_Code/WsSIGWeb.vb b/App_Code/WsSIGWeb.vb
index d2c3bfe73..0f44f3b13 100644
--- a/App_Code/WsSIGWeb.vb
+++ b/App_Code/WsSIGWeb.vb
@@ -59,7 +59,7 @@ Public Class WsSIGWeb
 
                 If ObjUsuario.GetUsuarios(CveUsuario, -1, -1) Then
                     Contraseña = ObjUsuario.DtResultados.Rows(0)("Contraseña").ToString
-                    Usuario = ObjUsuario.ValidaUsuario(Nombre, Contraseña, IMEI)
+                    Usuario = ObjUsuario.ValidaUsuario(Nombre, Contraseña)
 
                     If ObjEmpresa.GetEmpresas(pCveEmpresa, "-1", "-1", "-1", "-1") Then
                         Usuario.Empresa = ObjEmpresa.Empresa
diff --git a/App_Code/wsSIG.vb b/App_Code/wsSIG.vb
index c94a13c60..d4d56b6d9 100644
--- a/App_Code/wsSIG.vb
+++ b/App_Code/wsSIG.vb
@@ -42,7 +42,7 @@ Public Class wsSIG
                 Dim ttDato As Usuario
                 Dim tUsuario As New ClsSisUsuarios
 
-                ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI)
+                ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia))
 
                 If ttDato IsNot Nothing Then
                     Retorno = New UsuarioWs
@@ -92,7 +92,7 @@ Public Class wsSIG
 
                 Dim ttDato As Usuario = Nothing
                 Using tUsuario As New ClsSisUsuarios()
-                    ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI, CveEmpresa)
+                    ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), CveEmpresa:=CveEmpresa)
                 End Using
                 If validatesubproyecto Then
 
@@ -693,7 +693,7 @@ Public Class wsSIG
             Dim ttDato As Usuario
             Dim tUsuario As New ClsSisUsuarios
 
-            ttDato = tUsuario.ValidaUsuario(objuser.Usuario, Encripta(objuser.Contrasenia), IMEI)
+            ttDato = tUsuario.ValidaUsuario(objuser.Usuario, Encripta(objuser.Contrasenia))
 
             If ttDato IsNot Nothing Then
                 Retorno = New UsuarioWs