--FIX validacion bdh

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

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