-- cambios en acceso

This commit is contained in:
2024-04-13 08:56:42 -07:00
parent e0f13be7c3
commit b206b05da8
3 changed files with 4 additions and 4 deletions

View File

@@ -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