From d757b899726c341642c63fe8356ea399098dd04d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 9 Nov 2023 13:08:16 -0700 Subject: [PATCH] =?UTF-8?q?--correcci=C3=B3n=20de=20no=20desglosa=20iva?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx | 14 ++++++++------ Ventas/Ventas.aspx.vb | 4 ++++ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index a37d7075f..763a144dc 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -983,7 +983,13 @@ Poliza Total  - Comandos + Comandos +
+

+ +

+
+ @@ -1102,11 +1108,7 @@ -
-

- -

-
+ <%-- diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 510970c7c..7fb1bc60b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6408,6 +6408,10 @@ Partial Class Ventas DivClienteMsg.Visible = True LtlClienteMsg.Text = "Cálculo sin desglose de IEPS" End If + ViewState("ClienteNODesglosaIVA") = ObjCliente.NoDesglosaIVA + If ClienteNODesglosaIVA Then + LtlClienteMsg.Text += "
Cálculo sin desglose de IVA" + End If ViewState("CargoUsado") = ObjCliente.CargoUsados Dim dr As DataRow = Nothing