From 1c06dbd2a28a8324a89c07b5e3105734c9c5b1f5 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 28 Dec 2024 16:06:19 -0700
Subject: [PATCH] --Regenerar PDF cuando esta cancelado --Porcentaje de IVA al
 imprimir pdf

---
 App_Code/ClsPaginas.vb | 12 +++++++++++-
 Ventas/Ventas.aspx.vb  |  4 ++++
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 0039b43eb..3e722fbae 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -5780,7 +5780,17 @@ Public Class ClsPaginas
                 DR = TmpDTImpuestos.NewRow()
                 If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
                 DR = TmpDTImpuestos.NewRow()
-                If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)
+                If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then
+                    DR("ImpuestoLocal") = "IVA"
+
+                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                        DR("ImpuestoLocal") = String.Format("IVA {0}%", dtVentas(0)("PorcentajeIVA").ToString.ToDouble * 100)
+                    End If
+
+                    DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble
+                    DR("Orden") = 50
+                    TmpDTImpuestos.Rows.Add(DR)
+                End If
 
                 'solo para eclipse, que muesre un subtotal debajo de IVA
                 If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 77aa2d0ef..39adff7c8 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5846,6 +5846,10 @@ Partial Class Ventas
                     End If
                     IdPoliza = DbRowVenta("IdPoliza").ToString().ToEntero()
 
+                    If DbRowVenta("CveEstatusFactura").ToString().Contiene("4", "5") Then
+                        HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&REGENERAR=1", CveVenta)))
+                    End If
+
                     If UsuarioActual.Empresa.UsaOS AndAlso DbRowVenta("CveOS").ToString().ToEntero() = 0 Then
                         BtnGenerarOS.Visible = True
                         BtnGenerarOS.OnClientClick = String.Format("javascriptwindow.location.href = '/OS/OrdenesServicios.aspx?CveVenta={0}'; return false;", CveVenta)