AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- nombre de descarga de arcivo

Browse Source
This commit is contained in:
rrene
2024-10-22 16:04:49 -07:00
parent f26b29859f
commit 230fcd0023
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
OC/RepOC.aspx.vb
View File

@@ -550,12 +550,13 @@ Partial Class RepOC
params.Add(New ReportParameter("Titulo", "REPORTE DE ORDENES DE COMPRA POR ATENDER")) params.Add(New ReportParameter("Titulo", "REPORTE DE ORDENES DE COMPRA POR ATENDER"))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) 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 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) 'ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepOCPorAtender.rpt", DtPorAtender, params, "RepOCPorAtender", Formato), "RepOCPorAtender", Formato)
Else 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) 'ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepOCPorAtender.rpt"), DtPorAtender, params, "RepOCPorAtender", Formato), "RepOCPorAtender", Formato)
End If End If