Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/Ventas.aspx.vb

@@ -6151,14 +6151,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()
 
@@ -23505,7 +23501,8 @@ Partial Class Ventas
             RdTipoPersona.SelectedValue = "0"
 
             DdlMetodoCliente.SelectedValueExist(1)
-            DdlFormaCliente.SelectedValueExist(1)
+
+            'DdlFormaCliente.SelectedValueExist(1)
 
             DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales().FiltraParametros("CveRegimenFiscal = 11")
             DdlRegimenFiscalCliente.DataBind()
@@ -37120,5 +37117,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