diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx
index cb056f393..65c24e516 100644
--- a/Ashx/E119.ashx
+++ b/Ashx/E119.ashx
@@ -57,7 +57,7 @@ Public Class E119 : Implements IHttpHandler
             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()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioActual)
             End If
diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx
index cea15c20e..d173221f0 100644
--- a/Ashx/E141.ashx
+++ b/Ashx/E141.ashx
@@ -67,7 +67,7 @@ Public Class E141 : Implements IHttpHandler
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioActual)
             End If
diff --git a/Ashx/E48.ashx b/Ashx/E48.ashx
index d56099cc6..e5a83564d 100644
--- a/Ashx/E48.ashx
+++ b/Ashx/E48.ashx
@@ -405,7 +405,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
             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()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioActual)
             End If
diff --git a/Ashx/MHRedes.ashx b/Ashx/MHRedes.ashx
index 49649d0f9..f34ad59d3 100644
--- a/Ashx/MHRedes.ashx
+++ b/Ashx/MHRedes.ashx
@@ -58,7 +58,7 @@ Public Class MobileHandler : Implements IHttpHandler
 
         Dim Json As New StringBuilder
 
-        User = ObjUsuario.ValidaUsuario(Contexto.Request("Usuario"), Contexto.Request("Password"), IMEI)
+        User = ObjUsuario.ValidaUsuario(Contexto.Request("Usuario"), Contexto.Request("Password"))
 
         If User IsNot Nothing Then
 
diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx
index f223e5237..86a5949f7 100644
--- a/Ashx/SIGFacturacion.ashx
+++ b/Ashx/SIGFacturacion.ashx
@@ -227,7 +227,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioActual)
             End If
diff --git a/Ashx/SIGFacturacionCiclica.ashx b/Ashx/SIGFacturacionCiclica.ashx
index d123a32f1..1ce3d4f7c 100644
--- a/Ashx/SIGFacturacionCiclica.ashx
+++ b/Ashx/SIGFacturacionCiclica.ashx
@@ -63,7 +63,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioActual)
             End If
diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx
index 16774b5f1..38dde9ef3 100644
--- a/Ashx/TareasProgramadas.ashx
+++ b/Ashx/TareasProgramadas.ashx
@@ -119,7 +119,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
         If GlobalDTUsuarios.Rows.Count > 0 Then
             Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0)
             Dim ObjUsuario As New ClsSisUsuarios
-            usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario").ToString, dtrow("Contraseña").ToString, IMEI, cveEmpresa)
+            usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario").ToString, dtrow("Contraseña").ToString, CveEmpresa:=cveEmpresa)
             ObjUsuario.Dispose()
 
             Dim ObjEmpresa As New ClsSisEmpresas()
@@ -227,7 +227,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
 #Region "obtengo el usuario con el username y la pass"
 
         Using ObjUsuario As New ClsSisUsuarios()
-            usuario = ObjUsuario.ValidaUsuario(username, pass, IMEI, CveEmpresa)
+            usuario = ObjUsuario.ValidaUsuario(username, pass, CveEmpresa:=CveEmpresa)
         End Using
 #End Region
 #Region "Asigno la empresa al usuario"
@@ -352,7 +352,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
             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()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioActual)
             End If
diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx
index 7c3ad6262..3d4d064e3 100644
--- a/asmx/WSApp.asmx
+++ b/asmx/WSApp.asmx
@@ -75,7 +75,7 @@ Public Class WSApp
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia)
                 CreaObjetoEmpresa(UsuarioActual)
             End If
         End If
@@ -90,7 +90,7 @@ Public Class WSApp
         Dim ObjUsuarios As New ClsSisUsuarios
         Dim ObjClientes As New ClsClientes
         Try
-            Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI)
+            Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Encripta(Contrasenia))
 
             If UsuarioActual IsNot Nothing Then
                 Salida = New WSUSER
diff --git a/asmx/WSCGame.asmx b/asmx/WSCGame.asmx
index 175bc33e8..b373a9a0f 100644
--- a/asmx/WSCGame.asmx
+++ b/asmx/WSCGame.asmx
@@ -43,7 +43,7 @@ Public Class WSCGame
 
             If Not IsNothing(Entrada) Then
                 Dim tUsuario As New ClsSisUsuarios
-                Dim UsuarioActual = tUsuario.ValidaUsuario(Entrada.Usuario, Encripta(Entrada.Contrasenia), IMEI)
+                Dim UsuarioActual = tUsuario.ValidaUsuario(Entrada.Usuario, Encripta(Entrada.Contrasenia))
                 tUsuario.Dispose()
 
                 If UsuarioActual IsNot Nothing Then