From 6d163d0fe3685226571c02c6f3cb1701223ab28b Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 15 Feb 2024 05:00:35 -0700 Subject: [PATCH] - mejora en ieps --- Ventas/RepVentas.aspx | 2 +- Ventas/RepVentas.aspx.vb | 16 +++++----------- 2 files changed, 6 insertions(+), 12 deletions(-) diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx index a0d7ae3f0..15ca9b94b 100644 --- a/Ventas/RepVentas.aspx +++ b/Ventas/RepVentas.aspx @@ -506,7 +506,7 @@ - + diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 66a52fd02..ecd30bce7 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -521,13 +521,9 @@ Partial Class Ventas_RepVentas Private Sub PrePersonalizacion() - 'ChkDescuentos.Visible = False - If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then - ChkIEPS.Visible = True - Else - ChkIEPS.Visible = False - GvDatos.Columns(7).Visible = False - End If + + If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then ChkIEPS.Visible = True + End Sub Protected Sub LnkPErsonalizar_Click(sender As Object, e As EventArgs) @@ -715,7 +711,6 @@ Partial Class Ventas_RepVentas Next - Personaliza() Else PersonalizaDefault() @@ -734,9 +729,8 @@ Partial Class Ventas_RepVentas ChkSubTotal2.Checked = True ChkIVA.Checked = True - If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then - ChkIEPS.Checked = True - End If + If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then ChkIEPS.Checked = True + 'ChkRetIVA.Checked = True 'ChkRetISR.Checked = True 'ChkImpLoc.Checked = True