--FIX. bloquear a contado si tiene vencimientros, funcionalidad 702 con valor "2"

Ventas/Ventas.aspx.vb

@@ -7561,6 +7561,11 @@ Partial Class Ventas
             'CARGAR CREDITO DISPONIBLE AL GENERAR UNA FACTURA
         End If
 
+        ''SI NO PERMITE CREDITO, SUGIERE CONTADO
+        'If (UsuarioActual.Empresa.Funcionalidad(702).Contiene("1")) AndAlso Not PermiteCredito AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso (CveVenta <= 0 OrElse EsCreaApartirDe)) Then
+        '    RBLPago.SelectedValue = "2"
+        'End If
+
         If ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta <= 0) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) AndAlso RBLPago.SelectedValue = "1" AndAlso PermiteCredito Then
             'FUNCIONALIDAD 702 - NO VERIFICAR LIMITE DE CRÉDITO Y CANDADOS DE VENTA
             If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
@@ -8007,10 +8012,13 @@ Partial Class Ventas
 
                 If Opcion = 2 Then
                     Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
-                    BtnEmitirImprimir.Visible = False
-                    BtnsFacturar.Visible = False
-                    BtnGenerarRemision.Visible = False
-                    TieneBloqueoPorCreditoVencimiento = 1
+                    RBLPago.SelectedValue = "2"
+                    RBLPago.Items(0).Enabled = False
+                    RBLPago_SelectedIndexChanged(Nothing, Nothing)
+                    'BtnEmitirImprimir.Visible = False
+                    'BtnsFacturar.Visible = False
+                    'BtnGenerarRemision.Visible = False
+                    'TieneBloqueoPorCreditoVencimiento = 1
                 End If
             End If
         End If