From 2064bfd13cd56e89c46b43a693f667bb82d70e3f Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 14 Jul 2023 16:45:27 -0700 Subject: [PATCH] Mostrar impuestos locales en refacturacion --- Ventas/Ventas.aspx | 2 +- Ventas/Ventas.aspx.vb | 31 ++++++++++++------------------- 2 files changed, 13 insertions(+), 20 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 38d20fbab..205201a92 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1551,7 +1551,7 @@ SubTotal 2: - + <%-- --%> diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 61376ad6f..7a7c8b88a 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2939,6 +2939,7 @@ Partial Class Ventas End If ObjInv.Dispose() + End If 'regenrea el tipo de cambio CargaNuevaFactura(Nothing) @@ -3199,15 +3200,6 @@ Partial Class Ventas TxtRetIVA.Attributes.Add("onKeyUp", "FnSuma()") TxtRetISR.Attributes.Add("onKeyUp", "FnSuma()") - 'Permitir Edicion de Iva - If UsuarioActual.Empresa.Funcionalidad(509) = "1" Then - TxtIVA.Enabled = True - 'TxtTotal.Enabled = True - RegistraScript("SetDisabledTxtTotal(false);") - TxtSubTotal.Enabled = True - TxtSubTotal2.Enabled = True - End If - 'Cortes de Caja If UsuarioActual.TienePermisoProceso(160) Then CargaCorteCaja() @@ -6031,7 +6023,12 @@ Partial Class Ventas GvImpuestosLocales2.DataSource = ObjVentas.DtResultados GvImpuestosLocales2.DataBind() - GvImpuestosLocales2.Enabled = False + If (NuevaFactura = 1) Then + GvImpuestosLocales2.Enabled = True + Else + GvImpuestosLocales2.Enabled = False + End If + GvImpuestosLocales2.Visible = True End If End If @@ -24264,14 +24261,6 @@ Partial Class Ventas RegistraScript("SetDisabledTxtTotal(true);") If TxtFolio.Text.Trim = "" Then TxtFolio.Enabled = True - If UsuarioActual.TienePermisoProceso(112) Then - TxtSubTotal.Enabled = True - TxtSubTotal2.Enabled = True - TxtIVA.Enabled = True - 'TxtTotal.Enabled = True - RegistraScript("SetDisabledTxtTotal(false);") - End If - TxtIVA.Text = IVA.FormatoNumero TxtRetIVA.Text = RetencionIVA.FormatoNumero LblDescuentos.Text = Descuentos.FormatoNumero @@ -29104,7 +29093,11 @@ Partial Class Ventas GvImpuestosLocales2.DataSource = ObjVentas.DtResultados GvImpuestosLocales2.DataBind() - GvImpuestosLocales2.Enabled = False + If (NuevaFactura = 1) Then + GvImpuestosLocales2.Enabled = True + Else + GvImpuestosLocales2.Enabled = False + End If GvImpuestosLocales2.Visible = True End If End If