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

-- cambio de clase de validación

Browse Source
This commit is contained in:
rrene
2024-06-30 23:21:19 -07:00
parent 1aedcd972b
commit da8683d2e1
1 changed files with 16 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
Compras/PopUpVerFactura.aspx.vb
View File

@@ -94,15 +94,15 @@ Partial Class PopUpVerFactura
Dim UserParams As Hashtable = Parametros(Decripta((Request.Headers("ADSToken").ToString))) Dim UserParams As Hashtable = Parametros(Decripta((Request.Headers("ADSToken").ToString)))
Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero() Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero()
Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero() Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero()
If CveEmpresaToken > 0 AndAlso CveUsuario > 0 Then
Dim UsuarioToken As Usuario = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)
Dim UsuarioToken As Usuario = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario) If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then
Context.Session("UsuarioSIG") = UsuarioToken
If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then End If
Context.Session("UsuarioSIG") = UsuarioToken
End If End If
End If End If
If Request("CVETIMBRE") IsNot Nothing AndAlso Request("CVETIMBRE") IsNot Nothing Then If Request("CVETIMBRE") IsNot Nothing AndAlso Request("CVETIMBRE") IsNot Nothing Then
ImprimeFormatoCartaPorteTimbrado(Request("CVETIMBRE").ToString.ToEntero) ImprimeFormatoCartaPorteTimbrado(Request("CVETIMBRE").ToString.ToEntero)
End If End If
@@ -1154,40 +1154,24 @@ Partial Class PopUpVerFactura
End Sub End Sub
#Region "U S U A R I O - T O K E N" #Region "U S U A R I O - T O K E N"
Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario Private Function ValidaUsuarioSistema(CveEmpresa As Integer, CveUsuario As Integer) As Usuario
Dim UsuarioToken As Usuario = Nothing Dim UsuarioToken As Usuario = Nothing
Dim ObjUsuarios As New ClsSisUsuarios 'Dim tGrupoEmpresa As String = ClsPaginas.GlobalGrupoEmpresa(Request.Url.Host.ToUpper())
If ObjUsuarios.GetUsuarios(CveUsuario) Then Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() UsuarioToken = ObjUsuarios.GetUsuarioDetalle(CveUsuario, CveEmpresa)
UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa) If UsuarioToken IsNot Nothing Then
UsuarioToken.CveEmpresa = CveEmpresa Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
CreaObjetoEmpresa(UsuarioToken) Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
End If UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
UsuarioToken.CveEmpresa = CveEmpresa
End If End If
ObjUsuarios.Dispose() ObjUsuarios.Dispose()
Return UsuarioToken Return UsuarioToken
End Function End Function
Private Sub CreaObjetoEmpresa(ByRef UsuarioToken As Usuario)
Dim ObjEmpresa As New ClsSisEmpresas()
If ObjEmpresa.GetEmpresas(UsuarioToken.CveEmpresa, "-1", "-1", "-1", "-1") Then
If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioToken.CveEmpresa) Then
Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
Dim EmpresasFuncionalidades As New HybridDictionary
For Each Row As Data.DataRow In dttmp.Rows
EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
Next
ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
End If
UsuarioToken.Empresa = ObjEmpresa.Empresa
End If
ObjEmpresa.Dispose()
End Sub
#End Region #End Region
Private Sub SeleccionaReporte(UrlParametros As Hashtable) Private Sub SeleccionaReporte(UrlParametros As Hashtable)