- cambio en acceso

This commit is contained in:
2024-04-13 06:54:02 -07:00
parent 3cf78ec01b
commit 2a4984b5ac
9 changed files with 12 additions and 12 deletions

View File

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