diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index b41a954fe..e20897600 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -899,7 +899,11 @@ Partial Class RepVentaDetalle
                     pathPDF = Server.MapPath(String.Format("~/Empresas/{0}/PDF/{1}/{2}.pdf", UsuarioActual.CveEmpresa, TipoDocto, gvr.DataKey("SerieFolio").ToString))
 
                     If IO.File.Exists(pathPDF) Then
-                        DescargaZIP.AddFile(pathPDF, "")
+                        'NO AGREGAR ARCHIVOS REPETIDOS
+                        Dim File As New IO.FileInfo(pathPDF)
+                        If Not DescargaZIP.Any(Function(x) x.FileName.Contains(File.Name)) Then
+                            DescargaZIP.AddFile(pathPDF, gvr.DataKey("TipoDocumento").ToString)
+                        End If
                     End If
                 End If
             Next
@@ -910,7 +914,7 @@ Partial Class RepVentaDetalle
         Response.End()
     End Sub
     Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, CveUsuarioCreo As Integer) As Byte()
-        Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", "http://localhost/", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
+        Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", "http://localhost:85/", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
         Dim File As Byte() = Nothing
         Try
             Using httpClient = New HttpClient()
@@ -961,7 +965,11 @@ Partial Class RepVentaDetalle
                     pathXML = Server.MapPath(String.Format("~/Empresas/{0}/XML/{1}/{2}.xml", UsuarioActual.CveEmpresa, TipoDocto, gvr.DataKey("SerieFolio").ToString))
 
                     If IO.File.Exists(pathXML) Then
-                        DescargaZIP.AddFile(pathXML, "")
+                        'NO AGREGAR ARCHIVOS REPETIDOS
+                        Dim File As New IO.FileInfo(pathXML)
+                        If Not DescargaZIP.Any(Function(x) x.FileName.Contains(File.Name)) Then
+                            DescargaZIP.AddFile(pathXML, gvr.DataKey("TipoDocumento").ToString)
+                        End If
                     End If
                 End If
             Next