Simplificar/limpiar código logos reportes RDLC

Contabilidad/CatCuentas.aspx.vb

@@ -308,11 +308,7 @@ Partial Class Contabilidad_CatCuentas
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
-        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("Empresas/Grales/Formatos/CatCuentas.rdlc", DtDatos.FiltraParametros("", "Orden ASC"), params, String.Format("Catalogo Cuentas-{0}", Now.ToDateTime.ToShortDateString))
     End Sub

Contabilidad/FiltraPolizas.aspx.vb

@@ -230,11 +230,7 @@ Partial Class Contabilidad_FiltraPolizas
             params.Add(New ReportParameter("Ejercicio", DdlEjercicio.SelectedItem.ToString))
             params.Add(New ReportParameter("Periodo", DdlPeriodo.SelectedItem.ToString))
 
-            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
             ImprimirPDF("Empresas/Grales/Formatos/PolizasPeriodo.rdlc", dt, params, String.Format("ReporteDePolizas-{0} {1}", DdlEjercicio.SelectedItem, DdlPeriodo.SelectedItem), Formato:=Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Contabilidad/PopUpAuxiliar.aspx.vb

@@ -376,11 +376,7 @@ Partial Class PopUpAuxiliar
             params.Add(New ReportParameter("Importe", LtlImporte.Text))
             params.Add(New ReportParameter("Saldo", LtlSaldo.Text))
 
-            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
             ImprimirPDF("Empresas\Grales\Formatos\RepAuxiliarContable.rdlc", DTDatos, params, "RepAuxiliarContable_" & LtlFolio.Text, Formato:=Formato)
 

Contabilidad/RepBalanceGeneral.aspx.vb

@@ -1130,10 +1130,8 @@ Partial Class Contabilidad_RepBalanceGeneral
         'parametros a enviar al reporte                     
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-
-        Dim RutaLogo As String = String.Format("file://{0}Logo.png", UsuarioActual.Empresa.Ruta)
-        params.Add(New ReportParameter("pImg", RutaLogo))
-        'params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("pFechaFin", FechaF))
         params.Add(New ReportParameter("pSubtotal", DdlSubtotales.SelectedValue.ToString))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
@@ -1156,9 +1154,8 @@ Partial Class Contabilidad_RepBalanceGeneral
         'parametros a enviar al reporte                     
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim RutaLogo As String = String.Format("file://{0}Logo.png", UsuarioActual.Empresa.Ruta)
-        params.Add(New ReportParameter("pImg", RutaLogo))
-        'params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("pFechaI", DdlEjercicio.SelectedValue))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
         params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))

Contabilidad/RepEdoResultados2.aspx.vb

@@ -208,11 +208,7 @@ Partial Class Contabilidad_RepEdoResultados2
 
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
 
-        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         StrFiltro.AppendFormat("<b>Agrupado por</b>: {0}", DdlAgrupador.SelectedItem.Text)
 

Contabilidad/RepIEPS.aspx.vb

@@ -122,19 +122,15 @@ Partial Class Contabilidad_RepIEPS
         Dim Modalidad As String = $"&emsp;<b>Modalidad:</b> {DdlModalidad.SelectedItem.Text}"
 
         If DtDatos.Rows.Count > 0 Then
-            Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            'Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
             Dim para As List(Of ReportParameter) = New List(Of ReportParameter)()
             para.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             para.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             para.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString()))
             para.Add(New ReportParameter("Filtros", $"<b>Filtros:</b> {FechaI}{FechaF}{TipoOperacion}{Modalidad}"))
-
-            If Imagen.Exists Then
-                para.Add(New ReportParameter("LogoPath", logouri))
-            Else
-                para.Add(New ReportParameter("LogoPath", ""))
-            End If
+            para.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
             ImprimirPDF("Empresas/Grales/Formatos/RepIEPS.rdlc", DtDatos, para, "Reporte de IEPS", Opcion)
         Else

Contabilidad/RepIVADiferencias.aspx.vb

@@ -98,24 +98,14 @@ Partial Class Contabilidad_RepIVADiferencias
         Dim reportpath As String = Server.MapPath("~/Empresas/Grales/Formatos/RepIvaDiferencias.rdlc") '"Empresas/Grales/Formatos/RepIvaDiferencias.rdlc"
         'nombre del reporte
         Dim fileName As String = "Diferencias IVA"
-        Dim LogoRuta = String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)
 
         If Not IsNothing(DtDatos) AndAlso DtDatos.Rows.Count > 0 Then
 
             Dim params As New List(Of ReportParameter)
-            If File.Exists(LogoRuta) Then
-
-                If File.Exists(LogoRuta) Then
-                    LogoRuta = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                End If
-                'POR EMPRESA
-                params.Add(New ReportParameter("pImg", LogoRuta))
-            Else
-                params.Add(New ReportParameter("pImg", ""))
-            End If
+            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}", "")))
             'parametros a enviar al reporte         
             params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-            'params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
             params.Add(New ReportParameter("Ejercicio", Ejercicio.ToString))
             params.Add(New ReportParameter("Periodo", Periodo))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))