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