From a88e0045869af43e43f17d2c4024bec1201ca013 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 4 Mar 2025 11:47:31 -0700
Subject: [PATCH] -- cambio en las formas de pago, se permite PUE con forma 99,
 ya que es permitido timbrarlo

---
 Ventas/Ventas.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b8196ce13..278800915 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6639,7 +6639,8 @@ Partial Class Ventas
     Private Sub CargaFormaPago(CveMetodoPago As Integer)
         Dim dtt As DataTable = Nothing
         If CveMetodoPago > 0 Then
-            dtt = GlobalDTVtaFormaPago.FiltraParametros(If(CveMetodoPago = 1, " CveFormaPago <> 20 ", "CveFormaPago = 20"))
+            'si es PPD, siempre tiene que ser "99", pero si es PUE, si puede seleccionar hasta el "99"
+            dtt = GlobalDTVtaFormaPago.FiltraParametros(If(CveMetodoPago = 1, "", "CveFormaPago = 20"))
         Else
             dtt = GlobalDTVtaFormaPago
         End If