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

-- cambio de clase de validación de usuario

Browse Source
This commit is contained in:
rrene
2024-06-30 23:20:27 -07:00
parent e7eb6ee199
commit aa158b198c
9 changed files with 279 additions and 341 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
asmx/WSApp.asmx
View File

@@ -70,15 +70,14 @@ Public Class WSApp
#Region "M E T O D O S - S E R V I C I O"
Public Function ValidaUsuario(CveUsuario As Integer) As Usuario
Dim UsuarioActual As Usuario = Nothing
Dim ObjUsuarios As New ClsSisUsuarios
If ObjUsuarios.GetUsuarios(CveUsuario) Then
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)
CreaObjetoEmpresa(UsuarioActual)
End If
End If
Dim ObjUsuarios As New ClsSisUsuarioAutenticacion
UsuarioActual = ObjUsuarios.GetUsuarioDetalle(CveUsuario)
'If UsuarioActual IsNot Nothing Then
' Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
' Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
' UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia)
'End If
ObjUsuarios.Dispose()
Return UsuarioActual
End Function
@@ -87,7 +86,7 @@ Public Class WSApp
Dim retorno As String = ""
Dim Salida As WSUSER = Nothing
Dim ObjUsuarios As New ClsSisUsuarios
Dim ObjUsuarios As New ClsSisUsuarioAutenticacion
Dim ObjClientes As New ClsClientes
Try
Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Encripta(Contrasenia))

2
asmx/WSCGame.asmx
View File

@@ -42,7 +42,7 @@ Public Class WSCGame
Dim Entrada = JsonConvert.DeserializeAnonymousType(decripParams, Estructura)
If Not IsNothing(Entrada) Then
Dim tUsuario As New ClsSisUsuarios
Dim tUsuario As New ClsSisUsuarioAutenticacion
Dim UsuarioActual = tUsuario.ValidaUsuario(Entrada.Usuario, Encripta(Entrada.Contrasenia))
tUsuario.Dispose()

172
asmx/WSGPSApp.asmx
View File

@@ -115,7 +115,7 @@ Public Class WSGPSApp
<WebMethod>
Public Function Login(params As String) As String
Dim Retorno As String = ""
Dim ObjUsuarios As New ClsSisUsuarios
Dim ObjUsuarios As New ClsSisUsuarioAutenticacion
Try
Dim json = Decripta(params, "AES")
Dim Datos As MWSLogin2 = JsonConvert.DeserializeObject(Of MWSLogin2)(json)
@@ -137,8 +137,8 @@ Public Class WSGPSApp
Dim UsuariosModulos As New List(Of WsModulos)
Dim Empresas As New List(Of WsEmpresa)
Dim Clientes As New List(Of WsClientePortalGPS)
If ObjUsuarios.GetUsuariosModulos(UsuarioRetorno.CveUsuario, -1) Then
Dim objUsr As New ClsSisUsuarios(UsuarioActual:=UsuarioActual)
If objUsr.GetUsuariosModulos(UsuarioRetorno.CveUsuario, -1) Then
Dim DtModulos As DataTable = ObjUsuarios.DtResultados.FiltraParametros("CvePlataforma = 5 AND Permitir = 1")
For Each Row As DataRow In DtModulos.Rows
UsuariosModulos.Add(New WsModulos With {.CveModulo = Row("CveModulo").ToString.ToEntero, .CvePadre = Row("CvePadre").ToString.ToEntero, .CvePlataforma = 5, .Estilo = Row("Estilo").ToString, .Liga = Row("Liga").ToString, .Modulo = Row("Modulo").ToString, .Parametros = Row("Parametros").ToString})
@@ -146,6 +146,7 @@ Public Class WSGPSApp
DtModulos.Dispose()
DtModulos = Nothing
End If
objUsr.Dispose()
UsuarioRetorno.Modulos = UsuariosModulos
Dim DtClientes As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
If DtClientes IsNot Nothing Then
@@ -185,96 +186,97 @@ Public Class WSGPSApp
End Function
'<SoapHeader("Credentials")>
<WebMethod>
Public Function Login2(params As String) As String
Dim Retorno As String = ""
Dim ObjUsuarios As New ClsSisUsuarios
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")))
'<WebMethod>
'Public Function Login2(params As String) As String
' Dim Retorno As String = ""
' Dim ObjUsuarios As New ClsSisUsuarioAutenticacion
' 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")))
If UsuarioActual IsNot Nothing Then
Dim UsuarioRetorno As New WSUSER2
UsuarioRetorno.CveUsuario = UsuarioActual.CveUsuario
UsuarioRetorno.CveEmpresa = UsuarioActual.CveEmpresa
UsuarioRetorno.CveCliente = UsuarioActual.CveCliente
UsuarioRetorno.Usuario = UsuarioActual.Usuario
UsuarioRetorno.Nombre = UsuarioActual.Nombre
UsuarioRetorno.CveRol = UsuarioActual.CveRol
UsuarioRetorno.Rol = UsuarioActual.Rol
UsuarioRetorno.Contrasenia = UsuarioActual.Contraseña
UsuarioRetorno.CveSubProyecto = UsuarioActual.CveSubProyecto
UsuarioRetorno.Procesos = UsuarioActual.Procesos.Values.Cast(Of String).ToList()
' If UsuarioActual IsNot Nothing Then
' Dim UsuarioRetorno As New WSUSER2
' UsuarioRetorno.CveUsuario = UsuarioActual.CveUsuario
' UsuarioRetorno.CveEmpresa = UsuarioActual.CveEmpresa
' UsuarioRetorno.CveCliente = UsuarioActual.CveCliente
' UsuarioRetorno.Usuario = UsuarioActual.Usuario
' UsuarioRetorno.Nombre = UsuarioActual.Nombre
' UsuarioRetorno.CveRol = UsuarioActual.CveRol
' UsuarioRetorno.Rol = UsuarioActual.Rol
' UsuarioRetorno.Contrasenia = UsuarioActual.Contraseña
' UsuarioRetorno.CveSubProyecto = UsuarioActual.CveSubProyecto
' UsuarioRetorno.Procesos = UsuarioActual.Procesos.Values.Cast(Of String).ToList()
Dim UsuariosModulos As New List(Of WsModulos)
Dim Empresas As New List(Of WsEmpresa)
Dim Clientes As New List(Of WsClientePortalGPS)
' Dim UsuariosModulos As New List(Of WsModulos)
' Dim Empresas As New List(Of WsEmpresa)
' Dim Clientes As New List(Of WsClientePortalGPS)
If ObjUsuarios.GetUsuariosModulos(UsuarioRetorno.CveUsuario, -1) Then
Dim DtModulos As DataTable = ObjUsuarios.DtResultados.FiltraParametros("CvePlataforma = 5 AND Permitir = 1")
For Each Row As DataRow In DtModulos.Rows
UsuariosModulos.Add(New WsModulos With {.CveModulo = Row("CveModulo").ToString.ToEntero, .CvePadre = Row("CvePadre").ToString.ToEntero, .CvePlataforma = 5, .Estilo = Row("Estilo").ToString, .Liga = Row("Liga").ToString, .Modulo = Row("Modulo").ToString, .Parametros = Row("Parametros").ToString})
Next
DtModulos.Dispose()
DtModulos = Nothing
End If
' Dim objUsr As New ClsSisUsuarios(UsuarioActual:=UsuarioActual)
' If objUsr.GetUsuariosModulos(UsuarioRetorno.CveUsuario, -1) Then
' Dim DtModulos As DataTable = ObjUsuarios.DtResultados.FiltraParametros("CvePlataforma = 5 AND Permitir = 1")
' For Each Row As DataRow In DtModulos.Rows
' UsuariosModulos.Add(New WsModulos With {.CveModulo = Row("CveModulo").ToString.ToEntero, .CvePadre = Row("CvePadre").ToString.ToEntero, .CvePlataforma = 5, .Estilo = Row("Estilo").ToString, .Liga = Row("Liga").ToString, .Modulo = Row("Modulo").ToString, .Parametros = Row("Parametros").ToString})
' Next
' DtModulos.Dispose()
' DtModulos = Nothing
' End If
' objUsr.Dispose()
' UsuarioRetorno.Modulos = UsuariosModulos
' Dim DtClientes As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltraParametros("CvePlataforma = 3 AND CveCliente > 0", "Empresa")
' If DtClientes IsNot Nothing Then
' If DtClientes.Rows.Count > 0 Then
' For Each Row As DataRow In DtClientes.Rows
' Clientes.Add(New WsClientePortalGPS With {.CveCliente = Row("CveCliente").ToString.ToEntero, .Cliente = Row("Cliente").ToString})
' Next
' If UsuarioActual.CveCliente <= 0 AndAlso Clientes.Any() Then
' UsuarioRetorno.CveCliente = Clientes.FirstOrDefault().CveCliente
' If UsuarioActual.CveCliente <= 0 AndAlso Clientes.Any() Then
' UsuarioRetorno.CveCliente = Clientes.FirstOrDefault().CveCliente
' If UsuarioRetorno.CveCliente > 0 Then
' CreaObjetoEmpresa(UsuarioActual)
' If UsuarioActual.Empresa.Funcionalidad(704).Contiene(UsuarioRetorno.CveCliente.ToString()) OrElse UsuarioActual.CveUsuario = 3612 Then
' UsuarioRetorno.RastreoSoloInicio = True
' End If
' End If
' End If
' End If
' End If
' End If
UsuarioRetorno.Modulos = UsuariosModulos
Dim DtClientes As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltraParametros("CvePlataforma = 3 AND CveCliente > 0", "Empresa")
If DtClientes IsNot Nothing Then
If DtClientes.Rows.Count > 0 Then
For Each Row As DataRow In DtClientes.Rows
Clientes.Add(New WsClientePortalGPS With {.CveCliente = Row("CveCliente").ToString.ToEntero, .Cliente = Row("Cliente").ToString})
Next
If UsuarioActual.CveCliente <= 0 AndAlso Clientes.Any() Then
UsuarioRetorno.CveCliente = Clientes.FirstOrDefault().CveCliente
If UsuarioActual.CveCliente <= 0 AndAlso Clientes.Any() Then
UsuarioRetorno.CveCliente = Clientes.FirstOrDefault().CveCliente
If UsuarioRetorno.CveCliente > 0 Then
CreaObjetoEmpresa(UsuarioActual)
If UsuarioActual.Empresa.Funcionalidad(704).Contiene(UsuarioRetorno.CveCliente.ToString()) OrElse UsuarioActual.CveUsuario = 3612 Then
UsuarioRetorno.RastreoSoloInicio = True
End If
End If
End If
End If
End If
End If
' 'MARCA PARA EL RASTREO SOLO INICIO
' If UsuarioRetorno.CveUsuario = 3612 Then
' UsuarioRetorno.RastreoSoloInicio = True
' End If
'MARCA PARA EL RASTREO SOLO INICIO
If UsuarioRetorno.CveUsuario = 3612 Then
UsuarioRetorno.RastreoSoloInicio = True
End If
' UsuarioRetorno.Clientes = Clientes
' DtClientes.Dispose()
' DtClientes = Nothing
' Retorno = Encripta(JsonConvert.SerializeObject(UsuarioRetorno), "AES")
' Else
' Dim UsuarioError As New WSUSER2
' UsuarioError.CveUsuario = -2
' UsuarioError.CveEmpresa = -1
' UsuarioError.CveCliente = -1
' UsuarioError.Usuario = ""
' UsuarioError.Nombre = ""
' UsuarioError.CveRol = -1
' UsuarioError.Rol = ""
' UsuarioError.Contrasenia = ""
' UsuarioError.CveSubProyecto = -1
UsuarioRetorno.Clientes = Clientes
DtClientes.Dispose()
DtClientes = Nothing
Retorno = Encripta(JsonConvert.SerializeObject(UsuarioRetorno), "AES")
Else
Dim UsuarioError As New WSUSER2
UsuarioError.CveUsuario = -2
UsuarioError.CveEmpresa = -1
UsuarioError.CveCliente = -1
UsuarioError.Usuario = ""
UsuarioError.Nombre = ""
UsuarioError.CveRol = -1
UsuarioError.Rol = ""
UsuarioError.Contrasenia = ""
UsuarioError.CveSubProyecto = -1
' Retorno = Encripta(JsonConvert.SerializeObject(UsuarioError), "AES")
' End If
Retorno = Encripta(JsonConvert.SerializeObject(UsuarioError), "AES")
End If
' Catch ex As Exception
' Retorno = ""
' OnError("Ocurrio un error al iniciar sesion.", ex)
' Finally
' ObjUsuarios.Dispose()
' End Try
' Return Retorno
Catch ex As Exception
Retorno = ""
OnError("Ocurrio un error al iniciar sesion.", ex)
Finally
ObjUsuarios.Dispose()
End Try
Return Retorno
End Function
'End Function
<WebMethod>
Public Function GetPosicionesEquipos(strParams As String) As String
Dim json = "[]"

28
asmx/WSSIGApp.asmx
View File

@@ -474,7 +474,7 @@ Public Class WSSIGApp
If Not IsNothing(Entrada) Then
If IsCurrentDate(Entrada.Ticks) Then
Dim ObjUsuarios As New ClsSisUsuarios
Dim ObjUsuarios As New ClsSisUsuarioAutenticacion
Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Entrada.Usuario, Encripta(Entrada.Contrasenia), IMEI)
If UsuarioActual IsNot Nothing Then
@@ -491,8 +491,8 @@ Public Class WSSIGApp
Dim UsuariosModulos As New List(Of WsModulos)
Dim Empresas As New List(Of WsEmpresa)
If ObjUsuarios.GetUsuariosModulos(Salida.CveUsuario, Salida.CveEmpresa) Then
Dim objUsr As New ClsSisUsuarios(UsuarioActual:=UsuarioActual)
If objUsr.GetUsuariosModulos(Salida.CveUsuario, Salida.CveEmpresa) Then
Dim dttmp As DataTable = ObjUsuarios.DtResultados.FiltraParametros("CvePlataforma = 4")
For Each Row As DataRow In dttmp.Rows
UsuariosModulos.Add(New WsModulos With {.CveModulo = Row("CveModulo").ToString.ToEntero, .CvePadre = Row("CvePadre").ToString.ToEntero, .CvePlataforma = 4, .Estilo = Row("Estilo").ToString, .Liga = Row("Liga").ToString, .Modulo = Row("Modulo").ToString})
@@ -511,7 +511,7 @@ Public Class WSSIGApp
' End If
'End If
If ObjUsuarios.GetUsuariosEmpresas(Salida.CveUsuario, Salida.CveEmpresa) Then
If objUsr.GetUsuariosEmpresas(Salida.CveUsuario, Salida.CveEmpresa) Then
For Each Row As DataRow In ObjUsuarios.DtResultados.FiltraParametros("", "", {"CveEmpresa", "CveEncuestaCRM", "Empresa", "Tipo_CentroCosto"}).Rows
Empresas.Add(New WsEmpresa With {
.CveEmpresa = Row("CveEmpresa").ToString.ToEntero(),
@@ -523,7 +523,7 @@ Public Class WSSIGApp
Salida.Empresas = Empresas
ObjUsuarios.Dispose()
objUsr.Dispose()
retorno = Encripta(JsonConvert.SerializeObject(Salida), "AES")
End If
End If
@@ -548,7 +548,7 @@ Public Class WSSIGApp
Dim Salida As WSUSER = Nothing
Try
Dim tUsuario As New ClsSisUsuarios
Dim tUsuario As New ClsSisUsuarioAutenticacion
Dim UsuarioActual = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI)
If UsuarioActual IsNot Nothing Then
@@ -565,18 +565,20 @@ Public Class WSSIGApp
Dim UsuariosModulos As New List(Of WsModulos)
Dim Empresas As New List(Of WsEmpresa)
If tUsuario.GetUsuariosModulos(Salida.CveUsuario, Salida.CveEmpresa) Then
Dim objUsr As New ClsSisUsuarios(UsuarioActual:=UsuarioActual)
If objUsr.GetUsuariosModulos(Salida.CveUsuario, Salida.CveEmpresa) Then
Dim dttmp As DataTable = tUsuario.DtResultados.FiltraParametros("CvePlataforma = 4")
For Each Row As DataRow In dttmp.Rows
UsuariosModulos.Add(New WsModulos With {.CveModulo = Row("CveModulo").ToString.ToEntero, .CvePadre = Row("CvePadre").ToString.ToEntero, .CvePlataforma = 4, .Estilo = Row("Estilo").ToString, .Liga = Row("Liga").ToString, .Modulo = Row("Modulo").ToString})
Next
End If
Salida.Modulos = UsuariosModulos
If tUsuario.GetUsuariosEmpresas(Salida.CveUsuario, Salida.CveEmpresa) Then
If objUsr.GetUsuariosEmpresas(Salida.CveUsuario, Salida.CveEmpresa) Then
For Each Row As DataRow In tUsuario.DtResultados.Rows
Empresas.Add(New WsEmpresa With {.CveEmpresa = Row("CveEmpresa").ToString.ToEntero, .Empresa = Row("Empresa").ToString})
Next
End If
objUsr.Dispose()
Salida.Empresas = Empresas
retorno = JsonConvert.SerializeObject(Salida)
End If
@@ -603,7 +605,7 @@ Public Class WSSIGApp
Dim Ent = JsonConvert.DeserializeAnonymousType(decripParams, Estructura)
If IsCurrentDate(Ent.Ticks) Then
Dim tUsuario As New ClsSisUsuarios
Dim tUsuario As New ClsSisUsuarioAutenticacion
Dim UsuarioActual = tUsuario.ValidaUsuario(Ent.Usuario, Ent.Contrasenia, IMEI)
tUsuario.Dispose()
@@ -1784,15 +1786,15 @@ Public Class WSSIGApp
Public Function AddVentas(TipoDocto As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuario As Integer, SubTotal As Decimal, IVA As Decimal, CveMoneda As Integer, Observaciones As String, Productos As String) As String
Dim Retorno = New Modelos.Factura.MMensajeFactura()
Try
Dim ObjUsuarios As New ClsSisUsuarios()
Dim UsuarioActual As Usuario = Nothing
If ObjUsuarios.GetUsuarios(CveUsuario) Then
Dim ObjUsuarios As New ClsSisUsuarioAutenticacion
Dim UsuarioActual As Usuario = ObjUsuarios.GetUsuarioDetalle(CveUsuario)
If UsuarioActual IsNot Nothing Then
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
If ObjUsuarios.DtResultados.Rows.Count = 1 Then
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI)
CreaObjetoEmpresa(UsuarioActual)
' CreaObjetoEmpresa(UsuarioActual)
End If
End If
ObjUsuarios.Dispose()

2
asmx/WS_PuntoVenta.asmx
View File

@@ -739,7 +739,7 @@ Public Class WS_PuntoVenta
<WebMethod()>
Public Function GetUsuariosRolesProcesos(Usuario As String, Contraseña As String, CveProceso As Integer) As Integer
Dim CveUsuario As Integer = -1
Dim objUsuarios As New ClsSisUsuarios
Dim objUsuarios As New ClsSisUsuarioAutenticacion
Dim objUsuario As New Usuario
objUsuario = objUsuarios.ValidaUsuario(Usuario, Encripta(Contraseña))