--Regenerar PDF cuando esta cancelado

--Porcentaje de IVA al imprimir pdf

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)

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)