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

2
Ashx/SIGFreightVerify.ashx
View File

@@ -25,7 +25,7 @@ public class SIGFreightVerify : IHttpHandler, IRequiresSessionState
{ {
var Usuario = ObjUsuarios.DtResultados.Rows[0]["Usuario"].ToString(); var Usuario = ObjUsuarios.DtResultados.Rows[0]["Usuario"].ToString();
var Contrasenia = ObjUsuarios.DtResultados.Rows[0]["Contraseña"].ToString(); var Contrasenia = ObjUsuarios.DtResultados.Rows[0]["Contraseña"].ToString();
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, ModExtensiones.IMEI, CveEmpresa); UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa: CveEmpresa);
UsuarioActual.CveEmpresa = CveEmpresa; UsuarioActual.CveEmpresa = CveEmpresa;
UsuarioActual.CveCliente = 183798; UsuarioActual.CveCliente = 183798;
CreaObjetoEmpresa(ref UsuarioActual); CreaObjetoEmpresa(ref UsuarioActual);

4
asmx/WSGPSApp.asmx
View File

@@ -119,7 +119,7 @@ Public Class WSGPSApp
Try Try
Dim json = Decripta(params, "AES") Dim json = Decripta(params, "AES")
Dim Datos As MWSLogin2 = JsonConvert.DeserializeObject(Of MWSLogin2)(json) 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 If UsuarioActual IsNot Nothing Then
Dim UsuarioRetorno As New WSUSER2 Dim UsuarioRetorno As New WSUSER2
@@ -192,7 +192,7 @@ Public Class WSGPSApp
Try Try
Dim json = Decripta(params, "AES") Dim json = Decripta(params, "AES")
Dim Datos As MWSLogin2 = JsonConvert.DeserializeObject(Of MWSLogin2)(json) 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 If UsuarioActual IsNot Nothing Then
Dim UsuarioRetorno As New WSUSER2 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 objUsuarios As New ClsSisUsuarios
Dim objUsuario As New Usuario 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 If objUsuario IsNot Nothing AndAlso objUsuario.TienePermisoProceso(CveProceso) Then
CveUsuario = objUsuario.CveUsuario CveUsuario = objUsuario.CveUsuario
End If End If