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 CveEmpresaToken As Integer = UserParams("CVEEMPRESA").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
Context.Session("UsuarioSIG") = UsuarioToken
End If
End If
End If
If Request("CVETIMBRE") IsNot Nothing AndAlso Request("CVETIMBRE") IsNot Nothing Then
ImprimeFormatoCartaPorteTimbrado(Request("CVETIMBRE").ToString.ToEntero)
End If
@@ -1154,40 +1154,24 @@ Partial Class PopUpVerFactura
End Sub
#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 ObjUsuarios As New ClsSisUsuarios
If ObjUsuarios.GetUsuarios(CveUsuario) Then
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
UsuarioToken.CveEmpresa = CveEmpresa
CreaObjetoEmpresa(UsuarioToken)
End If
'Dim tGrupoEmpresa As String = ClsPaginas.GlobalGrupoEmpresa(Request.Url.Host.ToUpper())
Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)
Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
UsuarioToken = ObjUsuarios.GetUsuarioDetalle(CveUsuario, CveEmpresa)
If UsuarioToken IsNot Nothing Then
Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
UsuarioToken.CveEmpresa = CveEmpresa
End If
ObjUsuarios.Dispose()
Return UsuarioToken
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
Private Sub SeleccionaReporte(UrlParametros As Hashtable)