diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 5128cadec..d3f1a0ad3 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -6088,7 +6088,10 @@ Partial Class PV
                 TxtFechaPago.Text = NowADS().AddDays(PlazoCobranza).ToShortDateString
             Case 2 'CONTADO
                 If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant") Then
-                    DivContado.Visible = True
+                    'SI ES MODALIDAD COBRANZA, NO MOSTRAR
+                    If Not (UsuarioActual.Empresa.Funcionalidad(109) = "1") Then
+                        DivContado.Visible = True
+                    End If
                     TxtImporteContado.Text = TxtTotal.Text
                 End If
                 TxtFechaPago.Text = NowADS().ToShortDateString