funcionalidad, que al ser de credito, sea PPD-por definir y contado PUE-seleccione

Ventas/Ventas.aspx.vb

@@ -18670,12 +18670,22 @@ Partial Class Ventas
         Select Case RBLPago.SelectedValue.ToEntero()
             Case 1 'CREDITO
                 TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
+                'SI ES CREDITO EL METODO DE PAGO DEBE SER PPD
+                If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then
+                    DdlMetodoPago33.SelectedValueExist("3")
+                    DdlMetodoPago33.Enabled = False
+                End If
             Case 2 'CONTADO
                 If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then
                     DivContado.Visible = True
                     TxtImporteContado.Text = TxtTotal.Text
                 End If
                 TxtFechaPago.Text = Now.ToShortDateString
+                'SI ES CONTADO EL METODO DE PAGO DEBE SER PUE
+                If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then
+                    DdlMetodoPago33.SelectedValueExist("1")
+                    DdlMetodoPago33.Enabled = False
+                End If
             Case 3 ' TERMINAL
                 DivTerminal.Visible = True
                 TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
@@ -18683,6 +18693,7 @@ Partial Class Ventas
 
         LimpiaContado()
         UpContado.Update()
+        UPCondicionesPago.Update()
     End Sub
     Private Sub CargaCuentas()