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

-- cambios en acceso

Browse Source
This commit is contained in:
rrene
2024-04-13 08:56:42 -07:00
parent e0f13be7c3
commit b206b05da8
3 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
asmx/WSGPSApp.asmx
View File

@@ -119,7 +119,7 @@ Public Class WSGPSApp
Try
Dim json = Decripta(params, "AES")
Dim Datos As MWSLogin2 = JsonConvert.DeserializeObject(Of MWSLogin2)(json)
Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES")), IMEI)
Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES")))
If UsuarioActual IsNot Nothing Then
Dim UsuarioRetorno As New WSUSER2
@@ -192,7 +192,7 @@ Public Class WSGPSApp
Try
Dim json = Decripta(params, "AES")
Dim Datos As MWSLogin2 = JsonConvert.DeserializeObject(Of MWSLogin2)(json)
Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES")), IMEI)
Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES")))
If UsuarioActual IsNot Nothing Then
Dim UsuarioRetorno As New WSUSER2

2
asmx/WS_PuntoVenta.asmx
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