diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index d22776991..6f8561cf4 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -8352,7 +8352,7 @@ Partial Class PV
             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()