Simplificar/limpiar código logos reportes RDLC

AF/AF.aspx.vb

@@ -4148,11 +4148,7 @@ Partial Class AF_AF
 
         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}", "")))
 
         ImprimirPDF("Empresas/Grales/Formatos/RepComprasInsumos.rdlc", DTCompras, params, "RepComprasInsumos", Formato)
 

AF/CatAF.aspx.vb

@@ -464,11 +464,7 @@ Partial Class AF_CatAF
             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}", "")))
 
             If Archivo.Exists Then
                 Ruta = UsuarioActual.Empresa.Ruta & "Formatos/CatAF.rdlc"

AF/RepAF.aspx.vb

@@ -332,11 +332,7 @@ Partial Class AF_RepAF
             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(String.Format("{0}Formatos\RepAF.rdlc", UsuarioActual.Empresa.Ruta), DtActivosFijos, params, "ReporteActivosFijos", Formato:=Formato)
 
         Else

Acarreos/RepContratosAcarreos.aspx.vb

@@ -184,11 +184,7 @@ Partial Class Acarreos_RepContratosAcarreos
             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/RepContratosAcarreos.rdlc", DTCont, params, String.Format("RepContratosAcarreos-{0}", Now.ToDateTime.ToShortDateString), "Excel")
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Acarreos/RepContratosAcarreosDetalle.aspx.vb

@@ -239,11 +239,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
             params.Add(New ReportParameter("PresEstimado", LblPresEstimado.Text))
             params.Add(New ReportParameter("VolF", LblVolFaltante.Text))
             params.Add(New ReportParameter("PresF", LblPresFaltante.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/RepContratosAcarreosDetalle.rdlc", DTCont, params, String.Format("RepContratosAcarreosDetalle-{0}", Now.ToDateTime.ToShortDateString), "Excel")
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Acarreos/RepPreEstimacionDetalle.aspx.vb

@@ -135,11 +135,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle
             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/RepPreEstimacionDetalle.rdlc", DTCont, params, String.Format("RepPreEstimacionDetalle-{0}", Now.ToDateTime.ToShortDateString), "Excel")
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Acumuladores/RepIndicadorDiario.aspx.vb

@@ -204,11 +204,7 @@ Partial Class ACumuladores_RepIndicadorDiario
             params.Add(New ReportParameter("FechaImpresion", Now.ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Filtros Por:</b>  {FechaIn} {FechaFn} {SubProyecto} "))
 
-            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/RepIndicadorDiario.rdlc", DtDatos, params, $"RepIndicadorDiario_{Now.ToString("yyyyMMddhhmmss")}", Opcion)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Bancos/CatBancos.aspx.vb

@@ -222,11 +222,7 @@ Partial Class Bancos_CatBancos
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            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/RepBancos.rdlc", DtBan, params, "Reporte Bancos", Formato)
         Else
             Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)

Bancos/ConciliacionesBancarias.aspx.vb

@@ -550,10 +550,9 @@ Partial Class Bancos_ConciliacionesBancariasaspx
         GeneraPDF(Formato)
     End Sub
     Protected Sub GeneraPDF(Formato As String)
-        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 Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
 
+        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()))
@@ -661,12 +660,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
         params.Add(New ReportParameter("SaldoFinalContabilidadComplementaria", (SaldoFinalContabilidadComplementaria.FormatoNumero)))
         params.Add(New ReportParameter("Diferencia", (SaldoFinalLibros - SaldoFinalContabilidad).FormatoNumero))
         params.Add(New ReportParameter("Filtros", Filtros))
-
-        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 Archivo As String = $"{UsuarioActual.Empresa.Ruta}Formatos/Conciliacion.rdlc"
 

Bancos/CuentasBancarias.aspx.vb

@@ -158,11 +158,7 @@ Partial Class Bancos_CuentasBancarias
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            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/CuentasBancarias.rdlc", DtBan, params, "Reporte de Cuentas Bancarias", Formato)
         Else
             Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)

Bancos/FlujoDiario.aspx.vb

@@ -58,11 +58,7 @@ Partial Class Bancos_FlujoDiario
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
         params.Add(New ReportParameter("Fecha", TxtFecha.Text.ToDate.ToLongDateString))
 
-        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}", "")))
 
         'SE LLENA TmpDTSaldosIniciales
         Dim Ban As New ClsBancos

Bancos/PagoElectronico.aspx.vb

@@ -2753,11 +2753,7 @@ Partial Class Bancos_PagoElectronico
             ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
         Else
 
-            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("Empresa", UsuarioActual.Empresa.Empresa))
@@ -2781,11 +2777,7 @@ Partial Class Bancos_PagoElectronico
             ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
         Else
 
-            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("Empresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
@@ -2806,11 +2798,7 @@ Partial Class Bancos_PagoElectronico
             ImprimirPDF(String.Format("{0}Formatos\LayoutPagoProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtPago, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
         Else
 
-            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("Direccion", UsuarioActual.Empresa.Direccion))

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -2326,11 +2326,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         Else
 
 
-            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("Empresa", UsuarioActual.Empresa.Empresa))
@@ -2359,11 +2355,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
 
 
-            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("Empresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
@@ -2397,11 +2389,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         Else
 
 
-            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("Direccion", UsuarioActual.Empresa.Direccion))
@@ -2997,11 +2985,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         Else
 
 
-            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("Direccion", UsuarioActual.Empresa.Direccion))

Bancos/ProveedoresAbonar.aspx.vb

@@ -2058,11 +2058,7 @@ Partial Class Bancos_ProveedoresAbonar
             params.Add(New ReportParameter("CLABE", CLABE))
             params.Add(New ReportParameter("Cuenta", Cuenta))
             params.Add(New ReportParameter("Correo", Correo))
-            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 NombreArchivo As String = "SolicitudPago" ''String.Format("SolicitudPago{0}.pdf", TxtPagueseA.Text).Replace(" ", "")
             ImprimirPDF("Empresas/Grales/Formatos/Solicitud.rdlc", DtDatos, params, NombreArchivo, Opcion)
         Else

Bancos/RepClientesAnticipo.aspx.vb

@@ -169,11 +169,7 @@ Partial Class Bancos_RepClientesAnticipo
         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\RepClientesAnticipo.rdlc", DTDatos, params, "ReporteAnticipoClientes", Formato:=Formato)
 

Bancos/RepCobrado.aspx.vb

@@ -147,11 +147,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, "RepRecuperacion" & Now.ToString("yyyyMMddhhmmss"), Formato)
     End Sub
 

Bancos/RepCobradoDetalle.aspx.vb

@@ -206,11 +206,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, "RepRecuperacionDetalle" & Now.ToString("yyyyMMddhhmmss"), Formato)
     End Sub
 End Class

Bancos/RepCobradoPagado.aspx.vb

@@ -202,11 +202,7 @@ Partial Class Bancos_RepCobradoPagado
             params.Add(New ReportParameter("FUltimaSemana", FUltimaSemana))
             params.Add(New ReportParameter("FUltimoMes", FUltimoMes))
             params.Add(New ReportParameter("FPenultimoMes", FPenultimoMes))
-            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/RepCobradoPagado.rdlc", DtDatos, params, "ReporteCobrado-Pagado")
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Bancos/RepComprobaciones.aspx.cs

@@ -84,15 +84,7 @@ public partial class Bancos_RepComprobaciones : ClsPaginas
         @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
         @params.Add(new ReportParameter("Cuenta", DdlCuentas.SelectedItem.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}" : ""));
         ImprimirPDF("Empresas/Grales/Formatos/RepComprobaciones.rdlc", DTDatos, @params, "ReporteComprobaciones", Formato);
     }
     #endregion

Bancos/RepCxCCliente.aspx.vb

@@ -158,11 +158,7 @@ Partial Class Bancos_RepCxCCliente
             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/RepPagoClientes.rdlc", DTpp, params, "ReportePagoClientes")
         Else
             Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia)

Bancos/RepEgresosSinComprobante.aspx.vb

@@ -379,11 +379,7 @@ Partial Class Bancos_RepEgresosSinComprobante
             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/{Archivo}", DtDatos, params, String.Format("EgresosSinComprovante-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
         End If
     End Sub

Bancos/RepIE.aspx.vb

@@ -550,11 +550,7 @@ Partial Class Bancos_RepIE
 
         params.Add(New ReportParameter("CajaChica", ParametrosReporte))
 
-        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/RepRembolsosComprobacionesIE.rdlc", DtDatos, params, "ReporteMovimientosBancarios", Formato:=Formato)
 

Bancos/RepProveedoresPagos.aspx.vb

@@ -310,11 +310,7 @@ Partial Class Bancos_RepProveedoresPagos
             params.Add(New ReportParameter("AgrupadoPor", $"{Programo} {Proveedor} {Registro} {Responsable} {Clasificacion} {Moneda} {Estatus} {SubProyecto} {FechaIn} {FechaFn}{FVI}{FVF}"))
             params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, 1, 0)))
 
-            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/RepPagoProveedores.rdlc", DTpp, params, "ReportePagoProveedores", Formato)
         Else
             Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia)

Bancos/RepSaldos.aspx.vb

@@ -195,11 +195,7 @@ Partial Class Bancos_RepSaldos
         params.Add(New ReportParameter("FechaInicio", FechaI))
         params.Add(New ReportParameter("FechaFin", FechaF))
 
-        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/RepSaldos.rdlc", DtBancos, params, "RepSaldos", Formato:=Formato)
 

Bancos/RepSaldosDetalle.aspx.vb

@@ -213,11 +213,7 @@ Partial Class Bancos_RepSaldosDetalle
         params.Add(New ReportParameter("NombreCuenta", NombreCuenta))
         params.Add(New ReportParameter("SaldoInicial", LblSaldoInicial.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/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle", Formato:=formato)
 

CGame/OrdenProduccion.aspx.vb

@@ -1687,11 +1687,7 @@ Partial Class CGame_OrdenProduccion
                 params.Add(New ReportParameter("Direccion", ObjCGame.DtResultados.Rows(0)("Direccion").ToString))
                 params.Add(New ReportParameter("Ciudad", ObjCGame.DtResultados.Rows(0)("Ciudad").ToString))
                 params.Add(New ReportParameter("Fecha", ObjCGame.DtResultados.Rows(0)("Fecha").ToString.ToDate.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}", "")))
                 If ObjCGame.GetAvance(CveOrdenProduccion, UsuarioActual.CveEmpresa) Then
                     Dt = ObjCGame.DtResultados
                     If Dt.Rows.Count > 0 Then

Compras/CatEstatusFactura.aspx.vb

@@ -155,11 +155,7 @@ Partial Class Compras_CatEstatusFactura
         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/RepEstatusFactura.rdlc", GlobalDTCompEstatusFactura, params, "Reporte de Estatus Factura", Formato)
     End Sub

Compras/CatProveedores.aspx.vb

@@ -269,11 +269,7 @@ Partial Class Compras_CatProveedores
 
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
 
-            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/RepCuentasBancarias.rdlc", DtDatos, params, "RepCuentasBancarias", "Excel")
         Else

Compras/PopUpVerFactura.aspx.vb

@@ -1496,11 +1496,7 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
-            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)
             Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen}
             lrds.Add(rds)
@@ -1636,11 +1632,7 @@ Partial Class PopUpVerFactura
         End If
         params.Add(New ReportParameter("Utilidad", $"$ {(SumaUtilidad - SumaGasto).ToString.FormatoNumero()}"))
 
-        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/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF")
     End Sub
@@ -2002,11 +1994,7 @@ Partial Class PopUpVerFactura
                 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}", "")))
 
                 params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
@@ -2476,11 +2464,7 @@ Partial Class PopUpVerFactura
 
                     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}", "")))
                     'EMPRESA
                     params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen))
@@ -3539,11 +3523,7 @@ Partial Class PopUpVerFactura
                 If Archivo.Exists Then
                     ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
                 Else
-                    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/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
                 End If
@@ -3573,12 +3553,7 @@ Partial Class PopUpVerFactura
                     End If
                     If UsuarioActual.CveEmpresa = 119 Then
 
-                        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("RazonSocialOC", RazonSocialOC))
                         params.Add(New ReportParameter("RazonSocial", RazonSocial))
                         params.Add(New ReportParameter("Remision", Remision))
@@ -3638,11 +3613,7 @@ Partial Class PopUpVerFactura
                         ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios")
                     ElseIf UsuarioActual.CveEmpresa = 140 Then
 
-                        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 concepto As String = ""
                         If CveConcepto.Contiene(2, 32, 33) Then
                             concepto = "ENTRADA DE ALMACÉN"
@@ -3700,11 +3671,7 @@ Partial Class PopUpVerFactura
                 Else
 
 
-                    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("Empresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN"))
@@ -3883,11 +3850,7 @@ Partial Class PopUpVerFactura
                         ElseIf UsuarioActual.CveEmpresa = 140 Then
 
 
-                            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("Empresa", UsuarioActual.Empresa.Empresa))
                             params.Add(New ReportParameter("Concepto", concepto))
@@ -3923,11 +3886,7 @@ Partial Class PopUpVerFactura
                     Else
                         Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", 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}", "")))
 
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Concepto", concepto))
@@ -4007,11 +3966,7 @@ Partial Class PopUpVerFactura
                 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("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Entrada por Desarmado de Paquete"))
@@ -4036,11 +3991,7 @@ Partial Class PopUpVerFactura
                 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("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Salida por Armado de Paquete"))
@@ -4072,11 +4023,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper))
 
                         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}", "")))
 
                         If DtMovimientos.COUNT("Serie") > 0 Then
                             params.Add(New ReportParameter("MostrarSerieLote", "1"))
@@ -4112,11 +4059,7 @@ Partial Class PopUpVerFactura
                     End If
 
 
-                    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("Folio", Folio))
@@ -4162,11 +4105,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("NombreRecibio", Personal))
 
                         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}", "")))
                         If DtMovimientos.COUNT("Serie") > 0 Then
                             params.Add(New ReportParameter("MostrarSerieLote", "1"))
                         Else
@@ -4202,11 +4141,7 @@ Partial Class PopUpVerFactura
                     End If
 
 
-                    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("Folio", Folio))
@@ -4355,11 +4290,7 @@ Partial Class PopUpVerFactura
                     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}", "")))
                     If UsuarioActual.CveEmpresa = 140 Then
                         params.Add(New ReportParameter("Origen", Almacen))
                         params.Add(New ReportParameter("Destino", AlmacenDestino))
@@ -4407,11 +4338,7 @@ Partial Class PopUpVerFactura
                     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}", "")))
                     params.Add(New ReportParameter("Origen", Almacen))
                     params.Add(New ReportParameter("Destino", AlmacenDestino))
                     params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
@@ -4460,11 +4387,7 @@ Partial Class PopUpVerFactura
                         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}", "")))
                         params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
                         params.Add(New ReportParameter("Destino", Almacen))
 
@@ -4476,11 +4399,7 @@ Partial Class PopUpVerFactura
                     ElseIf UsuarioActual.CveEmpresa = 153 Then
                         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}", "")))
                         params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
                         params.Add(New ReportParameter("Destino", Almacen))
                         params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
@@ -4494,11 +4413,7 @@ Partial Class PopUpVerFactura
                 Else
                     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}", "")))
                     params.Add(New ReportParameter("Origen", Almacen))
                     params.Add(New ReportParameter("Destino", AlmacenDestino))
 
@@ -4654,11 +4569,7 @@ Partial Class PopUpVerFactura
 
                 If Not Archivo.Exists Then
 
-                    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(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
                 Else
@@ -4804,11 +4715,7 @@ Partial Class PopUpVerFactura
                     'End If
                 Else
 
-                    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 CiudadSucursal As String = ""
                     Dim DomicilioSucursal As String = ""
@@ -4841,11 +4748,7 @@ Partial Class PopUpVerFactura
                 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("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Armado de Paquete"))
@@ -4870,11 +4773,7 @@ Partial Class PopUpVerFactura
                 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("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Desarmado de Paquete"))
@@ -4903,11 +4802,7 @@ Partial Class PopUpVerFactura
                     Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc"
                 End If
 
-                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("Empresa", UsuarioActual.Empresa.Empresa))
                 If CveConcepto = 21 Then
@@ -4976,11 +4871,7 @@ Partial Class PopUpVerFactura
                         Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc"
                     End If
 
-                    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 DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
                     Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego))
@@ -5023,11 +4914,7 @@ Partial Class PopUpVerFactura
                     End If
 
 
-                    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("Folio", Folio))
@@ -5066,11 +4953,7 @@ Partial Class PopUpVerFactura
                 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}", "")))
                 Dim ConceptoReporte As String = If(CveConcepto = 28, "Entrada por Préstamo", "Devolución de Préstamo")
 
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
@@ -5125,11 +5008,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("NombreEntrego", Capturo))
                 params.Add(New ReportParameter("NombreRecibio", Recibio))
 
-                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}", "")))
 
                 'End If
 
@@ -5315,11 +5194,7 @@ Partial Class PopUpVerFactura
 
                     Else
                         Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", 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}", "")))
 
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE"))
@@ -5582,11 +5457,7 @@ Partial Class PopUpVerFactura
             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}", "")))
 
         End If
 
@@ -5779,11 +5650,7 @@ Partial Class PopUpVerFactura
         ObjAF.Dispose()
 
         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}", "")))
 
         params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString))
         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
@@ -6387,11 +6254,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
                 params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").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/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
             End If
@@ -6837,11 +6700,7 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Comprobante", Comprobante))
         params.Add(New ReportParameter("CodigoTD", CodigoTD))
 
-        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/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline")
     End Sub
@@ -6974,11 +6833,7 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Comprobante", Comprobante))
         params.Add(New ReportParameter("CodigoTD", CodigoTD))
 
-        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/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline")
     End Sub

Compras/Proveedores.aspx.vb

@@ -4224,11 +4224,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - dr("Saldo").ToString.ToDouble).ToString.FormatoNumero))
                 params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Proveedor}{FechaIn}{FechaFn}{FechVI}{FechVF}"))
 
-                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/RepProveedorCxP.rdlc", DTCxPTempral, params, "RepCxP")
             Else
@@ -4260,11 +4256,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("NombreProveedor", LtlProveedor.Text))
                 params.Add(New ReportParameter("FechaInicio", FI))
                 params.Add(New ReportParameter("FechaFin", FF))
-                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/RepAntNC.rdlc", DtANC, params, "RepAnticiposProveedor", Formato)
             Else
@@ -4716,11 +4708,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                 params.Add(New ReportParameter("NombreProveedor", TxtRazonSocial.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/ProveedorConciliacion.rdlc", ObjProveedores.DtResultados, params, String.Format("ProveedorConciliacion-{0}", Now.ToDateTime.ToShortDateString))
 
             End If
@@ -6290,11 +6278,7 @@ Partial Class Compras_Proveedores
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("AgrupadoPor", "Proveedor: " & LtlProveedor.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)

Compras/ProveedoresAuxiliar.aspx.vb

@@ -125,11 +125,7 @@ Partial Class Compras_ProveedoresAuxiliar
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToString))
         params.Add(New ReportParameter("Filtros", $"<b>Filtros:</b> {Proveedor}{FechaIn}{FechaFn}{OpcionP}{TipoProv}{ContaP}"))
-        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/AuxiliarProveedor.rdlc", DtDatos, params, "AuxiliarProveedor", Opcion)
     End Sub
     Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click

Compras/ReembolsosComprobaciones.aspx.vb

@@ -1294,11 +1294,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
             params.Add(New ReportParameter("CajaChica", If(DdlCajaChica.SelectedValue.ToEntero > 0, "Caja chica: " & DdlCajaChica.SelectedItem.Text, "Funcionario/Empleado: " & DdlPersonal.SelectedItem.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/RepRembolsosComprobaciones.rdlc", DtDatos, params, "RepRembolsosComprobaciones", Formato:=Formato)
         End If

Compras/RepComplementoPago.aspx.vb

@@ -192,11 +192,7 @@ Partial Class Compras_RepComplementoPago
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("AgrupadoPor", $"{proveedor}{FI}{FF}{vinc}{TP}{subProy}{usuario}"))
 
-            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/RepComplementoPago.rdlc", DTComplemntos, params, "RepComplementoPago", Formato)
         Else

Compras/RepCompras.aspx.vb

@@ -410,11 +410,7 @@ Partial Class Compras_RepCompras
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{Proveedor}{Capturo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{FechaICaptura}{FechaFCaptura}{TipoDocto}"))
-            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/RepCompras.rdlc", DtCompras, params, "ReporteCompras")
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Compras/RepComprasAF.aspx.vb

@@ -257,11 +257,7 @@ Partial Class Compras_RepComprasAF
         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\RepComprasAF.rdlc", DTDatos, params, "ReporteComprasAF_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
     End Sub
 

Compras/RepComprasAFDetalle.aspx.vb

@@ -391,11 +391,7 @@ Partial Class Compras_RepComprasAFDetalle
         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(RutaPDF, DTDatos, params, "ReporteComprasAFDetalle_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
 

Compras/RepComprasDetalle.aspx.vb

@@ -451,11 +451,7 @@ Partial Class Compras_RepComprasDetalle
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{Proveedor}{Capturo}{FechaIn}{FechaFn}{FechaCIn}{FechaCFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{TipoDocto}"))
-            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/RepComprasDetalle.rdlc", DtDatos, params, "ReporteComprasDetalles", Opcion)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Compras/RepComprasPeriodo.aspx.vb

@@ -315,11 +315,7 @@ Partial Class Compras_RepComprasPeriodo
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Proveedor}{Capturo}{Grupo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}"))
-            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/RepComprasPeriodo.rdlc", dt, params, "RepComprasPeriodo")
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Compras/RepComprasPersonal.aspx.vb

@@ -208,11 +208,7 @@ Partial Class Compras_RepComprasPersonal
         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\RepComprasPersonal.rdlc", DTDatos, params, "ReporteComprasPersonal_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
     End Sub
 

Compras/RepComprasPersonalDetalle.aspx.vb

@@ -331,11 +331,7 @@ Partial Class Compras_RepComprasPersonalDetalle
         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\RepComprasPersonalDetalle.rdlc", DTDatos, params, "ReporteComprasPersonalDetalle_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)

Compras/RepCxP.aspx.vb

@@ -1485,11 +1485,7 @@ Partial Class Compras_RepCxP
             params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Proyecto}{Sucursal}{TipoMoneda}{FVI}{FVF}"))
             params.Add(New ReportParameter("CantColumnas", CantidadColumnas))
 
-            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/RepCxP.rdlc", DtDatos, params, "ReporteCxP", Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Compras/RepCxPDetalle.aspx.vb

@@ -763,11 +763,7 @@ Partial Class RepCxPDetalle
         Dim TipoMoneda = If(RblTipoCambio.SelectedValue = "-1", "", $"&emsp;<b>Tipo Moneda:</b> {RblTipoCambio.SelectedItem.Text}")
         params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{FechaIn}{FechaFn}{FechaInV}{FechaFnV}{Responsable}{Estatus}{Registro}{Clasificacion}{Sucursal}{TipoMoneda}"))
 
-        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/RepCxPDetalle.rdlc", DtDatos, params, "ReporteCxPDetalle", Formato)
 

Compras/RepNotasCredito.aspx.vb

@@ -90,11 +90,7 @@ Partial Class Compras_RepNotasCredito
             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/RepNotasCredito.rdlc", DtDatos, params, String.Format("ReporteVentas-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Compras/RepPUESinPago.aspx.vb

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

Compras/RepProductosServicios.aspx.vb

@@ -496,10 +496,6 @@ Partial Class Compras_RepProductosServicios
     End Sub
 
     Protected Sub GeneraPDF(Optional Formato As String = "PDF")
-        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 Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedor.SelectedText}")
         Dim FechaInicio = If(txtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{txtFechaI.Text}")
         Dim FechaFin = If(txtFechaF.Text = "", "", $"&emsp;<b>Fecha Fin:</b>&nbsp;{txtFechaF.Text}")
@@ -515,6 +511,8 @@ Partial Class Compras_RepProductosServicios
         Dim SubTipoAF = If(DdlSubTipoAF.GetSelectedText = "", "", $"&emsp;<b>SubTipo AF:</b>&nbsp;{DdlSubTipoAF.GetSelectedText}")
         Dim AF = If(DdlAF.SelectedValue = "-1", "", $"&emsp;<b>Activo Fijo:</b>&nbsp;{DdlAF.SelectedItem.Text}")
 
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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()))
@@ -535,11 +533,7 @@ Partial Class Compras_RepProductosServicios
         'params.Add(New ReportParameter("SubTipoAF", IIf(DdlSubTipoAF.GetSelectedText = "", "Todos", DdlSubTipoAF.GetSelectedText).ToString()))
         'params.Add(New ReportParameter("AF", IIf(DdlAF.SelectedItem.Text = "", "Todos", DdlAF.SelectedItem.Text).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/RepProductosServiciosCompras.rdlc", DtDatos, params, "Reporte de Productos Servicios", Formato)
     End Sub

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -650,11 +650,7 @@ Partial Class Compras_RepProductosServiciosDetalle
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("AgrupoPor", $"{Grupo}{Proyecto}{TipoGasto}{SubProyecto}{Categoria}{Clasificacion}{PS}{Proveedor}{Estatus}{TipoAF}{SubTipoAF}{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/RepProductosServiciosDetalleCompra.rdlc", DtDatos, params, "ReportePSDetalle", Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Compras/RepRembolsoComprobaciones.aspx.vb

@@ -364,11 +364,7 @@ Partial Class Compras_RepRembolsoComprobaciones
 
             params.Add(New ReportParameter("CajaChica", If(DdlCajaChica.SelectedValue.ToEntero > 0, "Caja chica: " & DdlCajaChica.SelectedItem.Text, "Funcionario/Empleado: " & DdlPersonal.SelectedItem.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/RepRembolsosComprobaciones.rdlc", DtDatos, params, "RepRembolsosComprobaciones", Formato:=Formato)
         End If

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))

Contabilidad2/RepEstadoActividades.aspx.vb

@@ -319,20 +319,8 @@ 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))
-
-        ' params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
-
-        Dim LogoRuta As String = ""
-        LogoRuta = String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)
-
-        If IO.File.Exists(LogoRuta) Then
-            params.Add(New ReportParameter("pImg", $"file://{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}", "")))
         params.Add(New ReportParameter("pFirma1", ""))
         params.Add(New ReportParameter("pFirma2", ""))
         params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem.Text, DdlEjercicio.SelectedItem.Text)))

Contratos/CatRefrendos.aspx.cs

@@ -506,15 +506,7 @@ public partial class Contratos_CatRefrendos : ClsPaginas
         
         System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
 
-        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}" : ""));
         ImprimirPDF("Empresas/Grales/Formatos/FormatoRefrendo.rdlc", TmpDT, @params, "FormatoRefrendo", Formato);
     }
     #endregion

Contratos/Contrato.aspx.vb

@@ -2870,11 +2870,7 @@ Partial Class Contratos_Default
         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)))
@@ -3662,11 +3658,7 @@ Partial Class Contratos_Default
         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
@@ -3713,11 +3705,7 @@ Partial Class Contratos_Default
         params.Add(New ReportParameter("Folio", TxtFolio.Text.Trim))
         params.Add(New ReportParameter("FechaVencimiento", txtFechaVenc.Text.Trim))
 
-        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/Contrato.rdlc", dt, params, $"Contrato-{Titulo}", Formato:="PDF")
 
     End Sub
@@ -3751,11 +3739,7 @@ Partial Class Contratos_Default
         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
@@ -3791,11 +3775,7 @@ Partial Class Contratos_Default
         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
@@ -3823,11 +3803,7 @@ Partial Class Contratos_Default
         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
@@ -3858,11 +3834,7 @@ Partial Class Contratos_Default
         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
@@ -3912,11 +3884,7 @@ Partial Class Contratos_Default
         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

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

Contratos/Contratos.aspx.vb

@@ -94,11 +94,7 @@ Partial Class Contratos_Contratos
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Cliente}{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/RepContratos.rdlc", dt, params, "ReporteContratos")
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Contratos/RepContratosCostos.aspx.vb

@@ -90,11 +90,7 @@ Partial Class Contratos_RepContratosCostos
         params.Add(New ReportParameter("Estatus", DdlEstatus.SelectedItem.Text))
         params.Add(New ReportParameter("Tipo", DdlTipo.SelectedItem.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/RepContratosCostos.rdlc", DtDatos, params, "ReporteContratosCostos", Formato)
 
     End Sub

Contratos/RepContratosFianzas.aspx.cs

@@ -132,15 +132,7 @@ public partial class Contratos_RepContratosFianzas : ClsPaginas
         @params.Add(new ReportParameter("Contrato", Contrato.Text));
         @params.Add(new ReportParameter("Estatus", Estatus.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}" : ""));
         ImprimirPDF("Empresas/Grales/Formatos/RepContratosFianzas.rdlc", DTDatos, @params, "ReporteContratosFianzas", Formato);
     }
     #endregion

Contratos/RepContratosSuministros.aspx.vb

@@ -89,11 +89,7 @@ Partial Class Contratos_RepContratosSuministros
 
         params.Add(New ReportParameter("AgrupadoPor", $"{FechaI}{FechaF}{Contrato}{Estatus}{Tipo}"))
 
-        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/RepContratosSuministros.rdlc", DtDatos, params, "ReporteContratosSuministros", Formato)
 
     End Sub

Contratos/RepPedidosDevolucionesXContrato.aspx.vb

@@ -83,11 +83,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
         params.Add(New ReportParameter("Estatus", ""))
         params.Add(New ReportParameter("Tipo", DdlTipo.SelectedItem.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 lrds As New List(Of ReportDataSource)
         lrds.Add(New ReportDataSource("DataSet1", DsDatos.Tables(0)))

Contratos/RepPresupuestos.aspx.vb

@@ -549,11 +549,7 @@ Partial Class Contratos_RepPresupuestos
             params.Add(New ReportParameter("Ejercido", LtlEjercido.Text.FormatoNumero()))
             params.Add(New ReportParameter("PorEjercer", LtlPorEjercer.Text.FormatoNumero()))
 
-            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/RepPresupuestoAnual.rdlc", DtPresupuestos, params, "Reporte de Presupuestos Anual", Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Contratos/RepPresupuestosDetalle.aspx.vb

@@ -344,11 +344,7 @@ Partial Class Contratos_RepPresupuestosDetalle
             params.Add(New ReportParameter("Ejercido", DtPresupuestos.Rows(0)("Ejercido").ToString.FormatoNumero()))
             params.Add(New ReportParameter("PorEjercer", DtPresupuestos.Rows(0)("PorEjercer").ToString.FormatoNumero()))
 
-            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/RepPresupuestoAnual.rdlc", DtPresupuestos, params, "Reporte de Presupuestos Anual", Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

CxC/GestionCobranza.aspx.vb

@@ -204,11 +204,7 @@ Partial Class Ventas_GestionCobranza
             'params.Add(New ReportParameter("Cobrador", DdlUsuarioCobranza.SelectedItem.Text))
             params.Add(New ReportParameter("Filtros", $"{Cobrador}{Estatus}{Responsable}{Turno}{TipoPago}"))
 
-            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
                 ImprimirPDF(String.Format("{0}Formatos/GestionCobranza.rdlc", UsuarioActual.Empresa.Ruta), DtDatos, params, NombreArchivo:="Gestión de Cobranza")

CxC/RepCxC.aspx.vb

@@ -733,11 +733,7 @@ Partial Class RepCxC
             params.Add(New ReportParameter("TituloReporte", TituloReporte))
             params.Add(New ReportParameter("CantColumnas", CantidadColumnas.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/RepCxC.rdlc", DtDatos, params, "ReporteCxC", Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

CxC/RepCxCDetalle.aspx.vb

@@ -961,11 +961,7 @@ Partial Class RepCxCDetalle
         params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{ClasificacionCli}{CorteA}"))
         params.Add(New ReportParameter("TituloReporte", TituloReporte))
 
-        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)

Edoc/Contratos.aspx.vb

@@ -363,11 +363,7 @@ Partial Class Proveedores_Contratos
 
         Dim Filtro As String = String.Format("<b>{0}: </b>{1}&emsp; &emsp;<b>Proveedor: </b>{2}&emsp; &emsp;<b>Tipo Contrato: </b>{3}", LblSubProyectoFiltro.Text, DdlSubProyectoFiltro.SelectedItem.Text, DdlProveedorFiltro.SelectedItem.Text, DdlTipoContratoFiltro.SelectedItem.Text)
         params.Add(New ReportParameter("Filtro", 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}", "")))
         ImprimirPDF("Empresas/Grales/Formatos/RepContratosGen.rdlc", DtDatos, params, "Reporte de Contratos", Formato)
     End Sub
 End Class

Finanzas/RepRotacionCartera.aspx.cs

@@ -358,15 +358,7 @@ public partial class Finanzas_RepRotacionCartera : ClsPaginas
 
         @params.Add(new ReportParameter("Sucursal", ModExtensiones.GetSelectedText(DdlSucursal) == "" ? "Todos" : ModExtensiones.GetSelectedText(DdlSucursal)));
         
-        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}" : ""));
 
         if (Tab.ActiveTabIndex == 1)
         {

Flotillas/RepIncidentes.aspx.vb

@@ -116,11 +116,7 @@ Partial Class AF_RepIncidentes
         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\RepAFIncidentes.rdlc", DTDatos, params, "ReporIncidentes", Formato:=Formato)
 
 

Flotillas/RepLicencias.aspx.vb

@@ -121,11 +121,7 @@ Partial Class AF_RepLicencias
         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\RepAFLicencia.rdlc", DTDatos, params, "ReporLicencias", Formato:=Formato)
 
 

Flotillas/RepPlacas.aspx.vb

@@ -98,11 +98,7 @@ Partial Class AF_RepPlacas
             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\RepPlacas.rdlc", DTDatos, params, "ReportePlacas", Formato:=Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Flotillas/RepPolizaSeguro.aspx.vb

@@ -95,11 +95,7 @@ Partial Class AF_RepPolizaSeguro
         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\RepPolizaSeguroGPS.rdlc", DTDatos, params, "Reporte Poliza Seguro", Formato:=Formato)
 
 

Flotillas/RepServicios.aspx.vb

@@ -102,11 +102,7 @@ Partial Class AF_RepPlacas
             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\RepServiciosGPS.rdlc", DTDatos, params, "ReporteServicios", Formato:=Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Inventarios/EntregaAlmacen.aspx.vb

@@ -3979,11 +3979,7 @@ Partial Class Inventarios_EntregaAlmacen
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
 
         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("UsuarioImprimio", UsuarioActual.Usuario))
 

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -644,11 +644,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
             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}", "")))
 
             ImprimirPDF("Empresas/Grales/Formatos/RepInventarioFisicoDetalle.rdlc", DtDatos, params, String.Format("Reporte Inventario Físico-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
 

Inventarios/Kardex.aspx.vb

@@ -473,11 +473,7 @@ Partial Class Inventarios_Kardex
                     params.Add(New ReportParameter("Producto", ddlProducto2.SelectedText))
                     params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{SerieAgrupado}{EntradaSalida}{Almacen}{UM}{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/RepKardex.rdlc", dt, params, "ReporteKardex", Formato)
                 Else
                     Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Inventarios/KardexAlmacen.aspx.vb

@@ -187,11 +187,7 @@ Partial Class Inventarios_KardexAlmacen
             params.Add(New ReportParameter("Producto", ddlProducto2.SelectedText))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{EntradaSalida}{Almacen}{UM}{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/RepKardexAlmacen.rdlc", dt, params, "ReporteKardex", Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Inventarios/RecepcionUsados.aspx.vb

@@ -3572,11 +3572,7 @@ Partial Class Inventarios_RecepcionUsados
         params.Add(New ReportParameter("CiudadEstadoConsumidor", ""))
         params.Add(New ReportParameter("TelConsumidor", ""))
 
-        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("Anio", ""))
         params.Add(New ReportParameter("Comprobante", TxtPoliza.Text))

Inventarios/RepAlmacen.aspx.vb

@@ -106,11 +106,7 @@ Partial Class Inventarios_RepAlmacen
         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/RepAlmacen.rdlc", TmpDT, params, "ReporteAlmacen", Formato)
     End Sub
     Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click

Inventarios/RepAlmacenCompras.aspx.vb

@@ -131,11 +131,7 @@ Partial Class Inventarios_RepAlmacenCompras
             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/RepAlmacenCompras.rdlc", DtAlmacenCompra, params, String.Format("ReporteAlmacenCompras-{0}", Now.ToDateTime.ToShortDateString))
 

Inventarios/RepAlmacenPeriodo.aspx.vb

@@ -133,11 +133,7 @@ Partial Class Inventarios_RepAlmacenPeriodo
         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/RepAlmacenPeriodo.rdlc", TmpDT, params, "ReporteAlmacenPeriodo")
     End Sub
     Protected Sub LnkPdf_Click(sender As Object, e As EventArgs)

Inventarios/RepAnomalias.aspx.vb

@@ -461,11 +461,7 @@ Partial Class Inventarios_RepAnomalias
             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}", "")))
 
             If EsAvance Then
                 If Inventario.GetInventarioFisicoResultadosAvance(CveInventarioFisico, UsuarioActual.CveEmpresa) Then

Inventarios/RepApartados.aspx.vb

@@ -230,11 +230,7 @@ Partial Class Inventarios_RepApartados
             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/RepApartados.rdlc", DtApartados, params, String.Format("ReporteApartados-{0}", Now.ToDateTime.ToShortDateString))
 

Inventarios/RepApartados2.aspx.vb

@@ -145,11 +145,7 @@ Partial Class Inventarios_RepApartados2
             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/RepApartados2.rdlc", DtApartados, params, String.Format("ReporteApartados-{0}", Now.ToDateTime.ToShortDateString), Formato)
 

Inventarios/RepConsignaciones.aspx.vb

@@ -117,11 +117,7 @@ Partial Class Inventarios_RepConsignaciones
             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/RepConsignaciones.rdlc", DtConsignaciones, params, String.Format("ReporteConsignaciones-{0}", Now.ToDateTime.ToShortDateString))
 

Inventarios/RepConsumoInterno.aspx.cs

@@ -205,15 +205,7 @@ public partial class Inventarios_RepConsumoInterno : ClsPaginas
 
         @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
 
-        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}" : ""));
         ImprimirPDF(RutaPDF, DTDatos, @params, "RepConsumoInterno " + DateTime.Now.ToString("yyyyMMddhhmmss"), Formato);
     }
 

Inventarios/RepExistenciasCostos.aspx.vb

@@ -297,11 +297,7 @@ Partial Class Inventarios_RepExistenciasCostos
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", $"{FechaIn} {FechaFn} {Proveedor} {Concepto} {Almacen} {Clasificacion} {PS} {Moneda}"))
-            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/RepExistenciasCostos.rdlc", DtData, params, "ReporteExistenciasCostos", Formato:=reporte)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Inventarios/RepFletes.aspx.vb

@@ -95,11 +95,7 @@ Partial Class Compras_RepFletes
 
         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)
-        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 ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
         If Not ArchivoRuta.Exists Then
             ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtFletes, params, "Reporte de fletes", formato)

Inventarios/RepMaximoMinimo.aspx.vb

@@ -284,11 +284,7 @@ Partial Class Inventarios_RepMaximoMinimo
                 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}", "")))
                 ImprimirPDF("Empresas/Grales/Formatos/RepMaximosMinimos.rdlc", dt, params, "ReporteMaxMin")
 
             Else
@@ -319,11 +315,7 @@ Partial Class Inventarios_RepMaximoMinimo
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("PS", PS))
 
-            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/RepMaximosMinimosDetalle.rdlc", dt, params, "ReporteMaxMinDetalle")
 
         Else

Inventarios/RepMovimientos.aspx.vb

@@ -139,11 +139,7 @@ Partial Class RepMovimientosRep
             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/RepMovimientos.rdlc", DtMovimientos, params, String.Format("ReporteMovimientos-{0}", Now.ToDateTime.ToShortDateString))
 

Inventarios/RepNotasSinAlmacen.aspx.vb

@@ -253,11 +253,7 @@ Partial Class RepNotasSinAlmacen
         params.Add(New ReportParameter("FechaInicio", FechaInicial))
         params.Add(New ReportParameter("FechaFin", FechaFinal))
 
-        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 Tab.ActiveTabIndex = 0 Then
             ImprimirPDF("Empresas/Grales/Formatos/RepNotasSinAlmacenVentas.rdlc", DtNotasSinAlmacenVentas, params, "RepNotasSinAlmacenVentas", Formato:=Formato)
         Else

Inventarios/RepOcInv.aspx.vb

@@ -119,11 +119,7 @@ Partial Class Inventarios_RepOcInv
             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/RepOCInv.rdlc", DtOCXSurtir, params, String.Format("ReporteOCXSurtir-{0}", Now.ToDateTime.ToShortDateString))
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Inventarios/RepOcInvMoto.aspx.vb

@@ -100,11 +100,7 @@ Partial Class Inventarios_RepOcInvMoto
             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/RepOCInvMoto.rdlc", DtOCMovimientos, params, String.Format("ReporteOCMovimientos-{0}", Now.ToDateTime.ToShortDateString))
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Inventarios/RepProductosPorCaducar.aspx.cs

@@ -184,14 +184,7 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
 
         var logouri = string.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
         System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
-        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}" : ""));        @params.Add(new ReportParameter("FechaCaducidadHeader", "Fecha Caducidad")); // (!String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) ? UsuarioActual.Empresa.Funcionalidad(147) : "Fecha Caducidad")));
         @params.Add(new ReportParameter("FechaCaducidadHeader", "Fecha Caducidad")); // (!String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) ? UsuarioActual.Empresa.Funcionalidad(147) : "Fecha Caducidad")));
 
         ImprimirPDF("Empresas/Grales/Formatos/RepProductosCaducidad.rdlc", DTDatos, @params, "Reporte de Productos por Caducar", formato);

Inventarios/RepRSCO.aspx.vb

@@ -113,11 +113,7 @@ Partial Class Inventarios_RepRSCO
         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\RepRSCO.rdlc", DTDatos, params, "RepRSCO" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
 

Inventarios/RepTraspasoAlmacen.aspx.vb

@@ -163,11 +163,7 @@ Partial Class RepTraspasoAlmacen
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             params.Add(New ReportParameter("FechaImprimio", DateTime.Now.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/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Inventarios/ReporteMaterial.aspx.vb

@@ -102,11 +102,7 @@ Partial Class Inventarios_ReporteMaterial
         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\RepReporteMaterial.rdlc", DTDatos, params, $"RepReporteMaterial_{Now.ToString("yyyyMMddmmss")}", Formato:=Formato)
 
     End Sub

Inventarios/TrasladoSolicitud.aspx.vb

@@ -892,11 +892,7 @@ Partial Class Inventarios_TrasladoSolicitud
                 Dim Archivo As New System.IO.FileInfo(RutaFormato)
 
 
-                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 UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 1 Then
                     ImprimirPDF(String.Format("{0}Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.Empresa.Ruta), dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)