Simplificar/limpiar código logos reportes RDLC

Contratos/ContratoObra.aspx.vb

@@ -2933,11 +2933,7 @@ Partial Class Contratos_ContratoObra
         params.Add(New ReportParameter("Estatus", ""))
         params.Add(New ReportParameter("Tipo", "-1"))
 
-        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}", "")))
 
         Dim lrds As New List(Of ReportDataSource)
         lrds.Add(New ReportDataSource("DataSet1", DsDatosPedDev.Tables(0)))
@@ -3438,11 +3434,7 @@ Partial Class Contratos_ContratoObra
         params.Add(New ReportParameter("FechaFin", TxtFechaFinal.Text.Trim))
         params.Add(New ReportParameter("TipoContrato", TipoDocumento))
         params.Add(New ReportParameter("TotalContrato", LblImporte.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}", "")))
         Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text)
         ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato)
     End Sub
@@ -3478,11 +3470,7 @@ Partial Class Contratos_ContratoObra
         params.Add(New ReportParameter("TotalContrato", LblImporte.Text))
         ' params.Add(New ReportParameter("Utilidad", UtilidadGastos))
 
-        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}", "")))
         Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text)
         ImprimirPDF("Empresas/Grales/Formatos/RepContratoGastos.rdlc", dt, params, $"{Nombre}-Gastos", Formato:=Formato)
     End Sub
@@ -3518,11 +3506,7 @@ Partial Class Contratos_ContratoObra
         params.Add(New ReportParameter("FechaFin", TxtFechaFinal.Text.Trim))
         params.Add(New ReportParameter("TipoContrato", TipoDocumento))
         params.Add(New ReportParameter("TotalContrato", LblImporte.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}", "")))
         Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text)
         ImprimirPDF("Empresas/Grales/Formatos/RepContratoSuministros.rdlc", dt, params, $"{Nombre}-Suministros", Formato:=Formato)
     End Sub
@@ -3550,11 +3534,7 @@ Partial Class Contratos_ContratoObra
         params.Add(New ReportParameter("TipoContrato", TipoDocumento))
         params.Add(New ReportParameter("TotalContrato", LblImporte.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}", "")))
         Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text)
         ImprimirPDF("Empresas/Grales/Formatos/ContratoAvance.rdlc", dt, params, $"{Nombre}-Avance", Formato:=Formato)
     End Sub
@@ -3582,11 +3562,7 @@ Partial Class Contratos_ContratoObra
         params.Add(New ReportParameter("TipoContrato", TipoDocumento))
         params.Add(New ReportParameter("TotalContrato", LblImporte.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}", "")))
         Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text)
         ImprimirPDF("Empresas/Grales/Formatos/RepContratoPresupuestos.rdlc", dt, params, $"{Nombre}-Presupuestos", Formato:=Formato)
     End Sub
@@ -3636,11 +3612,7 @@ Partial Class Contratos_ContratoObra
         params.Add(New ReportParameter("ValorActivo", LBLAFValorActivo.Text))
         params.Add(New ReportParameter("FiltroContratos", Filtro))
 
-        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}", "")))
         Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text)
         ImprimirPDF("Empresas/Grales/Formatos/RepContratoActivosFijos.rdlc", dt, params, $"{Nombre}-ActivosFijos", Formato:=Formato)
     End Sub