Clientes restriccion Forma de pago ,Portal Proveedores Descarga de comprobantes

Ventas/Clientes.aspx.vb

@@ -1656,7 +1656,8 @@ Partial Class Clientes
 
                 DdlUsoCFDI.SelectedValueExist(ObjClientes.CveUsoCFDI.ToString())
                 DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago33.ToString())
-                DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
+                'DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
+                CargaFormaDePago(ObjClientes.CveFormaPago33)
                 If ObjClientes.CveRegimenFiscal > 0 Then DdlRegimenFiscal.SelectedValueExist(ObjClientes.CveRegimenFiscal)
 
                 ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS
@@ -10583,5 +10584,36 @@ Partial Class Clientes
         UpLineaAdicionalmodal.Update()
 
     End Sub
+
+    Protected Sub DdlMetodoPago33_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        CargaFormaDePago(-1)
+
+    End Sub
+
+    Private Sub CargaFormaDePago(Optional CveFormaPago As Integer = -1)
+
+        DdlFormaPago33.Items.Clear()
+
+        If DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
+            DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
+        Else
+            DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
+        End If
+
+        DdlFormaPago33.DataBind()
+
+        If Not DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
+            DdlFormaPago33.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        End If
+
+        If CveFormaPago > 0 Then
+            DdlFormaPago33.SelectedValueExist(CveFormaPago)
+        End If
+
+        UpFiscalContable.Update()
+
+    End Sub
+
 End Class