diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
index cca2720e1..a53dcd376 100644
--- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
+++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
@@ -66,7 +66,7 @@ Partial Class PopUpSeleccionarEmpresa
 
                 Dim ObjUsuario As New ClsSisUsuarios
                 Dim Usuario As Usuario = Nothing
-                Usuario = ObjUsuario.ValidaUsuario(gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"), IMEI, gvr.DataKey("CveEmpresa").ToEntero)
+                Usuario = ObjUsuario.ValidaUsuario(gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"), CveEmpresa:=gvr.DataKey("CveEmpresa").ToEntero)
                 ObjUsuario.Dispose()
 
                 If Usuario IsNot Nothing Then
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1e85a60b2..ddde4808e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3636,7 +3636,7 @@ Partial Class Ventas
             Dim ObjUsuario As New ClsSisUsuarios
             Dim Usuario As Usuario
 
-            Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa)
+            Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, CveEmpresa:=tCveEmpresa)
 
             ObjUsuario.Dispose()
 
@@ -37874,7 +37874,7 @@ Partial Class Ventas
 
         Using ObjUsuario As New ClsSisUsuarios
             If RblTipoAutorizacionDesc.SelectedValue = "1" Then
-                UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), ModExtensiones.IMEI, CveEmpresa:=UsuarioActual.CveEmpresa)
+                UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), CveEmpresa:=UsuarioActual.CveEmpresa)
             Else
                 Dim CveUsuarioNuevo As Integer = -1
 
@@ -37891,7 +37891,7 @@ Partial Class Ventas
                         tContraseña = DrUsuario("Contraseña").ToString
                         tCveEmpresa = DrUsuario("CveEmpresa").ToString.ToEntero
 
-                        UsuarioAutorizar = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa)
+                        UsuarioAutorizar = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, CveEmpresa:=tCveEmpresa)
                     End If
                 End If
             End If