diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb
index 60ac4617d..4338b5057 100644
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -788,7 +788,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
                     Archivo = String.Format("{0}PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta.Replace("\", "/"), Drow("TipoDocumento").ToString, Drow("SerieFolio").ToString)
                     If File.Exists(Archivo) Then
                         archiveZip.CreateEntryFromFile(Archivo, Drow("SerieFolio").ToString & ".pdf")
-                        If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(119, 141) Then
+                        If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(119, 141, 152, 159, 160, 161, 162, 166) Then
                             Archivo = String.Format("{0}XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta.Replace("\", "/"), Drow("TipoDocumento").ToString, Drow("SerieFolio").ToString)
                             If File.Exists(Archivo) Then
                                 archiveZip.CreateEntryFromFile(Archivo, Drow("SerieFolio").ToString & ".xml")