From e733e6db82d06d4e7511ca78aa22d43602844fea Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 4 May 2023 18:11:08 -0700
Subject: [PATCH] -- funcioinalidad para activar carta porte

---
 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 caebcc4a0..fc778ada6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2450,7 +2450,7 @@ Partial Class Ventas
             UpFacturar.Update()
             'CargaTiposDocumentos()
             TrEmitir.Visible = False
-            If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83, 172, 173) Then
+            If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
                 DivCartaPorte.Visible = True
             End If
             ViewState("EstablecioFolio") = False