diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 2a8583eed..eceb0cc33 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2055,7 +2055,7 @@ Partial Class Ventas
                 DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Autorización", "PA"))
             End If
 
-            If UsuarioActual.CveEmpresa <> 141 Then
+            If Not UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 163) Then
                 LnkAgregarCliente.Visible = False
             End If