From fc0ccfe0ba216dd5e8a02a012213d5165c28545d Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 8 Jan 2022 12:03:22 -0700 Subject: [PATCH] conciliaciones que tome el archivo rdlc de la empresa --- Bancos/ConciliacionesBancarias.aspx.vb | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index 2ff487e3a..f48bb590a 100644 --- a/Bancos/ConciliacionesBancarias.aspx.vb +++ b/Bancos/ConciliacionesBancarias.aspx.vb @@ -667,7 +667,13 @@ Partial Class Bancos_ConciliacionesBancariasaspx params.Add(New ReportParameter("LogoPath", "")) End If - ImprimirPDF("Empresas/Grales/Formatos/Conciliacion.rdlc", lrds, params, $"Conciliacion Bancaria {NombreMes} {txtFechaI.Text.ToDate.Year}", Formato) + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/Conciliacion.rdlc" + + If Not IO.File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/Conciliacion.rdlc" + End If + + ImprimirPDF(Archivo, lrds, params, $"Conciliacion Bancaria {NombreMes} {txtFechaI.Text.ToDate.Year}", Formato) End Sub #End Region