- 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

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