From cc25a413a6562dddadfb702e93cadffed0cf8dce Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 3 Apr 2024 13:06:38 -0700
Subject: [PATCH] =?UTF-8?q?--Pagos=20en=20ventas,=20si=20se=20usa=20m?=
 =?UTF-8?q?=C3=B3dulo=20de=20cobranza?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c7b10cc0c..1283449f3 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -23180,7 +23180,7 @@ Partial Class Ventas
                     TxtImporteContado.Text = TxtTotal.Text
                     'SI ES MODALIDAD COBRANZA, NO MOSTRAR
                     If (UsuarioActual.Empresa.Funcionalidad(109) = "1") Then
-                        DivContado.Visible = False
+                        DivContado.Visible = UsuarioActual.TienePermisoProceso(375)
                     End If
                 End If
                 TxtFechaPago.Text = NowADS().ToShortDateString