diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index 3517452da..3fa81c4fb 100644
--- a/AF/AF.aspx.vb
+++ b/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)
diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb
index 46e3271d5..98c7f7857 100644
--- a/AF/CatAF.aspx.vb
+++ b/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"
diff --git a/AF/RepAF.aspx.vb b/AF/RepAF.aspx.vb
index bbd39fd61..85e6a24d8 100644
--- a/AF/RepAF.aspx.vb
+++ b/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
diff --git a/Acarreos/RepContratosAcarreos.aspx.vb b/Acarreos/RepContratosAcarreos.aspx.vb
index d67432b70..6c8205d43 100644
--- a/Acarreos/RepContratosAcarreos.aspx.vb
+++ b/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)
diff --git a/Acarreos/RepContratosAcarreosDetalle.aspx.vb b/Acarreos/RepContratosAcarreosDetalle.aspx.vb
index 867f4b816..2c9d3cac1 100644
--- a/Acarreos/RepContratosAcarreosDetalle.aspx.vb
+++ b/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)
diff --git a/Acarreos/RepPreEstimacionDetalle.aspx.vb b/Acarreos/RepPreEstimacionDetalle.aspx.vb
index 559972ceb..15e722b1a 100644
--- a/Acarreos/RepPreEstimacionDetalle.aspx.vb
+++ b/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)
diff --git a/Acumuladores/RepIndicadorDiario.aspx.vb b/Acumuladores/RepIndicadorDiario.aspx.vb
index f6c5c4fdd..389be52a3 100644
--- a/Acumuladores/RepIndicadorDiario.aspx.vb
+++ b/Acumuladores/RepIndicadorDiario.aspx.vb
@@ -204,11 +204,7 @@ Partial Class ACumuladores_RepIndicadorDiario
params.Add(New ReportParameter("FechaImpresion", Now.ToString))
params.Add(New ReportParameter("AgrupadoPor", $"Filtros Por: {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)
diff --git a/Bancos/CatBancos.aspx.vb b/Bancos/CatBancos.aspx.vb
index f0546778c..775bdebb5 100644
--- a/Bancos/CatBancos.aspx.vb
+++ b/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)
diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb
index 05a6e20ff..423e406f9 100644
--- a/Bancos/ConciliacionesBancarias.aspx.vb
+++ b/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"
diff --git a/Bancos/CuentasBancarias.aspx.vb b/Bancos/CuentasBancarias.aspx.vb
index 74260599c..119cabe97 100644
--- a/Bancos/CuentasBancarias.aspx.vb
+++ b/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)
diff --git a/Bancos/FlujoDiario.aspx.vb b/Bancos/FlujoDiario.aspx.vb
index b6b9367b0..86c82d964 100644
--- a/Bancos/FlujoDiario.aspx.vb
+++ b/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
diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb
index 51547feeb..255c1eb12 100644
--- a/Bancos/PagoElectronico.aspx.vb
+++ b/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))
diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb
index 1bf5d636b..db246c0c3 100644
--- a/Bancos/PagoElectronicoGrupos.aspx.vb
+++ b/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))
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 02deb93e3..4b2cfdeeb 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/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
diff --git a/Bancos/RepClientesAnticipo.aspx.vb b/Bancos/RepClientesAnticipo.aspx.vb
index 7623a6f93..036d196c9 100644
--- a/Bancos/RepClientesAnticipo.aspx.vb
+++ b/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)
diff --git a/Bancos/RepCobrado.aspx.vb b/Bancos/RepCobrado.aspx.vb
index 8a2620b02..ba3ca12b7 100644
--- a/Bancos/RepCobrado.aspx.vb
+++ b/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
diff --git a/Bancos/RepCobradoDetalle.aspx.vb b/Bancos/RepCobradoDetalle.aspx.vb
index 3e86bc927..49563ceb1 100644
--- a/Bancos/RepCobradoDetalle.aspx.vb
+++ b/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
diff --git a/Bancos/RepCobradoPagado.aspx.vb b/Bancos/RepCobradoPagado.aspx.vb
index 4bb2da107..be234ccfc 100644
--- a/Bancos/RepCobradoPagado.aspx.vb
+++ b/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)
diff --git a/Bancos/RepComprobaciones.aspx.cs b/Bancos/RepComprobaciones.aspx.cs
index af3e8775f..e8ea8d1e8 100644
--- a/Bancos/RepComprobaciones.aspx.cs
+++ b/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
diff --git a/Bancos/RepCxCCliente.aspx.vb b/Bancos/RepCxCCliente.aspx.vb
index ed097ea67..dc20ca6f1 100644
--- a/Bancos/RepCxCCliente.aspx.vb
+++ b/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)
diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb
index 99f4c5c78..edeafe4fc 100644
--- a/Bancos/RepEgresosSinComprobante.aspx.vb
+++ b/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
diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb
index a1c3dabe8..d81393546 100644
--- a/Bancos/RepIE.aspx.vb
+++ b/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)
diff --git a/Bancos/RepProveedoresPagos.aspx.vb b/Bancos/RepProveedoresPagos.aspx.vb
index 15c8ea45c..33a890098 100644
--- a/Bancos/RepProveedoresPagos.aspx.vb
+++ b/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)
diff --git a/Bancos/RepSaldos.aspx.vb b/Bancos/RepSaldos.aspx.vb
index e6391203b..eb7d6ae67 100644
--- a/Bancos/RepSaldos.aspx.vb
+++ b/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)
diff --git a/Bancos/RepSaldosDetalle.aspx.vb b/Bancos/RepSaldosDetalle.aspx.vb
index 946ce33e0..043ac6614 100644
--- a/Bancos/RepSaldosDetalle.aspx.vb
+++ b/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)
diff --git a/CGame/OrdenProduccion.aspx.vb b/CGame/OrdenProduccion.aspx.vb
index 5eb1fea86..3fa149bed 100644
--- a/CGame/OrdenProduccion.aspx.vb
+++ b/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
diff --git a/Compras/CatEstatusFactura.aspx.vb b/Compras/CatEstatusFactura.aspx.vb
index b4c69a943..bba96e78d 100644
--- a/Compras/CatEstatusFactura.aspx.vb
+++ b/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
diff --git a/Compras/CatProveedores.aspx.vb b/Compras/CatProveedores.aspx.vb
index 3e46014c9..c2534378a 100644
--- a/Compras/CatProveedores.aspx.vb
+++ b/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
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index a406c8fa7..a04dca396 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/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
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 21bdd7e6d..d918b609f 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/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", $"Agrupado Por: {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)
diff --git a/Compras/ProveedoresAuxiliar.aspx.vb b/Compras/ProveedoresAuxiliar.aspx.vb
index e9f3f51ef..3534085f6 100644
--- a/Compras/ProveedoresAuxiliar.aspx.vb
+++ b/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", $"Filtros: {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
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 3396d9ad6..128e2b9aa 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/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
diff --git a/Compras/RepComplementoPago.aspx.vb b/Compras/RepComplementoPago.aspx.vb
index f8b880e56..ea75e8eca 100644
--- a/Compras/RepComplementoPago.aspx.vb
+++ b/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
diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb
index 5dbe3742a..9dad9b4ed 100644
--- a/Compras/RepCompras.aspx.vb
+++ b/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", $"Agrupado Por: {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)
diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb
index 87a992806..a1074deb7 100644
--- a/Compras/RepComprasAF.aspx.vb
+++ b/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
diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb
index 38b0e8adc..c0fb3df3c 100644
--- a/Compras/RepComprasAFDetalle.aspx.vb
+++ b/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)
diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb
index 601cee895..820982b2b 100644
--- a/Compras/RepComprasDetalle.aspx.vb
+++ b/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", $"Agrupado Por: {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)
diff --git a/Compras/RepComprasPeriodo.aspx.vb b/Compras/RepComprasPeriodo.aspx.vb
index ced8c83f9..0844f63ae 100644
--- a/Compras/RepComprasPeriodo.aspx.vb
+++ b/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", $"Agrupado Por: {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)
diff --git a/Compras/RepComprasPersonal.aspx.vb b/Compras/RepComprasPersonal.aspx.vb
index 0368c8250..de56d7911 100644
--- a/Compras/RepComprasPersonal.aspx.vb
+++ b/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
diff --git a/Compras/RepComprasPersonalDetalle.aspx.vb b/Compras/RepComprasPersonalDetalle.aspx.vb
index 60b29cc80..62be3a8dc 100644
--- a/Compras/RepComprasPersonalDetalle.aspx.vb
+++ b/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)
diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb
index cc90a744c..0540f9a27 100644
--- a/Compras/RepCxP.aspx.vb
+++ b/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)
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb
index b9f48a271..9e993c5f8 100644
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -763,11 +763,7 @@ Partial Class RepCxPDetalle
Dim TipoMoneda = If(RblTipoCambio.SelectedValue = "-1", "", $" Tipo Moneda: {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)
diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb
index c6946764e..c91ab6675 100644
--- a/Compras/RepNotasCredito.aspx.vb
+++ b/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)
diff --git a/Compras/RepPUESinPago.aspx.vb b/Compras/RepPUESinPago.aspx.vb
index 13357c4fc..0a993d9c5 100644
--- a/Compras/RepPUESinPago.aspx.vb
+++ b/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
diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb
index 3290b2841..65bb0442e 100644
--- a/Compras/RepProductosServicios.aspx.vb
+++ b/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", "", $" Proveedor: {DdlProveedor.SelectedText}")
Dim FechaInicio = If(txtFechaI.Text = "", "", $" Fecha Inicio: {txtFechaI.Text}")
Dim FechaFin = If(txtFechaF.Text = "", "", $" Fecha Fin: {txtFechaF.Text}")
@@ -515,6 +511,8 @@ Partial Class Compras_RepProductosServicios
Dim SubTipoAF = If(DdlSubTipoAF.GetSelectedText = "", "", $" SubTipo AF: {DdlSubTipoAF.GetSelectedText}")
Dim AF = If(DdlAF.SelectedValue = "-1", "", $" Activo Fijo: {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
diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb
index 3691d562a..dca139c70 100644
--- a/Compras/RepProductosServiciosDetalle.aspx.vb
+++ b/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)
diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb
index 01b94d869..7a43dbef6 100644
--- a/Compras/RepRembolsoComprobaciones.aspx.vb
+++ b/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
diff --git a/Contabilidad/CatCuentas.aspx.vb b/Contabilidad/CatCuentas.aspx.vb
index 1f4f48db5..fb8cbd7ed 100644
--- a/Contabilidad/CatCuentas.aspx.vb
+++ b/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
diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb
index ffe15a65c..794f527e1 100644
--- a/Contabilidad/FiltraPolizas.aspx.vb
+++ b/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)
diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb
index 7817aaf45..b60b8e8b9 100644
--- a/Contabilidad/PopUpAuxiliar.aspx.vb
+++ b/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)
diff --git a/Contabilidad/RepBalanceGeneral.aspx.vb b/Contabilidad/RepBalanceGeneral.aspx.vb
index 4ca08cb36..2ef56d8c7 100644
--- a/Contabilidad/RepBalanceGeneral.aspx.vb
+++ b/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))
diff --git a/Contabilidad/RepEdoResultados2.aspx.vb b/Contabilidad/RepEdoResultados2.aspx.vb
index 2abaf0bd9..de86c9ffe 100644
--- a/Contabilidad/RepEdoResultados2.aspx.vb
+++ b/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("Agrupado por: {0}", DdlAgrupador.SelectedItem.Text)
diff --git a/Contabilidad/RepIEPS.aspx.vb b/Contabilidad/RepIEPS.aspx.vb
index 4dcb8bfbb..f942dd18e 100644
--- a/Contabilidad/RepIEPS.aspx.vb
+++ b/Contabilidad/RepIEPS.aspx.vb
@@ -122,19 +122,15 @@ Partial Class Contabilidad_RepIEPS
Dim Modalidad As String = $" Modalidad: {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", $"Filtros: {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
diff --git a/Contabilidad/RepIVADiferencias.aspx.vb b/Contabilidad/RepIVADiferencias.aspx.vb
index a19bb6fc6..9891aa740 100644
--- a/Contabilidad/RepIVADiferencias.aspx.vb
+++ b/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))
diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb
index 869c345c2..1af235de7 100644
--- a/Contabilidad2/RepEstadoActividades.aspx.vb
+++ b/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)))
diff --git a/Contratos/CatRefrendos.aspx.cs b/Contratos/CatRefrendos.aspx.cs
index 08ee5bddf..ef2893141 100644
--- a/Contratos/CatRefrendos.aspx.cs
+++ b/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
diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index 629b5bde7..27aec9165 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/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
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index e24bee053..8415cd140 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/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
diff --git a/Contratos/Contratos.aspx.vb b/Contratos/Contratos.aspx.vb
index 9adf97c91..72a73ce4a 100644
--- a/Contratos/Contratos.aspx.vb
+++ b/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", $"Agrupado Por: {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)
diff --git a/Contratos/RepContratosCostos.aspx.vb b/Contratos/RepContratosCostos.aspx.vb
index a686b9e96..307d99a3c 100644
--- a/Contratos/RepContratosCostos.aspx.vb
+++ b/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
diff --git a/Contratos/RepContratosFianzas.aspx.cs b/Contratos/RepContratosFianzas.aspx.cs
index a6e0afae1..9021ab9f2 100644
--- a/Contratos/RepContratosFianzas.aspx.cs
+++ b/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
diff --git a/Contratos/RepContratosSuministros.aspx.vb b/Contratos/RepContratosSuministros.aspx.vb
index 17ddc97f2..ff154a162 100644
--- a/Contratos/RepContratosSuministros.aspx.vb
+++ b/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
diff --git a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb
index 069a9bdee..be9e558f8 100644
--- a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb
+++ b/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)))
diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb
index c7e64c63b..1dcbb9dab 100644
--- a/Contratos/RepPresupuestos.aspx.vb
+++ b/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)
diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb
index 5d23ef8ad..6056e2dd7 100644
--- a/Contratos/RepPresupuestosDetalle.aspx.vb
+++ b/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)
diff --git a/CxC/GestionCobranza.aspx.vb b/CxC/GestionCobranza.aspx.vb
index 9f6686ad0..ea1994f86 100644
--- a/CxC/GestionCobranza.aspx.vb
+++ b/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")
diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb
index 22c77a23f..f7c3a9bee 100644
--- a/CxC/RepCxC.aspx.vb
+++ b/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)
diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb
index db4081538..5790de8c6 100644
--- a/CxC/RepCxCDetalle.aspx.vb
+++ b/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)
diff --git a/Edoc/Contratos.aspx.vb b/Edoc/Contratos.aspx.vb
index 9f4537c22..a19e6bc55 100644
--- a/Edoc/Contratos.aspx.vb
+++ b/Edoc/Contratos.aspx.vb
@@ -363,11 +363,7 @@ Partial Class Proveedores_Contratos
Dim Filtro As String = String.Format("{0}: {1} Proveedor: {2} Tipo Contrato: {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
diff --git a/Finanzas/RepRotacionCartera.aspx.cs b/Finanzas/RepRotacionCartera.aspx.cs
index fc50ded54..c826050f3 100644
--- a/Finanzas/RepRotacionCartera.aspx.cs
+++ b/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)
{
diff --git a/Flotillas/RepIncidentes.aspx.vb b/Flotillas/RepIncidentes.aspx.vb
index a28cc0c0f..e43b0e11e 100644
--- a/Flotillas/RepIncidentes.aspx.vb
+++ b/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)
diff --git a/Flotillas/RepLicencias.aspx.vb b/Flotillas/RepLicencias.aspx.vb
index 1c6122e8a..e581d6dfd 100644
--- a/Flotillas/RepLicencias.aspx.vb
+++ b/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)
diff --git a/Flotillas/RepPlacas.aspx.vb b/Flotillas/RepPlacas.aspx.vb
index a4462648b..0b41aeaf3 100644
--- a/Flotillas/RepPlacas.aspx.vb
+++ b/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)
diff --git a/Flotillas/RepPolizaSeguro.aspx.vb b/Flotillas/RepPolizaSeguro.aspx.vb
index 00b464429..f8139fb1b 100644
--- a/Flotillas/RepPolizaSeguro.aspx.vb
+++ b/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)
diff --git a/Flotillas/RepServicios.aspx.vb b/Flotillas/RepServicios.aspx.vb
index 664c0a912..4c11ca9b0 100644
--- a/Flotillas/RepServicios.aspx.vb
+++ b/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)
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index bbe6bc894..d32123b5b 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/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))
diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb
index b7c3fc026..14f842ee0 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/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)
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 8beae4fb0..15256ce87 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -473,11 +473,7 @@ Partial Class Inventarios_Kardex
params.Add(New ReportParameter("Producto", ddlProducto2.SelectedText))
params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {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)
diff --git a/Inventarios/KardexAlmacen.aspx.vb b/Inventarios/KardexAlmacen.aspx.vb
index 0aa94ec71..850163dfa 100644
--- a/Inventarios/KardexAlmacen.aspx.vb
+++ b/Inventarios/KardexAlmacen.aspx.vb
@@ -187,11 +187,7 @@ Partial Class Inventarios_KardexAlmacen
params.Add(New ReportParameter("Producto", ddlProducto2.SelectedText))
params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {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)
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index bd7b054fd..5358a28b2 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/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))
diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb
index c02187b8d..5046f5089 100644
--- a/Inventarios/RepAlmacen.aspx.vb
+++ b/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
diff --git a/Inventarios/RepAlmacenCompras.aspx.vb b/Inventarios/RepAlmacenCompras.aspx.vb
index 6e077dd39..afb957c27 100644
--- a/Inventarios/RepAlmacenCompras.aspx.vb
+++ b/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))
diff --git a/Inventarios/RepAlmacenPeriodo.aspx.vb b/Inventarios/RepAlmacenPeriodo.aspx.vb
index 3bbdcc71e..773c1f5ea 100644
--- a/Inventarios/RepAlmacenPeriodo.aspx.vb
+++ b/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)
diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb
index e5febc579..4af3edeb8 100644
--- a/Inventarios/RepAnomalias.aspx.vb
+++ b/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
diff --git a/Inventarios/RepApartados.aspx.vb b/Inventarios/RepApartados.aspx.vb
index 199bbfc2a..d04a06e2b 100644
--- a/Inventarios/RepApartados.aspx.vb
+++ b/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))
diff --git a/Inventarios/RepApartados2.aspx.vb b/Inventarios/RepApartados2.aspx.vb
index 7a08ef173..8eded3cad 100644
--- a/Inventarios/RepApartados2.aspx.vb
+++ b/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)
diff --git a/Inventarios/RepConsignaciones.aspx.vb b/Inventarios/RepConsignaciones.aspx.vb
index 6fd73ee5d..f3b1ed34f 100644
--- a/Inventarios/RepConsignaciones.aspx.vb
+++ b/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))
diff --git a/Inventarios/RepConsumoInterno.aspx.cs b/Inventarios/RepConsumoInterno.aspx.cs
index 1326b0531..0e539c2d9 100644
--- a/Inventarios/RepConsumoInterno.aspx.cs
+++ b/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);
}
diff --git a/Inventarios/RepExistenciasCostos.aspx.vb b/Inventarios/RepExistenciasCostos.aspx.vb
index acb091561..5c4ed2f77 100644
--- a/Inventarios/RepExistenciasCostos.aspx.vb
+++ b/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)
diff --git a/Inventarios/RepFletes.aspx.vb b/Inventarios/RepFletes.aspx.vb
index 251aa6d51..c8f4d82b5 100644
--- a/Inventarios/RepFletes.aspx.vb
+++ b/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)
diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb
index 309478c86..8ceee3915 100644
--- a/Inventarios/RepMaximoMinimo.aspx.vb
+++ b/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
diff --git a/Inventarios/RepMovimientos.aspx.vb b/Inventarios/RepMovimientos.aspx.vb
index 3d89b29fc..d6ce6636e 100644
--- a/Inventarios/RepMovimientos.aspx.vb
+++ b/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))
diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb
index 4dec61bc8..096adffbe 100644
--- a/Inventarios/RepNotasSinAlmacen.aspx.vb
+++ b/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
diff --git a/Inventarios/RepOcInv.aspx.vb b/Inventarios/RepOcInv.aspx.vb
index b3754ad01..201d543fe 100644
--- a/Inventarios/RepOcInv.aspx.vb
+++ b/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)
diff --git a/Inventarios/RepOcInvMoto.aspx.vb b/Inventarios/RepOcInvMoto.aspx.vb
index ab7e52922..e6150b327 100644
--- a/Inventarios/RepOcInvMoto.aspx.vb
+++ b/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)
diff --git a/Inventarios/RepProductosPorCaducar.aspx.cs b/Inventarios/RepProductosPorCaducar.aspx.cs
index 83946dee6..676a671a5 100644
--- a/Inventarios/RepProductosPorCaducar.aspx.cs
+++ b/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);
diff --git a/Inventarios/RepRSCO.aspx.vb b/Inventarios/RepRSCO.aspx.vb
index 720d140d6..ed39a7ec9 100644
--- a/Inventarios/RepRSCO.aspx.vb
+++ b/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)
diff --git a/Inventarios/RepTraspasoAlmacen.aspx.vb b/Inventarios/RepTraspasoAlmacen.aspx.vb
index 2cf3fc56c..aca1c649f 100644
--- a/Inventarios/RepTraspasoAlmacen.aspx.vb
+++ b/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)
diff --git a/Inventarios/ReporteMaterial.aspx.vb b/Inventarios/ReporteMaterial.aspx.vb
index 7948b0da4..6c4e65323 100644
--- a/Inventarios/ReporteMaterial.aspx.vb
+++ b/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
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb
index 18f59f5c7..77e07a2a9 100644
--- a/Inventarios/TrasladoSolicitud.aspx.vb
+++ b/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)
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb
index 38d12e28b..2656c72b5 100644
--- a/OC/RepOC.aspx.vb
+++ b/OC/RepOC.aspx.vb
@@ -524,11 +524,7 @@ Partial Class RepOC
params.Add(New ReportParameter("SubProyectoHeader", LblSubProyecto.Text))
params.Add(New ReportParameter("Titulo", "REPORTE DE ORDENES DE COMPRA POR ATENDER"))
- 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($"{UsuarioActual.Empresa.Ruta}Formatos/RepOCPorAtender.rdlc", DtPorAtender, params, "RepOCPorAtender", Formato)
diff --git a/OC/RepOCGuias.aspx.vb b/OC/RepOCGuias.aspx.vb
index b1b84f671..65a305090 100644
--- a/OC/RepOCGuias.aspx.vb
+++ b/OC/RepOCGuias.aspx.vb
@@ -141,11 +141,7 @@ Partial Class OC_RepOCGuias
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.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\RepOCGuias.rdlc", DTDatos, params, $"RepOCGuias_{Now.ToString("yyyyMMddmmss")}", Formato:=Formato)
End Sub
diff --git a/OC/RepReqXOC.aspx.vb b/OC/RepReqXOC.aspx.vb
index 8a4210fc6..87d027760 100644
--- a/OC/RepReqXOC.aspx.vb
+++ b/OC/RepReqXOC.aspx.vb
@@ -140,11 +140,7 @@ Partial Class RepReqXOC
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\RepReqXOC.rdlc", DTDatos, params, $"RepReqXOC_{Now.ToString("yyyyMMddmmss")}", Formato:=Formato)
diff --git a/OC/RepRequisiciones.aspx.vb b/OC/RepRequisiciones.aspx.vb
index d85d2bca5..c2bae7a24 100644
--- a/OC/RepRequisiciones.aspx.vb
+++ b/OC/RepRequisiciones.aspx.vb
@@ -164,11 +164,7 @@ Partial Class OC_RepRequisiciones
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Proyecto", DdlProyecto.SelectedItem.Text))
params.Add(New ReportParameter("SubProyecto", DdlSubProyecto.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/RepRequisiciones.rdlc", dt, params, "ReporteRequisiciones")
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
diff --git a/OI/Circular.aspx.vb b/OI/Circular.aspx.vb
index 0b950ac7b..b32c1154a 100644
--- a/OI/Circular.aspx.vb
+++ b/OI/Circular.aspx.vb
@@ -52,11 +52,7 @@ Partial Class OI_Circular
Dim params As New List(Of ReportParameter)
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}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("FechaImpresion", Today))
params.Add(New ReportParameter("Filtros", String.Format("Fecha Inicial: {0} Fecha Final: {1}", TxtFechaI.Text, TxtFechaF.Text)))
diff --git a/OI/RepSoporteADS.aspx.vb b/OI/RepSoporteADS.aspx.vb
index 4857a9b2a..ee36a8828 100644
--- a/OI/RepSoporteADS.aspx.vb
+++ b/OI/RepSoporteADS.aspx.vb
@@ -234,11 +234,7 @@ Partial Class OI_RepSoporteADS
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}", "")))
diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb
index b192621c7..dee2323e4 100644
--- a/OS/Asignaciones.aspx.vb
+++ b/OS/Asignaciones.aspx.vb
@@ -376,11 +376,7 @@ Partial Class OS_Asignaciones
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
@@ -495,11 +491,7 @@ Partial Class OS_Asignaciones
params.Add(New ReportParameter("FechaInicio", txtFechaI.Text))
params.Add(New ReportParameter("FechaFin", txtFechaF.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/RepOSAsignacion.rdlc", dt, params, "OrdenesServicio")
End Sub
#End Region
diff --git a/OS/RepServicioDomicilio.aspx.vb b/OS/RepServicioDomicilio.aspx.vb
index 48e21a909..960fae594 100644
--- a/OS/RepServicioDomicilio.aspx.vb
+++ b/OS/RepServicioDomicilio.aspx.vb
@@ -700,11 +700,7 @@ Partial Class OS_RepServicioDomicilio
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
diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb
index 84a4d1faf..21ec86d2d 100644
--- a/PortalCliente/PortalCliente.aspx.vb
+++ b/PortalCliente/PortalCliente.aspx.vb
@@ -2327,11 +2327,7 @@ Partial Class Ventas_PortalCliente
params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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/ClienteHistorial.rdlc", DTHistorialVentas, params, "Reporte de Historial", "Excel")
Else
@@ -2374,11 +2370,7 @@ Partial Class Ventas_PortalCliente
params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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}", "")))
retorno = StreamPDF("Empresas/Grales/Formatos/ClienteHistorial.rdlc", DTHistorialVentas, params, "Reporte de Historial")
Else
@@ -2409,11 +2401,7 @@ Partial Class Ventas_PortalCliente
params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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/ClienteCxC.rdlc", DTCxC, params, "Reporte de CxC Activas", "Excel")
Else
@@ -2446,11 +2434,7 @@ Partial Class Ventas_PortalCliente
params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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}", "")))
retorno = StreamPDF("Empresas/Grales/Formatos/ClienteCxC.rdlc", DTCxC, params, "Reporte de CxC Activas")
Else
@@ -2480,11 +2464,7 @@ Partial Class Ventas_PortalCliente
params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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/ClienteCxC.rdlc", DTCxCHistorial, params, "Reporte de CxC Historial", "Excel")
Else
@@ -2517,11 +2497,7 @@ Partial Class Ventas_PortalCliente
params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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}", "")))
retorno = StreamPDF("Empresas/Grales/Formatos/ClienteCxC.rdlc", DTCxCHistorial, params, "Reporte de CxC Historial")
Else
diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb
index 0490ee546..aa76416b2 100644
--- a/PortalProveedor/PortalProveedor.aspx.vb
+++ b/PortalProveedor/PortalProveedor.aspx.vb
@@ -998,11 +998,7 @@ Partial Class Portal_PortalProveedor
params.Add(New ReportParameter("LogoPathADS", ""))
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}", "")))
retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorCuentasBancos.rdlc", DTCuentasBancos, params, "Reporte de CxP Pagadas", Formato)
Else
@@ -1047,11 +1043,7 @@ Partial Class Portal_PortalProveedor
params.Add(New ReportParameter("LogoPathADS", ""))
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}", "")))
retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorBancos.rdlc", DtBancos, params, "Reporte de CxP Pagadas", Formato)
Else
@@ -1117,11 +1109,7 @@ Partial Class Portal_PortalProveedor
params.Add(New ReportParameter("LogoPathADS", ""))
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}", "")))
retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorNTPorAplicar.rdlc", DTGvA, params, "Reporte de Ventas", Formato)
Else
@@ -1166,11 +1154,7 @@ Partial Class Portal_PortalProveedor
params.Add(New ReportParameter("LogoPathADS", ""))
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}", "")))
retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorNTPorAplicar.rdlc", DTGvAH, params, "Reporte de Ventas", Formato)
Else
@@ -1235,11 +1219,7 @@ Partial Class Portal_PortalProveedor
params.Add(New ReportParameter("LogoPathADS", ""))
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}", "")))
retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorHistorial.rdlc", DTCxCHistorial, params, "Reporte de Ventas", Formato)
Else
@@ -1298,11 +1278,7 @@ Partial Class Portal_PortalProveedor
params.Add(New ReportParameter("LogoPathADS", ""))
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}", "")))
retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorCxC.rdlc", DTCxCHistorial, params, "Reporte de CxP Pagadas", Formato)
Else
@@ -1366,11 +1342,7 @@ Partial Class Portal_PortalProveedor
params.Add(New ReportParameter("LogoPathADS", ""))
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}", "")))
retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorCxC.rdlc", DTCxCHistorial, params, "Reporte de CxC Activa", Formato)
Else
diff --git a/RH/CatCursos.aspx.vb b/RH/CatCursos.aspx.vb
index 9902ecc1d..7acc8ee09 100644
--- a/RH/CatCursos.aspx.vb
+++ b/RH/CatCursos.aspx.vb
@@ -335,11 +335,7 @@ Partial Class RH_CatCursos
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Capacitador", DDLCapacitador.SelectedItem.Text))
diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb
index f15c45134..07e7f288f 100644
--- a/RH/CatPersonal.aspx.vb
+++ b/RH/CatPersonal.aspx.vb
@@ -689,11 +689,7 @@ Partial Class RH_CatPersonal
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\RepPersonal.rdlc", DTDatos, params, "ReporteTareas", Formato:=Formato)
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index f9192e73b..866c64367 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -3739,11 +3739,7 @@ Partial Class RH_Personal
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}", "")))
ImprimirPDF("Empresas/Grales/Formatos/Personal.rdlc", New DataTable, params, "ReportePersonal", Formato)
Else
@@ -3841,11 +3837,7 @@ Partial Class RH_Personal
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}", "")))
ImprimirPDF("Empresas/Grales/Formatos/ExpedientePersonal.rdlc", New DataTable, params, "ExpedientePersonal")
Else
@@ -6033,12 +6025,11 @@ Partial Class RH_Personal
RutaPDF = "Empresas/Grales/Formatos/RepConsumoPersonal.rdlc"
End If
- Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
- Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
- Dim params As List(Of ReportParameter) = New List(Of ReportParameter)()
+ 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+ 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("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
Dim ObjPersonal As New ClsRH()
If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
@@ -6053,12 +6044,8 @@ Partial Class RH_Personal
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()))
+ params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
- If Imagen.Exists Then
- params.Add(New ReportParameter("pImg", logouri))
- Else
- params.Add(New ReportParameter("pImg", ""))
- End If
ImprimirPDF(RutaPDF, DTConsumos, params, $"RepConsumoPersonal - {CodigoP} {NombreCompletoP}", Formato)
End Sub
Protected Sub LnkImprimirPDFConsumo_Click(sender As Object, e As EventArgs)
@@ -6449,11 +6436,7 @@ Partial Class RH_Personal
params.Add(New ReportParameter("Empresa", 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}", "")))
If Archivo.Exists Then
diff --git a/RH/RepIndiceRotacionPersonal.aspx.vb b/RH/RepIndiceRotacionPersonal.aspx.vb
index e2a58bb11..d45b536c4 100644
--- a/RH/RepIndiceRotacionPersonal.aspx.vb
+++ b/RH/RepIndiceRotacionPersonal.aspx.vb
@@ -167,11 +167,7 @@ Partial Class Ventas_RepIndiceRotacionPersonal
params.Add(New ReportParameter("FechaRealizado", Date.Now().ToString()))
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/RepIndiceRotacionPersonal.rdlc", DTGvDatos, params, "Reporte de Historial", "PDF")
diff --git a/RH/RepPersonalInconsistencias.aspx.vb b/RH/RepPersonalInconsistencias.aspx.vb
index a56bcf804..1d2ece3cd 100644
--- a/RH/RepPersonalInconsistencias.aspx.vb
+++ b/RH/RepPersonalInconsistencias.aspx.vb
@@ -256,11 +256,7 @@ Partial Class RH_RepPersonalInconsistencias
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/{rdlc}", DT, params, String.Format("{0}-{1}", NombreReporte, Now.ToDateTime.ToShortDateString), Formato:=Formato)
diff --git a/RH/RepUniformes.aspx.vb b/RH/RepUniformes.aspx.vb
index 71dc28f22..ca6a93925 100644
--- a/RH/RepUniformes.aspx.vb
+++ b/RH/RepUniformes.aspx.vb
@@ -103,11 +103,7 @@ Partial Class RH_RepUniformes
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\RepUniformes.rdlc", DTDatos, params, "ReporteUniformes", Formato:=Formato)
End If
diff --git a/RH/RepUniformesResguardo.aspx.vb b/RH/RepUniformesResguardo.aspx.vb
index dc3623ddf..eac48a5cb 100644
--- a/RH/RepUniformesResguardo.aspx.vb
+++ b/RH/RepUniformesResguardo.aspx.vb
@@ -135,11 +135,7 @@ Partial Class RH_RepUniformesResguardo
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\RepUniformesResguardo.rdlc", DTDatos, params, "ReporteUniformes", Formato:=Formato)
End If
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index a4f9dbb0b..bfbb516d9 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -4995,11 +4995,7 @@ Partial Class Sistemas_UsuarioDetalle
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/BitacoraLogin.rdlc", DtDatos, params, String.Format("BitacoraRegistro-{0}", Now.ToDateTime.ToShortDateString))
End Sub
End Class
diff --git a/Ventas/CatClientes.aspx.vb b/Ventas/CatClientes.aspx.vb
index adaaf80e7..84a4f7bef 100644
--- a/Ventas/CatClientes.aspx.vb
+++ b/Ventas/CatClientes.aspx.vb
@@ -202,11 +202,7 @@ Partial Class CatClientes
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepClientes.rdlc", DtClientes, params, "RepClientes")
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 127298d4c..259bcad27 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -4048,11 +4048,7 @@ Partial Class Clientes
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim params As New List(Of ReportParameter)
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
@@ -6382,11 +6378,7 @@ Partial Class Clientes
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("Cliente", LtlCliente.Text))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/ClienteHistorial.rdlc", DTHistorialVentas, params, "Reporte de Historial", "Excel")
Else
@@ -6427,11 +6419,7 @@ Partial Class Clientes
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("Cliente", LtlCliente.Text))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
retorno = StreamPDF("Empresas/Grales/Formatos/ClienteHistorial.rdlc", DTHistorialVentas, params, "Reporte de Historial")
Else
@@ -6802,11 +6790,7 @@ Partial Class Clientes
params.Add(New ReportParameter("AgrupadoPor", String.Format("Cliente: {0}", TxtNombreComercial.Text)))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime().ToShortDateString()))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
@@ -9888,11 +9872,7 @@ Partial Class Clientes
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("AgrupadoPor", "Cliente: " & LtlCliente.Text))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
Else
Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb
index 35ab16170..0de012dbb 100644
--- a/Ventas/MetasVendedores.aspx.vb
+++ b/Ventas/MetasVendedores.aspx.vb
@@ -126,11 +126,7 @@ Partial Class MetasVendedores
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
- If Imagen.Exists Then
- params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("pImg", ""))
- End If
+ params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("FechaImpresion", Today))
params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
diff --git a/Ventas/RepAuxiliarFacturas.aspx.vb b/Ventas/RepAuxiliarFacturas.aspx.vb
index 77cf94d40..6af377e2d 100644
--- a/Ventas/RepAuxiliarFacturas.aspx.vb
+++ b/Ventas/RepAuxiliarFacturas.aspx.vb
@@ -287,11 +287,7 @@ Partial Class Ventas_RepAuxiliarFacturas
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", $"{Cliente}{FechaInicio}{FechaFin}{Clasificacion}{PS}{Proyecto}{Estatus}"))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepAuxiliarFacturas.rdlc", DtVentas, params, "ReporteAuxiliarFacturas")
Else
Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/RepCotizaciones.aspx.vb b/Ventas/RepCotizaciones.aspx.vb
index c7dfa72f5..51df290ca 100644
--- a/Ventas/RepCotizaciones.aspx.vb
+++ b/Ventas/RepCotizaciones.aspx.vb
@@ -137,11 +137,7 @@ Partial Class RepRemisiones
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepCotizaciones.rdlc", DtVentas, params, String.Format("RepCotizaciones-{0}", Now.ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/RepCotizacionesDetalle.aspx.vb b/Ventas/RepCotizacionesDetalle.aspx.vb
index 66f35610f..7b6834c5e 100644
--- a/Ventas/RepCotizacionesDetalle.aspx.vb
+++ b/Ventas/RepCotizacionesDetalle.aspx.vb
@@ -99,11 +99,7 @@ Partial Class RepRemisionesDetalle
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepCotizacionesDetalle.rdlc", DtVentas, params, String.Format("RepCotizacionesDetalle-{0}", Now.ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/RepNCxAplicar.aspx.cs b/Ventas/RepNCxAplicar.aspx.cs
index 4de0c1890..80e59ad94 100644
--- a/Ventas/RepNCxAplicar.aspx.cs
+++ b/Ventas/RepNCxAplicar.aspx.cs
@@ -137,15 +137,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas
//@params.Add(new ReportParameter("FechaInicio", txtFechaI.Text));
//@params.Add(new ReportParameter("FechaFin", txtFechaF.Text));
- if (Imagen.Exists)
- {
- @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
- }
- else
- {
- @params.Add(new ReportParameter("LogoPath", ""));
- }
-
+ @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : ""));
this.ImprimirPDF("Empresas/Grales/Formatos/RepNCxAplicar.rdlc", DTDatos, @params, "Reporte de Notas de Credito por Aplicar", Formato);
}
diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb
index ac1b0c0c7..0bf18eea6 100644
--- a/Ventas/RepPS.aspx.vb
+++ b/Ventas/RepPS.aspx.vb
@@ -219,11 +219,7 @@ Partial Class Ventas_RepPS
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("Parametros", SbParametros.ToString()))
If System.IO.File.Exists($"{UsuarioActual.Empresa.Ruta}Formatos/RepPS.rdlc") Then
diff --git a/Ventas/RepPUESinPago.aspx.vb b/Ventas/RepPUESinPago.aspx.vb
index 761e4cbb5..e51daab50 100644
--- a/Ventas/RepPUESinPago.aspx.vb
+++ b/Ventas/RepPUESinPago.aspx.vb
@@ -101,11 +101,7 @@ Partial Class Ventas_RepPUESinPago
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("AgrupadoPor", $"{FI}{FF}{cliente}{subProy}{vendedor}"))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepPUESinPago.rdlc", DtDatos, params, "RepPUESinPago", Formato)
Else
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index d2806311a..f57a14540 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -570,11 +570,7 @@ Partial Class Ventas_RepProductosServicios
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", $"{Grupo}{Cliente}{FechaInicio}{FechaFin}{Categoria}{Clasificacion}{PS}{Proyecto}{Estatus}{Usuario}{Proveedor}"))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepProductosServicios.rdlc", DtVentas, params, "ReportePS")
Else
Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb
index 40d57e848..580ed9518 100644
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -784,11 +784,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
Dim params As New List(Of ReportParameter)
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
diff --git a/Ventas/RepRecuperacion.aspx.vb b/Ventas/RepRecuperacion.aspx.vb
index aaa0da419..4a71ddf03 100644
--- a/Ventas/RepRecuperacion.aspx.vb
+++ b/Ventas/RepRecuperacion.aspx.vb
@@ -261,11 +261,7 @@ Partial Class Ventas_RepRecuperacion
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF(RutaPDF, DtDatos, params, String.Format("ReporteRecuperacion-{0}", Now.ToDateTime.ToShortDateString), Formato)
Else
Alert("No hay datos consultados.", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/RepRecuperacionDetalle.aspx.vb b/Ventas/RepRecuperacionDetalle.aspx.vb
index 13319a362..5608c62da 100644
--- a/Ventas/RepRecuperacionDetalle.aspx.vb
+++ b/Ventas/RepRecuperacionDetalle.aspx.vb
@@ -358,11 +358,7 @@ Partial Class Ventas_RepRecuperacionDetalle
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF(RutaPDF, DtDatos, params, String.Format("ReporteRecuperacionDetalle-{0}", Now.ToDateTime.ToShortDateString), Formato)
Else
Alert("No hay datos consultados.", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/RepRemisiones.aspx.vb b/Ventas/RepRemisiones.aspx.vb
index dce02d2e6..a1add4f66 100644
--- a/Ventas/RepRemisiones.aspx.vb
+++ b/Ventas/RepRemisiones.aspx.vb
@@ -223,11 +223,7 @@ Partial Class RepRemisiones
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepRemisiones.rdlc", DtVentas, params, String.Format("ReporteRemisiones-{0}", Now.ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/RepRemisiones2.aspx.vb b/Ventas/RepRemisiones2.aspx.vb
index 7e2f5fcea..28a3dbe62 100644
--- a/Ventas/RepRemisiones2.aspx.vb
+++ b/Ventas/RepRemisiones2.aspx.vb
@@ -144,11 +144,7 @@ Partial Class RepRemisiones
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepRemisiones.rdlc", DtVentas, params, String.Format("ReporteRemisiones-{0}", Now.ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/RepRemisionesDetalle.aspx.vb b/Ventas/RepRemisionesDetalle.aspx.vb
index d8c4b4269..05e4ed988 100644
--- a/Ventas/RepRemisionesDetalle.aspx.vb
+++ b/Ventas/RepRemisionesDetalle.aspx.vb
@@ -251,11 +251,7 @@ Partial Class RepRemisionesDetalle
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepRemisionesDetalle.rdlc", DtVentas, params, String.Format("ReporteRemisionesDetalle-{0}", Now.ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 5cb7340ca..fd19eb232 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -1050,11 +1050,7 @@ Partial Class RepVentaDetalle
params.Add(New ReportParameter("TipoDocto", TipoDocto))
params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo} {TipoDocto} {FechaIn} {FechaFn} {FechaIEjec} {FechaFEjec} {CveCliente} {CveSucursal} {CveSucursalEjec} {Vendedor} {CveUsuario} {CveEstatusFactura} {CondicionesPago} "))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 3d2aadb94..4fb182e37 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -696,11 +696,7 @@ Partial Class Ventas_RepVentas
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
If Archivo.Exists Then
ruta = UsuarioActual.Empresa.Ruta & "Formatos/RepVentas.rdlc"
diff --git a/Ventas/RepVentasPeriodo.aspx.vb b/Ventas/RepVentasPeriodo.aspx.vb
index 0dc47424c..fb40b1985 100644
--- a/Ventas/RepVentasPeriodo.aspx.vb
+++ b/Ventas/RepVentasPeriodo.aspx.vb
@@ -329,11 +329,7 @@ Partial Class RepVentasPeriodo
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
'Alert("El reporte requiere papel tipo oficio", TipoMensaje.MsgInformacion)
ImprimirPDF("Empresas/Grales/Formatos/RepVentasPeriodo.rdlc", dt, params, String.Format("ReporteVentas-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
diff --git a/Ventas/RepVentasUtilidad.aspx.vb b/Ventas/RepVentasUtilidad.aspx.vb
index 6ffecd8ea..8c0b7eed4 100644
--- a/Ventas/RepVentasUtilidad.aspx.vb
+++ b/Ventas/RepVentasUtilidad.aspx.vb
@@ -336,11 +336,7 @@ Partial Class Ventas_RepVentasUtilidad
params.Add(New ReportParameter("PorNeto", LblPorNeto.Text + " %"))
params.Add(New ReportParameter("UtilidadPerdida", LblNombreNeto.Text))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidad.rdlc", dt, params, "RepVentasUtilidad", Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/RepVentasUtilidadDetalle.aspx.vb b/Ventas/RepVentasUtilidadDetalle.aspx.vb
index 944933029..2c11de968 100644
--- a/Ventas/RepVentasUtilidadDetalle.aspx.vb
+++ b/Ventas/RepVentasUtilidadDetalle.aspx.vb
@@ -330,11 +330,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
params.Add(New ReportParameter("PorPerdida", LblPorPerdida.Text))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidadDetalle.rdlc", dt, params, "RepVentasUtilidadDetalle", Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
@@ -379,11 +375,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Vendedor}{PS}{Clasificacion}{FechaIn}{FechaFn}"))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidadDetalleGeneral.rdlc", dt, params, "RepVentasUtilidadDetalle", Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb
index 66e2d2f56..be8ec0529 100644
--- a/Ventas/RepVentasUtilidadPadre.aspx.vb
+++ b/Ventas/RepVentasUtilidadPadre.aspx.vb
@@ -284,10 +284,11 @@ Partial Class Ventas_RepVentasUtilidadPadre
If DdlClientesWS.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Cliente: {0}", DdlClientesWS.SelectedText)
If DdlVendedor.GetSelectedText <> "" Then StrFiltro.AppendFormat(" Vendedor: {0}", DdlVendedor.GetSelectedText)
If DdlMarcas.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Marcas: {0}", DdlMarcas.SelectedItem.Text)
- Dim params As List(Of ReportParameter) = New List(Of ReportParameter)()
- Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
- Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+ Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+ Dim params As New List(Of ReportParameter)()
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString()))
@@ -295,19 +296,11 @@ Partial Class Ventas_RepVentasUtilidadPadre
params.Add(New ReportParameter("Neto", LblNeto.Text))
params.Add(New ReportParameter("PorNeto", $"{LblPorNeto.Text}%"))
params.Add(New ReportParameter("Rentabilidad", $"{LblRentabilidad.Text}%"))
-
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidadPadre.rdlc", DtDatos, params, "Reporte de Utilidad o Pérdida sobre Ventas", Formato)
End Sub
#End Region
-
-
-
End Class
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c0a059824..53ce16d9d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -27153,11 +27153,7 @@ Partial Class Ventas
params.Add(New ReportParameter("Dimensiones", Dimensiones))
params.Add(New ReportParameter("FechaEstimada", FechaEstimada))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF(RutaRdlc, DTMovimientosDetalle, params, $"ReporteGuia_{Now.ToString("yyyyMMddhhmmss")}")