-- que filtre Método y Forma, según su valor

Ventas/Ventas.aspx.vb

@@ -6154,14 +6154,10 @@ Partial Class Ventas
             dtt = GlobalDTVtaFormaPago
         End If
         DdlFormaPago33.Items.Clear()
-        'DdlFormaPago33.ClearSelection()
-        'DdlFormaPago33.DataBind()
         DdlFormaPago33.DataSource = dtt
         DdlFormaPago33.SelectedValue = dtt.FiltroPrimeroValor("CveFormaPago", "")
         DdlFormaPago33.DataBind()
 
-        DdlFormaCliente.DataSource = GlobalDTVtaFormaPago
-        DdlFormaCliente.DataBind()
         DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago
         DdlMetodoCliente.DataBind()
 
@@ -23508,7 +23504,8 @@ Partial Class Ventas
             RdTipoPersona.SelectedValue = "0"
 
             DdlMetodoCliente.SelectedValueExist(1)
-            DdlFormaCliente.SelectedValueExist(1)
+
+            'DdlFormaCliente.SelectedValueExist(1)
 
             DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales().FiltraParametros("CveRegimenFiscal = 11")
             DdlRegimenFiscalCliente.DataBind()
@@ -37116,5 +37113,16 @@ Partial Class Ventas
         Tab.ActiveTabIndex = 0
         Updatetabs.Update()
     End Sub
+
+    Private Sub DdlMetodoCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMetodoCliente.SelectedIndexChanged
+        DdlFormaCliente.Items.Clear()
+        If DdlMetodoCliente.SelectedValue = "3" Then
+            DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
+        Else
+            DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
+        End If
+        DdlFormaCliente.DataBind()
+
+    End Sub
 End Class