AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- cambio en acceso

Browse Source
This commit is contained in:
rrene
2024-04-13 06:54:38 -07:00
parent 2a4984b5ac
commit e0f13be7c3
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Sistemas/PopUpSeleccionarEmpresa.aspx.vb
View File

@@ -66,7 +66,7 @@ Partial Class PopUpSeleccionarEmpresa
Dim ObjUsuario As New ClsSisUsuarios Dim ObjUsuario As New ClsSisUsuarios
Dim Usuario As Usuario = Nothing Dim Usuario As Usuario = Nothing
Usuario = ObjUsuario.ValidaUsuario(gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"), IMEI, gvr.DataKey("CveEmpresa").ToEntero) Usuario = ObjUsuario.ValidaUsuario(gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"), CveEmpresa:=gvr.DataKey("CveEmpresa").ToEntero)
ObjUsuario.Dispose() ObjUsuario.Dispose()
If Usuario IsNot Nothing Then If Usuario IsNot Nothing Then

6
Ventas/Ventas.aspx.vb
View File

@@ -3636,7 +3636,7 @@ Partial Class Ventas
Dim ObjUsuario As New ClsSisUsuarios Dim ObjUsuario As New ClsSisUsuarios
Dim Usuario As Usuario Dim Usuario As Usuario
Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa) Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, CveEmpresa:=tCveEmpresa)
ObjUsuario.Dispose() ObjUsuario.Dispose()
@@ -37874,7 +37874,7 @@ Partial Class Ventas
Using ObjUsuario As New ClsSisUsuarios Using ObjUsuario As New ClsSisUsuarios
If RblTipoAutorizacionDesc.SelectedValue = "1" Then If RblTipoAutorizacionDesc.SelectedValue = "1" Then
UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), ModExtensiones.IMEI, CveEmpresa:=UsuarioActual.CveEmpresa) UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), CveEmpresa:=UsuarioActual.CveEmpresa)
Else Else
Dim CveUsuarioNuevo As Integer = -1 Dim CveUsuarioNuevo As Integer = -1
@@ -37891,7 +37891,7 @@ Partial Class Ventas
tContraseña = DrUsuario("Contraseña").ToString tContraseña = DrUsuario("Contraseña").ToString
tCveEmpresa = DrUsuario("CveEmpresa").ToString.ToEntero tCveEmpresa = DrUsuario("CveEmpresa").ToString.ToEntero
UsuarioAutorizar = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa) UsuarioAutorizar = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, CveEmpresa:=tCveEmpresa)
End If End If
End If End If
End If End If