diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 2580050e6..a10832cd9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2407,7 +2407,7 @@ Partial Class Ventas
             UpFacturar.Update()
             'CargaTiposDocumentos()
             TrEmitir.Visible = False
-            If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+            If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83, 172, 173) Then
                 DivCartaPorte.Visible = True
             End If
             ViewState("EstablecioFolio") = False
@@ -17750,7 +17750,7 @@ Partial Class Ventas
         End If
 
         'SI NO TIENE LA FUNCIONALIDAD VALIDARA LAS MONEDAS
-        If Not UsuarioActual.Empresa.Funcionalidad(524) <> "" Then
+        If UsuarioActual.Empresa.Funcionalidad(524) <> "" Then
             If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count >= 1 Then
                 Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
                 If DrPS IsNot Nothing Then