Simplificar/limpiar código logos reportes RDLC

Ventas/CatClientes.aspx.vb

@@ -202,11 +202,7 @@ Partial Class CatClientes
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.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/RepClientes.rdlc", DtClientes, params, "RepClientes")
 

Ventas/Clientes.aspx.vb

@@ -4048,11 +4048,7 @@ Partial Class Clientes
         'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         Dim params As New List(Of ReportParameter)
-        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}", "")))
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
@@ -6382,11 +6378,7 @@ Partial Class Clientes
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
             params.Add(New ReportParameter("Cliente", LtlCliente.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/ClienteHistorial.rdlc", DTHistorialVentas, params, "Reporte de Historial", "Excel")
         Else
@@ -6427,11 +6419,7 @@ Partial Class Clientes
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
             params.Add(New ReportParameter("Cliente", LtlCliente.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}", "")))
 
             retorno = StreamPDF("Empresas/Grales/Formatos/ClienteHistorial.rdlc", DTHistorialVentas, params, "Reporte de Historial")
         Else
@@ -6802,11 +6790,7 @@ Partial Class Clientes
         params.Add(New ReportParameter("AgrupadoPor", String.Format("<b>Cliente: </b>{0}", TxtNombreComercial.Text)))
         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\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
 
 
@@ -9888,11 +9872,7 @@ Partial Class Clientes
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("AgrupadoPor", "Cliente: " & LtlCliente.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\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
         Else
             Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)

Ventas/MetasVendedores.aspx.vb

@@ -126,11 +126,7 @@ Partial Class MetasVendedores
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
 
-        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}", "")))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
         params.Add(New ReportParameter("FechaImpresion", Today))
         params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))

Ventas/RepAuxiliarFacturas.aspx.vb

@@ -287,11 +287,7 @@ Partial Class Ventas_RepAuxiliarFacturas
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", $"{Cliente}{FechaInicio}{FechaFin}{Clasificacion}{PS}{Proyecto}{Estatus}"))
-            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/RepAuxiliarFacturas.rdlc", DtVentas, params, "ReporteAuxiliarFacturas")
         Else
             Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)

Ventas/RepCotizaciones.aspx.vb

@@ -137,11 +137,7 @@ Partial Class RepRemisiones
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.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/RepCotizaciones.rdlc", DtVentas, params, String.Format("RepCotizaciones-{0}", Now.ToDateTime.ToShortDateString))
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Ventas/RepCotizacionesDetalle.aspx.vb

@@ -99,11 +99,7 @@ Partial Class RepRemisionesDetalle
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.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/RepCotizacionesDetalle.rdlc", DtVentas, params, String.Format("RepCotizacionesDetalle-{0}", Now.ToDateTime.ToShortDateString))
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Ventas/RepNCxAplicar.aspx.cs

@@ -137,15 +137,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas
         //@params.Add(new ReportParameter("FechaInicio", txtFechaI.Text));
         //@params.Add(new ReportParameter("FechaFin", txtFechaF.Text));
 
-        if (Imagen.Exists)
-        {
-            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
-        }
-        else
-        {
-            @params.Add(new ReportParameter("LogoPath", ""));
-        }
-
+        @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : ""));
         this.ImprimirPDF("Empresas/Grales/Formatos/RepNCxAplicar.rdlc", DTDatos, @params, "Reporte de Notas de Credito por Aplicar", Formato);
 
     }

Ventas/RepPS.aspx.vb

@@ -219,11 +219,7 @@ Partial Class Ventas_RepPS
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             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}", "")))
             params.Add(New ReportParameter("Parametros", SbParametros.ToString()))
 
             If System.IO.File.Exists($"{UsuarioActual.Empresa.Ruta}Formatos/RepPS.rdlc") Then

Ventas/RepPUESinPago.aspx.vb

@@ -101,11 +101,7 @@ Partial Class Ventas_RepPUESinPago
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("AgrupadoPor", $"{FI}{FF}{cliente}{subProy}{vendedor}"))
 
-            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/RepPUESinPago.rdlc", DtDatos, params, "RepPUESinPago", Formato)
         Else

Ventas/RepProductosServicios.aspx.vb

@@ -570,11 +570,7 @@ Partial Class Ventas_RepProductosServicios
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", $"{Grupo}{Cliente}{FechaInicio}{FechaFin}{Categoria}{Clasificacion}{PS}{Proyecto}{Estatus}{Usuario}{Proveedor}"))
-            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/RepProductosServicios.rdlc", DtVentas, params, "ReportePS")
         Else
             Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)

Ventas/RepProductosServiciosDetalle.aspx.vb

@@ -784,11 +784,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
             Dim params As New List(Of ReportParameter)
 
             Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-            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}", "")))
 
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))

Ventas/RepRecuperacion.aspx.vb

@@ -261,11 +261,7 @@ Partial Class Ventas_RepRecuperacion
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.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(RutaPDF, DtDatos, params, String.Format("ReporteRecuperacion-{0}", Now.ToDateTime.ToShortDateString), Formato)
         Else
             Alert("No hay datos consultados.", TipoMensaje.MsgAdvertencia)

Ventas/RepRecuperacionDetalle.aspx.vb

@@ -358,11 +358,7 @@ Partial Class Ventas_RepRecuperacionDetalle
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.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(RutaPDF, DtDatos, params, String.Format("ReporteRecuperacionDetalle-{0}", Now.ToDateTime.ToShortDateString), Formato)
         Else
             Alert("No hay datos consultados.", TipoMensaje.MsgAdvertencia)

Ventas/RepRemisiones.aspx.vb

@@ -223,11 +223,7 @@ Partial Class RepRemisiones
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.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/RepRemisiones.rdlc", DtVentas, params, String.Format("ReporteRemisiones-{0}", Now.ToDateTime.ToShortDateString))
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Ventas/RepRemisiones2.aspx.vb

@@ -144,11 +144,7 @@ Partial Class RepRemisiones
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.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/RepRemisiones.rdlc", DtVentas, params, String.Format("ReporteRemisiones-{0}", Now.ToDateTime.ToShortDateString))
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Ventas/RepRemisionesDetalle.aspx.vb

@@ -251,11 +251,7 @@ Partial Class RepRemisionesDetalle
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.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/RepRemisionesDetalle.rdlc", DtVentas, params, String.Format("ReporteRemisionesDetalle-{0}", Now.ToDateTime.ToShortDateString))
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Ventas/RepVentaDetalle.aspx.vb

@@ -1050,11 +1050,7 @@ Partial Class RepVentaDetalle
             params.Add(New ReportParameter("TipoDocto", TipoDocto))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Grupo}  {TipoDocto} {FechaIn} {FechaFn} {FechaIEjec} {FechaFEjec} {CveCliente} {CveSucursal} {CveSucursalEjec}  {Vendedor} {CveUsuario}  {CveEstatusFactura} {CondicionesPago} "))
 
-            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}", "")))
 
 
 

Ventas/RepVentas.aspx.vb

@@ -696,11 +696,7 @@ Partial Class Ventas_RepVentas
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.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}", "")))
 
             If Archivo.Exists Then
                 ruta = UsuarioActual.Empresa.Ruta & "Formatos/RepVentas.rdlc"

Ventas/RepVentasPeriodo.aspx.vb

@@ -329,11 +329,7 @@ Partial Class RepVentasPeriodo
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.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}", "")))
 
             'Alert("El reporte requiere papel tipo oficio", TipoMensaje.MsgInformacion)
             ImprimirPDF("Empresas/Grales/Formatos/RepVentasPeriodo.rdlc", dt, params, String.Format("ReporteVentas-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)

Ventas/RepVentasUtilidad.aspx.vb

@@ -336,11 +336,7 @@ Partial Class Ventas_RepVentasUtilidad
             params.Add(New ReportParameter("PorNeto", LblPorNeto.Text + " %"))
             params.Add(New ReportParameter("UtilidadPerdida", LblNombreNeto.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/RepVentasUtilidad.rdlc", dt, params, "RepVentasUtilidad", Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Ventas/RepVentasUtilidadDetalle.aspx.vb

@@ -330,11 +330,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
             params.Add(New ReportParameter("PorPerdida", LblPorPerdida.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/RepVentasUtilidadDetalle.rdlc", dt, params, "RepVentasUtilidadDetalle", Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
@@ -379,11 +375,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Vendedor}{PS}{Clasificacion}{FechaIn}{FechaFn}"))
 
-            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/RepVentasUtilidadDetalleGeneral.rdlc", dt, params, "RepVentasUtilidadDetalle", Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Ventas/RepVentasUtilidadPadre.aspx.vb

@@ -284,10 +284,11 @@ Partial Class Ventas_RepVentasUtilidadPadre
         If DdlClientesWS.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Cliente</b>: {0}", DdlClientesWS.SelectedText)
         If DdlVendedor.GetSelectedText <> "" Then StrFiltro.AppendFormat("&emsp;<b>Vendedor</b>: {0}", DdlVendedor.GetSelectedText)
         If DdlMarcas.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Marcas</b>: {0}", DdlMarcas.SelectedItem.Text)
-        Dim params As List(Of ReportParameter) = New List(Of ReportParameter)()
-        Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = 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 = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+        Dim params As New List(Of ReportParameter)()
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString()))
@@ -295,19 +296,11 @@ Partial Class Ventas_RepVentasUtilidadPadre
         params.Add(New ReportParameter("Neto", LblNeto.Text))
         params.Add(New ReportParameter("PorNeto", $"{LblPorNeto.Text}%"))
         params.Add(New ReportParameter("Rentabilidad", $"{LblRentabilidad.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/RepVentasUtilidadPadre.rdlc", DtDatos, params, "Reporte de Utilidad o Pérdida sobre Ventas", Formato)
     End Sub
 
 #End Region
 
-
-
-
 End Class

Ventas/Ventas.aspx.vb

@@ -27153,11 +27153,7 @@ Partial Class Ventas
         params.Add(New ReportParameter("Dimensiones", Dimensiones))
         params.Add(New ReportParameter("FechaEstimada", FechaEstimada))
 
-        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(RutaRdlc, DTMovimientosDetalle, params, $"ReporteGuia_{Now.ToString("yyyyMMddhhmmss")}")