From 3cb056ac9557f29638d3ddf4cf21ea23810eb909 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 30 Jun 2024 23:21:37 -0700 Subject: [PATCH] =?UTF-8?q?--=20cambio=20en=20clase=20de=20validaci=C3=B3n?= =?UTF-8?q?=20de=20usuario?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx | 4 +-- Ventas/Ventas.aspx.vb | 63 ++++++++++++++++--------------------------- 2 files changed, 25 insertions(+), 42 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 1285c88c5..b48a74e8c 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1671,7 +1671,7 @@ Amort. Ant.: -   +   @@ -3682,7 +3682,7 @@ Referencia - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e4df44d3f..3d7dca82c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3658,8 +3658,8 @@ Partial Class Ventas tUsuario = DrUsuario("Usuario").ToString tContraseña = DrUsuario("Contraseña").ToString tCveEmpresa = DrUsuario("CveEmpresa").ToString.ToEntero - - Dim ObjUsuario As New ClsSisUsuarios + Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexionDominio(Request.Url.Host.ToUpper()) + Dim ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena) Dim Usuario As Usuario Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, CveEmpresa:=tCveEmpresa) @@ -3680,25 +3680,25 @@ Partial Class Ventas End If dt.Dispose() - Dim ObjEmpresa As New ClsSisEmpresas() - If ObjEmpresa.GetEmpresas(tCveEmpresa, "-1", "-1", "-1", "-1") Then - If ObjEmpresa.GetEmpresasFuncionalidades(tCveEmpresa) Then - Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados + 'Dim ObjEmpresa As New ClsSisEmpresas() + 'If ObjEmpresa.GetEmpresas(tCveEmpresa, "-1", "-1", "-1", "-1") Then + ' If ObjEmpresa.GetEmpresasFuncionalidades(tCveEmpresa) 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) + ' 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 + ' End If - Usuario.Empresa = ObjEmpresa.Empresa - ADSSession.ADSSessionConfig.sessionUser.CveEmpresa = ObjEmpresa.Empresa.CveEmpresa + ' Usuario.Empresa = ObjEmpresa.Empresa + ' ADSSession.ADSSessionConfig.sessionUser.CveEmpresa = ObjEmpresa.Empresa.CveEmpresa - ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, ObjEmpresa.Empresa.CveEmpresa) - End If - ObjEmpresa.Dispose() + ' ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, ObjEmpresa.Empresa.CveEmpresa) + 'End If + 'ObjEmpresa.Dispose() End If @@ -16723,7 +16723,7 @@ Partial Class Ventas If ObjMovtos.DtResultados.SUM("Saldo", "Saldo > 0 AND SaldoSubtotal > 0 AND Tipo = 'Ant'") > 0 Then HdnTieneAnticipos.Value = "1" End If - + If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DtMovtos IsNot Nothing AndAlso DtMovtos.Rows.Count = 0 Then ImgAntiPend.Visible = False End If @@ -31463,11 +31463,13 @@ Partial Class Ventas divAmortizacionTipoRelacion.Visible = False GVAnticipos.DataSource = DtMovtos GVAnticipos.DataBind() + If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True Else Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo = 'Ant' ", "")} {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}") divAmortizacionTipoRelacion.Visible = True If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then DtMovtos = DtMovtos.FiltraParametros($"{If(CveVenta < 0, $"Tipo = 'Ant'{If(DdlTipoComprobante.SelectedValue = "Ing", $" AND CveMoneda ={DdlMoneda.SelectedValue.ToEntero()}", "")} ", "")}") + If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True End If End If End If @@ -31477,7 +31479,6 @@ Partial Class Ventas 'cuando es amortización por descuento, debe tener seleccionado descuentos previamente registrados If DdlTipoAmortizacionAnticipo.SelectedValue = "1" AndAlso LblDescuentos.Text.ToDecimal <= 0 Then divAnticipoMsg.Visible = True - End If If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then @@ -37415,25 +37416,8 @@ Partial Class Ventas End Sub Public Sub CargaDdlAF() - Dim strAF = UsuarioActual.Empresa.Funcionalidad(380) - Dim CvePSAF As Integer = -1 - If String.IsNullOrEmpty(strAF) Then - Dim RowFuncionalidad380 As DataRow = Nothing - - Using ObjEmpresas As New ClsSisEmpresas - If ObjEmpresas.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then - RowFuncionalidad380 = ObjEmpresas.DtResultados.FiltroPrimero("CveFuncionalidad = 380") - End If - End Using - - If RowFuncionalidad380 IsNot Nothing Then - CvePSAF = RowFuncionalidad380("Valor").ToString().ToEntero() - End If - - Else - CvePSAF = strAF.ToEntero() - End If + Dim CvePSAF As Integer = UsuarioActual.Empresa.Funcionalidad(380).ToEntero If CvePSAF > 0 Then Dim dtt = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSAF, AplicaParaVenta:=1) ', SATClavePS:=CveSATNC @@ -38293,13 +38277,12 @@ Partial Class Ventas Protected Sub BtnAutorizarDescuento_Click(sender As Object, e As EventArgs) Dim UsuarioAutorizar As Usuario = Nothing - - Using ObjUsuario As New ClsSisUsuarios + Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexionDominio(Request.Url.Host.ToUpper()) + Using ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena) If RblTipoAutorizacionDesc.SelectedValue = "1" Then UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), CveEmpresa:=UsuarioActual.CveEmpresa) Else Dim CveUsuarioNuevo As Integer = -1 - Using ObjUsuarios As New ClsSisUsuarios CveUsuarioNuevo = ObjUsuarios.ValidaUsuarioCodigoAcceso(TxtCodAccDesc.Text.Trim, UsuarioActual.CveEmpresa) End Using