--FIX validacion bdh

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