Simplificar referencias a logos en RDLC y más limpieza de código

2022-12-22 19:26:13 -07:00
parent 2e4bfe761b
commit 5ef0983e77
260 changed files with 446 additions and 591 deletions
--- a/AC/CatClasificacionFuncional.aspx.vb
+++ b/AC/CatClasificacionFuncional.aspx.vb
@@ -268,7 +268,7 @@ Partial Class AC_CatClasificacionFuncional
    Protected Sub ImprimiReporte()
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("AC/Reportes/RepClasificacionFuncional.rdlc", DtClasificacionFuncional, params, "ReporteClasificacionFuncional")
--- a/AC/CatClasificacionGeografica.aspx.vb
+++ b/AC/CatClasificacionGeografica.aspx.vb
@@ -288,7 +288,7 @@ Partial Class AC_CatClasificacionGeografica
    Protected Sub ImprimiReporte()
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("AC/Reportes/RepClasificacionGeografica.rdlc", DtClasificacionGeografica, params, "ReporteClasificacionGeografica")
--- a/AC/CatFuentesFinanciamiento.aspx.vb
+++ b/AC/CatFuentesFinanciamiento.aspx.vb
@@ -288,7 +288,7 @@ Partial Class AC_CatFuentesFinanciamiento
    Protected Sub ImprimiReporte()
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("AC/Reportes/RepFuentesFinanciamiento.rdlc", DtFuentesFinanciamiento, params, "ReporteFuentesFinanciamiento")
--- a/AC/CatFuentesFinanciamientoCONAC.aspx.vb
+++ b/AC/CatFuentesFinanciamientoCONAC.aspx.vb
@@ -286,7 +286,7 @@ Partial Class AC_CatFuentesFinanciamientoCONAC
    Protected Sub ImprimiReporte()
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("AC/Reportes/RepFuentesFinanciamientoCONAC.rdlc", DtFuentesFinanciamientoCONAC, params, "ReporteFuentesFinanciamientoCONAC")
--- a/AC/CatFuentesRecaudacion.aspx.vb
+++ b/AC/CatFuentesRecaudacion.aspx.vb
@@ -267,7 +267,7 @@ Partial Class AC_CatFuentesRecaudacion
    Protected Sub ImprimiReporte()
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("AC/Reportes/RepFuentesRecaudacion.rdlc", DtFuentesRecaudacion, params, "ReporteFuentesRecaudacion")
--- a/AC/CatOGClasificaciones.aspx.vb
+++ b/AC/CatOGClasificaciones.aspx.vb
@@ -277,7 +277,7 @@ Partial Class AC_CatOGClasificaciones
    Protected Sub ImprimirReporte()
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("AC/Reportes/RepOGClasificaciones.rdlc", DtOGClasificaciones, params, "ReporteOGClasificaciones")
--- a/AC/CatPresupuestoEgresos.aspx.vb
+++ b/AC/CatPresupuestoEgresos.aspx.vb
@@ -416,7 +416,7 @@ Partial Class AC_CatPresupuestoEgresos
        'parametros a enviar al reporte                     
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
        params.Add(New ReportParameter("pTotal", pTotal))
--- a/AC/CatPresupuestoIngresos.aspx.vb
+++ b/AC/CatPresupuestoIngresos.aspx.vb
@@ -326,7 +326,7 @@ Partial Class AC_CatPresupuestoIngresos
        'parametros a enviar al reporte                     
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
        'params.Add(New ReportParameter("pTotal", pTotal))
--- a/AC/CatUnidadesAdministrativas.aspx.vb
+++ b/AC/CatUnidadesAdministrativas.aspx.vb
@@ -210,7 +210,7 @@ Partial Class AC_CatUnidadesAdministrativas
    Protected Sub ImprimiReporte()
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("AC/Reportes/RepCatUnidadesAdministrativas.rdlc", DtUnidadesAdministrativas, params, "ReporteUnidadesAdministrativas")
--- a/AC/RegIngresosModificaciones.aspx.vb
+++ b/AC/RegIngresosModificaciones.aspx.vb
@@ -286,7 +286,7 @@ Partial Class AC_RegIngresosModificaciones
        'parametros a enviar al reporte                     
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pEjercicio", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("pSaldo", pSaldo))
--- a/AC/RepAnaliticoDeudaPublica.aspx.vb
+++ b/AC/RepAnaliticoDeudaPublica.aspx.vb
@@ -217,7 +217,7 @@ Partial Class AC_RepAnaliticoDeudaPublica
        Dim params As New List(Of ReportParameter)

        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFechaIni", FechaDel))
        params.Add(New ReportParameter("pFechaFin", FechaAl))
--- a/AC/RepCambiosSituacionFinanciera.aspx.vb
+++ b/AC/RepCambiosSituacionFinanciera.aspx.vb
@@ -253,7 +253,7 @@ Partial Class AC_RepCambiosSituacionFinanciera
    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
        params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0} Director Administrativo", vbCrLf)))
--- a/AC/RepEstadoActividades.aspx.vb
+++ b/AC/RepEstadoActividades.aspx.vb
@@ -328,7 +328,7 @@ Partial Class AC_RepEstadoActividades
        params.Add(New ReportParameter("lbTotalActual", LbTotalActual.Text))
        params.Add(New ReportParameter("lbTotalAnterior", LbTotalAnterior.Text))
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
            params.Add(New ReportParameter("pFirma1", String.Format("Ing. Héctor Díaz Young{0}Dirección Administrativa", vbCrLf)))
--- a/AC/RepEstadoAnaliticoActivo.aspx.vb
+++ b/AC/RepEstadoAnaliticoActivo.aspx.vb
@@ -113,7 +113,7 @@ Partial Class AC_RepEstadoAnaliticoActivo
        Dim params As New List(Of ReportParameter)

        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFechaIni", DdlEjercicio.SelectedItem.ToString))
        params.Add(New ReportParameter("pFechaFin", DdlPeriodo.SelectedItem.ToString))
--- a/AC/RepFlujoEfectivo.aspx.vb
+++ b/AC/RepFlujoEfectivo.aspx.vb
@@ -231,7 +231,7 @@ Partial Class AC_RepFlujoEfectivo
    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pAl", FechaAl))
        params.Add(New ReportParameter("pTotalActual", TotalActual.ToString.FormatoNumero))
--- a/AC/RepIngresos.aspx.vb.exclude
+++ b/AC/RepIngresos.aspx.vb.exclude
@@ -57,7 +57,7 @@ Partial Class AC_RepIngresos
    Protected Sub ImprimiReporte()
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("AC/Reportes/RepPresupuestoIngresos.rdlc", DtIngresos, params, "ReporteIngresos")
--- a/AC/RepMatrizEgresos.aspx.vb
+++ b/AC/RepMatrizEgresos.aspx.vb
@@ -96,7 +96,7 @@ Partial Class AC_RepMatrizEgresos
    Protected Sub ImprimiReporte()
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("AC/Reportes/RepMatrizEgresos.rdlc", GlobalDTAC_MatrizEgresos, params, "RepMatrizEgresos")
--- a/AC/RepMatrizIngresos.aspx.vb
+++ b/AC/RepMatrizIngresos.aspx.vb
@@ -93,7 +93,7 @@ Partial Class AC_RepMatrizIngresos
    Protected Sub ImprimiReporte()
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("AC/Reportes/RepMatrizIngresos.rdlc", GlobalDTAC_MatrizIngresos, params, "ReporteMatrizEgresos")
--- a/AC/RepPresupuestoEgresos.aspx.vb
+++ b/AC/RepPresupuestoEgresos.aspx.vb
@@ -219,10 +219,10 @@ Partial Class AC_RepPresupuestoEgresos

 #Region "I M P R I M I R "
    Protected Sub ImprimiReporte(Optional Formato As String = "PDF")
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
        params.Add(New ReportParameter("pFechaCorte", txtFechaF.Text))
@@ -232,25 +232,19 @@ Partial Class AC_RepPresupuestoEgresos
        'Dim rds As New ReportDataSource
        'rds.Name = "DataSet1"
        'rds.Value = DtPresupuestoEgresos
+		'Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

        'MasterReporteador.LocalReport.DataSources.Clear()
        'MasterReporteador.LocalReport.DataSources.Add(rds)
        'MasterReporteador.LocalReport.ReportPath = "AC/Reportes/RepPresupuestoEgresos.rdlc"
-
        'MasterReporteador.ProcessingMode = ProcessingMode.Local
        'MasterReporteador.LocalReport.EnableExternalImages = True
-        'Dim params As New List(Of ReportParameter)

+        'Dim params As New List(Of ReportParameter)
        'params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        'If Imagen.Exists Then
-        '    params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}"))
-        'Else
-        '    params.Add(New ReportParameter("pImg", ""))
-        'End If
+        'params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        'MasterReporteador.LocalReport.SetParameters(params)
-
        'MasterReporteador.LocalReport.Refresh()

        'Dim warnings As Warning() = Nothing
--- a/AC/RepPresupuestoEgresosDetalle.aspx.vb
+++ b/AC/RepPresupuestoEgresosDetalle.aspx.vb
@@ -110,7 +110,7 @@ Partial Class AC_RepPresupuestoEgresosDetalle
    Public Sub Imprimir(Formato As String)
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("Img", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("Fecha", Now.ToString("dd/MM/yyyy")))
        ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/RepPresupuestosEgresos.rdlc", DtDatos, params, $"Rep.PresupuestosEgresos - {Now.ToShortDateString}", Formato:=Formato)
--- a/AC/RepPresupuestoEgresosMensual.aspx.vb
+++ b/AC/RepPresupuestoEgresosMensual.aspx.vb
@@ -165,12 +165,14 @@ Partial Class AC_RepPresupuestoEgresosMensual
    End Sub

    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+	    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
        params.Add(New ReportParameter("pMomentoContable", DdlTipoCuenta.SelectedItem.ToString))
+
        ImprimirPDF("AC/Reportes/RepPresupuestoEgresosMensual.rdlc", DtPresupuestoEgresos, params, "RepPresupuestoEgresosMensual", Formato)
    End Sub
 #End Region
--- a/AC/RepPresupuestoIngresos.aspx.vb
+++ b/AC/RepPresupuestoIngresos.aspx.vb
@@ -155,16 +155,15 @@ Partial Class AC_RepPresupuestoIngresos

 #Region "I M P R I M I R "
    Protected Sub ImprimirReporte(Optional Formato As String = "PDF")
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("pFechaCorte", FechaCorte.ToShortDateString))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))

        ImprimirPDF("AC/Reportes/RepPresupuestoIngresos.rdlc", DtIngresos, params, "ReportePresupuestoIngresos", Formato)
-
    End Sub
 #End Region

--- a/AC/RepPresupuestoIngresosMensual.aspx.vb
+++ b/AC/RepPresupuestoIngresosMensual.aspx.vb
@@ -130,12 +130,14 @@ Partial Class AC_RepIngresosMensuales
    End Sub

    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue))
        params.Add(New ReportParameter("pMomentoContable", DdlMomentoContable.SelectedItem.ToString))
+
        ImprimirPDF("AC/Reportes/RepPresupuestoIngresosMensual.rdlc", DtIngresos, params, "ReportePresupuestoIngresosMensual", Formato)
    End Sub
 #End Region
--- a/AC/RepProgramaOperativo.aspx.vb
+++ b/AC/RepProgramaOperativo.aspx.vb
@@ -177,7 +177,7 @@ Partial Class AC_RepProgramaOperativo
        'parametros a enviar al reporte                     
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
        ImprimirPDF(reportpath, DtProgramaOperativo, params, fileName, Formato)
--- a/AC/RepSituacionFinanciera.aspx.vb
+++ b/AC/RepSituacionFinanciera.aspx.vb
@@ -638,7 +638,7 @@ Partial Class AC_SituacionFinanciera
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("CveEmpresa", UsuarioActual.CveEmpresa.ToString))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
--- a/AC/RepVariacionHaciendaPublica.aspx.vb
+++ b/AC/RepVariacionHaciendaPublica.aspx.vb
@@ -384,7 +384,7 @@ Partial Class AC_RepVariacionHaciendaPublica
        Dim params As New List(Of ReportParameter)

        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFechaIni", TxtFechaDel.Text))
        params.Add(New ReportParameter("pFechaFin", TxtFechaAl.Text))