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))