From d5fb7bb02fd9ca85b526289d0767847048bce4d9 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 25 Feb 2025 09:21:25 -0700
Subject: [PATCH] --FIX validacion bdh

---
 App_Code/Modelos.vb   | 15 +++++++++++----
 Ventas/Ventas.aspx.vb | 11 ++++++++---
 2 files changed, 19 insertions(+), 7 deletions(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index ea5c15c34..26e98bffa 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -1689,9 +1689,16 @@ Namespace Modelos
             Timbre.Comprobante.Folio = Me.Folio.ToString()
             Timbre.Comprobante.Serie = Me.Serie
             Timbre.Comprobante.Fecha = Me.FechaCP
-            Timbre.Comprobante.FormadePago = Me.ClaveFormaPagoSAT
-            Timbre.Comprobante.CondicionesdePago = Me.FormaPago
-            Timbre.Comprobante.MetodoPago = Me.ClaveMetodoPagoSAT
+
+            'Timbre.Comprobante.FormadePago = Me.ClaveFormaPagoSAT
+            'Timbre.Comprobante.CondicionesdePago = Me.FormaPago
+            'Timbre.Comprobante.MetodoPago = Me.ClaveMetodoPagoSAT
+
+            Timbre.Comprobante.MetodoPago = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {Me.CveMetodoPago}")
+            Timbre.Comprobante.FormadePago = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {Me.CveFormaPago}")
+            Timbre.Receptor.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {Me.CveUsoCFDI}")
+            Timbre.Comprobante.CondicionesdePago = ClsPaginas.GlobalDTVtaFormaPago().FiltroPrimeroValor("FormaPago", $"CveFormaPago = {Me.CveFormaPago}")
+
             Timbre.Comprobante.SubTotal = Me.SubTotal
             Timbre.Comprobante.Descuentos = Me.Descuento
             Timbre.Comprobante.Moneda = Me.MonedaSAT
@@ -1720,7 +1727,7 @@ Namespace Modelos
 
             Timbre.Receptor.ResidenciaFiscal = ""
             Timbre.Receptor.NumeroRegistroTributario = ""
-            Timbre.Receptor.UsoCFDI = Me.ClaveUsoCFDISAT
+            'Timbre.Receptor.UsoCFDI = Me.ClaveUsoCFDISAT
 
             Dim totSubTotal As Decimal = Me.SubTotal
             Dim totIVA As Decimal = Me.IVA
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index bc0e3cf97..5801685e7 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10590,10 +10590,15 @@ Partial Class Ventas
                     Dim PU As Decimal = Row("PU").ToString().ToDecimal()
                     Dim Descuento As Decimal = Row("Descuento").ToString().ToDecimal()
 
-                    If Not ValidaPorcentajeMarcas(CvePS, Cantidad, PU, Descuento) Then
-                        ValidoDescuentos = False
-                        Exit For
+                    Dim EsGarantia As Boolean = Me.EsGarantia OrElse Row("Obs").ToString().Contains("Descuento por garantía")
+
+                    If Not EsGarantia Then
+                        If Not ValidaPorcentajeMarcas(CvePS, Cantidad, PU, Descuento) Then
+                            ValidoDescuentos = False
+                            Exit For
+                        End If
                     End If
+
                 Next
             End If