diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index b1d582319..8baa88e9c 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -6750,7 +6750,7 @@ Public Class ClsPaginas
                     End If
 
                     'ECONOLLANTAS - AGREGAR QR DE DESCARGA
-                    If UsuarioActual.CveEmpresa = 141 Then
+                    If UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 163) Then
                         Dim QRDescarga As String = ""
 
                         Dim cfdi As New RVCFDI33.GeneraCFDI()