This commit is contained in:
2024-04-12 20:36:10 -07:00
parent 46bef91bc0
commit 3cf78ec01b

View File

@@ -31,7 +31,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
If ObjUsuarios.DtResultados.Rows.Count > 0 Then If ObjUsuarios.DtResultados.Rows.Count > 0 Then
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa) UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
UsuarioToken.CveEmpresa = CveEmpresa UsuarioToken.CveEmpresa = CveEmpresa
CreaObjetoEmpresa(UsuarioToken) CreaObjetoEmpresa(UsuarioToken)
End If End If