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