From 2b1afcddd27ce2c86272d27f596f6d2b8ebb4c4a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 4 Apr 2023 18:19:02 -0700
Subject: [PATCH] =?UTF-8?q?--=20activar=20la=20direcci=C3=B3n=20de=20env?=
 =?UTF-8?q?=C3=ADo,=20en=20base=20a=20funcionalidad=20161?=
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 4ba9f331e..f558af84c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6488,7 +6488,7 @@ Partial Class Ventas
                 End If
 
                 'HABILITA LA OPCION DE DIRECCION DE ENVIO
-                If UsuarioActual.CveEmpresa.Contiene(1, 72, 119, 140) Then
+                If UsuarioActual.CveEmpresa.Contiene(1, 72, 119, 140, 172, 173, 174) OrElse UsuarioActual.Empresa.Funcionalidad(161) = "1" Then ' si tiene FNC:161, habilita carta porte
                     trDireccionEnvio.Visible = True
                     CargaDireccionesEnvio()
                 End If