-- cambio en las formas de pago, se permite PUE con forma 99, ya que es permitido timbrarlo

2025-03-04 11:47:31 -07:00
parent 424d1c6e69
commit a88e004586
1 changed files with 2 additions and 1 deletions
--- 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