diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb
index 26e7ebe69..32a7e9d63 100644
--- a/OC/RepOC.aspx.vb
+++ b/OC/RepOC.aspx.vb
@@ -550,12 +550,13 @@ Partial Class RepOC
             params.Add(New ReportParameter("Titulo", "REPORTE DE ORDENES DE COMPRA POR ATENDER"))
 
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+            Dim NombreArchivoDescargar As String = $"RepOCPorAtender{If(DdlProyectos.SelectedValue <> "-1", "_" & DdlProyectos.SelectedItem.Text, "")}_{DateTime.Now.ToShortDateString}"
 
             If Archivo.Exists Then
-                ImprimirPDF($"{UsuarioActual.Empresa.Ruta}Formatos/RepOCPorAtender.rdlc", DtPorAtender, params, "RepOCPorAtender", Formato)
+                ImprimirPDF($"{UsuarioActual.Empresa.Ruta}Formatos/RepOCPorAtender.rdlc", DtPorAtender, params, NombreArchivoDescargar, Formato)
                 'ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepOCPorAtender.rpt", DtPorAtender, params, "RepOCPorAtender", Formato), "RepOCPorAtender", Formato)
             Else
-                ImprimirPDF("Empresas/Grales/Formatos/RepOCPorAtender.rdlc", DtPorAtender, params, "RepOCPorAtender", Formato)
+                ImprimirPDF("Empresas/Grales/Formatos/RepOCPorAtender.rdlc", DtPorAtender, params, NombreArchivoDescargar, Formato)
                 'ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepOCPorAtender.rpt"), DtPorAtender, params, "RepOCPorAtender", Formato), "RepOCPorAtender", Formato)
             End If