From 99811acc6fb956093b3faecc9910e809b3ac0a5e Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 14 Feb 2025 12:33:26 -0700
Subject: [PATCH] --Promociones para productos adicionales

---
 Ventas/Ventas.aspx.vb | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 721d2d035..42a2c1b22 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -21191,9 +21191,24 @@ Partial Class Ventas
                             End If
                         End If
 
+                        Dim DescAdicional As Decimal = 0
+                        Dim CvePromoDetalle As Integer = -1
+                        Dim ObjDesc As New VentaDescuentos
 
                         If PrecioSugerido > 0 Then
                             PU = PrecioSugerido
+
+                            ObjDesc = CalcularDescuentos(CvePSAdicional, DrPoliza("Cantidad").ToString().ToDecimal(), PU)
+
+                            If ObjDesc IsNot Nothing Then
+                                If ObjDesc.EsPUModificado Then
+                                    PU = ObjDesc.PU
+                                End If
+
+                                DescAdicional = ObjDesc.ImporteDescuento
+                                CvePromoDetalle = ObjDesc.CvePromocionDetalle
+                            End If
+
                         End If
                         PU = PU.RoundSQL(6)
                         DrPoliza("PU") = PU
@@ -21213,7 +21228,7 @@ Partial Class Ventas
                         DrPoliza("PorcentajeIEPS") = DrPSAdicional("IEPSPorcentaje")
                         DrPoliza("ImporteIEPS") = (DrPSAdicional("IEPSPorcentaje").ToString().ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
                         DrPoliza("IEPS") = DrPoliza("ImporteIEPS")
-                        DrPoliza("Descuento") = 0 ' Descuento
+                        DrPoliza("Descuento") = DescAdicional ' Descuento
                         DrPoliza("TipoDescuento") = HdnTipoDescuento.Value
                         DrPoliza("Total") = (DrPoliza("Cantidad").ToString().ToDecimal * PU)
                         DrPoliza("TotalImporte") = (DrPoliza("Cantidad").ToString().ToDecimal * PU).RoundSQL(NumeroDecimales)
@@ -21221,7 +21236,7 @@ Partial Class Ventas
                         DrPoliza("SATClaveProdServ") = DrPSAdicional("SATClavePS")
                         DrPoliza("SATClaveUM") = DrPSAdicional("SATClaveUnidadMedida")
                         DrPoliza("CveActivoFijo") = -1
-                        DrPoliza("CvePromocionDetalle") = -1
+                        DrPoliza("CvePromocionDetalle") = CvePromoDetalle
 
                         TmpDT.Rows.Add(DrPoliza)
                     End If