From 3fa9c5030f22d19e81bb605fb4c5d71e60b66d8b Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Tue, 1 Dec 2020 13:11:33 -0700
Subject: [PATCH] se agregaron las empresas franquicias a la generacion de
 codigo qr para econo

---
 App_Code/ClsPaginas.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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()