diff --git a/Ashx/SIGFreightVerify.ashx b/Ashx/SIGFreightVerify.ashx
index f09eafceb..5f35fc289 100644
--- a/Ashx/SIGFreightVerify.ashx
+++ b/Ashx/SIGFreightVerify.ashx
@@ -25,7 +25,7 @@ public class SIGFreightVerify : IHttpHandler, IRequiresSessionState
             {
                 var Usuario = ObjUsuarios.DtResultados.Rows[0]["Usuario"].ToString();
                 var Contrasenia = ObjUsuarios.DtResultados.Rows[0]["Contraseña"].ToString();
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, ModExtensiones.IMEI, CveEmpresa);
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa: CveEmpresa);
                 UsuarioActual.CveEmpresa = CveEmpresa;
                 UsuarioActual.CveCliente = 183798;
                 CreaObjetoEmpresa(ref UsuarioActual);
diff --git a/asmx/WSGPSApp.asmx b/asmx/WSGPSApp.asmx
index b9c9aaa43..98b29f8c0 100644
--- a/asmx/WSGPSApp.asmx
+++ b/asmx/WSGPSApp.asmx
@@ -119,7 +119,7 @@ Public Class WSGPSApp
         Try
             Dim json = Decripta(params, "AES")
             Dim Datos As MWSLogin2 = JsonConvert.DeserializeObject(Of MWSLogin2)(json)
-            Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES")), IMEI)
+            Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES")))
 
             If UsuarioActual IsNot Nothing Then
                 Dim UsuarioRetorno As New WSUSER2
@@ -192,7 +192,7 @@ Public Class WSGPSApp
         Try
             Dim json = Decripta(params, "AES")
             Dim Datos As MWSLogin2 = JsonConvert.DeserializeObject(Of MWSLogin2)(json)
-            Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES")), IMEI)
+            Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES")))
 
             If UsuarioActual IsNot Nothing Then
                 Dim UsuarioRetorno As New WSUSER2
diff --git a/asmx/WS_PuntoVenta.asmx b/asmx/WS_PuntoVenta.asmx
index 4ca18c926..f212cb3a5 100644
--- a/asmx/WS_PuntoVenta.asmx
+++ b/asmx/WS_PuntoVenta.asmx
@@ -742,7 +742,7 @@ Public Class WS_PuntoVenta
         Dim objUsuarios As New ClsSisUsuarios
         Dim objUsuario As New Usuario
 
-        objUsuario = objUsuarios.ValidaUsuario(Usuario, Encripta(Contraseña), IMEI)
+        objUsuario = objUsuarios.ValidaUsuario(Usuario, Encripta(Contraseña))
         If objUsuario IsNot Nothing AndAlso objUsuario.TienePermisoProceso(CveProceso) Then
             CveUsuario = objUsuario.CveUsuario
         End If