diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b7f318e2b..9b8ada6eb 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2150,7 +2150,7 @@ Partial Class Ventas
                 DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Autorización", "PA"))
             End If
 
-            If Not UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 163) Then
+            If Not UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                 LnkAgregarCliente.Visible = False
             End If
 
@@ -2991,7 +2991,7 @@ Partial Class Ventas
         'UNA VEZ CARGADA LAS CONDICIONES DE PAGO INICIALMENTE, NO VUELVE A SOBREESCRIBIR EL VALOR
         CveFormaPago33Cliente = -1
 
-        If UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 163) Then
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             trRotacion.Visible = True
             trRotacionlbl.Visible = True
             trAlineacion.Visible = True