From 5ef0983e776a608266a81be50e9f11054c8457d8 Mon Sep 17 00:00:00 2001 From: MLopez Date: Thu, 22 Dec 2022 19:26:13 -0700 Subject: [PATCH] =?UTF-8?q?Simplificar=20referencias=20a=20logos=20en=20RD?= =?UTF-8?q?LC=20y=20m=C3=A1s=20limpieza=20de=20c=C3=B3digo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- AC/CatClasificacionFuncional.aspx.vb | 2 +- AC/CatClasificacionGeografica.aspx.vb | 2 +- AC/CatFuentesFinanciamiento.aspx.vb | 2 +- AC/CatFuentesFinanciamientoCONAC.aspx.vb | 2 +- AC/CatFuentesRecaudacion.aspx.vb | 2 +- AC/CatOGClasificaciones.aspx.vb | 2 +- AC/CatPresupuestoEgresos.aspx.vb | 2 +- AC/CatPresupuestoIngresos.aspx.vb | 2 +- AC/CatUnidadesAdministrativas.aspx.vb | 2 +- AC/RegIngresosModificaciones.aspx.vb | 2 +- AC/RepAnaliticoDeudaPublica.aspx.vb | 2 +- AC/RepCambiosSituacionFinanciera.aspx.vb | 2 +- AC/RepEstadoActividades.aspx.vb | 2 +- AC/RepEstadoAnaliticoActivo.aspx.vb | 2 +- AC/RepFlujoEfectivo.aspx.vb | 2 +- AC/RepIngresos.aspx.vb.exclude | 2 +- AC/RepMatrizEgresos.aspx.vb | 2 +- AC/RepMatrizIngresos.aspx.vb | 2 +- AC/RepPresupuestoEgresos.aspx.vb | 14 ++-- AC/RepPresupuestoEgresosDetalle.aspx.vb | 2 +- AC/RepPresupuestoEgresosMensual.aspx.vb | 4 +- AC/RepPresupuestoIngresos.aspx.vb | 3 +- AC/RepPresupuestoIngresosMensual.aspx.vb | 4 +- AC/RepProgramaOperativo.aspx.vb | 2 +- AC/RepSituacionFinanciera.aspx.vb | 2 +- AC/RepVariacionHaciendaPublica.aspx.vb | 2 +- AF/AF.aspx.vb | 4 +- AF/CatAF.aspx.vb | 2 +- AF/RepAF.aspx.vb | 2 +- Acarreos/RepContratosAcarreos.aspx.vb | 4 +- Acarreos/RepContratosAcarreosDetalle.aspx.vb | 4 +- Acarreos/RepPreEstimacionDetalle.aspx.vb | 4 +- Acumuladores/RepIndicadorDiario.aspx.vb | 2 +- Bancos/CatBancos.aspx.vb | 2 +- Bancos/ConciliacionesBancarias.aspx.vb | 2 +- Bancos/CuentasBancarias.aspx.vb | 2 +- Bancos/FlujoDiario.aspx.vb | 2 +- Bancos/PagoElectronico.aspx.vb | 6 +- Bancos/PagoElectronicoGrupos.aspx.vb | 8 +-- Bancos/ProveedoresAbonar.aspx.vb | 2 +- Bancos/RepClientesAnticipo.aspx.vb | 2 +- Bancos/RepCobrado.aspx.vb | 2 +- Bancos/RepCobradoDetalle.aspx.vb | 2 +- Bancos/RepCobradoPagado.aspx.vb | 2 +- Bancos/RepComprobaciones.aspx.cs | 2 +- Bancos/RepCxCCliente.aspx.vb | 2 +- Bancos/RepEgresosSinComprobante.aspx.vb | 2 +- Bancos/RepProveedoresPagos.aspx.vb | 2 +- Bancos/RepSaldos.aspx.vb | 2 +- Bancos/RepSaldosDetalle.aspx.vb | 2 +- Bancos/RepSaldosPeriodo.aspx.cs | 2 +- CGame/AsignacionEmpaque.aspx.cs | 2 +- CGame/AsignacionEmpaque2.aspx.cs | 2 +- CGame/Empaque.aspx.cs | 2 +- CGame/EntradaMateriaPrima.aspx.cs | 2 +- CGame/Liquidacion.aspx.cs | 2 +- CGame/OrdenProduccion.aspx.vb | 2 +- CGame/RepAvance.aspx.cs | 2 +- CGame/RepEmpaque.aspx.cs | 2 +- CGame/RepOrdenCorte.aspx.cs | 2 +- CGame/RepOrdenProduccion.aspx.cs | 2 +- CRM/CatEtapasProceso.aspx.cs | 2 +- CRM/CatProbabilidadAcercamiento.aspx.cs | 2 +- CRM/CatTipoProceso.aspx.cs | 2 +- CRM/RepAcercamientos.aspx.cs | 2 +- CRM/RepAcercamientosProcesos.aspx.cs | 2 +- CRM/RepAcercamientosProcesosDetalle.aspx.cs | 2 +- CRM/RepAcercamientosRechazos.aspx.cs | 2 +- Compras/CatEstatusFactura.aspx.vb | 2 +- Compras/CatProveedores.aspx.vb | 6 +- Compras/PopUpVerFactura.aspx.vb | 72 +++++++++---------- Compras/Proveedores.aspx.vb | 22 +++--- Compras/ProveedoresAuxiliar.aspx.vb | 2 +- Compras/RepAnt-NC-EXC.aspx.cs | 2 +- Compras/RepAnt-NC-EXCDetalle.aspx.cs | 2 +- Compras/RepComplementoPago.aspx.vb | 2 +- Compras/RepCompras.aspx.vb | 2 +- Compras/RepComprasAF.aspx.vb | 2 +- Compras/RepComprasAFDetalle.aspx.vb | 2 +- Compras/RepComprasDetalle.aspx.vb | 2 +- Compras/RepComprasInventarios.aspx.cs | 2 +- Compras/RepComprasPeriodo.aspx.vb | 2 +- Compras/RepComprasPersonal.aspx.vb | 2 +- Compras/RepComprasPersonalDetalle.aspx.vb | 2 +- Compras/RepCxP.aspx.vb | 2 +- Compras/RepCxPDetalle.aspx.vb | 2 +- Compras/RepCxPPeriodo.aspx.cs | 2 +- Compras/RepEvaluacionesProveedores.aspx.vb | 11 +-- Compras/RepGastosFijos.aspx.cs | 2 +- Compras/RepGastosSemanal.aspx.cs | 2 +- Compras/RepNotasCredito.aspx.vb | 2 +- Compras/RepPUESinPago.aspx.vb | 2 +- Compras/RepPagado.aspx.cs | 2 +- Compras/RepPagadoDetalle.aspx.cs | 2 +- Compras/RepPagadoPeriodo.aspx.cs | 2 +- Compras/RepProductosServicios.aspx.vb | 2 +- Compras/RepProductosServiciosDetalle.aspx.vb | 2 +- Compras/RepProductosServiciosPeriodo.aspx.cs | 2 +- Compras/RepReqOCCompraInv.aspx.vb | 2 +- Compras/eFacturas.aspx.vb | 2 +- Contabilidad/AuxiliarPrePolizas.aspx.cs | 2 +- Contabilidad/CatCuentas.aspx.vb | 2 +- Contabilidad/FiltraPolizas.aspx.vb | 2 +- Contabilidad/LibroDiario.aspx.vb | 11 +-- Contabilidad/LibroMayor.aspx.vb | 11 +-- Contabilidad/PopUpAuxiliar.aspx.vb | 2 +- Contabilidad/RepAnexoCatalogo.aspx.vb | 2 +- Contabilidad/RepAnexoCatalogoMes.aspx.vb | 2 +- Contabilidad/RepAnexoCatalogoSegmento.aspx.vb | 7 +- Contabilidad/RepBalanceGeneral.aspx.vb | 13 ++-- Contabilidad/RepBalanzaComprobacion.aspx.vb | 19 ++--- Contabilidad/RepEdoResultados2.aspx.vb | 2 +- Contabilidad/RepEstadoResultados.aspx.vb | 6 +- Contabilidad/RepGastosCC.aspx.vb | 2 +- Contabilidad/RepIEPS.aspx.vb | 2 +- Contabilidad/RepIVA.aspx.cs | 2 +- Contabilidad/RepIVADiferencias.aspx.vb | 4 +- .../RepMovimientosAuxiliaresCatalogo.aspx.vb | 2 +- .../MovimientosconProveedores.aspx.vb | 2 +- Contabilidad2/RepAnexoCatalogo.aspx.vb | 2 +- .../RepAnexoCatalogoMensualHorizontal.aspx.vb | 2 +- .../RepAnexoCatalogoSAT.aspx.vb.exclude | 2 +- .../RepBalanceGeneral.aspx.vb.exclude | 2 +- .../RepBalanceGeneralHorizontal.aspx.vb | 2 +- Contabilidad2/RepBalanzaComprobacion.aspx.vb | 2 +- .../RepBalanzaComprobacionSAT.aspx.vb.exclude | 2 +- .../RepCambiosSituacionFinanciera.aspx.vb | 2 +- Contabilidad2/RepEstadoActividades.aspx.vb | 2 +- .../RepEstadoActividadesSAT.aspx.vb.exclude | 2 +- Contabilidad2/RepFlujoEfectivo.aspx.vb | 2 +- Contabilidad2/RepLibroDiario.aspx.vb | 11 +-- .../RepMovimientosAuxiliaresCatalogo.aspx.vb | 2 +- Contabilidad2/RepSituacionFinanciera.aspx.vb | 16 +---- .../RepSituacionFinanciera.aspx.vb_old | 8 +-- .../RepSituacionFinancieraSAT.aspx.vb.exclude | 2 +- .../RepVariacionHaciendaPublica.aspx.vb | 2 +- Contratos/CatRefrendos.aspx.cs | 2 +- Contratos/Contrato.aspx.vb | 16 ++--- Contratos/ContratoObra.aspx.vb | 14 ++-- Contratos/Contratos.aspx.vb | 2 +- Contratos/RepContratosAvancesCP.aspx.vb | 10 +-- Contratos/RepContratosCostos.aspx.vb | 2 +- Contratos/RepContratosFianzas.aspx.cs | 6 +- Contratos/RepContratosSuministros.aspx.vb | 2 +- .../RepPedidosDevolucionesXContrato.aspx.vb | 2 +- Contratos/RepPresupuestos.aspx.vb | 2 +- Contratos/RepPresupuestosDetalle.aspx.vb | 2 +- CxC/GestionCobranza.aspx.vb | 2 +- CxC/RepCxC.aspx.vb | 2 +- CxC/RepCxCDetalle.aspx.vb | 2 +- CxC/RepCxCPeriodo.aspx.cs | 2 +- Edoc/Contratos.aspx.vb | 2 +- Finanzas/RepBalanceGeneral.aspx.vb | 2 +- Finanzas/RepRotacionCartera.aspx.cs | 2 +- Finanzas/RepRotacionCarteraDetalle.aspx.cs | 2 +- Flotillas/RepIncidentes.aspx.vb | 2 +- Flotillas/RepLicencias.aspx.vb | 2 +- Flotillas/RepPlacas.aspx.vb | 2 +- Flotillas/RepPolizaSeguro.aspx.vb | 2 +- Flotillas/RepServicios.aspx.vb | 2 +- GPS/Rastreo.aspx.vb | 24 +++---- GPS/RepPuntosDeInteres.aspx.vb | 2 +- General/RepPaqueteriasGuias.aspx.cs | 2 +- Inventarios/EntradasSalidas.aspx.vb | 2 +- Inventarios/InventarioFisicoDetalle.aspx.vb | 2 +- Inventarios/Kardex.aspx.vb | 2 +- Inventarios/KardexAlmacen.aspx.vb | 2 +- Inventarios/RecepcionAlmacen.aspx.vb | 2 +- Inventarios/RecepcionUsados.aspx.vb | 2 +- Inventarios/RepAlmacen.aspx.vb | 2 +- Inventarios/RepAlmacenCompras.aspx.vb | 2 +- Inventarios/RepAlmacenPeriodo.aspx.vb | 2 +- Inventarios/RepAnomalias.aspx.vb | 2 +- Inventarios/RepApartados.aspx.vb | 2 +- Inventarios/RepApartados2.aspx.vb | 2 +- Inventarios/RepConsignaciones.aspx.vb | 2 +- Inventarios/RepConsumoInterno.aspx.cs | 2 +- Inventarios/RepEntradasSalidas.aspx.vb | 2 +- .../RepEntradasSalidasXContrato.aspx.cs | 2 +- Inventarios/RepEntregasForaneas.aspx.vb | 4 +- Inventarios/RepExistenciaLote.aspx.vb | 2 +- Inventarios/RepExistenciasCostos.aspx.vb | 2 +- Inventarios/RepFletes.aspx.vb | 2 +- Inventarios/RepMaximoMinimo.aspx.vb | 4 +- Inventarios/RepMovimientos.aspx.vb | 2 +- Inventarios/RepMovimientosProveedor.aspx.cs | 2 +- Inventarios/RepNotasSinAlmacen.aspx.vb | 2 +- Inventarios/RepOcInv.aspx.vb | 2 +- Inventarios/RepOcInvMoto.aspx.vb | 2 +- Inventarios/RepProductosPorCaducar.aspx.cs | 2 +- Inventarios/RepRSCO.aspx.vb | 2 +- Inventarios/RepTraspasoAlmacen.aspx.vb | 2 +- Inventarios/ReporteMaterial.aspx.vb | 2 +- Inventarios/TrasladoSolicitud.aspx.vb | 2 +- OC/ListaRequisicion.aspx.cs | 2 +- OC/RepOC.aspx.vb | 2 +- OC/RepOCGuias.aspx.vb | 2 +- OC/RepReqXOC.aspx.vb | 2 +- OC/RepRequisiciones.aspx.vb | 2 +- OC/RepSolicitudesAnticipo.aspx.cs | 2 +- OI/Circular.aspx.vb | 2 +- OI/DocumentoDetalle.aspx.cs | 2 +- OI/RepSoporteADS.aspx.vb | 2 +- OS/Asignaciones.aspx.vb | 4 +- OS/RepServicioDomicilio.aspx.vb | 2 +- Portal/ConsultaCliente.aspx.vb | 12 ++-- PortalCliente/PortalCliente.aspx.vb | 12 ++-- PortalProveedor/PortalProveedor.aspx.vb | 14 ++-- Proveedores/PortalProveedor.aspx.vb | 40 ++++------- RH/CatCursos.aspx.vb | 2 +- RH/CatPersonal.aspx.vb | 2 +- RH/MiPerfil.aspx.vb | 27 +++---- RH/Personal.aspx.vb | 33 +++------ RH/RepIndiceRotacionPersonal.aspx.vb | 2 +- RH/RepPersonalInconsistencias.aspx.vb | 2 +- RH/RepUniformes.aspx.vb | 2 +- RH/RepUniformesResguardo.aspx.vb | 2 +- RH/SolicitudViaticos.aspx.cs | 2 +- Sistemas/UsuarioDetalle.aspx.vb | 2 +- Ventas/ActualizarPrecios.aspx.vb | 2 +- Ventas/CatClientes.aspx.vb | 2 +- Ventas/CatPS.aspx.vb | 13 ++-- Ventas/Clientes.aspx.vb | 28 +++----- Ventas/MetasVendedores.aspx.vb | 12 ++-- Ventas/MetasVendedoresDetalle.aspx.vb | 20 ++---- Ventas/PV.aspx.vb | 2 +- Ventas/RepAnticipo-NC-IXC.aspx.cs | 2 +- Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs | 2 +- Ventas/RepAuxiliarFacturas.aspx.vb | 2 +- Ventas/RepComisionesJAM.aspx.cs | 2 +- Ventas/RepCostoPromedioVenta.aspx.cs | 2 +- Ventas/RepCotizaciones.aspx.vb | 2 +- Ventas/RepCotizacionesDetalle.aspx.vb | 2 +- Ventas/RepCotizacionesxFacturar.aspx.vb | 2 +- Ventas/RepNCxAplicar.aspx.cs | 2 +- Ventas/RepPS.aspx.vb | 2 +- Ventas/RepPUESinPago.aspx.vb | 2 +- Ventas/RepPedidos2.aspx.cs | 2 +- Ventas/RepPedidos2Detalle.aspx.cs | 2 +- Ventas/RepProductosServicios.aspx.vb | 2 +- Ventas/RepProductosServiciosDetalle.aspx.vb | 2 +- Ventas/RepProductosServiciosPeriodo.aspx.cs | 2 +- Ventas/RepRecuperacion.aspx.vb | 2 +- Ventas/RepRecuperacionDetalle.aspx.vb | 2 +- Ventas/RepRecuperacionPeriodo.aspx.cs | 2 +- Ventas/RepRemisiones.aspx.vb | 2 +- Ventas/RepRemisiones2.aspx.vb | 2 +- Ventas/RepRemisionesDetalle.aspx.vb | 2 +- Ventas/RepRemisionesNC.aspx.vb | 2 +- Ventas/RepTopClientesVentas.aspx.vb | 12 ++-- Ventas/RepVentaDetalle.aspx.vb | 2 +- Ventas/RepVentas.aspx.vb | 2 +- Ventas/RepVentasMensuales.aspx.vb | 10 +-- Ventas/RepVentasMensualesDetalle.aspx.vb | 10 +-- Ventas/RepVentasPeriodo.aspx.vb | 2 +- Ventas/RepVentasUtilidad.aspx.vb | 4 +- Ventas/RepVentasUtilidadDetalle.aspx.vb | 10 +-- Ventas/RepVentasUtilidadPadre.aspx.vb | 2 +- Ventas/Ventas.aspx.vb | 2 +- Ventas/eFacturas.aspx.vb | 2 +- 260 files changed, 446 insertions(+), 591 deletions(-) diff --git a/AC/CatClasificacionFuncional.aspx.vb b/AC/CatClasificacionFuncional.aspx.vb index e35b85b6b..109a265fb 100644 --- a/AC/CatClasificacionFuncional.aspx.vb +++ b/AC/CatClasificacionFuncional.aspx.vb @@ -268,7 +268,7 @@ Partial Class AC_CatClasificacionFuncional Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("AC/Reportes/RepClasificacionFuncional.rdlc", DtClasificacionFuncional, params, "ReporteClasificacionFuncional") diff --git a/AC/CatClasificacionGeografica.aspx.vb b/AC/CatClasificacionGeografica.aspx.vb index db65288af..2b871ee67 100644 --- a/AC/CatClasificacionGeografica.aspx.vb +++ b/AC/CatClasificacionGeografica.aspx.vb @@ -288,7 +288,7 @@ Partial Class AC_CatClasificacionGeografica Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("AC/Reportes/RepClasificacionGeografica.rdlc", DtClasificacionGeografica, params, "ReporteClasificacionGeografica") diff --git a/AC/CatFuentesFinanciamiento.aspx.vb b/AC/CatFuentesFinanciamiento.aspx.vb index 8d48a79c3..89ad47690 100644 --- a/AC/CatFuentesFinanciamiento.aspx.vb +++ b/AC/CatFuentesFinanciamiento.aspx.vb @@ -288,7 +288,7 @@ Partial Class AC_CatFuentesFinanciamiento Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("AC/Reportes/RepFuentesFinanciamiento.rdlc", DtFuentesFinanciamiento, params, "ReporteFuentesFinanciamiento") diff --git a/AC/CatFuentesFinanciamientoCONAC.aspx.vb b/AC/CatFuentesFinanciamientoCONAC.aspx.vb index 39839a5d5..ccf963d7d 100644 --- a/AC/CatFuentesFinanciamientoCONAC.aspx.vb +++ b/AC/CatFuentesFinanciamientoCONAC.aspx.vb @@ -286,7 +286,7 @@ Partial Class AC_CatFuentesFinanciamientoCONAC Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("AC/Reportes/RepFuentesFinanciamientoCONAC.rdlc", DtFuentesFinanciamientoCONAC, params, "ReporteFuentesFinanciamientoCONAC") diff --git a/AC/CatFuentesRecaudacion.aspx.vb b/AC/CatFuentesRecaudacion.aspx.vb index a2b8cc481..349f696f1 100644 --- a/AC/CatFuentesRecaudacion.aspx.vb +++ b/AC/CatFuentesRecaudacion.aspx.vb @@ -267,7 +267,7 @@ Partial Class AC_CatFuentesRecaudacion Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("AC/Reportes/RepFuentesRecaudacion.rdlc", DtFuentesRecaudacion, params, "ReporteFuentesRecaudacion") diff --git a/AC/CatOGClasificaciones.aspx.vb b/AC/CatOGClasificaciones.aspx.vb index 43571c184..02524768e 100644 --- a/AC/CatOGClasificaciones.aspx.vb +++ b/AC/CatOGClasificaciones.aspx.vb @@ -277,7 +277,7 @@ Partial Class AC_CatOGClasificaciones Protected Sub ImprimirReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("AC/Reportes/RepOGClasificaciones.rdlc", DtOGClasificaciones, params, "ReporteOGClasificaciones") diff --git a/AC/CatPresupuestoEgresos.aspx.vb b/AC/CatPresupuestoEgresos.aspx.vb index d969c1745..21e3bfa1c 100644 --- a/AC/CatPresupuestoEgresos.aspx.vb +++ b/AC/CatPresupuestoEgresos.aspx.vb @@ -416,7 +416,7 @@ Partial Class AC_CatPresupuestoEgresos 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString)) params.Add(New ReportParameter("pTotal", pTotal)) diff --git a/AC/CatPresupuestoIngresos.aspx.vb b/AC/CatPresupuestoIngresos.aspx.vb index d0c921fb5..db6622c63 100644 --- a/AC/CatPresupuestoIngresos.aspx.vb +++ b/AC/CatPresupuestoIngresos.aspx.vb @@ -326,7 +326,7 @@ Partial Class AC_CatPresupuestoIngresos 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString)) 'params.Add(New ReportParameter("pTotal", pTotal)) diff --git a/AC/CatUnidadesAdministrativas.aspx.vb b/AC/CatUnidadesAdministrativas.aspx.vb index 10a072d46..1ac5a94dc 100644 --- a/AC/CatUnidadesAdministrativas.aspx.vb +++ b/AC/CatUnidadesAdministrativas.aspx.vb @@ -210,7 +210,7 @@ Partial Class AC_CatUnidadesAdministrativas Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("AC/Reportes/RepCatUnidadesAdministrativas.rdlc", DtUnidadesAdministrativas, params, "ReporteUnidadesAdministrativas") diff --git a/AC/RegIngresosModificaciones.aspx.vb b/AC/RegIngresosModificaciones.aspx.vb index 63fbe3c57..3fcc0fa29 100644 --- a/AC/RegIngresosModificaciones.aspx.vb +++ b/AC/RegIngresosModificaciones.aspx.vb @@ -286,7 +286,7 @@ Partial Class AC_RegIngresosModificaciones 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pEjercicio", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("pSaldo", pSaldo)) diff --git a/AC/RepAnaliticoDeudaPublica.aspx.vb b/AC/RepAnaliticoDeudaPublica.aspx.vb index f736f5935..870d7c02f 100644 --- a/AC/RepAnaliticoDeudaPublica.aspx.vb +++ b/AC/RepAnaliticoDeudaPublica.aspx.vb @@ -217,7 +217,7 @@ Partial Class AC_RepAnaliticoDeudaPublica Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFechaIni", FechaDel)) params.Add(New ReportParameter("pFechaFin", FechaAl)) diff --git a/AC/RepCambiosSituacionFinanciera.aspx.vb b/AC/RepCambiosSituacionFinanciera.aspx.vb index 7df2f35cc..6c99e45b4 100644 --- a/AC/RepCambiosSituacionFinanciera.aspx.vb +++ b/AC/RepCambiosSituacionFinanciera.aspx.vb @@ -253,7 +253,7 @@ Partial Class AC_RepCambiosSituacionFinanciera Private Sub ImprimirReporte(Optional Formato As String = "PDF") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString)) params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0} Director Administrativo", vbCrLf))) diff --git a/AC/RepEstadoActividades.aspx.vb b/AC/RepEstadoActividades.aspx.vb index a4b57753e..133e0a7ca 100644 --- a/AC/RepEstadoActividades.aspx.vb +++ b/AC/RepEstadoActividades.aspx.vb @@ -328,7 +328,7 @@ 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)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then params.Add(New ReportParameter("pFirma1", String.Format("Ing. Héctor Díaz Young{0}Dirección Administrativa", vbCrLf))) diff --git a/AC/RepEstadoAnaliticoActivo.aspx.vb b/AC/RepEstadoAnaliticoActivo.aspx.vb index cf14cc851..2b9a5ba46 100644 --- a/AC/RepEstadoAnaliticoActivo.aspx.vb +++ b/AC/RepEstadoAnaliticoActivo.aspx.vb @@ -113,7 +113,7 @@ Partial Class AC_RepEstadoAnaliticoActivo Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFechaIni", DdlEjercicio.SelectedItem.ToString)) params.Add(New ReportParameter("pFechaFin", DdlPeriodo.SelectedItem.ToString)) diff --git a/AC/RepFlujoEfectivo.aspx.vb b/AC/RepFlujoEfectivo.aspx.vb index c66a05b5e..a99f8baa6 100644 --- a/AC/RepFlujoEfectivo.aspx.vb +++ b/AC/RepFlujoEfectivo.aspx.vb @@ -231,7 +231,7 @@ Partial Class AC_RepFlujoEfectivo Private Sub ImprimirReporte(Optional Formato As String = "PDF") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pAl", FechaAl)) params.Add(New ReportParameter("pTotalActual", TotalActual.ToString.FormatoNumero)) diff --git a/AC/RepIngresos.aspx.vb.exclude b/AC/RepIngresos.aspx.vb.exclude index ec4204bd6..ecd9d3da3 100644 --- a/AC/RepIngresos.aspx.vb.exclude +++ b/AC/RepIngresos.aspx.vb.exclude @@ -57,7 +57,7 @@ Partial Class AC_RepIngresos Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("AC/Reportes/RepPresupuestoIngresos.rdlc", DtIngresos, params, "ReporteIngresos") diff --git a/AC/RepMatrizEgresos.aspx.vb b/AC/RepMatrizEgresos.aspx.vb index d890a455a..9fdac379e 100644 --- a/AC/RepMatrizEgresos.aspx.vb +++ b/AC/RepMatrizEgresos.aspx.vb @@ -96,7 +96,7 @@ Partial Class AC_RepMatrizEgresos Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("AC/Reportes/RepMatrizEgresos.rdlc", GlobalDTAC_MatrizEgresos, params, "RepMatrizEgresos") diff --git a/AC/RepMatrizIngresos.aspx.vb b/AC/RepMatrizIngresos.aspx.vb index d0e8a1ac2..2ea902854 100644 --- a/AC/RepMatrizIngresos.aspx.vb +++ b/AC/RepMatrizIngresos.aspx.vb @@ -93,7 +93,7 @@ Partial Class AC_RepMatrizIngresos Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("AC/Reportes/RepMatrizIngresos.rdlc", GlobalDTAC_MatrizIngresos, params, "ReporteMatrizEgresos") diff --git a/AC/RepPresupuestoEgresos.aspx.vb b/AC/RepPresupuestoEgresos.aspx.vb index 0a17eacf0..b4f15938e 100644 --- a/AC/RepPresupuestoEgresos.aspx.vb +++ b/AC/RepPresupuestoEgresos.aspx.vb @@ -219,10 +219,10 @@ Partial Class AC_RepPresupuestoEgresos #Region "I M P R I M I R " Protected Sub ImprimiReporte(Optional Formato As String = "PDF") + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - 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("pEjercicio", DdlEjercicio.SelectedValue.ToString)) params.Add(New ReportParameter("pFechaCorte", txtFechaF.Text)) @@ -232,25 +232,19 @@ Partial Class AC_RepPresupuestoEgresos 'Dim rds As New ReportDataSource 'rds.Name = "DataSet1" 'rds.Value = DtPresupuestoEgresos + 'Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'MasterReporteador.LocalReport.DataSources.Clear() 'MasterReporteador.LocalReport.DataSources.Add(rds) 'MasterReporteador.LocalReport.ReportPath = "AC/Reportes/RepPresupuestoEgresos.rdlc" - 'MasterReporteador.ProcessingMode = ProcessingMode.Local 'MasterReporteador.LocalReport.EnableExternalImages = True - 'Dim params As New List(Of ReportParameter) + 'Dim params As New List(Of ReportParameter) 'params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - '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}", ""))) 'MasterReporteador.LocalReport.SetParameters(params) - 'MasterReporteador.LocalReport.Refresh() 'Dim warnings As Warning() = Nothing diff --git a/AC/RepPresupuestoEgresosDetalle.aspx.vb b/AC/RepPresupuestoEgresosDetalle.aspx.vb index 7f836b14b..b6d7f0f3c 100644 --- a/AC/RepPresupuestoEgresosDetalle.aspx.vb +++ b/AC/RepPresupuestoEgresosDetalle.aspx.vb @@ -110,7 +110,7 @@ Partial Class AC_RepPresupuestoEgresosDetalle Public Sub Imprimir(Formato As String) Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("Img", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Fecha", Now.ToString("dd/MM/yyyy"))) ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/RepPresupuestosEgresos.rdlc", DtDatos, params, $"Rep.PresupuestosEgresos - {Now.ToShortDateString}", Formato:=Formato) diff --git a/AC/RepPresupuestoEgresosMensual.aspx.vb b/AC/RepPresupuestoEgresosMensual.aspx.vb index 9bcd376a7..f081fa26b 100644 --- a/AC/RepPresupuestoEgresosMensual.aspx.vb +++ b/AC/RepPresupuestoEgresosMensual.aspx.vb @@ -165,12 +165,14 @@ Partial Class AC_RepPresupuestoEgresosMensual End Sub Private Sub ImprimirReporte(Optional Formato As String = "PDF") + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - 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("pEjercicio", DdlEjercicio.SelectedValue.ToString)) params.Add(New ReportParameter("pMomentoContable", DdlTipoCuenta.SelectedItem.ToString)) + ImprimirPDF("AC/Reportes/RepPresupuestoEgresosMensual.rdlc", DtPresupuestoEgresos, params, "RepPresupuestoEgresosMensual", Formato) End Sub #End Region diff --git a/AC/RepPresupuestoIngresos.aspx.vb b/AC/RepPresupuestoIngresos.aspx.vb index a0d655000..51798f725 100644 --- a/AC/RepPresupuestoIngresos.aspx.vb +++ b/AC/RepPresupuestoIngresos.aspx.vb @@ -155,16 +155,15 @@ Partial Class AC_RepPresupuestoIngresos #Region "I M P R I M I R " Protected Sub ImprimirReporte(Optional Formato As String = "PDF") + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("pFechaCorte", FechaCorte.ToShortDateString)) - 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("pEjercicio", DdlEjercicio.SelectedValue.ToString)) ImprimirPDF("AC/Reportes/RepPresupuestoIngresos.rdlc", DtIngresos, params, "ReportePresupuestoIngresos", Formato) - End Sub #End Region diff --git a/AC/RepPresupuestoIngresosMensual.aspx.vb b/AC/RepPresupuestoIngresosMensual.aspx.vb index 1bc9eff2d..db18c1510 100644 --- a/AC/RepPresupuestoIngresosMensual.aspx.vb +++ b/AC/RepPresupuestoIngresosMensual.aspx.vb @@ -130,12 +130,14 @@ Partial Class AC_RepIngresosMensuales End Sub Private Sub ImprimirReporte(Optional Formato As String = "PDF") + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - 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("pEjercicio", DdlEjercicio.SelectedValue)) params.Add(New ReportParameter("pMomentoContable", DdlMomentoContable.SelectedItem.ToString)) + ImprimirPDF("AC/Reportes/RepPresupuestoIngresosMensual.rdlc", DtIngresos, params, "ReportePresupuestoIngresosMensual", Formato) End Sub #End Region diff --git a/AC/RepProgramaOperativo.aspx.vb b/AC/RepProgramaOperativo.aspx.vb index d55841829..a60676dfb 100644 --- a/AC/RepProgramaOperativo.aspx.vb +++ b/AC/RepProgramaOperativo.aspx.vb @@ -177,7 +177,7 @@ Partial Class AC_RepProgramaOperativo 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString)) ImprimirPDF(reportpath, DtProgramaOperativo, params, fileName, Formato) diff --git a/AC/RepSituacionFinanciera.aspx.vb b/AC/RepSituacionFinanciera.aspx.vb index 7a8dfecbf..e4b336d2d 100644 --- a/AC/RepSituacionFinanciera.aspx.vb +++ b/AC/RepSituacionFinanciera.aspx.vb @@ -638,7 +638,7 @@ Partial Class AC_SituacionFinanciera Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("CveEmpresa", UsuarioActual.CveEmpresa.ToString)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then diff --git a/AC/RepVariacionHaciendaPublica.aspx.vb b/AC/RepVariacionHaciendaPublica.aspx.vb index f0b1822e2..b314e0dee 100644 --- a/AC/RepVariacionHaciendaPublica.aspx.vb +++ b/AC/RepVariacionHaciendaPublica.aspx.vb @@ -384,7 +384,7 @@ Partial Class AC_RepVariacionHaciendaPublica Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFechaIni", TxtFechaDel.Text)) params.Add(New ReportParameter("pFechaFin", TxtFechaAl.Text)) diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 3fa81c4fb..2f4fc8fea 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -3215,7 +3215,7 @@ Partial Class AF_AF params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", $"file://{Imagen}")) @@ -4146,7 +4146,7 @@ Partial Class AF_AF params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb index 98c7f7857..94b9ed1d3 100644 --- a/AF/CatAF.aspx.vb +++ b/AF/CatAF.aspx.vb @@ -456,7 +456,7 @@ Partial Class AF_CatAF Private Sub GenerarPDF(Optional Formato As String = "PDF") If DtActivosFijos.Rows.Count > 0 Then Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\CatAF.rdlc", UsuarioActual.Empresa.Ruta)) Dim Ruta As String = "" diff --git a/AF/RepAF.aspx.vb b/AF/RepAF.aspx.vb index 85e6a24d8..bd5d72b0f 100644 --- a/AF/RepAF.aspx.vb +++ b/AF/RepAF.aspx.vb @@ -326,7 +326,7 @@ Partial Class AF_RepAF Private Sub GenerarPDF(Optional Formato As String = "PDF") If DtActivosFijos.Rows.Count > 0 Then Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) diff --git a/Acarreos/RepContratosAcarreos.aspx.vb b/Acarreos/RepContratosAcarreos.aspx.vb index 6c8205d43..25ae5df94 100644 --- a/Acarreos/RepContratosAcarreos.aspx.vb +++ b/Acarreos/RepContratosAcarreos.aspx.vb @@ -149,7 +149,7 @@ Partial Class Acarreos_RepContratosAcarreos If DdlMaterial.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Material: {0}", DdlMaterial.SelectedItem.Text) If DdlAgrupador.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Agrupador: {0}", DdlAgrupador.SelectedItem.Text) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -177,7 +177,7 @@ Partial Class Acarreos_RepContratosAcarreos If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio : {0}", txtFechaI.Text.ToDate.ToShortDateString) If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin : {0}", txtFechaF.Text.ToDate.ToShortDateString) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Acarreos/RepContratosAcarreosDetalle.aspx.vb b/Acarreos/RepContratosAcarreosDetalle.aspx.vb index 2c9d3cac1..c7436ae0d 100644 --- a/Acarreos/RepContratosAcarreosDetalle.aspx.vb +++ b/Acarreos/RepContratosAcarreosDetalle.aspx.vb @@ -178,7 +178,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click If DTCont IsNot Nothing Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -216,7 +216,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click If DTCont IsNot Nothing Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) diff --git a/Acarreos/RepPreEstimacionDetalle.aspx.vb b/Acarreos/RepPreEstimacionDetalle.aspx.vb index 15e722b1a..f89d915fc 100644 --- a/Acarreos/RepPreEstimacionDetalle.aspx.vb +++ b/Acarreos/RepPreEstimacionDetalle.aspx.vb @@ -93,7 +93,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") @@ -126,7 +126,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") diff --git a/Acumuladores/RepIndicadorDiario.aspx.vb b/Acumuladores/RepIndicadorDiario.aspx.vb index 389be52a3..61d0da0e4 100644 --- a/Acumuladores/RepIndicadorDiario.aspx.vb +++ b/Acumuladores/RepIndicadorDiario.aspx.vb @@ -193,7 +193,7 @@ Partial Class ACumuladores_RepIndicadorDiario If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) diff --git a/Bancos/CatBancos.aspx.vb b/Bancos/CatBancos.aspx.vb index 775bdebb5..1784f8c16 100644 --- a/Bancos/CatBancos.aspx.vb +++ b/Bancos/CatBancos.aspx.vb @@ -217,7 +217,7 @@ Partial Class Bancos_CatBancos Private Sub Imprime(Formato As String) If DtBan IsNot Nothing AndAlso DtBan.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index 423e406f9..36c793a37 100644 --- a/Bancos/ConciliacionesBancarias.aspx.vb +++ b/Bancos/ConciliacionesBancarias.aspx.vb @@ -550,7 +550,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx GeneraPDF(Formato) End Sub Protected Sub GeneraPDF(Formato As String) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter)() params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Bancos/CuentasBancarias.aspx.vb b/Bancos/CuentasBancarias.aspx.vb index 119cabe97..84c256a9d 100644 --- a/Bancos/CuentasBancarias.aspx.vb +++ b/Bancos/CuentasBancarias.aspx.vb @@ -153,7 +153,7 @@ Partial Class Bancos_CuentasBancarias End Sub Private Sub Imprime(Formato As String) If DtBan IsNot Nothing AndAlso DtBan.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Bancos/FlujoDiario.aspx.vb b/Bancos/FlujoDiario.aspx.vb index 86c82d964..f1edf7256 100644 --- a/Bancos/FlujoDiario.aspx.vb +++ b/Bancos/FlujoDiario.aspx.vb @@ -50,7 +50,7 @@ Partial Class Bancos_FlujoDiario Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb index 255c1eb12..578ba7cf2 100644 --- a/Bancos/PagoElectronico.aspx.vb +++ b/Bancos/PagoElectronico.aspx.vb @@ -2741,7 +2741,7 @@ Partial Class Bancos_PagoElectronico #Region " IMPRIMIR " Protected Sub BtnReporteAltaCarga_Click(sender As Object, e As EventArgs) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'Estatus visible @@ -2767,7 +2767,7 @@ Partial Class Bancos_PagoElectronico End Sub Protected Sub BtnReporteAltaGenera_Click(sender As Object, e As EventArgs) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'Estatus no visible Dim params As New List(Of ReportParameter) @@ -2789,7 +2789,7 @@ Partial Class Bancos_PagoElectronico End Sub Protected Sub BtnReportePago_Click(sender As Object, e As EventArgs) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index db246c0c3..2aaa62828 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -2313,7 +2313,7 @@ Partial Class Bancos_PagoElectronicoGrupos Protected Sub BtnReporteAltaCarga_Click(sender As Object, e As EventArgs) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'Estatus visible @@ -2343,7 +2343,7 @@ Partial Class Bancos_PagoElectronicoGrupos Protected Sub BtnReporteAltaGenera_Click(sender As Object, e As EventArgs) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'Estatus no visible Dim params As New List(Of ReportParameter) @@ -2372,7 +2372,7 @@ Partial Class Bancos_PagoElectronicoGrupos Protected Sub BtnReportePago_Click(sender As Object, e As EventArgs) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim DT_PagosReporte As New DataTable DT_PagosReporte = DTPendientes.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND EstatusCtaDeposito > 0").Copy() @@ -2974,7 +2974,7 @@ Partial Class Bancos_PagoElectronicoGrupos Protected Sub LnkDescargaReporte_Click(sender As Object, e As EventArgs) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") DT_PagosReporte = DT_PagosReporte.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND EstatusCtaDeposito > 0").Copy() diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 4b2cfdeeb..fbe45e438 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -2028,7 +2028,7 @@ Partial Class Bancos_ProveedoresAbonar End Sub Private Sub GenerarPDFSolicitud(Opcion As String) If DtDatos.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim StrImporte As String = DtDatos.Rows(0)("Saldo").ToString.FormatoNumero Dim params As New List(Of ReportParameter) diff --git a/Bancos/RepClientesAnticipo.aspx.vb b/Bancos/RepClientesAnticipo.aspx.vb index 036d196c9..d39a7f328 100644 --- a/Bancos/RepClientesAnticipo.aspx.vb +++ b/Bancos/RepClientesAnticipo.aspx.vb @@ -146,7 +146,7 @@ Partial Class Bancos_RepClientesAnticipo Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim Filtros As String = "Filtros: " diff --git a/Bancos/RepCobrado.aspx.vb b/Bancos/RepCobrado.aspx.vb index ba3ca12b7..9e30438c3 100644 --- a/Bancos/RepCobrado.aspx.vb +++ b/Bancos/RepCobrado.aspx.vb @@ -140,7 +140,7 @@ Partial Class Ventas_RepRecuperacion RutaPDF = "Empresas/Grales/Formatos/RepRecuperacion.rdlc" End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Bancos/RepCobradoDetalle.aspx.vb b/Bancos/RepCobradoDetalle.aspx.vb index 49563ceb1..e70927ee4 100644 --- a/Bancos/RepCobradoDetalle.aspx.vb +++ b/Bancos/RepCobradoDetalle.aspx.vb @@ -199,7 +199,7 @@ Partial Class Ventas_RepRecuperacionDetalle RutaPDF = "Empresas/Grales/Formatos/RepRecuperacionDetalle.rdlc" End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Bancos/RepCobradoPagado.aspx.vb b/Bancos/RepCobradoPagado.aspx.vb index be234ccfc..1c18b9c41 100644 --- a/Bancos/RepCobradoPagado.aspx.vb +++ b/Bancos/RepCobradoPagado.aspx.vb @@ -189,7 +189,7 @@ Partial Class Bancos_RepCobradoPagado Dim FPenultimoMes As String = LblPenultimoMes.Text If DtDatos.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Bancos/RepComprobaciones.aspx.cs b/Bancos/RepComprobaciones.aspx.cs index e8ea8d1e8..b71a3d400 100644 --- a/Bancos/RepComprobaciones.aspx.cs +++ b/Bancos/RepComprobaciones.aspx.cs @@ -75,7 +75,7 @@ public partial class Bancos_RepComprobaciones : ClsPaginas { List @params = new List(); - System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); @params.Add(new ReportParameter("FechaInicio", TxtFechaInicio.Text)); diff --git a/Bancos/RepCxCCliente.aspx.vb b/Bancos/RepCxCCliente.aspx.vb index dc20ca6f1..ffa1a3378 100644 --- a/Bancos/RepCxCCliente.aspx.vb +++ b/Bancos/RepCxCCliente.aspx.vb @@ -131,7 +131,7 @@ Partial Class Bancos_RepCxCCliente Private Sub GenerarPDFpp() - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'OBTENEMOS LOS DATOS Dim ObjMovtos As New ClsMovimientos() diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb index edeafe4fc..d0fc990bf 100644 --- a/Bancos/RepEgresosSinComprobante.aspx.vb +++ b/Bancos/RepEgresosSinComprobante.aspx.vb @@ -367,7 +367,7 @@ Partial Class Bancos_RepEgresosSinComprobante Dim StrFiltro As New StringBuilder If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio : {0}", txtFechaI.Text.ToDate.ToShortDateString) If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin : {0}", txtFechaF.Text.ToDate.ToShortDateString) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim FechaI, FechaF As String FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text) diff --git a/Bancos/RepProveedoresPagos.aspx.vb b/Bancos/RepProveedoresPagos.aspx.vb index 33a890098..14f731d5c 100644 --- a/Bancos/RepProveedoresPagos.aspx.vb +++ b/Bancos/RepProveedoresPagos.aspx.vb @@ -229,7 +229,7 @@ Partial Class Bancos_RepProveedoresPagos Private Sub GenerarPDFpp(Optional Formato As String = "PDF", Optional AgrupadoPorSubProyecto As Boolean = False) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'OBTENEMOS LOS DATOS diff --git a/Bancos/RepSaldos.aspx.vb b/Bancos/RepSaldos.aspx.vb index eb7d6ae67..7e182632d 100644 --- a/Bancos/RepSaldos.aspx.vb +++ b/Bancos/RepSaldos.aspx.vb @@ -159,7 +159,7 @@ Partial Class Bancos_RepSaldos Private Sub ImprimirReportePdf(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'OBTENEMOS LOS DATOS Dim DtBancos As DataTable diff --git a/Bancos/RepSaldosDetalle.aspx.vb b/Bancos/RepSaldosDetalle.aspx.vb index 043ac6614..1be4ef330 100644 --- a/Bancos/RepSaldosDetalle.aspx.vb +++ b/Bancos/RepSaldosDetalle.aspx.vb @@ -186,7 +186,7 @@ Partial Class Bancos_RepSaldosDetalle End Sub Private Sub ImprimirReporte(formato As String) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'OBTENEMOS LOS DATOS Dim dt As DataTable diff --git a/Bancos/RepSaldosPeriodo.aspx.cs b/Bancos/RepSaldosPeriodo.aspx.cs index 3d97ac4d8..f2c72eafc 100644 --- a/Bancos/RepSaldosPeriodo.aspx.cs +++ b/Bancos/RepSaldosPeriodo.aspx.cs @@ -98,7 +98,7 @@ public partial class Bancos_RepSaldosPeriodo : ClsPaginas if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/CGame/AsignacionEmpaque.aspx.cs b/CGame/AsignacionEmpaque.aspx.cs index 676f8433d..59cdd1b65 100644 --- a/CGame/AsignacionEmpaque.aspx.cs +++ b/CGame/AsignacionEmpaque.aspx.cs @@ -365,7 +365,7 @@ public partial class CGame_AsignacionEmpaque : ClsPaginas { if (DtCajas.Rows.Count > 0 && DtBins.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); diff --git a/CGame/AsignacionEmpaque2.aspx.cs b/CGame/AsignacionEmpaque2.aspx.cs index 83d83b047..39d1f632a 100644 --- a/CGame/AsignacionEmpaque2.aspx.cs +++ b/CGame/AsignacionEmpaque2.aspx.cs @@ -511,7 +511,7 @@ public partial class CGame_AsignacionEmpaque2 : ClsPaginas { if (DtCajas.Rows.Count > 0 && DtBins.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); diff --git a/CGame/Empaque.aspx.cs b/CGame/Empaque.aspx.cs index e8bf0d59b..38f0b7e1e 100644 --- a/CGame/Empaque.aspx.cs +++ b/CGame/Empaque.aspx.cs @@ -1279,7 +1279,7 @@ public partial class Empaque : ClsPaginas if (DtCorte.Rows.Count > 0 && DtResultado.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/CGame/EntradaMateriaPrima.aspx.cs b/CGame/EntradaMateriaPrima.aspx.cs index 9620ab308..c71986c8d 100644 --- a/CGame/EntradaMateriaPrima.aspx.cs +++ b/CGame/EntradaMateriaPrima.aspx.cs @@ -408,7 +408,7 @@ public partial class CATCorte : ClsPaginas { Dt = ObjCGame.DtResultados; if (Dt.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/CGame/Liquidacion.aspx.cs b/CGame/Liquidacion.aspx.cs index 050f3fb8c..e57a6ba03 100644 --- a/CGame/Liquidacion.aspx.cs +++ b/CGame/Liquidacion.aspx.cs @@ -274,7 +274,7 @@ public partial class CGame_Liquidacion : ClsPaginas PesoNeto = DtIngresos.Rows[0]["PesoNeto"].ToString().ToDouble(); } - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/CGame/OrdenProduccion.aspx.vb b/CGame/OrdenProduccion.aspx.vb index 3fa149bed..6556d3e22 100644 --- a/CGame/OrdenProduccion.aspx.vb +++ b/CGame/OrdenProduccion.aspx.vb @@ -1676,7 +1676,7 @@ Partial Class CGame_OrdenProduccion If ObjCGame.GetOrdenProduccion(CveOrdenProduccion, UsuarioActual.CveEmpresa, -1, "-1", MinFecha, MaxFecha, -1) Then If ObjCGame.DtResultados.Rows.Count > 0 Then Dim Dt As New DataTable - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/CGame/RepAvance.aspx.cs b/CGame/RepAvance.aspx.cs index b9b82aa92..2674fee72 100644 --- a/CGame/RepAvance.aspx.cs +++ b/CGame/RepAvance.aspx.cs @@ -216,7 +216,7 @@ public partial class CGame_RepAvance : ClsPaginas // if (DtIngresosSegunda.Rows.Count > 0) { TotIngresosSegunda = DtIngresosSegunda.SUM("Importe"); TotPesoSegunda = DtIngresosSegunda.SUM("Peso"); MermaSegunda = DtIngresosSegunda.SUM("Merma"); TotCantidadSegunda = DtIngresosSegunda.SUM("Cantidad"); } // if (DtGastosPrimera.Rows.Count > 0) { TotGastosPrimera = DtGastosPrimera.Rows[0]["Importe"].ToString().ToDouble(); } // if (DtGastosSegunda.Rows.Count > 0) { TotGastosSegunda = DtGastosSegunda.Rows[0]["Importe"].ToString().ToDouble(); } - // System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + // System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); // String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); // List para = new List(); // para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/CGame/RepEmpaque.aspx.cs b/CGame/RepEmpaque.aspx.cs index 363bafc8d..cf82758c2 100644 --- a/CGame/RepEmpaque.aspx.cs +++ b/CGame/RepEmpaque.aspx.cs @@ -120,7 +120,7 @@ public partial class CGame_RepEmpaque : ClsPaginas Dt["EnPiso"] = (Dt["Corte"].ToString().ToDouble() - Dt["Unidades"].ToString().ToDouble() - Dt["Merma"].ToString().ToDouble()).FormatoNumero(); } - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/CGame/RepOrdenCorte.aspx.cs b/CGame/RepOrdenCorte.aspx.cs index d3ee7c776..e46fb67f9 100644 --- a/CGame/RepOrdenCorte.aspx.cs +++ b/CGame/RepOrdenCorte.aspx.cs @@ -71,7 +71,7 @@ public partial class CGame_RepOrdenCorte : ClsPaginas if (TxtFolioOC.Text != "") { Folio = $" Folio: {TxtFolioOC.Text}"; } else { Folio = ""; } if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/CGame/RepOrdenProduccion.aspx.cs b/CGame/RepOrdenProduccion.aspx.cs index dacf6ab65..c466d2a9f 100644 --- a/CGame/RepOrdenProduccion.aspx.cs +++ b/CGame/RepOrdenProduccion.aspx.cs @@ -123,7 +123,7 @@ public partial class CGame_RepOrdenProduccion :ClsPaginas if (TxtFolio.Text != "") { Folio = $" Folio: {TxtFolio.Text}"; } else { Folio = ""; } if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/CRM/CatEtapasProceso.aspx.cs b/CRM/CatEtapasProceso.aspx.cs index 13f128f72..335d51abe 100644 --- a/CRM/CatEtapasProceso.aspx.cs +++ b/CRM/CatEtapasProceso.aspx.cs @@ -409,7 +409,7 @@ public partial class CRM_CatEtapasProceso : ClsPaginas private void Imprimir(string formato) { - System.IO.FileInfo Image = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Image = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List param = new List(); diff --git a/CRM/CatProbabilidadAcercamiento.aspx.cs b/CRM/CatProbabilidadAcercamiento.aspx.cs index 417402df1..01a2b57b5 100644 --- a/CRM/CatProbabilidadAcercamiento.aspx.cs +++ b/CRM/CatProbabilidadAcercamiento.aspx.cs @@ -237,7 +237,7 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas private void Imprimir(string formato) { - System.IO.FileInfo Image = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Image = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List param = new List(); diff --git a/CRM/CatTipoProceso.aspx.cs b/CRM/CatTipoProceso.aspx.cs index 9ff2352a2..70f473b07 100644 --- a/CRM/CatTipoProceso.aspx.cs +++ b/CRM/CatTipoProceso.aspx.cs @@ -313,7 +313,7 @@ public partial class CRM_CatTipoProceso : ClsPaginas public void Imprimir(string formato) { - System.IO.FileInfo Image = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Image = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List param = new List(); diff --git a/CRM/RepAcercamientos.aspx.cs b/CRM/RepAcercamientos.aspx.cs index 7a25af24b..59bc658e8 100644 --- a/CRM/RepAcercamientos.aspx.cs +++ b/CRM/RepAcercamientos.aspx.cs @@ -149,7 +149,7 @@ public partial class CRM_RepAcercamientos : ClsPaginas string FechaFinFiltro = String.Format("Fecha Fin: {0}    ", TxtFechaFin.Text); string Filtros = String.Format("{0}{1}{2}{3}{4}", VendedorFiltro, FechaInicioFiltro, FechaFinFiltro, ProductoServicioFiltro, GiroFiltro); - System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); List @params = new List(); @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/CRM/RepAcercamientosProcesos.aspx.cs b/CRM/RepAcercamientosProcesos.aspx.cs index 3881ae560..813966a56 100644 --- a/CRM/RepAcercamientosProcesos.aspx.cs +++ b/CRM/RepAcercamientosProcesos.aspx.cs @@ -418,7 +418,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas private PdfPTable crearHeader() { //Imagen de la empresa - iTextSharp.text.Image pic = iTextSharp.text.Image.GetInstance(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + iTextSharp.text.Image pic = iTextSharp.text.Image.GetInstance($"{UsuarioActual.Empresa.Ruta}/Logo.png"); pic.ScalePercent(20f); BaseColor bordesBlancos = new BaseColor(255, 255, 255); diff --git a/CRM/RepAcercamientosProcesosDetalle.aspx.cs b/CRM/RepAcercamientosProcesosDetalle.aspx.cs index 36bb965da..4ab577c0a 100644 --- a/CRM/RepAcercamientosProcesosDetalle.aspx.cs +++ b/CRM/RepAcercamientosProcesosDetalle.aspx.cs @@ -365,7 +365,7 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas if (DdlGiroClasificacion.SelectedValue.ToEntero() > 0) { StrFiltro.AppendFormat(" Clasificación: {0}", DdlGiroClasificacion.SelectedItem.ToString()); } string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); - var Imagen = new FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + var Imagen = new FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string FechaI, FechaF; if(TxtFechaInicio.Text == "" || TxtFechaInicio.Text == "__/__/____") { FechaI = "-1"; } else { FechaI = TxtFechaInicio.Text; } diff --git a/CRM/RepAcercamientosRechazos.aspx.cs b/CRM/RepAcercamientosRechazos.aspx.cs index 33f1a9aa7..348df7b03 100644 --- a/CRM/RepAcercamientosRechazos.aspx.cs +++ b/CRM/RepAcercamientosRechazos.aspx.cs @@ -398,7 +398,7 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas private PdfPTable crearHeader() { //Imagen de la empresa - iTextSharp.text.Image pic = iTextSharp.text.Image.GetInstance(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + iTextSharp.text.Image pic = iTextSharp.text.Image.GetInstance($"{UsuarioActual.Empresa.Ruta}/Logo.png"); pic.ScalePercent(20f); BaseColor bordesBlancos = new BaseColor(255, 255, 255); diff --git a/Compras/CatEstatusFactura.aspx.vb b/Compras/CatEstatusFactura.aspx.vb index bba96e78d..def133ac0 100644 --- a/Compras/CatEstatusFactura.aspx.vb +++ b/Compras/CatEstatusFactura.aspx.vb @@ -148,7 +148,7 @@ Partial Class Compras_CatEstatusFactura End Sub Private Sub GenerarPDF(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Compras/CatProveedores.aspx.vb b/Compras/CatProveedores.aspx.vb index c2534378a..1c159186d 100644 --- a/Compras/CatProveedores.aspx.vb +++ b/Compras/CatProveedores.aspx.vb @@ -253,7 +253,7 @@ Partial Class Compras_CatProveedores Protected Sub LnkCtasBanc_Click(sender As Object, e As EventArgs) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim DtDatos As DataTable = Nothing Dim ObjBancos As New ClsBancos @@ -279,7 +279,7 @@ Partial Class Compras_CatProveedores Protected Sub LnkCtasBancSinProveedor_Click(sender As Object, e As EventArgs) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim DtDatos As DataTable = Nothing @@ -373,7 +373,7 @@ Partial Class Compras_CatProveedores worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión" worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") If Imagen.Exists Then Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index a04dca396..ab07955c3 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1486,7 +1486,7 @@ Partial Class PopUpVerFactura Dim FechaCorte As String = $" Fecha fin: {Fecha}" Dim Usuario As String = $" Usuario: {Nombre}" If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") @@ -1598,7 +1598,7 @@ Partial Class PopUpVerFactura #Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO" Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim Dr As DataRow = Nothing Dim ObjContratos As New ClsContratos @@ -1991,7 +1991,7 @@ Partial Class PopUpVerFactura If Dt.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) @@ -2462,7 +2462,7 @@ Partial Class PopUpVerFactura If DtConceptos.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) 'EMPRESA @@ -3503,7 +3503,7 @@ Partial Class PopUpVerFactura Select Case CveConcepto Case 1 'INICIAL Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) Dim SBDireccion As New StringBuilder() @@ -3531,7 +3531,7 @@ Partial Class PopUpVerFactura Case 2, 32, 33, 36, 48 ' E N T R A D A S Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim dr As DataRow = Nothing If CveCompra > 0 Then @@ -3704,7 +3704,7 @@ Partial Class PopUpVerFactura 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) Dim concepto As String = "" If CveConcepto.Contiene(3, 40) Then @@ -3962,7 +3962,7 @@ Partial Class PopUpVerFactura End If Case 4 ' ENTRADA POR DESARMADO - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) @@ -3987,7 +3987,7 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Desarmado - {0}", Folio.ToString), RDSName:="DsInventarios") Case 5 'SALIDA POR ARMADO - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) @@ -4022,7 +4022,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Responsable", Personal)) params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If DtMovimientos.COUNT("Serie") > 0 Then @@ -4047,7 +4047,7 @@ Partial Class PopUpVerFactura ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Else - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) Dim TipoResponsable As String = "" Dim Responsable As String = "" @@ -4104,7 +4104,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Responsable", Personal)) params.Add(New ReportParameter("NombreRecibio", Personal)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If DtMovimientos.COUNT("Serie") > 0 Then params.Add(New ReportParameter("MostrarSerieLote", "1")) @@ -4129,7 +4129,7 @@ Partial Class PopUpVerFactura ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Else - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) Dim TipoResponsable As String = "" Dim Responsable As String = "" @@ -4287,7 +4287,7 @@ Partial Class PopUpVerFactura Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta)) If Archivo.Exists Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) @@ -4335,7 +4335,7 @@ Partial Class PopUpVerFactura ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios") Else - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) @@ -4384,7 +4384,7 @@ Partial Class PopUpVerFactura ElseIf UsuarioActual.CveEmpresa = 140 Then params.Add(New ReportParameter("CantidadProductos", "500")) params.Add(New ReportParameter("CantidadUsados", "500")) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) @@ -4397,7 +4397,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) ElseIf UsuarioActual.CveEmpresa = 153 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte @@ -4411,7 +4411,7 @@ Partial Class PopUpVerFactura ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios") Else - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Origen", Almacen)) @@ -4521,7 +4521,7 @@ Partial Class PopUpVerFactura ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionConsignacion.rdlc", DtMovimientos, params, String.Format("Devolucion por Consignacion - {0}", Folio), RDSName:="DsInventarios") Case 13 'D E V O L U C I O N D E P R O V E E D O R Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta)) @@ -4580,7 +4580,7 @@ Partial Class PopUpVerFactura Case 14 'E N T R E G A P O R G A R A N T I A Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) If UsuarioActual.CveEmpresa = 72 Then @@ -4622,7 +4622,7 @@ Partial Class PopUpVerFactura Case 15 'S A L I D A G A R A N T I A Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH @@ -4671,7 +4671,7 @@ Partial Class PopUpVerFactura Case 18 'D E V O L U C I O N D E L C L I E N T E Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) If Archivo.Exists Then @@ -4744,7 +4744,7 @@ Partial Class PopUpVerFactura End If Case 19 'ARMADO DE PAQUETE - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) @@ -4769,7 +4769,7 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Armado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios") Case 20 'DESARMADO DE PAQUETE - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) @@ -4794,7 +4794,7 @@ Partial Class PopUpVerFactura Case 21, 22 'SALIDA POR PRESTAMO - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalida.rdlc" @@ -4832,7 +4832,7 @@ Partial Class PopUpVerFactura End If 'Case 22 'ENTRADA POR PRESTAMO - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim params As New List(Of ReportParameter) ' @@ -4861,7 +4861,7 @@ Partial Class PopUpVerFactura Case 24 'SALIDA POR RESGUARDO If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta)) @@ -4902,7 +4902,7 @@ Partial Class PopUpVerFactura ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios") Else - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) Dim TipoResponsable As String = "" Dim Responsable As String = "" @@ -4949,7 +4949,7 @@ Partial Class PopUpVerFactura End If Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) @@ -4971,7 +4971,7 @@ Partial Class PopUpVerFactura Case 30 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) @@ -5038,7 +5038,7 @@ Partial Class PopUpVerFactura 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then @@ -5447,7 +5447,7 @@ Partial Class PopUpVerFactura End If End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") If Not RutaReporte.Exists Then @@ -5649,7 +5649,7 @@ Partial Class PopUpVerFactura ObjAF.Dispose() - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString)) @@ -6298,7 +6298,7 @@ Partial Class PopUpVerFactura Dim paramList As New List(Of ReportParameter) With paramList - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) @@ -6621,7 +6621,7 @@ Partial Class PopUpVerFactura End If ObjPS.Dispose() - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim DtDatos As New DataTable @@ -6754,7 +6754,7 @@ Partial Class PopUpVerFactura End If ObjPS.Dispose() - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim DtDatos As New DataTable diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index d918b609f..0fcad37ea 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -3834,8 +3834,8 @@ Partial Class Compras_Proveedores Private Sub ImprimirReporteCxPCrystal(Optional Formato As String = "PDF") Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepProveedorCxP.rpt", UsuarioActual.Empresa.Ruta)) - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim DTCxPTempral As DataTable = Nothing @@ -3866,15 +3866,9 @@ Partial Class Compras_Proveedores lista.Add(New CrystalParametro("LimiteCredito", TxtLimiteCredito.Text)) lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - dr("Saldo").ToString.ToDouble).ToString.FormatoNumero)) lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) - - Dim params As New List(Of ReportParameter) - - If Imagen.Exists Then - lista.Add(New CrystalParametro("LogoPath", logouri)) - Else - lista.Add(New CrystalParametro("LogoPath", "")) - End If - + lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + + 'Dim params As New List(Of ReportParameter) Dim dtnc As New DataTable Dim ObjCompra As New ClsCompras() For Each dr2 As DataRow In DTCxPTempral.FiltraParametros("", DistinctColumns:={"CveIE"}).Rows @@ -4174,7 +4168,7 @@ Partial Class Compras_Proveedores End Sub Private Sub ImprimirReporteCxP(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim ObjMovtos As New ClsMovimientos() @@ -4700,7 +4694,7 @@ Partial Class Compras_Proveedores dt.WriteXml(writer) If ObjProveedores.GetProveedoresConciliacion(CveProveedor, DataTableToXml(writer)) Then 'ObjProveedores.DtResultados.ExportToExcel("Resultados") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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) @@ -6271,7 +6265,7 @@ Partial Class Compras_Proveedores If DtTemp IsNot Nothing And DtTemp.Rows.Count > 0 Then Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Compras/ProveedoresAuxiliar.aspx.vb b/Compras/ProveedoresAuxiliar.aspx.vb index 3534085f6..8524e6916 100644 --- a/Compras/ProveedoresAuxiliar.aspx.vb +++ b/Compras/ProveedoresAuxiliar.aspx.vb @@ -118,7 +118,7 @@ Partial Class Compras_ProveedoresAuxiliar Dim OpcionP = If(DdlOpcion.SelectedValue = "-1", "", $" Opción: {DdlOpcion.SelectedItem.Text}") Dim TipoProv = If(DdlTipoProveedor.SelectedValue = "-1", "", $" Tipo Proveedor: {DdlTipoProveedor.SelectedItem.Text}") Dim ContaP = If(DdlOpcionContabilizable.SelectedValue = "-1", "", $" Contabilizable: {DdlOpcionContabilizable.SelectedItem.Text}") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Compras/RepAnt-NC-EXC.aspx.cs b/Compras/RepAnt-NC-EXC.aspx.cs index 6c393f61c..aa51e72bf 100644 --- a/Compras/RepAnt-NC-EXC.aspx.cs +++ b/Compras/RepAnt-NC-EXC.aspx.cs @@ -110,7 +110,7 @@ public partial class Compras_RepAnt_NC_EXC : ClsPaginas if (DdlProveedor.SelectedValue != "-1") { Proveedor = $" Proveedor: {DdlProveedor.SelectedItem.Text}"; } else { Proveedor = ""; } if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Compras/RepAnt-NC-EXCDetalle.aspx.cs b/Compras/RepAnt-NC-EXCDetalle.aspx.cs index 18d583117..26077cb2f 100644 --- a/Compras/RepAnt-NC-EXCDetalle.aspx.cs +++ b/Compras/RepAnt-NC-EXCDetalle.aspx.cs @@ -147,7 +147,7 @@ public partial class Compras_RepAnt_NC_EXCDetalle : ClsPaginas if (DdlTipo.SelectedValue != "-1") { Tipo2 = $" Tipo: {DdlTipo.SelectedItem.Text}"; } else { Tipo2 = ""; } if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Compras/RepComplementoPago.aspx.vb b/Compras/RepComplementoPago.aspx.vb index ea75e8eca..c6ec19c62 100644 --- a/Compras/RepComplementoPago.aspx.vb +++ b/Compras/RepComplementoPago.aspx.vb @@ -173,7 +173,7 @@ Partial Class Compras_RepComplementoPago Private Sub GeneraImpresion(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim proveedor As String = If(DdlProveedores.SelectedValue = "", "", $" Proveedor: {DdlProveedores.SelectedText}") diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb index 9dad9b4ed..f4a943bd6 100644 --- a/Compras/RepCompras.aspx.vb +++ b/Compras/RepCompras.aspx.vb @@ -400,7 +400,7 @@ Partial Class Compras_RepCompras Dim TipoProveedor = If(DdlTipoProveedor.SelectedValue = "-1", "", $" Tipo de Proveedor: {DdlTipoProveedor.SelectedItem.Text}") Dim TipoDocto = If(DdlTipoDocto.SelectedValue = "-1", "", $" Tipo de Documento: {DdlTipoDocto.SelectedItem.Text}") If DtCompras IsNot Nothing AndAlso DtCompras.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb index a1074deb7..14d834ae7 100644 --- a/Compras/RepComprasAF.aspx.vb +++ b/Compras/RepComprasAF.aspx.vb @@ -241,7 +241,7 @@ Partial Class Compras_RepComprasAF Private Sub GenerarPDF(Optional Formato As String = "PDF") Dim ObjTareas As New ClsOIEventos Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim FechaI, FechaF As String FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text) diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb index c0fb3df3c..5b19beed7 100644 --- a/Compras/RepComprasAFDetalle.aspx.vb +++ b/Compras/RepComprasAFDetalle.aspx.vb @@ -375,7 +375,7 @@ Partial Class Compras_RepComprasAFDetalle - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim FechaI, FechaF As String diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index 820982b2b..cdd24ed20 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -441,7 +441,7 @@ Partial Class Compras_RepComprasDetalle For Each Dr As DataRow In DtDatos.Rows Dr("Fecha") = Dr("Fecha").ToString.ToDate.ToShortDateString Next - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Compras/RepComprasInventarios.aspx.cs b/Compras/RepComprasInventarios.aspx.cs index ac9aa31c4..9fb9350fa 100644 --- a/Compras/RepComprasInventarios.aspx.cs +++ b/Compras/RepComprasInventarios.aspx.cs @@ -94,7 +94,7 @@ public partial class Compras_RepComprasInventarios : ClsPaginas } protected void GeneraImpresion(string Formato) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); string FIC = (txtFechaIC.Text == "" ? "" : $" Fecha Inicio: {txtFechaIC.Text}"); diff --git a/Compras/RepComprasPeriodo.aspx.vb b/Compras/RepComprasPeriodo.aspx.vb index 0844f63ae..7b86e0ed1 100644 --- a/Compras/RepComprasPeriodo.aspx.vb +++ b/Compras/RepComprasPeriodo.aspx.vb @@ -304,7 +304,7 @@ Partial Class Compras_RepComprasPeriodo DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, DdlTipoGasto.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim dt As DataTable = ObjCompras.DtResultados Dim params As New List(Of ReportParameter) diff --git a/Compras/RepComprasPersonal.aspx.vb b/Compras/RepComprasPersonal.aspx.vb index de56d7911..82e9d8639 100644 --- a/Compras/RepComprasPersonal.aspx.vb +++ b/Compras/RepComprasPersonal.aspx.vb @@ -193,7 +193,7 @@ Partial Class Compras_RepComprasPersonal Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim FechaI, FechaF As String diff --git a/Compras/RepComprasPersonalDetalle.aspx.vb b/Compras/RepComprasPersonalDetalle.aspx.vb index 62be3a8dc..74cc74e0e 100644 --- a/Compras/RepComprasPersonalDetalle.aspx.vb +++ b/Compras/RepComprasPersonalDetalle.aspx.vb @@ -315,7 +315,7 @@ Partial Class Compras_RepComprasPersonalDetalle - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim FechaI, FechaF As String diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index 0540f9a27..c6aa07c91 100644 --- a/Compras/RepCxP.aspx.vb +++ b/Compras/RepCxP.aspx.vb @@ -1473,7 +1473,7 @@ Partial Class Compras_RepCxP If DtDatos.Rows(0)("TC8").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC8").ToString.ToEntero = 2 Then CantidadColumnas += 1 If DtDatos.Rows(0)("TC9").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC9").ToString.ToEntero = 2 Then CantidadColumnas += 1 - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index 9e993c5f8..22ed077f9 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -740,7 +740,7 @@ Partial Class RepCxPDetalle FechaVI = If(IsDate(txtFechaVI.Text.Trim()), txtFechaVI.Text.Trim(), "-1") FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), "-1") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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)) diff --git a/Compras/RepCxPPeriodo.aspx.cs b/Compras/RepCxPPeriodo.aspx.cs index 49054ae32..27b498718 100644 --- a/Compras/RepCxPPeriodo.aspx.cs +++ b/Compras/RepCxPPeriodo.aspx.cs @@ -280,7 +280,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas RutaPDF = "Empresas/Grales/Formatos/RepCxPPeriodo.rdlc"; } - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Compras/RepEvaluacionesProveedores.aspx.vb b/Compras/RepEvaluacionesProveedores.aspx.vb index ff60e4eb8..6ba5f6eec 100644 --- a/Compras/RepEvaluacionesProveedores.aspx.vb +++ b/Compras/RepEvaluacionesProveedores.aspx.vb @@ -49,23 +49,18 @@ Partial Class RepEvaluacionesProveedores End Sub Private Sub LnkPDF_Click(sender As Object, e As EventArgs) Handles LnkPDF.Click - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + '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("pEmp", UsuarioActual.Empresa.Empresa)) - If Imagen.Exists Then - params.Add(New ReportParameter("pImg", logouri)) - Else - params.Add(New ReportParameter("pImg", "")) - End If + params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("FechaInicial", TxtFechaI.Text)) params.Add(New ReportParameter("FechaFinal", TxtFechaF.Text)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Today)) params.Add(New ReportParameter("Proveedor", DdlProveedor.SelectedItem.ToString)) - ImprimirPDF("Empresas/Grales/Formatos/RepEvaluacionesProveedores.rdlc", DtDatos, params, "RepEvaluacionesProveedores", "PDF", RDSName:="DataSet1") End Sub diff --git a/Compras/RepGastosFijos.aspx.cs b/Compras/RepGastosFijos.aspx.cs index e883b11cf..0a9bc0d1a 100644 --- a/Compras/RepGastosFijos.aspx.cs +++ b/Compras/RepGastosFijos.aspx.cs @@ -225,7 +225,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas RutaPDF = "Empresas/Grales/Formatos/RepGastosFijos.rdlc"; } - System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); List @params = new List(); diff --git a/Compras/RepGastosSemanal.aspx.cs b/Compras/RepGastosSemanal.aspx.cs index e6231403f..9e86f14ca 100644 --- a/Compras/RepGastosSemanal.aspx.cs +++ b/Compras/RepGastosSemanal.aspx.cs @@ -165,7 +165,7 @@ public partial class Compras_RepGastosSemanal : ClsPaginas if (DtPagos.Rows.Count > 0 || DtPrestamo.Rows.Count > 0 || DtTraspaso.Rows.Count > 0 || DtFondo.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb index c91ab6675..927d8eaea 100644 --- a/Compras/RepNotasCredito.aspx.vb +++ b/Compras/RepNotasCredito.aspx.vb @@ -75,7 +75,7 @@ Partial Class Compras_RepNotasCredito If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin : {0}", txtFechaF.Text.ToDate.ToShortDateString) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'Dim dt As DataTable = DtVentas.FiltraParametros("", "Orden") '.FiltraParametros("Total > 0", DistinctColumns:={"GPO", "Cantidad", "SubTotal", "Descuento", "Amortizacion", "IVA", "Total"}) Dim FechaI, FechaF As String diff --git a/Compras/RepPUESinPago.aspx.vb b/Compras/RepPUESinPago.aspx.vb index 0a993d9c5..a405e4c01 100644 --- a/Compras/RepPUESinPago.aspx.vb +++ b/Compras/RepPUESinPago.aspx.vb @@ -80,7 +80,7 @@ Partial Class Compras_RepPUESinPago Private Sub GeneraImpresion(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim FI As String = If(TxtFechaI.Text = "", "", $" Fecha Inicio: {TxtFechaI.Text}") Dim FF As String = If(TxtFechaF.Text = "", "", $" Fecha Fin: {TxtFechaF.Text}") diff --git a/Compras/RepPagado.aspx.cs b/Compras/RepPagado.aspx.cs index 5a0ea0a4f..038581fe6 100644 --- a/Compras/RepPagado.aspx.cs +++ b/Compras/RepPagado.aspx.cs @@ -251,7 +251,7 @@ public partial class Compras_RepPagado : ClsPaginas RutaPDF = "Empresas/Grales/Formatos/RepPagado.rdlc"; } - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); diff --git a/Compras/RepPagadoDetalle.aspx.cs b/Compras/RepPagadoDetalle.aspx.cs index 098d3662b..8c40c9360 100644 --- a/Compras/RepPagadoDetalle.aspx.cs +++ b/Compras/RepPagadoDetalle.aspx.cs @@ -299,7 +299,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas RutaPDF = "Empresas/Grales/Formatos/RepPagadoDetalle.rdlc"; } - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Compras/RepPagadoPeriodo.aspx.cs b/Compras/RepPagadoPeriodo.aspx.cs index 8ea0e41bc..37c485810 100644 --- a/Compras/RepPagadoPeriodo.aspx.cs +++ b/Compras/RepPagadoPeriodo.aspx.cs @@ -300,7 +300,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas RutaPDF = "Empresas/Grales/Formatos/RepPagadoPeriodo.rdlc"; } - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb index 65bb0442e..34addd1e1 100644 --- a/Compras/RepProductosServicios.aspx.vb +++ b/Compras/RepProductosServicios.aspx.vb @@ -511,7 +511,7 @@ 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter)() params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb index dca139c70..f34b5fc99 100644 --- a/Compras/RepProductosServiciosDetalle.aspx.vb +++ b/Compras/RepProductosServiciosDetalle.aspx.vb @@ -640,7 +640,7 @@ Partial Class Compras_RepProductosServiciosDetalle Dim SubTipoAF = If(DdlSubTipoAF.GetSelectedText = "", "", $" SubTipo AF: {DdlSubTipoAF.GetSelectedText}") If DtDatos.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Compras/RepProductosServiciosPeriodo.aspx.cs b/Compras/RepProductosServiciosPeriodo.aspx.cs index b080fc4ed..75d4bcdbe 100644 --- a/Compras/RepProductosServiciosPeriodo.aspx.cs +++ b/Compras/RepProductosServiciosPeriodo.aspx.cs @@ -401,7 +401,7 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); DataTable dt = DtDatos.FiltraParametros("", "Orden"); string FechaI, FechaF; diff --git a/Compras/RepReqOCCompraInv.aspx.vb b/Compras/RepReqOCCompraInv.aspx.vb index 7bc8c46e9..546b79131 100644 --- a/Compras/RepReqOCCompraInv.aspx.vb +++ b/Compras/RepReqOCCompraInv.aspx.vb @@ -127,7 +127,7 @@ Partial Class RepReqOCCompraInv ' If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Destino: {0}", DdlAlmacenDestino.SelectedItem.Text) ' If ChkRecibido.Checked Then StrFiltro.AppendFormat(" Recibidos: Si") Else StrFiltro.AppendFormat(" Recibidos: No") - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim FechaI, FechaF As String diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index c887c8138..07fcbdc6d 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -1447,7 +1447,7 @@ Partial Class Compras_eFacturas If dt IsNot Nothing Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) diff --git a/Contabilidad/AuxiliarPrePolizas.aspx.cs b/Contabilidad/AuxiliarPrePolizas.aspx.cs index 039e96c03..f1847d4ec 100644 --- a/Contabilidad/AuxiliarPrePolizas.aspx.cs +++ b/Contabilidad/AuxiliarPrePolizas.aspx.cs @@ -112,7 +112,7 @@ public partial class Contabilidad_AuxiliarPrePolizas : ClsPaginas if (DdlSubProyecto.SelectedValue != "-1") { SubProyecto = $" SubProyecto: {DdlSubProyecto.SelectedItem.Text}"; } else { SubProyecto = ""; } if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Contabilidad/CatCuentas.aspx.vb b/Contabilidad/CatCuentas.aspx.vb index fb8cbd7ed..a63d13ba8 100644 --- a/Contabilidad/CatCuentas.aspx.vb +++ b/Contabilidad/CatCuentas.aspx.vb @@ -300,7 +300,7 @@ Partial Class Contabilidad_CatCuentas End Sub Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb index 794f527e1..12c2765c1 100644 --- a/Contabilidad/FiltraPolizas.aspx.vb +++ b/Contabilidad/FiltraPolizas.aspx.vb @@ -220,7 +220,7 @@ Partial Class Contabilidad_FiltraPolizas Private Sub ImprimirPoliza(Optional Formato As String = "PDF") If DtDatos IsNot Nothing Then Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Dim dt As DataTable = DtDatos diff --git a/Contabilidad/LibroDiario.aspx.vb b/Contabilidad/LibroDiario.aspx.vb index cb79c93cc..e62f95577 100644 --- a/Contabilidad/LibroDiario.aspx.vb +++ b/Contabilidad/LibroDiario.aspx.vb @@ -244,20 +244,15 @@ Partial Class Contabilidad_LibroDiario End Sub Private Sub ImprimirReporte(Optional Formato As String = "PDF") - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim lista = New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("FechaInicio", FechaInicio.ToString("dd/MM/yyyy"))) lista.Add(New CrystalParametro("FechaFin", FechaFin.ToString("dd/MM/yyyy"))) lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) - - If Imagen.Exists Then - lista.Add(New CrystalParametro("LogoPath", logouri)) - Else - lista.Add(New CrystalParametro("LogoPath", "")) - End If + lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato) End Sub diff --git a/Contabilidad/LibroMayor.aspx.vb b/Contabilidad/LibroMayor.aspx.vb index e2fe283cf..ac374cbd7 100644 --- a/Contabilidad/LibroMayor.aspx.vb +++ b/Contabilidad/LibroMayor.aspx.vb @@ -202,20 +202,15 @@ Partial Class Contabilidad_LibroMayor End Sub Private Sub ImprimirReporte(Optional Formato As String = "PDF") - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim lista = New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("FechaInicio", FechaInicio.ToString("dd/MM/yyyy"))) lista.Add(New CrystalParametro("FechaFin", FechaFin.ToString("dd/MM/yyyy"))) lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) - - If Imagen.Exists Then - lista.Add(New CrystalParametro("LogoPath", logouri)) - Else - lista.Add(New CrystalParametro("LogoPath", "")) - End If + lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroMayor.rpt"), DtDatos, lista, "LibroMayor", Formato), "LibroMayor", Formato) End Sub diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb index b60b8e8b9..111ae7686 100644 --- a/Contabilidad/PopUpAuxiliar.aspx.vb +++ b/Contabilidad/PopUpAuxiliar.aspx.vb @@ -361,7 +361,7 @@ Partial Class PopUpAuxiliar GenerarPDF() End Sub Private Sub GenerarPDF(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") If DTDatos IsNot Nothing And DTDatos.Rows.Count > 0 Then diff --git a/Contabilidad/RepAnexoCatalogo.aspx.vb b/Contabilidad/RepAnexoCatalogo.aspx.vb index 181366fec..5941f821a 100644 --- a/Contabilidad/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad/RepAnexoCatalogo.aspx.vb @@ -313,7 +313,7 @@ Partial Class AC_RepAnexoCatalogo Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString)) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) diff --git a/Contabilidad/RepAnexoCatalogoMes.aspx.vb b/Contabilidad/RepAnexoCatalogoMes.aspx.vb index edbd38df1..63ad7eedc 100644 --- a/Contabilidad/RepAnexoCatalogoMes.aspx.vb +++ b/Contabilidad/RepAnexoCatalogoMes.aspx.vb @@ -315,7 +315,7 @@ Partial Class AC_RepAnexoCatalogoMes ' Dim params As New List(Of ReportParameter) ' params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString)) ' params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' If Imagen.Exists Then ' params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}")) ' Else diff --git a/Contabilidad/RepAnexoCatalogoSegmento.aspx.vb b/Contabilidad/RepAnexoCatalogoSegmento.aspx.vb index 302139d41..1cdf2c6dc 100644 --- a/Contabilidad/RepAnexoCatalogoSegmento.aspx.vb +++ b/Contabilidad/RepAnexoCatalogoSegmento.aspx.vb @@ -342,6 +342,7 @@ Partial Class AC_RepAnexoCatalogoSegmento GvDatos.ExportToExcelx("RepAnexoCatalogoSegmento") End Sub 'Private Sub ImprimirReporte(Optional Formato As String = "PDF") + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' 'ubicacion del rdlc ' Dim reportpath As String = "Contabilidad/Reportes/RepAnexoCatalogo.rdlc" ' 'nombre del reporte @@ -350,11 +351,7 @@ Partial Class AC_RepAnexoCatalogoSegmento ' Dim params As New List(Of ReportParameter) ' params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString)) ' params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - ' If Imagen.Exists Then - ' params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}")) - ' Else - ' params.Add(New ReportParameter("pImg", "")) + ' params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ' End If ' params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) diff --git a/Contabilidad/RepBalanceGeneral.aspx.vb b/Contabilidad/RepBalanceGeneral.aspx.vb index 2ef56d8c7..01c5e437c 100644 --- a/Contabilidad/RepBalanceGeneral.aspx.vb +++ b/Contabilidad/RepBalanceGeneral.aspx.vb @@ -1087,16 +1087,15 @@ Partial Class Contabilidad_RepBalanceGeneral Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy") + + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - + 'LogoRuta = String.Format("file://{0}Formatos\Suc{1}.png", UsuarioActual.Empresa.Ruta, Vta.CveSucursal) - - Dim RutaLogo As String = String.Format("file://{0}Logo.png", UsuarioActual.Empresa.Ruta) - params.Add(New ReportParameter("pImg", RutaLogo)) - + 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("pFechaFin", FechaF)) @@ -1130,7 +1129,7 @@ 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 Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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)) @@ -1154,7 +1153,7 @@ 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 Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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)) diff --git a/Contabilidad/RepBalanzaComprobacion.aspx.vb b/Contabilidad/RepBalanzaComprobacion.aspx.vb index 98b23d7ed..294aa9b2a 100644 --- a/Contabilidad/RepBalanzaComprobacion.aspx.vb +++ b/Contabilidad/RepBalanzaComprobacion.aspx.vb @@ -229,8 +229,8 @@ Partial Class Contabilidad_RepBalanzaComprobacion End Sub Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF") Dim Archivo As New System.IO.FileInfo(String.Format("{0}Contabilidad/Reportes/RepBalanzaComprobacion.rpt", Server.MapPath("~"))) - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) 'If UsuarioActual.CveUsuario = 100 Then ' Alert(String.Format("{0}Contabilidad/Reportes/RepBalanzaComprobacion.rpt", Server.MapPath("~"))) @@ -243,12 +243,7 @@ Partial Class Contabilidad_RepBalanzaComprobacion lista.Add(New CrystalParametro("pEmp", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) lista.Add(New CrystalParametro("pFechaIni", FechaInicio.ToString("dd/MM/yyyy"))) - - If Imagen.Exists Then - lista.Add(New CrystalParametro("pImg", logouri)) - Else - lista.Add(New CrystalParametro("pImg", "")) - End If + lista.Add(New CrystalParametro("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim DTTemp As DataTable = DtDatos.Copy @@ -260,6 +255,7 @@ Partial Class Contabilidad_RepBalanzaComprobacion End Sub 'Private Sub ImprimirReporte(Optional Formato As String = "PDF") + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' 'ubicacion del rdlc ' Dim reportpath As String = "Contabilidad/Reportes/RepBalanzaComprobacion.rdlc" ' 'nombre del reporte @@ -267,12 +263,7 @@ Partial Class Contabilidad_RepBalanzaComprobacion ' 'parametros a enviar al reporte ' Dim params As New List(Of ReportParameter) ' params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - ' 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("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) ' params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy"))) diff --git a/Contabilidad/RepEdoResultados2.aspx.vb b/Contabilidad/RepEdoResultados2.aspx.vb index de86c9ffe..3d26b79df 100644 --- a/Contabilidad/RepEdoResultados2.aspx.vb +++ b/Contabilidad/RepEdoResultados2.aspx.vb @@ -206,7 +206,7 @@ Partial Class Contabilidad_RepEdoResultados2 Dim lrds As New List(Of ReportDataSource) Dim StrFiltro As New StringBuilder - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) diff --git a/Contabilidad/RepEstadoResultados.aspx.vb b/Contabilidad/RepEstadoResultados.aspx.vb index 356f8aa6c..d6cf044bf 100644 --- a/Contabilidad/RepEstadoResultados.aspx.vb +++ b/Contabilidad/RepEstadoResultados.aspx.vb @@ -1055,7 +1055,7 @@ Partial Class Contabilidad_RepEstadoResultados 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFirma1", "")) params.Add(New ReportParameter("pFirma2", "")) @@ -1091,7 +1091,7 @@ Partial Class Contabilidad_RepEstadoResultados 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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)) @@ -1115,7 +1115,7 @@ Partial Class Contabilidad_RepEstadoResultados 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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)) diff --git a/Contabilidad/RepGastosCC.aspx.vb b/Contabilidad/RepGastosCC.aspx.vb index 34ea1542c..4f668faae 100644 --- a/Contabilidad/RepGastosCC.aspx.vb +++ b/Contabilidad/RepGastosCC.aspx.vb @@ -114,7 +114,7 @@ Partial Class RepGastosCC ' If DdlVendedor.GetSelectedText <> "" Then StrFiltro.AppendFormat(" Vendedor: {0}", DdlVendedor.GetSelectedText) - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim FechaI, FechaF As String diff --git a/Contabilidad/RepIEPS.aspx.vb b/Contabilidad/RepIEPS.aspx.vb index f942dd18e..8fa87384e 100644 --- a/Contabilidad/RepIEPS.aspx.vb +++ b/Contabilidad/RepIEPS.aspx.vb @@ -122,7 +122,7 @@ Partial Class Contabilidad_RepIEPS Dim Modalidad As String = $" Modalidad: {DdlModalidad.SelectedItem.Text}" If DtDatos.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") '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)() diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 94263da4f..b3f6be587 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -210,7 +210,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas } else { - Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); } diff --git a/Contabilidad/RepIVADiferencias.aspx.vb b/Contabilidad/RepIVADiferencias.aspx.vb index 9891aa740..22a9ee915 100644 --- a/Contabilidad/RepIVADiferencias.aspx.vb +++ b/Contabilidad/RepIVADiferencias.aspx.vb @@ -101,10 +101,10 @@ Partial Class Contabilidad_RepIVADiferencias If Not IsNothing(DtDatos) AndAlso DtDatos.Rows.Count > 0 Then + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) - 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("Ejercicio", Ejercicio.ToString)) params.Add(New ReportParameter("Periodo", Periodo)) diff --git a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb index c12379f97..77ec78951 100644 --- a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb +++ b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb @@ -426,7 +426,7 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("CveMoneda", DdlMoneda.SelectedValue)) diff --git a/Contabilidad2/MovimientosconProveedores.aspx.vb b/Contabilidad2/MovimientosconProveedores.aspx.vb index 1b83a6403..8c2a8b97a 100644 --- a/Contabilidad2/MovimientosconProveedores.aspx.vb +++ b/Contabilidad2/MovimientosconProveedores.aspx.vb @@ -277,7 +277,7 @@ Partial Class MovimientosconProveedores Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString)) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb index ef7aed908..5529ff8d8 100644 --- a/Contabilidad2/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb @@ -297,7 +297,7 @@ Partial Class AC2_RepAnexoCatalogo params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString)) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("usuarioImprimio", UsuarioActual.Nombre)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy"))) diff --git a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb index e7005ff7e..fd53b9e79 100644 --- a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb @@ -293,7 +293,7 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString)) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("usuarioImprimio", UsuarioActual.Nombre)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy"))) diff --git a/Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude b/Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude index 714304483..ec0ceb8dc 100644 --- a/Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude +++ b/Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude @@ -277,7 +277,7 @@ Partial Class FinanzasSAT_RepAnexoCatalogo Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString)) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) diff --git a/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude b/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude index 693b25955..02759e36a 100644 --- a/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude +++ b/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude @@ -971,7 +971,7 @@ Partial Class Contabilidad2_RepBalanceGeneral 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFirma1", "")) params.Add(New ReportParameter("pFirma2", "")) diff --git a/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb b/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb index 65d1d37ac..9f6ccba22 100644 --- a/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb +++ b/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb @@ -836,7 +836,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFirma1", If(ChkFirma.Checked, String.Format("{0}", vbCrLf), ""))) params.Add(New ReportParameter("pFirma2", If(ChkFirma.Checked, String.Format("{0}l", vbCrLf), ""))) diff --git a/Contabilidad2/RepBalanzaComprobacion.aspx.vb b/Contabilidad2/RepBalanzaComprobacion.aspx.vb index 5aa18dc34..39997878d 100644 --- a/Contabilidad2/RepBalanzaComprobacion.aspx.vb +++ b/Contabilidad2/RepBalanzaComprobacion.aspx.vb @@ -204,7 +204,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy"))) diff --git a/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude b/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude index 3ce668bd3..09c7a34ef 100644 --- a/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude +++ b/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude @@ -234,7 +234,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy"))) diff --git a/Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb b/Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb index c36a2b83a..49470a8f0 100644 --- a/Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb +++ b/Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb @@ -255,7 +255,7 @@ Partial Class AC2_RepCambiosSituacionFinanciera Private Sub ImprimirReporte(Optional Formato As String = "PDF") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString)) params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf))) diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb index 1af235de7..207b4d58c 100644 --- a/Contabilidad2/RepEstadoActividades.aspx.vb +++ b/Contabilidad2/RepEstadoActividades.aspx.vb @@ -319,7 +319,7 @@ 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)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFirma1", "")) params.Add(New ReportParameter("pFirma2", "")) diff --git a/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude b/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude index 8bca5fcb9..3300292c2 100644 --- a/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude +++ b/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude @@ -316,7 +316,7 @@ 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)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFirma1", If(ChkFirma.Checked, String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf), ""))) params.Add(New ReportParameter("pFirma2", If(ChkFirma.Checked, String.Format("Lic. Juan Fortino Leon Robinson{0} Director General", vbCrLf), ""))) diff --git a/Contabilidad2/RepFlujoEfectivo.aspx.vb b/Contabilidad2/RepFlujoEfectivo.aspx.vb index f9e2e08be..97d163776 100644 --- a/Contabilidad2/RepFlujoEfectivo.aspx.vb +++ b/Contabilidad2/RepFlujoEfectivo.aspx.vb @@ -222,7 +222,7 @@ Partial Class AC2_RepFlujoEfectivo Private Sub ImprimirReporte(Optional Formato As String = "PDF") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pAl", FechaAl)) params.Add(New ReportParameter("pTotalActual", TotalActual.ToString.FormatoNumero)) diff --git a/Contabilidad2/RepLibroDiario.aspx.vb b/Contabilidad2/RepLibroDiario.aspx.vb index a5fa94f8e..070b45a63 100644 --- a/Contabilidad2/RepLibroDiario.aspx.vb +++ b/Contabilidad2/RepLibroDiario.aspx.vb @@ -170,20 +170,15 @@ Partial Class Contabilidad2_RepLibroDiario End Sub Private Sub ImprimirReporte(Optional Formato As String = "PDF") - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim lista = New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("FechaInicio", FechaInicio.ToString("dd/MM/yyyy"))) lista.Add(New CrystalParametro("FechaFin", FechaFin.ToString("dd/MM/yyyy"))) lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) - - If Imagen.Exists Then - lista.Add(New CrystalParametro("LogoPath", logouri)) - Else - lista.Add(New CrystalParametro("LogoPath", "")) - End If + lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato) End Sub diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb index 8acfe033b..eeba1fdb8 100644 --- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb +++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb @@ -473,7 +473,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo Private Sub ImprimirReporte(Optional Formato As String = "PDF") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy"))) diff --git a/Contabilidad2/RepSituacionFinanciera.aspx.vb b/Contabilidad2/RepSituacionFinanciera.aspx.vb index ebb573ad5..477cbc9a4 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx.vb +++ b/Contabilidad2/RepSituacionFinanciera.aspx.vb @@ -590,24 +590,12 @@ Partial Class AC2_SituacionFinanciera Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy") Dim fileName As String = "EdoSituacionFinanciera" - Dim reportpath As String = "Contabilidad2/Reportes/RepSituacionFinanciera.rdlc" - + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - - - Dim ImgLogoInfo As New IO.FileInfo($"{UsuarioActual.Empresa.Ruta}\Logo.png") - - - If ImgLogoInfo.Exists Then - params.Add(New ReportParameter("pImg", $"file://{ImgLogoInfo.FullName}")) - Else - params.Add(New ReportParameter("pImg", "")) - End If - - + params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFirma1", If(ChkFirma.Checked, String.Format("{0}", vbCrLf), ""))) params.Add(New ReportParameter("pFirma2", If(ChkFirma.Checked, String.Format("{0}l", vbCrLf), ""))) params.Add(New ReportParameter("pFechaFin", FechaF)) diff --git a/Contabilidad2/RepSituacionFinanciera.aspx.vb_old b/Contabilidad2/RepSituacionFinanciera.aspx.vb_old index 772eb3d8e..b199785e1 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx.vb_old +++ b/Contabilidad2/RepSituacionFinanciera.aspx.vb_old @@ -591,12 +591,8 @@ Partial Class AC2_SituacionFinanciera 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - If Imagen.Exists Then - params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("pImg", "")) - End If + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFirma1", If(ChkFirma.Checked, String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf), ""))) params.Add(New ReportParameter("pFirma2", If(ChkFirma.Checked, String.Format("Lic. Juan Fortino Leon Robinson{0} Director General", vbCrLf), ""))) params.Add(New ReportParameter("pFechaFin", FechaF)) diff --git a/Contabilidad2/RepSituacionFinancieraSAT.aspx.vb.exclude b/Contabilidad2/RepSituacionFinancieraSAT.aspx.vb.exclude index a9e3ddd85..d2854b78f 100644 --- a/Contabilidad2/RepSituacionFinancieraSAT.aspx.vb.exclude +++ b/Contabilidad2/RepSituacionFinancieraSAT.aspx.vb.exclude @@ -589,7 +589,7 @@ Partial Class AC2_SituacionFinanciera 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFirma1", If(ChkFirma.Checked, String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf), ""))) params.Add(New ReportParameter("pFirma2", If(ChkFirma.Checked, String.Format("Lic. Juan Fortino Leon Robinson{0} Director General", vbCrLf), ""))) diff --git a/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb b/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb index ab421dfe8..9ae8d10c3 100644 --- a/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb +++ b/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb @@ -385,7 +385,7 @@ Partial Class AC_RepVariacionHaciendaPublica Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFechaIni", TxtFechaDel.Text)) params.Add(New ReportParameter("pFechaFin", TxtFechaAl.Text)) diff --git a/Contratos/CatRefrendos.aspx.cs b/Contratos/CatRefrendos.aspx.cs index ef2893141..802ec036c 100644 --- a/Contratos/CatRefrendos.aspx.cs +++ b/Contratos/CatRefrendos.aspx.cs @@ -504,7 +504,7 @@ public partial class Contratos_CatRefrendos : ClsPaginas @params.Add(new ReportParameter("Estatus", DdlEstatus.SelectedItem.Text)); - System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : "")); ImprimirPDF("Empresas/Grales/Formatos/FormatoRefrendo.rdlc", TmpDT, @params, "FormatoRefrendo", Formato); diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 27aec9165..fe12f6fef 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -2856,7 +2856,7 @@ Partial Class Contratos_Default Exit Sub End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) @@ -3642,7 +3642,7 @@ Partial Class Contratos_Default End Sub Private Sub GenerarPDF(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim dt As DataTable = DtAvanceDocumento.FiltraParametros("CveVenta > 0") @@ -3663,7 +3663,7 @@ Partial Class Contratos_Default ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato) End Sub Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim dt As DataTable = DtAvanceDocumento @@ -3719,7 +3719,7 @@ Partial Class Contratos_Default End Sub Private Sub GenerarPDFGastos(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString @@ -3759,7 +3759,7 @@ Partial Class Contratos_Default GenerarPDFSuministros() End Sub Private Sub GenerarPDFSuministros(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim dt As DataTable = DtSuministros @@ -3786,7 +3786,7 @@ Partial Class Contratos_Default GenerarPDFAvance() End Sub Private Sub GenerarPDFAvance(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim dt As DataTable = DtAvance @@ -3817,7 +3817,7 @@ Partial Class Contratos_Default GenerarPDFPPresupuesto(Formato:="EXCEL") End Sub Private Sub GenerarPDFPPresupuesto(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim dt As DataTable = DtPresupuestos @@ -3848,7 +3848,7 @@ Partial Class Contratos_Default GenerarPDFActivosFijos("Excel") End Sub Private Sub GenerarPDFActivosFijos(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim dt As DataTable = Nothing diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 8415cd140..24f5cf339 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -2919,7 +2919,7 @@ Partial Class Contratos_ContratoObra Exit Sub End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) @@ -3418,7 +3418,7 @@ Partial Class Contratos_ContratoObra 'End Sub Private Sub GenerarPDF(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim dt As DataTable = DtAvanceDocumento.FiltraParametros("CveVenta > 0") @@ -3450,7 +3450,7 @@ Partial Class Contratos_ContratoObra 'End Sub Private Sub GenerarPDFGastos(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString @@ -3490,7 +3490,7 @@ Partial Class Contratos_ContratoObra ' GenerarPDFSuministros() 'End Sub Private Sub GenerarPDFSuministros(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim dt As DataTable = DtSuministros @@ -3517,7 +3517,7 @@ Partial Class Contratos_ContratoObra ' GenerarPDFAvance() 'End Sub Private Sub GenerarPDFAvance(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim dt As DataTable = DtAvance @@ -3545,7 +3545,7 @@ Partial Class Contratos_ContratoObra ' GenerarPDFPPresupuesto() 'End Sub Private Sub GenerarPDFPPresupuesto(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim dt As DataTable = DtPresupuestos @@ -3576,7 +3576,7 @@ Partial Class Contratos_ContratoObra ' GenerarPDFActivosFijos("Excel") 'End Sub Private Sub GenerarPDFActivosFijos(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim dt As DataTable = Nothing diff --git a/Contratos/Contratos.aspx.vb b/Contratos/Contratos.aspx.vb index 72a73ce4a..c9c69e3b3 100644 --- a/Contratos/Contratos.aspx.vb +++ b/Contratos/Contratos.aspx.vb @@ -81,7 +81,7 @@ Partial Class Contratos_Contratos Private Sub GenerarPDF() Dim ObjContratos As New ClsContratos If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, TipoContrato:=DdlTipo.SelectedValue.ToEntero) Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = ObjContratos.DtResultados Dim Cliente = If(DdlClientes.SelectedValue = "-1", "", $" Cliente: {DdlClientes.SelectedItem.Text}") diff --git a/Contratos/RepContratosAvancesCP.aspx.vb b/Contratos/RepContratosAvancesCP.aspx.vb index ab22040e2..1234ee355 100644 --- a/Contratos/RepContratosAvancesCP.aspx.vb +++ b/Contratos/RepContratosAvancesCP.aspx.vb @@ -127,8 +127,8 @@ Partial Class Contratos_RepContratosAvancesCP Private Sub GenerarPDF() Dim ObjContratos As New ClsContratos If ObjContratos.GetReporteContratosAvancesCP(UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, -1, DdlTipo.SelectedValue.ToEntero, DdlAgrupador.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero) Then - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = ObjContratos.DtResultados Dim Cliente = If(DdlClientes.SelectedValue = "-1", "", $" Cliente: {DdlClientes.SelectedItem.Text}") Dim Estatus = ($" Estatus: {DdlEstatus.SelectedItem.Text}") @@ -143,11 +143,7 @@ Partial Class Contratos_RepContratosAvancesCP params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Cliente}{Estatus}{Tipo}{Grupo}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepContratosAvanceCP.rdlc", dt, params, "ReporteContratosAvanceCP") Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Contratos/RepContratosCostos.aspx.vb b/Contratos/RepContratosCostos.aspx.vb index 307d99a3c..e1157792e 100644 --- a/Contratos/RepContratosCostos.aspx.vb +++ b/Contratos/RepContratosCostos.aspx.vb @@ -76,7 +76,7 @@ Partial Class Contratos_RepContratosCostos If txtFechaI.Text = "" Then FechaI = "-1" If txtFechaF.Text = "" Then FechaF = "-1" - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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) diff --git a/Contratos/RepContratosFianzas.aspx.cs b/Contratos/RepContratosFianzas.aspx.cs index 9021ab9f2..6096a2dd7 100644 --- a/Contratos/RepContratosFianzas.aspx.cs +++ b/Contratos/RepContratosFianzas.aspx.cs @@ -119,8 +119,8 @@ public partial class Contratos_RepContratosFianzas : ClsPaginas if (txtFechaVencF.Text == "") FechaF = "-1"; - System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); - 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($"{UsuarioActual.Empresa.Ruta}/Logo.png"); + // var logouri = string.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List @params = new List(); @@ -131,8 +131,8 @@ public partial class Contratos_RepContratosFianzas : ClsPaginas @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString())); @params.Add(new ReportParameter("Contrato", Contrato.Text)); @params.Add(new ReportParameter("Estatus", Estatus.Text)); - @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 ff154a162..4e722ea3f 100644 --- a/Contratos/RepContratosSuministros.aspx.vb +++ b/Contratos/RepContratosSuministros.aspx.vb @@ -75,7 +75,7 @@ Partial Class Contratos_RepContratosSuministros If txtFechaI.Text = "" Then FechaI = "-1" If txtFechaF.Text = "" Then FechaF = "-1" - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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) diff --git a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb index be9e558f8..2f1cbb463 100644 --- a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb +++ b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb @@ -69,7 +69,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato If txtFechaI.Text = "" Then FechaI = "-1" If txtFechaF.Text = "" Then FechaF = "-1" - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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) diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index 1dcbb9dab..07cfc6d1f 100644 --- a/Contratos/RepPresupuestos.aspx.vb +++ b/Contratos/RepPresupuestos.aspx.vb @@ -538,7 +538,7 @@ Partial Class Contratos_RepPresupuestos If TxtFiltrosFechaFin.Text = "" Then FechaFn = "" If DtPresupuestos.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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)) diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb index 6056e2dd7..75fdbd48b 100644 --- a/Contratos/RepPresupuestosDetalle.aspx.vb +++ b/Contratos/RepPresupuestosDetalle.aspx.vb @@ -333,7 +333,7 @@ Partial Class Contratos_RepPresupuestosDetalle If TxtFiltrosFechaFin.Text = "" Then FechaFn = "" If DtPresupuestos.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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)) diff --git a/CxC/GestionCobranza.aspx.vb b/CxC/GestionCobranza.aspx.vb index ea1994f86..183098cf2 100644 --- a/CxC/GestionCobranza.aspx.vb +++ b/CxC/GestionCobranza.aspx.vb @@ -187,7 +187,7 @@ Partial Class Ventas_GestionCobranza If DtDatos.Rows.Count > 0 Then Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/GestionCobranza.rdlc", UsuarioActual.Empresa.Ruta)) Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim Cobrador = If(DdlUsuarioCobranza.SelectedValue = "-1", "", $" Cobrador: {DdlUsuarioCobranza.SelectedItem.Text}") diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index f7c3a9bee..487a913fc 100644 --- a/CxC/RepCxC.aspx.vb +++ b/CxC/RepCxC.aspx.vb @@ -718,7 +718,7 @@ Partial Class RepCxC If DtDatos.Rows(0)("TC8").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC8").ToString.ToEntero = 2 Then CantidadColumnas += 1 If DtDatos.Rows(0)("TC9").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC9").ToString.ToEntero = 2 Then CantidadColumnas += 1 - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index 5790de8c6..86f4f7a82 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -944,7 +944,7 @@ Partial Class RepCxCDetalle ' TituloReporte = "Antigüedad de Saldos de Clientes" 'End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri As String = "" If Imagen.Exists Then diff --git a/CxC/RepCxCPeriodo.aspx.cs b/CxC/RepCxCPeriodo.aspx.cs index d0d2003d1..ab35f80f1 100644 --- a/CxC/RepCxCPeriodo.aspx.cs +++ b/CxC/RepCxCPeriodo.aspx.cs @@ -323,7 +323,7 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas RutaPDF = "Empresas/Grales/Formatos/RepCxCPeriodo.rdlc"; } - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Edoc/Contratos.aspx.vb b/Edoc/Contratos.aspx.vb index a19e6bc55..9ae0556a9 100644 --- a/Edoc/Contratos.aspx.vb +++ b/Edoc/Contratos.aspx.vb @@ -354,7 +354,7 @@ Partial Class Proveedores_Contratos Private Sub Imprimir(Formato As String) 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) diff --git a/Finanzas/RepBalanceGeneral.aspx.vb b/Finanzas/RepBalanceGeneral.aspx.vb index 527437d85..b6d0cc6c4 100644 --- a/Finanzas/RepBalanceGeneral.aspx.vb +++ b/Finanzas/RepBalanceGeneral.aspx.vb @@ -967,7 +967,7 @@ Partial Class Contabilidad2_RepBalanceGeneral 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pFirma1", "")) params.Add(New ReportParameter("pFirma2", "")) diff --git a/Finanzas/RepRotacionCartera.aspx.cs b/Finanzas/RepRotacionCartera.aspx.cs index c826050f3..b373ba1e9 100644 --- a/Finanzas/RepRotacionCartera.aspx.cs +++ b/Finanzas/RepRotacionCartera.aspx.cs @@ -344,7 +344,7 @@ public partial class Finanzas_RepRotacionCartera : ClsPaginas { List @params = new List(); - System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); var logouri = string.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Finanzas/RepRotacionCarteraDetalle.aspx.cs b/Finanzas/RepRotacionCarteraDetalle.aspx.cs index ce2ec079a..5df2e266b 100644 --- a/Finanzas/RepRotacionCarteraDetalle.aspx.cs +++ b/Finanzas/RepRotacionCarteraDetalle.aspx.cs @@ -333,7 +333,7 @@ public partial class Finanzas_RepRotacionCarteraDetalle : ClsPaginas //{ // List @params = new List(); - // System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + // System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); // var logouri = string.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); // @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Flotillas/RepIncidentes.aspx.vb b/Flotillas/RepIncidentes.aspx.vb index e43b0e11e..056a015c4 100644 --- a/Flotillas/RepIncidentes.aspx.vb +++ b/Flotillas/RepIncidentes.aspx.vb @@ -98,7 +98,7 @@ Partial Class AF_RepIncidentes - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim Filtros As String = $"Filtros: de { txtFechaI.Text} a {txtFechaF.Text}" diff --git a/Flotillas/RepLicencias.aspx.vb b/Flotillas/RepLicencias.aspx.vb index e581d6dfd..9b9ed58fb 100644 --- a/Flotillas/RepLicencias.aspx.vb +++ b/Flotillas/RepLicencias.aspx.vb @@ -106,7 +106,7 @@ Partial Class AF_RepLicencias Private Sub GenerarPDF(Optional Formato As String = "PDF") Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim Filtros As String = $"Filtros: Expedición de { txtFechaI.Text} a {txtFechaF.Text} Vencimiento de { TxtFechaVI.Text} a {TxtFechaVF.Text } " diff --git a/Flotillas/RepPlacas.aspx.vb b/Flotillas/RepPlacas.aspx.vb index 0b41aeaf3..d0bc5980c 100644 --- a/Flotillas/RepPlacas.aspx.vb +++ b/Flotillas/RepPlacas.aspx.vb @@ -85,7 +85,7 @@ Partial Class AF_RepPlacas Private Sub GenerarPDF(Optional Formato As String = "PDF") If DTDatos.Rows.Count > 0 Then Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim StrFiltro As New StringBuilder diff --git a/Flotillas/RepPolizaSeguro.aspx.vb b/Flotillas/RepPolizaSeguro.aspx.vb index f8139fb1b..f129f0efa 100644 --- a/Flotillas/RepPolizaSeguro.aspx.vb +++ b/Flotillas/RepPolizaSeguro.aspx.vb @@ -77,7 +77,7 @@ Partial Class AF_RepPolizaSeguro Private Sub GenerarPDF(Optional Formato As String = "PDF") Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim Filtros As String = $"Filtros: Fecha Expedicion: {txtFechaEI.Text} y {txtFechaEF.Text} Fecha Vencimiento: {txtFechaVI.Text} y {txtFechaVF.Text}" If DdlDispositivo.SelectedValue > 0 Then diff --git a/Flotillas/RepServicios.aspx.vb b/Flotillas/RepServicios.aspx.vb index 4c11ca9b0..8715092b5 100644 --- a/Flotillas/RepServicios.aspx.vb +++ b/Flotillas/RepServicios.aspx.vb @@ -87,7 +87,7 @@ Partial Class AF_RepPlacas If DTDatos.Rows.Count > 0 Then Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim StrFiltro As New StringBuilder diff --git a/GPS/Rastreo.aspx.vb b/GPS/Rastreo.aspx.vb index 2cf43ffaa..7f5155cd0 100644 --- a/GPS/Rastreo.aspx.vb +++ b/GPS/Rastreo.aspx.vb @@ -1688,8 +1688,8 @@ Partial Class GPS_Rastreo ElseIf Opcion = "Speed" Then RutaReporte = "Empresas/Grales/ReportesProgramados/RPVelocidad.rdlc" NombreReporte = "ReporteExcesosVelocidad" - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dtt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.CveCliente).FiltraParametros("CveRol <> 1") Dim nombreCliente As String = "" For Each dr As DataRow In dtt.Rows @@ -1711,11 +1711,7 @@ Partial Class GPS_Rastreo RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString)) RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) RptParametro.Add(New ReportParameter("NombreEmpresa", nombreCliente)) - If Imagen.Exists Then - RptParametro.Add(New ReportParameter("LogoPath", logouri)) - Else - RptParametro.Add(New ReportParameter("LogoPath", "")) - End If + RptParametro.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) For Each row As GridViewRow In GvBarra.Rows Dim DrNew = DtDatos.NewRow() @@ -2002,7 +1998,7 @@ Partial Class GPS_Rastreo worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión" worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy") - 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 'Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'If Imagen.Exists Then ' Dim Ruta As String = String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta) @@ -2066,8 +2062,8 @@ Partial Class GPS_Rastreo Private Sub ImprimirCrystal(NombreReporte As String, Format As String) Dim RptParametro As New List(Of CrystalParametro) - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dtt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.CveCliente).FiltraParametros("CveRol <> 1") Dim nombreCliente As String = "" For Each dr As DataRow In dtt.Rows @@ -2079,11 +2075,7 @@ Partial Class GPS_Rastreo RptParametro.Add(New CrystalParametro("FechaImpresion", DateTime.Now.ToString)) RptParametro.Add(New CrystalParametro("KMRecorridos", $"{DtPosiciones.SUM("KMRecorridos").ToString} KM")) RptParametro.Add(New CrystalParametro("NombreEmpresa", nombreCliente)) - If Imagen.Exists Then - RptParametro.Add(New CrystalParametro("LogoPath", logouri)) - Else - RptParametro.Add(New CrystalParametro("LogoPath", "")) - End If + RptParametro.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim DtDatos As New DataTable() DtDatos.Columns.Add("Vehiculo", GetType(String)) @@ -2250,7 +2242,7 @@ Partial Class GPS_Rastreo worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión" worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") If Imagen.Exists Then Dim Ruta As String = String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta) diff --git a/GPS/RepPuntosDeInteres.aspx.vb b/GPS/RepPuntosDeInteres.aspx.vb index 444cad665..42a706dfc 100644 --- a/GPS/RepPuntosDeInteres.aspx.vb +++ b/GPS/RepPuntosDeInteres.aspx.vb @@ -412,7 +412,7 @@ Partial Class GPS_RepPuntosDeInteres worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión" worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy") - 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 'Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'If Imagen.Exists Then ' Dim Ruta As String = String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta) diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index 6959070c8..00b9403d9 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -864,7 +864,7 @@ public partial class General_RepPaqueteriasGuias : 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)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); List @params = new List(); diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 9f237b107..b4061b542 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -3495,7 +3495,7 @@ Partial Class Inventarios_EntradasSalidas ' Exit Sub 'End If - 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 'Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) 'params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb index 14f842ee0..0848c497a 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx.vb +++ b/Inventarios/InventarioFisicoDetalle.aspx.vb @@ -627,7 +627,7 @@ Partial Class Inventarios_InventarioFisicoDetalle If DtDatos IsNot Nothing Then Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepAnomalias.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index 15256ce87..429cfbbf6 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -461,7 +461,7 @@ Partial Class Inventarios_Kardex If Movimientos.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = Movimientos.DtResultados Dim params As New List(Of ReportParameter) diff --git a/Inventarios/KardexAlmacen.aspx.vb b/Inventarios/KardexAlmacen.aspx.vb index 850163dfa..7992ff344 100644 --- a/Inventarios/KardexAlmacen.aspx.vb +++ b/Inventarios/KardexAlmacen.aspx.vb @@ -175,7 +175,7 @@ Partial Class Inventarios_KardexAlmacen If Movimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = Movimientos.DtResultados Dim params As New List(Of ReportParameter) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index e2441b34f..20274a117 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -4747,7 +4747,7 @@ Partial Class Inventarios_RecepcionAlmacen End If Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Proveedor", Proveedor)) params.Add(New ReportParameter("Compra", Compra)) diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 5358a28b2..a53cb52fe 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -3492,7 +3492,7 @@ Partial Class Inventarios_RecepcionUsados MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", DdlPSAjuste.SelectedValue.ToEntero)) End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}//{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim DtDatos As New DataTable diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb index 5046f5089..441316e2a 100644 --- a/Inventarios/RepAlmacen.aspx.vb +++ b/Inventarios/RepAlmacen.aspx.vb @@ -93,7 +93,7 @@ Partial Class Inventarios_RepAlmacen End Sub Private Sub GenerarPDF(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim StrFiltro As New StringBuilder If TxtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio : {0}", TxtFechaI.Text.ToDate.ToShortDateString) Else StrFiltro.AppendFormat(" Fecha Inicio : Sin Considerar") diff --git a/Inventarios/RepAlmacenCompras.aspx.vb b/Inventarios/RepAlmacenCompras.aspx.vb index afb957c27..1352de49d 100644 --- a/Inventarios/RepAlmacenCompras.aspx.vb +++ b/Inventarios/RepAlmacenCompras.aspx.vb @@ -122,7 +122,7 @@ Partial Class Inventarios_RepAlmacenCompras If TxtFechaFin.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin : {0}", TxtFechaFin.Text.ToDate.ToShortDateString) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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) diff --git a/Inventarios/RepAlmacenPeriodo.aspx.vb b/Inventarios/RepAlmacenPeriodo.aspx.vb index 773c1f5ea..2f92aaa86 100644 --- a/Inventarios/RepAlmacenPeriodo.aspx.vb +++ b/Inventarios/RepAlmacenPeriodo.aspx.vb @@ -122,7 +122,7 @@ Partial Class Inventarios_RepAlmacenPeriodo End Sub Private Sub GenerarPDF() - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim StrFiltro As New StringBuilder If TxtFechaCorte.Text <> "" Then StrFiltro.AppendFormat(" Fecha Corte : {0}", TxtFechaCorte.Text.ToDate.ToShortDateString) diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index 4af3edeb8..0015c0c2a 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/Inventarios/RepAnomalias.aspx.vb @@ -441,7 +441,7 @@ Partial Class Inventarios_RepAnomalias Dim retorno As Byte() = Nothing Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepAnomalias.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) Dim lrds As New List(Of ReportDataSource) Dim Inventario As New ClsInventarios diff --git a/Inventarios/RepApartados.aspx.vb b/Inventarios/RepApartados.aspx.vb index d04a06e2b..25249af50 100644 --- a/Inventarios/RepApartados.aspx.vb +++ b/Inventarios/RepApartados.aspx.vb @@ -221,7 +221,7 @@ Partial Class Inventarios_RepApartados If DdlClientesWS.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Cliente: {0}", DdlClientesWS.SelectedText) If DdlPS.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Producto/Servicio: {0}", DdlPS.SelectedText) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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) diff --git a/Inventarios/RepApartados2.aspx.vb b/Inventarios/RepApartados2.aspx.vb index 8eded3cad..521f152f6 100644 --- a/Inventarios/RepApartados2.aspx.vb +++ b/Inventarios/RepApartados2.aspx.vb @@ -136,7 +136,7 @@ Partial Class Inventarios_RepApartados2 If DdlCliente.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Cliente: {0}", DdlCliente.SelectedItem.Text) If DdlPS.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Producto/Servicio: {0}", DdlPS.SelectedItem.Text) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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) diff --git a/Inventarios/RepConsignaciones.aspx.vb b/Inventarios/RepConsignaciones.aspx.vb index f3b1ed34f..cb323829a 100644 --- a/Inventarios/RepConsignaciones.aspx.vb +++ b/Inventarios/RepConsignaciones.aspx.vb @@ -108,7 +108,7 @@ Partial Class Inventarios_RepConsignaciones If DdlTipoReporte.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Tipo Reporte: {0}", DdlTipoReporte.SelectedItem.Text) If DdlRemisiones.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Cliente: {0}", DdlRemisiones.SelectedItem.Text) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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) diff --git a/Inventarios/RepConsumoInterno.aspx.cs b/Inventarios/RepConsumoInterno.aspx.cs index 0e539c2d9..e81864e3f 100644 --- a/Inventarios/RepConsumoInterno.aspx.cs +++ b/Inventarios/RepConsumoInterno.aspx.cs @@ -186,7 +186,7 @@ public partial class Inventarios_RepConsumoInterno : 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)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); List @params = new List(); diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb index 74057c29e..c60cd06a3 100644 --- a/Inventarios/RepEntradasSalidas.aspx.vb +++ b/Inventarios/RepEntradasSalidas.aspx.vb @@ -404,7 +404,7 @@ Partial Class Inventarios_ReporteEntradasSalidas Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) diff --git a/Inventarios/RepEntradasSalidasXContrato.aspx.cs b/Inventarios/RepEntradasSalidasXContrato.aspx.cs index 11f4330f1..bc4f21260 100644 --- a/Inventarios/RepEntradasSalidasXContrato.aspx.cs +++ b/Inventarios/RepEntradasSalidasXContrato.aspx.cs @@ -192,7 +192,7 @@ public partial class Inventarios_RepEntradasSaliidasContrato : ClsPaginas if (DdlAlmacen.SelectedValue != "-1") { Almacen = $" Cliente: {DdlAlmacen.SelectedItem.Text}"; } else { Almacen = ""; } if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Inventarios/RepEntregasForaneas.aspx.vb b/Inventarios/RepEntregasForaneas.aspx.vb index dd3ccc34e..5e7d46689 100644 --- a/Inventarios/RepEntregasForaneas.aspx.vb +++ b/Inventarios/RepEntregasForaneas.aspx.vb @@ -730,10 +730,10 @@ Partial Class Inventarios_RepEntregasForaneas Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Inventarios/RepExistenciaLote.aspx.vb b/Inventarios/RepExistenciaLote.aspx.vb index 49777bb2e..0af361520 100644 --- a/Inventarios/RepExistenciaLote.aspx.vb +++ b/Inventarios/RepExistenciaLote.aspx.vb @@ -267,7 +267,7 @@ Partial Class Inventarios_RepExistenciaLote Dim NombreArchivoDescarga = "ReporteExistenciaLotes" RutaPDF = "Empresas/Grales/Formatos/RepExistenciaLotes.rdlc" - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Inventarios/RepExistenciasCostos.aspx.vb b/Inventarios/RepExistenciasCostos.aspx.vb index 5c4ed2f77..e1ef05330 100644 --- a/Inventarios/RepExistenciasCostos.aspx.vb +++ b/Inventarios/RepExistenciasCostos.aspx.vb @@ -287,7 +287,7 @@ Partial Class Inventarios_RepExistenciasCostos If DtData IsNot Nothing Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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) diff --git a/Inventarios/RepFletes.aspx.vb b/Inventarios/RepFletes.aspx.vb index c8f4d82b5..ce0c41ebc 100644 --- a/Inventarios/RepFletes.aspx.vb +++ b/Inventarios/RepFletes.aspx.vb @@ -93,7 +93,7 @@ Partial Class Compras_RepFletes params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToString)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) 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)) diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb index 8ceee3915..70d75b6f0 100644 --- a/Inventarios/RepMaximoMinimo.aspx.vb +++ b/Inventarios/RepMaximoMinimo.aspx.vb @@ -275,7 +275,7 @@ Partial Class Inventarios_RepMaximoMinimo If ObjDatos.DtResultados.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = ObjDatos.DtResultados Dim params As New List(Of ReportParameter) @@ -303,7 +303,7 @@ Partial Class Inventarios_RepMaximoMinimo If DTOCDetalle.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = DTOCDetalle Dim params As New List(Of ReportParameter) diff --git a/Inventarios/RepMovimientos.aspx.vb b/Inventarios/RepMovimientos.aspx.vb index d6ce6636e..0057fd229 100644 --- a/Inventarios/RepMovimientos.aspx.vb +++ b/Inventarios/RepMovimientos.aspx.vb @@ -130,7 +130,7 @@ Partial Class RepMovimientosRep If TxtFechaIngFin.Text <> "" Then StrFiltro.AppendFormat(" Fecha Ingreso Fin : {0}", TxtFechaIngFin.Text.ToDate.ToShortDateString) If TxtFolio.Text <> "" Then StrFiltro.AppendFormat(" Folio : {0}", TxtFolio.Text.ToDate.ToShortDateString) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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) diff --git a/Inventarios/RepMovimientosProveedor.aspx.cs b/Inventarios/RepMovimientosProveedor.aspx.cs index 785ce0dd5..77eaf3716 100644 --- a/Inventarios/RepMovimientosProveedor.aspx.cs +++ b/Inventarios/RepMovimientosProveedor.aspx.cs @@ -97,7 +97,7 @@ public partial class Inventarios_RepMovimientosProveedor : ClsPaginas if (DdlProveedor.SelectedValue != "-1") { Proveedor = $" Proveedor: {DdlProveedor.SelectedText}"; } else { Proveedor = ""; } String Concepto; if (DdlConcepto.SelectedValue != "-1") { Concepto = $" Concepto: {DdlConcepto.SelectedItem.Text}"; } else { Concepto = ""; } - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb index 096adffbe..51990788f 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx.vb +++ b/Inventarios/RepNotasSinAlmacen.aspx.vb @@ -212,7 +212,7 @@ Partial Class RepNotasSinAlmacen End Sub Private Sub ImprimirPDFExcel(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) 'OBTENEMOS LOS DATOS diff --git a/Inventarios/RepOcInv.aspx.vb b/Inventarios/RepOcInv.aspx.vb index 201d543fe..de77f4baf 100644 --- a/Inventarios/RepOcInv.aspx.vb +++ b/Inventarios/RepOcInv.aspx.vb @@ -107,7 +107,7 @@ Partial Class Inventarios_RepOcInv If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("Proveedor: {0}", DdlProveedor.SelectedText) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) If TxtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio : {0}", TxtFechaI.Text.ToDate.ToShortDateString) diff --git a/Inventarios/RepOcInvMoto.aspx.vb b/Inventarios/RepOcInvMoto.aspx.vb index e6150b327..ab837417d 100644 --- a/Inventarios/RepOcInvMoto.aspx.vb +++ b/Inventarios/RepOcInvMoto.aspx.vb @@ -88,7 +88,7 @@ Partial Class Inventarios_RepOcInvMoto If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("Proveedor: {0}", DdlProveedor.SelectedItem.Text) If DdlAlmacen.SelectedValue <> "-1" Then StrFiltro.AppendFormat("Almacen: {0}", DdlAlmacen.SelectedItem.Text) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) If TxtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio : {0}", TxtFechaI.Text.ToDate.ToShortDateString) diff --git a/Inventarios/RepProductosPorCaducar.aspx.cs b/Inventarios/RepProductosPorCaducar.aspx.cs index 676a671a5..1ebd8c08a 100644 --- a/Inventarios/RepProductosPorCaducar.aspx.cs +++ b/Inventarios/RepProductosPorCaducar.aspx.cs @@ -183,7 +183,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)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); @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"))); diff --git a/Inventarios/RepRSCO.aspx.vb b/Inventarios/RepRSCO.aspx.vb index ed39a7ec9..879462643 100644 --- a/Inventarios/RepRSCO.aspx.vb +++ b/Inventarios/RepRSCO.aspx.vb @@ -96,7 +96,7 @@ Partial Class Inventarios_RepRSCO Dim ObjTareas As New ClsOIEventos Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim FechaI, FechaF As String diff --git a/Inventarios/RepTraspasoAlmacen.aspx.vb b/Inventarios/RepTraspasoAlmacen.aspx.vb index aca1c649f..34b90424c 100644 --- a/Inventarios/RepTraspasoAlmacen.aspx.vb +++ b/Inventarios/RepTraspasoAlmacen.aspx.vb @@ -148,7 +148,7 @@ Partial Class RepTraspasoAlmacen If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Destino: {0}", DdlAlmacenDestino.SelectedItem.Text) If ChkRecibido.Checked Then StrFiltro.AppendFormat(" Recibidos: Si") Else StrFiltro.AppendFormat(" Recibidos: No") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim FechaI, FechaF As String diff --git a/Inventarios/ReporteMaterial.aspx.vb b/Inventarios/ReporteMaterial.aspx.vb index 6c4e65323..1741632bc 100644 --- a/Inventarios/ReporteMaterial.aspx.vb +++ b/Inventarios/ReporteMaterial.aspx.vb @@ -94,7 +94,7 @@ Partial Class Inventarios_ReporteMaterial - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index 77e07a2a9..6496f1b37 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -794,7 +794,7 @@ Partial Class Inventarios_TrasladoSolicitud Dim CveTraspasoSolicitud As Integer = Request("CveTraspasoSolicitud").ToEntero If ObjInventarios.AddTrasladoSolicitudGet(CveTraspasoSolicitud, UsuarioActual.CveEmpresa) Then If ObjInventarios.DtResultados.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = ObjInventarios.DtResultados diff --git a/OC/ListaRequisicion.aspx.cs b/OC/ListaRequisicion.aspx.cs index 263500a60..36e3fbb8d 100644 --- a/OC/ListaRequisicion.aspx.cs +++ b/OC/ListaRequisicion.aspx.cs @@ -111,7 +111,7 @@ public partial class OC_ListaRequisicion : 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)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); List @params = new List(); diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index 2656c72b5..c3ed79e0f 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -497,7 +497,7 @@ Partial Class RepOC End Sub Private Sub ImprimePorAtender(Optional Formato As String = "PDF") Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepOCPorAtender.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim Folio As String = If(txtFolio.Text = "", "", $" Folio: {txtFolio.Text}") diff --git a/OC/RepOCGuias.aspx.vb b/OC/RepOCGuias.aspx.vb index 65a305090..4e89ddf94 100644 --- a/OC/RepOCGuias.aspx.vb +++ b/OC/RepOCGuias.aspx.vb @@ -130,7 +130,7 @@ Partial Class OC_RepOCGuias Dim ObjTareas As New ClsOIEventos Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) 'Dim Filtros As String = "Filtros: " diff --git a/OC/RepReqXOC.aspx.vb b/OC/RepReqXOC.aspx.vb index 87d027760..3f76d8e00 100644 --- a/OC/RepReqXOC.aspx.vb +++ b/OC/RepReqXOC.aspx.vb @@ -128,7 +128,7 @@ Partial Class RepReqXOC - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) 'Dim Filtros As String = "Filtros: " diff --git a/OC/RepRequisiciones.aspx.vb b/OC/RepRequisiciones.aspx.vb index c2bae7a24..7db46c460 100644 --- a/OC/RepRequisiciones.aspx.vb +++ b/OC/RepRequisiciones.aspx.vb @@ -155,7 +155,7 @@ Partial Class OC_RepRequisiciones Dim FI As Date = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.Trim.ToDate) Dim FF As Date = If(txtFechaF.Text.Trim = "", MaxFecha, txtFechaF.Text.Trim.ToDate) If ObjOrdenesCompra.GetOrdenesCompraRep("REQ", DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = ObjOrdenesCompra.DtResultados Dim params As New List(Of ReportParameter) diff --git a/OC/RepSolicitudesAnticipo.aspx.cs b/OC/RepSolicitudesAnticipo.aspx.cs index 3a8715a01..ec535ef27 100644 --- a/OC/RepSolicitudesAnticipo.aspx.cs +++ b/OC/RepSolicitudesAnticipo.aspx.cs @@ -232,7 +232,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/OI/Circular.aspx.vb b/OI/Circular.aspx.vb index b32c1154a..63b26eecf 100644 --- a/OI/Circular.aspx.vb +++ b/OI/Circular.aspx.vb @@ -47,7 +47,7 @@ Partial Class OI_Circular End Sub Protected Sub LnkPDF_Click() Handles LnkPDF.Click - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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) diff --git a/OI/DocumentoDetalle.aspx.cs b/OI/DocumentoDetalle.aspx.cs index 027218fbe..c24e28bda 100644 --- a/OI/DocumentoDetalle.aspx.cs +++ b/OI/DocumentoDetalle.aspx.cs @@ -879,7 +879,7 @@ public partial class OI_DocumentoDetalle : 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)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string LogoRuta = (Imagen.Exists) ? logouri : "" ; Params.Add(new ReportParameter("LogoPath", LogoRuta)); diff --git a/OI/RepSoporteADS.aspx.vb b/OI/RepSoporteADS.aspx.vb index ee36a8828..1894a8fd9 100644 --- a/OI/RepSoporteADS.aspx.vb +++ b/OI/RepSoporteADS.aspx.vb @@ -221,7 +221,7 @@ Partial Class OI_RepSoporteADS - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim FechaI, FechaF As String diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index dee2323e4..358ff51b9 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -366,7 +366,7 @@ Partial Class OS_Asignaciones End If End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") If Not RutaReporte.Exists Then @@ -480,7 +480,7 @@ Partial Class OS_Asignaciones #Region "IMPRIMIR PDF" Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = TmpDT diff --git a/OS/RepServicioDomicilio.aspx.vb b/OS/RepServicioDomicilio.aspx.vb index 960fae594..cad20304b 100644 --- a/OS/RepServicioDomicilio.aspx.vb +++ b/OS/RepServicioDomicilio.aspx.vb @@ -690,7 +690,7 @@ Partial Class OS_RepServicioDomicilio End If End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") If Not RutaReporte.Exists Then diff --git a/Portal/ConsultaCliente.aspx.vb b/Portal/ConsultaCliente.aspx.vb index ae831ee60..45b066750 100644 --- a/Portal/ConsultaCliente.aspx.vb +++ b/Portal/ConsultaCliente.aspx.vb @@ -890,7 +890,7 @@ Partial Class Ventas_ConsultaCliente Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs) ' Dim retorno As Byte() = Nothing - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -933,7 +933,7 @@ Partial Class Ventas_ConsultaCliente ' Protected Function ImprimirReporteHistorial() As Byte() ' Dim retorno As Byte() = Nothing - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim ObjClientes As New ClsClientes() @@ -975,7 +975,7 @@ Partial Class Ventas_ConsultaCliente '#Region "IMPRIMIR CxC Activas" Protected Sub LbExcelCxCActivas_Click(sender As Object, e As EventArgs) ' Dim retorno As Byte() = Nothing - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -1011,7 +1011,7 @@ Partial Class Ventas_ConsultaCliente ' Protected Function ImprimirReporteCxCActivas() As Byte() ' Dim retorno As Byte() = Nothing - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim ObjMovtos As New ClsMovimientos() @@ -1045,7 +1045,7 @@ Partial Class Ventas_ConsultaCliente Protected Sub LbExcelCxCHistorial_Click(sender As Object, e As EventArgs) ' Dim retorno As Byte() = Nothing - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -1081,7 +1081,7 @@ Partial Class Ventas_ConsultaCliente ' Protected Function ImprimirReporteCxCHistorial() As Byte() ' Dim retorno As Byte() = Nothing - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim ObjMovtos As New ClsMovimientos() diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb index 21ec86d2d..d1922cd9e 100644 --- a/PortalCliente/PortalCliente.aspx.vb +++ b/PortalCliente/PortalCliente.aspx.vb @@ -2307,7 +2307,7 @@ Partial Class Ventas_PortalCliente Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs) Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -2350,7 +2350,7 @@ Partial Class Ventas_PortalCliente Protected Function ImprimirReporteHistorial() As Byte() Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim ObjClientes As New ClsClientes() @@ -2388,7 +2388,7 @@ Partial Class Ventas_PortalCliente #Region "IMPRIMIR CxC Activas" Protected Sub LbExcelCxCActivas_Click(sender As Object, e As EventArgs) Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -2421,7 +2421,7 @@ Partial Class Ventas_PortalCliente Protected Function ImprimirReporteCxCActivas() As Byte() Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim ObjMovtos As New ClsMovimientos() @@ -2451,7 +2451,7 @@ Partial Class Ventas_PortalCliente Protected Sub LbExcelCxCHistorial_Click(sender As Object, e As EventArgs) Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -2484,7 +2484,7 @@ Partial Class Ventas_PortalCliente Protected Function ImprimirReporteCxCHistorial() As Byte() Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim ObjMovtos As New ClsMovimientos() diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb index aa76416b2..6329d75bf 100644 --- a/PortalProveedor/PortalProveedor.aspx.vb +++ b/PortalProveedor/PortalProveedor.aspx.vb @@ -976,7 +976,7 @@ Partial Class Portal_PortalProveedor Private Function ImprimirReporteGvBancosCuentas(Optional Formato As String = "PDF") As Byte() Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") @@ -1021,7 +1021,7 @@ Partial Class Portal_PortalProveedor Private Function ImprimeReporteGvBancos(Optional Formato As String = "PDF") As Byte() Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") @@ -1084,7 +1084,7 @@ Partial Class Portal_PortalProveedor Private Function ImprimeReporteNTPorAplicar(Optional Formato As String = "PDF") As Byte() Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") @@ -1129,7 +1129,7 @@ Partial Class Portal_PortalProveedor Private Function ImprimeReporteNTPorHistorial(Optional Formato As String = "PDF") As Byte() Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") @@ -1188,7 +1188,7 @@ Partial Class Portal_PortalProveedor Protected Function ImprimirReporteVentas(Optional Formato As String = "PDF") As Byte() Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") @@ -1248,7 +1248,7 @@ Partial Class Portal_PortalProveedor Protected Function ImprimirReporteCxPPagadas(Optional Formato As String = "PDF") As Byte() Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") @@ -1312,7 +1312,7 @@ Partial Class Portal_PortalProveedor Protected Function ImprimirReporteCxCHistorial(Optional Formato As String = "PDF") As Byte() Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") diff --git a/Proveedores/PortalProveedor.aspx.vb b/Proveedores/PortalProveedor.aspx.vb index 4630c9911..b71dea89d 100644 --- a/Proveedores/PortalProveedor.aspx.vb +++ b/Proveedores/PortalProveedor.aspx.vb @@ -787,7 +787,7 @@ Partial Class Portal_PortalProveedor 'Private Function ImprimirReporteGvBancosCuentas(Optional Formato As String = "PDF") As Byte() ' Dim retorno As Byte() = Nothing - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") @@ -836,7 +836,7 @@ Partial Class Portal_PortalProveedor 'Private Function ImprimeReporteGvBancos(Optional Formato As String = "PDF") As Byte() ' Dim retorno As Byte() = Nothing - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") @@ -902,7 +902,7 @@ Partial Class Portal_PortalProveedor 'Private Function ImprimeReporteNTPorAplicar(Optional Formato As String = "PDF") As Byte() ' Dim retorno As Byte() = Nothing - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") @@ -951,7 +951,7 @@ Partial Class Portal_PortalProveedor 'Private Function ImprimeReporteNTPorHistorial(Optional Formato As String = "PDF") As Byte() ' Dim retorno As Byte() = Nothing - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") @@ -1014,43 +1014,29 @@ Partial Class Portal_PortalProveedor 'Protected Function ImprimirReporteVentas(Optional Formato As String = "PDF") As Byte() ' Dim retorno As Byte() = Nothing - ' 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") + ' 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim LogoADSistemasUri As String = String.Format("{0}://{1}:{2}/Imagenes/LogoSinFondochico.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port) - - - + ' ' Dim ObjProveedores As New ClsCompProveedores() ' 'OBTENEMOS LOS DATOS - + ' ' Dim DTCxCHistorial As DataTable ' If ObjProveedores.GetHistorialCompras(CveProveedor, -1) Then ' DTCxCHistorial = ObjProveedores.DtResultados ' Else ' DTCxCHistorial = Nothing ' End If - + ' ' If DTCxCHistorial.Rows.Count > 0 Then ' Dim dr As DataRow = DTCxCHistorial.Rows(0) ' Dim params As New List(Of ReportParameter) ' params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) ' params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion)) ' params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) - - ' If ImagenADSistemas.Exists Then - ' params.Add(New ReportParameter("LogoPathADS", LogoADSistemasUri)) - ' Else - ' params.Add(New ReportParameter("LogoPathADS", "")) - ' End If - - ' If Imagen.Exists Then - ' params.Add(New ReportParameter("LogoPath", logouri)) - ' Else - ' params.Add(New ReportParameter("LogoPath", "")) - ' End If - + ' params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + ' params.Add(New ReportParameter("LogoPathADS", If(ImagenADSistemas.Exists, $"file://{ImagenADSistemas.FullName}", ""))) ' retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorHistorial.rdlc", DTCxCHistorial, params, "Reporte de Ventas", Formato) ' Else ' Alert("Ocurrió un error.", TipoMensaje.MsgAdvertencia) @@ -1078,7 +1064,7 @@ Partial Class Portal_PortalProveedor 'Protected Function ImprimirReporteCxPPagadas(Optional Formato As String = "PDF") As Byte() ' Dim retorno As Byte() = Nothing - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") @@ -1146,7 +1132,7 @@ Partial Class Portal_PortalProveedor 'Protected Function ImprimirReporteCxCHistorial(Optional Formato As String = "PDF") As Byte() ' Dim retorno As Byte() = Nothing - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png") diff --git a/RH/CatCursos.aspx.vb b/RH/CatCursos.aspx.vb index 7acc8ee09..68369b641 100644 --- a/RH/CatCursos.aspx.vb +++ b/RH/CatCursos.aspx.vb @@ -324,7 +324,7 @@ Partial Class RH_CatCursos If DatosAsistencia.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) Dim Archivo As String = $"{UsuarioActual.Empresa.Ruta}Formatos/CursosInvitados.rdlc" diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 07e7f288f..bd9b83708 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -678,7 +678,7 @@ Partial Class RH_CatPersonal - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) diff --git a/RH/MiPerfil.aspx.vb b/RH/MiPerfil.aspx.vb index e698be95a..a4715bbc4 100644 --- a/RH/MiPerfil.aspx.vb +++ b/RH/MiPerfil.aspx.vb @@ -651,21 +651,15 @@ Partial Class RH_MiPerfil If RBLTipoGastos.SelectedValue = "1" Then If DTGastosSinComp.Rows.Count > 0 Then + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + '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("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString)) params.Add(New ReportParameter("Saldo", LblSaldoGxC.Text.ToString)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - - 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("pImg", logouri)) - Else - params.Add(New ReportParameter("pImg", "")) - End If + params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarGral.rdlc", DTGastosSinComp, params, "GastosSinComprobarGral", Formato) Else @@ -688,20 +682,15 @@ Partial Class RH_MiPerfil Row("SerieFolio") = "" End If Next + + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + '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("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - - 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("pImg", logouri)) - Else - params.Add(New ReportParameter("pImg", "")) - End If + params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarCheque.rdlc", DTGastosPorCheque, params, "GastosPorCheque", Formato) Else @@ -1755,7 +1744,7 @@ end_of_for: params.Add(New ReportParameter("TotalADepositar", If(ObjBancos.DtResultados.FiltroPrimeroValor("TotalADepositar").ToDouble() > 0, ObjBancos.DtResultados.FiltroPrimeroValor("TotalADepositar"), "0").ToString())) 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") If (Imagen.Exists) Then diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 866c64367..b46772b37 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -3736,7 +3736,7 @@ Partial Class RH_Personal params.Add(New ReportParameter("LogoUri", "")) End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) @@ -3834,7 +3834,7 @@ Partial Class RH_Personal params.Add(New ReportParameter("LogoUri", "")) End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) @@ -3886,21 +3886,15 @@ Partial Class RH_Personal If RBLTipoGastos.SelectedValue = "1" Then If DTGastosSinComp.Rows.Count > 0 Then + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + '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("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString())) params.Add(New ReportParameter("Saldo", LblSaldoGxC.Text.ToString())) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - - 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("pImg", logouri)) - Else - params.Add(New ReportParameter("pImg", "")) - End If + params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarGral.rdlc", DTGastosSinComp, params, "GastosSinComprobarGral", Formato) Else @@ -3924,19 +3918,14 @@ Partial Class RH_Personal End If Next + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + '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("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString())) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - - 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("pImg", logouri)) - Else - params.Add(New ReportParameter("pImg", "")) - End If + params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarCheque.rdlc", DTGastosPorCheque, params, "GastosPorCheque", Formato) Else @@ -6026,7 +6015,7 @@ Partial Class RH_Personal 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 New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter)() params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -6389,7 +6378,7 @@ Partial Class RH_Personal Dim ObjAF As New ClsAF Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\RepResguardosAF.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dtVC As DataTable = Nothing diff --git a/RH/RepIndiceRotacionPersonal.aspx.vb b/RH/RepIndiceRotacionPersonal.aspx.vb index d45b536c4..950bf76b8 100644 --- a/RH/RepIndiceRotacionPersonal.aspx.vb +++ b/RH/RepIndiceRotacionPersonal.aspx.vb @@ -157,7 +157,7 @@ Partial Class Ventas_RepIndiceRotacionPersonal '"Empresas/Grales/Formatos/ClienteHistorial.rdlc" If GVRegDatos.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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) diff --git a/RH/RepPersonalInconsistencias.aspx.vb b/RH/RepPersonalInconsistencias.aspx.vb index 1d2ece3cd..96df411ef 100644 --- a/RH/RepPersonalInconsistencias.aspx.vb +++ b/RH/RepPersonalInconsistencias.aspx.vb @@ -245,7 +245,7 @@ Partial Class RH_RepPersonalInconsistencias Dim StrFiltro As New StringBuilder ' StrFiltro.AppendFormat("Agrupado por: {0}", DdlGrupo.SelectedItem.Text) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) If txtFechaI.Text <> "" And rdlc = "RepPersonalInconsistenciasCU.rdlc" Then StrFiltro.AppendFormat(" Fecha Inicio: {0}", txtFechaI.Text) diff --git a/RH/RepUniformes.aspx.vb b/RH/RepUniformes.aspx.vb index ca6a93925..95f9d9283 100644 --- a/RH/RepUniformes.aspx.vb +++ b/RH/RepUniformes.aspx.vb @@ -87,7 +87,7 @@ Partial Class RH_RepUniformes - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim Filtros As String = "Filtros: " diff --git a/RH/RepUniformesResguardo.aspx.vb b/RH/RepUniformesResguardo.aspx.vb index eac48a5cb..f2d8f10c5 100644 --- a/RH/RepUniformesResguardo.aspx.vb +++ b/RH/RepUniformesResguardo.aspx.vb @@ -119,7 +119,7 @@ Partial Class RH_RepUniformesResguardo - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim Filtros As String = "Filtros: " diff --git a/RH/SolicitudViaticos.aspx.cs b/RH/SolicitudViaticos.aspx.cs index 395c7f591..912959049 100644 --- a/RH/SolicitudViaticos.aspx.cs +++ b/RH/SolicitudViaticos.aspx.cs @@ -711,7 +711,7 @@ public partial class RH_SolicitudViaticos : ClsPaginas @params.Add(new ReportParameter("TotalADepositar", (ObjBancos.DtResultados.FiltroPrimeroValor("TotalADepositar").ToDouble() > 0 ? ObjBancos.DtResultados.FiltroPrimeroValor("TotalADepositar") : "0").ToString())); 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)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); if (Imagen.Exists) { diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index bfbb516d9..10c2f7692 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -4981,7 +4981,7 @@ Partial Class Sistemas_UsuarioDetalle If TxtFechaFBitacora.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin : {0}", TxtFechaFBitacora.Text.ToDate.ToShortDateString) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim FechaI, FechaF As String FechaI = TxtFechaIBitacora.Text diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index efa8e8b92..13a5a883a 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -767,7 +767,7 @@ Partial Class Ventas_ActualizarPrecios worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión" worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") If Imagen.Exists Then Dim Ruta As String = String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta) diff --git a/Ventas/CatClientes.aspx.vb b/Ventas/CatClientes.aspx.vb index 84a4f7bef..2cb8f2b19 100644 --- a/Ventas/CatClientes.aspx.vb +++ b/Ventas/CatClientes.aspx.vb @@ -175,7 +175,7 @@ Partial Class CatClientes #Region "P D F" Private Sub LinkPdf_Click(sender As Object, e As EventArgs) Handles LinkPdf.Click - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) 'OBTENEMOS LOS DATOS diff --git a/Ventas/CatPS.aspx.vb b/Ventas/CatPS.aspx.vb index 1663db614..279731048 100644 --- a/Ventas/CatPS.aspx.vb +++ b/Ventas/CatPS.aspx.vb @@ -248,19 +248,14 @@ Partial Class CatPS End Sub Private Sub ImprimirReporte(Optional Formato As String = "PDF") Dim Archivo As New System.IO.FileInfo(String.Format("{0}Empresas/Grales/Formatos/CatPS.rpt", UsuarioActual.Empresa.Ruta)) - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim lista = New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Usuario)) - lista.Add(New CrystalParametro("AplicaVenta", AplicaVenta.ToString)) - - If Imagen.Exists Then - lista.Add(New CrystalParametro("LogoPath", logouri)) - Else - lista.Add(New CrystalParametro("LogoPath", "")) - End If + lista.Add(New CrystalParametro("AplicaVenta", AplicaVenta.ToString)) + lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/CatPS.rpt"), DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 259bcad27..0dbc2e8f0 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -4068,10 +4068,10 @@ Partial Class Clientes Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF") Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.rpt", UsuarioActual.Empresa.Ruta)) - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + 'OBTENEMOS LOS DATOS - Dim DtCxCFact As DataTable = Nothing Dim FI = If(TxtFechaInicioCxP.Text = "" Or TxtFechaInicioCxP.Text = "__/__/____", "-1", TxtFechaInicioCxP.Text) @@ -4229,12 +4229,7 @@ Partial Class Clientes lista.Add(New CrystalParametro("TotalAnt", TotalAnt.FormatoNumero())) lista.Add(New CrystalParametro("ContaIng", ContaIng)) lista.Add(New CrystalParametro("ContaAnt", ContaAnt)) - - If Imagen.Exists Then - lista.Add(New CrystalParametro("LogoPath", logouri)) - Else - lista.Add(New CrystalParametro("LogoPath", "")) - End If + lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If ChkCobranzaEnviarCorreo.Checked Then Try @@ -4312,12 +4307,7 @@ Partial Class Clientes lista.Add(New CrystalParametro("TotalAnt", TotalAnt.FormatoNumero())) lista.Add(New CrystalParametro("ContaIng", ContaIng)) lista.Add(New CrystalParametro("ContaAnt", ContaAnt)) - - If Imagen.Exists Then - lista.Add(New CrystalParametro("LogoPath", logouri)) - Else - lista.Add(New CrystalParametro("LogoPath", "")) - End If + lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim drr As DataRow = DtCxCFact2.NewRow drr("SerieFolio") = "Total Ing Pesos" @@ -6356,7 +6346,7 @@ Partial Class Clientes Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs) Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -6397,7 +6387,7 @@ Partial Class Clientes Protected Function ImprimirReporteHistorial() As Byte() Dim retorno As Byte() = Nothing - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim ObjClientes As New ClsClientes() @@ -6783,7 +6773,7 @@ Partial Class Clientes Private Sub GenerarPDF(Optional Formato As String = "PDF") Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) @@ -9865,7 +9855,7 @@ Partial Class Clientes If DtTemp IsNot Nothing And DtTemp.Rows.Count > 0 Then Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb index 0de012dbb..7946692a5 100644 --- a/Ventas/MetasVendedores.aspx.vb +++ b/Ventas/MetasVendedores.aspx.vb @@ -102,16 +102,12 @@ Partial Class MetasVendedores End Sub Protected Sub LnkPDF_RowDataBound(sender As Object, e As EventArgs) Handles LnkPDF.Click - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + '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("pEmp", UsuarioActual.Empresa.Empresa)) - If Imagen.Exists Then - params.Add(New ReportParameter("pImg", logouri)) - 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)) @@ -122,7 +118,7 @@ Partial Class MetasVendedores Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) diff --git a/Ventas/MetasVendedoresDetalle.aspx.vb b/Ventas/MetasVendedoresDetalle.aspx.vb index a886e823e..40fca8ea2 100644 --- a/Ventas/MetasVendedoresDetalle.aspx.vb +++ b/Ventas/MetasVendedoresDetalle.aspx.vb @@ -73,16 +73,12 @@ Partial Class MetasVendedoresDetalle 'Protected Sub LnkPDF_RowDataBound(sender As Object, e As EventArgs) Handles LnkPDF.Click - ' 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + ' '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("pEmp", UsuarioActual.Empresa.Empresa)) - ' If Imagen.Exists Then - ' params.Add(New ReportParameter("pImg", logouri)) - ' 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)) @@ -92,16 +88,12 @@ Partial Class MetasVendedoresDetalle 'End Sub 'Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click - ' 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + ' '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("pEmp", UsuarioActual.Empresa.Empresa)) - ' If Imagen.Exists Then - ' params.Add(New ReportParameter("pImg", logouri)) - ' 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/PV.aspx.vb b/Ventas/PV.aspx.vb index 54adb34a0..b1ed5301f 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -8194,7 +8194,7 @@ Partial Class PV ' MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", DdlPSAjuste.SelectedValue.ToEntero)) 'End If - 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 'Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) 'Dim DtDatos As New DataTable diff --git a/Ventas/RepAnticipo-NC-IXC.aspx.cs b/Ventas/RepAnticipo-NC-IXC.aspx.cs index bfe564237..2725224ba 100644 --- a/Ventas/RepAnticipo-NC-IXC.aspx.cs +++ b/Ventas/RepAnticipo-NC-IXC.aspx.cs @@ -140,7 +140,7 @@ public partial class Ventas_RepAnticipo_NC_IXC : ClsPaginas if (DdlCliente.SelectedValue != "-1") { Cliente = $" Cliente: {DdlCliente.SelectedText}"; } else { Cliente = ""; } if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs index 5a3f2e70c..baf38dc5a 100644 --- a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs +++ b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs @@ -183,7 +183,7 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas if (DdlTipo.SelectedValue != "-1") { Tipo2 = $" Tipo: {DdlTipo.SelectedItem.Text}"; } else { Tipo2 = ""; } if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Ventas/RepAuxiliarFacturas.aspx.vb b/Ventas/RepAuxiliarFacturas.aspx.vb index 6af377e2d..c0ba40b95 100644 --- a/Ventas/RepAuxiliarFacturas.aspx.vb +++ b/Ventas/RepAuxiliarFacturas.aspx.vb @@ -277,7 +277,7 @@ Partial Class Ventas_RepAuxiliarFacturas If DtVentas IsNot Nothing AndAlso DtVentas.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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)) diff --git a/Ventas/RepComisionesJAM.aspx.cs b/Ventas/RepComisionesJAM.aspx.cs index f40c9d27d..079d7a0a6 100644 --- a/Ventas/RepComisionesJAM.aspx.cs +++ b/Ventas/RepComisionesJAM.aspx.cs @@ -314,7 +314,7 @@ public partial class Ventas_RepComisionesJAM : ClsPaginas private void GenerarPDFCrystal(string Formato = "PDF") { - System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); var logouri = string.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); diff --git a/Ventas/RepCostoPromedioVenta.aspx.cs b/Ventas/RepCostoPromedioVenta.aspx.cs index aac0083fb..3c4e081ea 100644 --- a/Ventas/RepCostoPromedioVenta.aspx.cs +++ b/Ventas/RepCostoPromedioVenta.aspx.cs @@ -89,7 +89,7 @@ public partial class Ventas_RepCostoPromedioVenta : ClsPaginas if (DdlProveedor.SelectedValue != "-1") { Proveedor = $" Proveedor: {DdlProveedor.SelectedText}"; } else { Proveedor = ""; } String SubProyecto; if (DdlSubProyecto.SelectedValue != "-1") { SubProyecto = $" SubProyecto: {DdlSubProyecto.SelectedItem.Text}"; } else { SubProyecto = ""; } - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Ventas/RepCotizaciones.aspx.vb b/Ventas/RepCotizaciones.aspx.vb index 51df290ca..c8b834483 100644 --- a/Ventas/RepCotizaciones.aspx.vb +++ b/Ventas/RepCotizaciones.aspx.vb @@ -123,7 +123,7 @@ Partial Class RepRemisiones If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio : {0}", txtFechaI.Text.ToDate.ToShortDateString) If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin : {0}", txtFechaF.Text.ToDate.ToShortDateString) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim FechaI, FechaF As String diff --git a/Ventas/RepCotizacionesDetalle.aspx.vb b/Ventas/RepCotizacionesDetalle.aspx.vb index 7b6834c5e..0ee292ff3 100644 --- a/Ventas/RepCotizacionesDetalle.aspx.vb +++ b/Ventas/RepCotizacionesDetalle.aspx.vb @@ -86,7 +86,7 @@ Partial Class RepRemisionesDetalle Dim StrFiltro As New StringBuilder - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim FechaI = "", FechaF = "" diff --git a/Ventas/RepCotizacionesxFacturar.aspx.vb b/Ventas/RepCotizacionesxFacturar.aspx.vb index 81a5e723d..cbc10e2fd 100644 --- a/Ventas/RepCotizacionesxFacturar.aspx.vb +++ b/Ventas/RepCotizacionesxFacturar.aspx.vb @@ -161,7 +161,7 @@ Partial Class RepCotizacionesxFacturar ' If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio : {0}", txtFechaI.Text.ToDate.ToShortDateString) ' If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin : {0}", txtFechaF.Text.ToDate.ToShortDateString) - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim FechaI, FechaF As String diff --git a/Ventas/RepNCxAplicar.aspx.cs b/Ventas/RepNCxAplicar.aspx.cs index 80e59ad94..81c7c8dcd 100644 --- a/Ventas/RepNCxAplicar.aspx.cs +++ b/Ventas/RepNCxAplicar.aspx.cs @@ -118,7 +118,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas { List @params = new List(); - System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); var logouri = string.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); string Sucursal = (DdlSucursal.SelectedValue == "-1" ? "" : $"Sucursal: {DdlSucursal.SelectedItem.Text}"); diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb index 0bf18eea6..12f7fcf4f 100644 --- a/Ventas/RepPS.aspx.vb +++ b/Ventas/RepPS.aspx.vb @@ -210,7 +210,7 @@ Partial Class Ventas_RepPS SbParametros.AppendFormat("Sucursal:{0}", DdlSubProyecto.SelectedItem.Text) SbParametros.AppendFormat(", Orden:{0}", DdlGrupo.SelectedItem.Text) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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)) diff --git a/Ventas/RepPUESinPago.aspx.vb b/Ventas/RepPUESinPago.aspx.vb index e51daab50..2a4b822b6 100644 --- a/Ventas/RepPUESinPago.aspx.vb +++ b/Ventas/RepPUESinPago.aspx.vb @@ -84,7 +84,7 @@ Partial Class Ventas_RepPUESinPago Private Sub GeneraImpresion(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim FI As String = If(TxtFechaI.Text = "", "", $" Fecha Inicio: {TxtFechaI.Text}") diff --git a/Ventas/RepPedidos2.aspx.cs b/Ventas/RepPedidos2.aspx.cs index a44cc43f2..b66bc3f7c 100644 --- a/Ventas/RepPedidos2.aspx.cs +++ b/Ventas/RepPedidos2.aspx.cs @@ -55,7 +55,7 @@ public partial class Ventas_RepPedidos2 : ClsPaginas if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Ventas/RepPedidos2Detalle.aspx.cs b/Ventas/RepPedidos2Detalle.aspx.cs index 1625d4901..6dc91dcee 100644 --- a/Ventas/RepPedidos2Detalle.aspx.cs +++ b/Ventas/RepPedidos2Detalle.aspx.cs @@ -71,7 +71,7 @@ public partial class Ventas_RepPedidos2Detalle : ClsPaginas if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index f57a14540..124777f61 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -560,7 +560,7 @@ Partial Class Ventas_RepProductosServicios If DtVentas IsNot Nothing AndAlso DtVentas.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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)) diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb index 580ed9518..7a3e8be79 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx.vb +++ b/Ventas/RepProductosServiciosDetalle.aspx.vb @@ -778,7 +778,7 @@ Partial Class Ventas_RepProductosServiciosDetalle FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") If TmpDT.Rows.Count > 0 Then Dim params As New List(Of ReportParameter) diff --git a/Ventas/RepProductosServiciosPeriodo.aspx.cs b/Ventas/RepProductosServiciosPeriodo.aspx.cs index 4cc6b18e7..142d634b7 100644 --- a/Ventas/RepProductosServiciosPeriodo.aspx.cs +++ b/Ventas/RepProductosServiciosPeriodo.aspx.cs @@ -496,7 +496,7 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas if (DdlTipoComprobante.SelectedValue != "-1") { StrFiltro.AppendFormat(" Tipo Documento: {0}", DdlTipoComprobante.SelectedItem.Text); } if (txtFechaI.Text != "") { StrFiltro.AppendFormat(" Fecha Inicio : {0}", txtFechaI.Text.ToDate().ToShortDateString()); } if (txtFechaF.Text != "") { StrFiltro.AppendFormat(" Fecha Fin : {0}", txtFechaF.Text.ToDate().ToShortDateString()); } - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); DataTable dt = DtVentas.FiltraParametros("", "Orden"); string FechaI, FechaF; diff --git a/Ventas/RepRecuperacion.aspx.vb b/Ventas/RepRecuperacion.aspx.vb index 4a71ddf03..8eb1e5fc5 100644 --- a/Ventas/RepRecuperacion.aspx.vb +++ b/Ventas/RepRecuperacion.aspx.vb @@ -254,7 +254,7 @@ Partial Class Ventas_RepRecuperacion RutaPDF = "Empresas/Grales/Formatos/RepRecuperacion.rdlc" End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Ventas/RepRecuperacionDetalle.aspx.vb b/Ventas/RepRecuperacionDetalle.aspx.vb index 5608c62da..8ed4521e2 100644 --- a/Ventas/RepRecuperacionDetalle.aspx.vb +++ b/Ventas/RepRecuperacionDetalle.aspx.vb @@ -351,7 +351,7 @@ Partial Class Ventas_RepRecuperacionDetalle RutaPDF = "Empresas/Grales/Formatos/RepRecuperacionDetalle.rdlc" End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Ventas/RepRecuperacionPeriodo.aspx.cs b/Ventas/RepRecuperacionPeriodo.aspx.cs index 8a4d83bb1..df8036b6d 100644 --- a/Ventas/RepRecuperacionPeriodo.aspx.cs +++ b/Ventas/RepRecuperacionPeriodo.aspx.cs @@ -110,7 +110,7 @@ public partial class Ventas_RepRecuperacionPeriodo : ClsPaginas if (DtDatos.Rows.Count > 0) { - System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); diff --git a/Ventas/RepRemisiones.aspx.vb b/Ventas/RepRemisiones.aspx.vb index a1add4f66..9e067f059 100644 --- a/Ventas/RepRemisiones.aspx.vb +++ b/Ventas/RepRemisiones.aspx.vb @@ -209,7 +209,7 @@ Partial Class RepRemisiones If DdlVendedor.GetSelectedText <> "" Then StrFiltro.AppendFormat(" Vendedor: {0}", DdlVendedor.GetSelectedText) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim FechaI, FechaF As String FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text) diff --git a/Ventas/RepRemisiones2.aspx.vb b/Ventas/RepRemisiones2.aspx.vb index 28a3dbe62..75e6464d5 100644 --- a/Ventas/RepRemisiones2.aspx.vb +++ b/Ventas/RepRemisiones2.aspx.vb @@ -130,7 +130,7 @@ Partial Class RepRemisiones If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio : {0}", txtFechaI.Text.ToDate.ToShortDateString) If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin : {0}", txtFechaF.Text.ToDate.ToShortDateString) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim FechaI, FechaF As String diff --git a/Ventas/RepRemisionesDetalle.aspx.vb b/Ventas/RepRemisionesDetalle.aspx.vb index 05e4ed988..debd8c0c4 100644 --- a/Ventas/RepRemisionesDetalle.aspx.vb +++ b/Ventas/RepRemisionesDetalle.aspx.vb @@ -239,7 +239,7 @@ Partial Class RepRemisionesDetalle If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin : {0}", txtFechaF.Text.ToDate.ToShortDateString) If TxtFechaVencimiento.Text <> "" Then StrFiltro.AppendFormat(" Fecha Vencimiento al: {0}", txtFechaI.Text.ToDate.ToShortDateString) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim FechaI = "", FechaF = "" diff --git a/Ventas/RepRemisionesNC.aspx.vb b/Ventas/RepRemisionesNC.aspx.vb index 315959006..8b611b83a 100644 --- a/Ventas/RepRemisionesNC.aspx.vb +++ b/Ventas/RepRemisionesNC.aspx.vb @@ -153,7 +153,7 @@ Partial Class RepRemisionesNC ' If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio : {0}", txtFechaI.Text.ToDate.ToShortDateString) ' If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin : {0}", txtFechaF.Text.ToDate.ToShortDateString) - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim FechaI, FechaF As String diff --git a/Ventas/RepTopClientesVentas.aspx.vb b/Ventas/RepTopClientesVentas.aspx.vb index c2f37c1ef..bdedff6f0 100644 --- a/Ventas/RepTopClientesVentas.aspx.vb +++ b/Ventas/RepTopClientesVentas.aspx.vb @@ -77,19 +77,15 @@ Partial Class Ventas_RepTopClientesVentas End Sub Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + '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("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString)) + params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - 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("pImg", logouri)) - Else - params.Add(New ReportParameter("pImg", "")) - End If ImprimirPDF("Empresas/Grales/Formatos/TopClientes.rdlc", DtClientes, params, String.Format("ReporteVentas-{0}", Now.ToDateTime.ToShortDateString), Formato:="PDF") End Sub diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index fd19eb232..d986f5dbd 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -1035,7 +1035,7 @@ Partial Class RepVentaDetalle Dim RutaFormato = String.Format("{0}Formatos\RepVentaDetalle.rdlc", UsuarioActual.Empresa.Ruta) Dim Archivo As New System.IO.FileInfo(RutaFormato) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("file://{0}", Imagen.FullName) diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 4fb182e37..8a03c9ec6 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -683,7 +683,7 @@ Partial Class Ventas_RepVentas If DdlCondicionesPago.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Condiciones Pago: {0}", DdlCondicionesPago.SelectedItem.Text) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = DtVentas '.FiltraParametros("", "Orden") '.FiltraParametros("Total > 0", DistinctColumns:={"GPO", "Cantidad", "SubTotal", "Descuento", "Amortizacion", "IVA", "Total"}) Dim FechaI, FechaF As String diff --git a/Ventas/RepVentasMensuales.aspx.vb b/Ventas/RepVentasMensuales.aspx.vb index 70ad49927..758298b81 100644 --- a/Ventas/RepVentasMensuales.aspx.vb +++ b/Ventas/RepVentasMensuales.aspx.vb @@ -65,16 +65,12 @@ Partial Class RepVentasMensuales End Sub Public Sub LnkPDF_Click() Handles LnkPDF.Click - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + '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("pEmp", UsuarioActual.Empresa.Empresa)) - If Imagen.Exists Then - params.Add(New ReportParameter("pImg", logouri)) - 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("Modalidad", DdlModalidad.SelectedValue)) diff --git a/Ventas/RepVentasMensualesDetalle.aspx.vb b/Ventas/RepVentasMensualesDetalle.aspx.vb index e707f66b6..cbec044cb 100644 --- a/Ventas/RepVentasMensualesDetalle.aspx.vb +++ b/Ventas/RepVentasMensualesDetalle.aspx.vb @@ -41,16 +41,12 @@ Partial Class RepVentasMensualesDetalle End Sub Public Sub LnkPDF_Click() Handles LnkPDF.Click - 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + '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("pEmp", UsuarioActual.Empresa.Empresa)) - If Imagen.Exists Then - params.Add(New ReportParameter("pImg", logouri)) - 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("Modalidad", 2)) diff --git a/Ventas/RepVentasPeriodo.aspx.vb b/Ventas/RepVentasPeriodo.aspx.vb index fb40b1985..d009475e7 100644 --- a/Ventas/RepVentasPeriodo.aspx.vb +++ b/Ventas/RepVentasPeriodo.aspx.vb @@ -316,7 +316,7 @@ Partial Class RepVentasPeriodo If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin : {0}", txtFechaF.Text.ToDate.ToShortDateString) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = DtVentas.FiltraParametros("", "Orden") '.FiltraParametros("Total > 0", DistinctColumns:={"GPO", "Cantidad", "SubTotal", "Descuento", "Amortizacion", "IVA", "Total"}) Dim FechaI, FechaF As String diff --git a/Ventas/RepVentasUtilidad.aspx.vb b/Ventas/RepVentasUtilidad.aspx.vb index 8c0b7eed4..e64e42282 100644 --- a/Ventas/RepVentasUtilidad.aspx.vb +++ b/Ventas/RepVentasUtilidad.aspx.vb @@ -322,7 +322,7 @@ Partial Class Ventas_RepVentasUtilidad If txtFechaI.Text = "" Then FechaInicio = "-1" If txtFechaF.Text = "" Then FechaFin = "-1" - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = ObjVentas.DtResultados Dim params As New List(Of ReportParameter) @@ -344,7 +344,7 @@ Partial Class Ventas_RepVentasUtilidad End Sub Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim Sucursal = If(DdlSubProyecto.GetSelectedText = "", "", $" Sucursal: {DdlSubProyecto.GetSelectedText}") diff --git a/Ventas/RepVentasUtilidadDetalle.aspx.vb b/Ventas/RepVentasUtilidadDetalle.aspx.vb index 2c11de968..64b3b60c0 100644 --- a/Ventas/RepVentasUtilidadDetalle.aspx.vb +++ b/Ventas/RepVentasUtilidadDetalle.aspx.vb @@ -306,7 +306,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle If txtFechaI.Text = "" Then FechaInicio = "-1" If txtFechaF.Text = "" Then FechaFin = "-1" - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = ObjVentas.DtResultados Dim params As New List(Of ReportParameter) @@ -364,7 +364,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle If txtFechaI.Text = "" Then FechaInicio = "-1" If txtFechaF.Text = "" Then FechaFin = "-1" - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dt As DataTable = ObjVentas.DtResultados Dim params As New List(Of ReportParameter) @@ -383,7 +383,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle End Sub Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim FechaI As Date = txtFechaI.Text.ToDate @@ -427,7 +427,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepVentaUtilidadDetalle.rpt"), DtVentas, lista, "RepVentasUtilidadesDetalle", Formato), "RepVentasUtilidadesDetalle", Formato) End Sub Private Sub GenerarPDFCrystalGeneral(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim FechaI As Date = txtFechaI.Text.ToDate @@ -460,7 +460,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle End Sub Private Sub GenerarPDFCrystalCosto(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim FechaI As Date = txtFechaI.Text.ToDate diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb index be8ec0529..2b219d27e 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx.vb +++ b/Ventas/RepVentasUtilidadPadre.aspx.vb @@ -285,7 +285,7 @@ Partial Class Ventas_RepVentasUtilidadPadre If DdlVendedor.GetSelectedText <> "" Then StrFiltro.AppendFormat(" Vendedor: {0}", DdlVendedor.GetSelectedText) If DdlMarcas.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Marcas: {0}", DdlMarcas.SelectedItem.Text) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") '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)() diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 53ce16d9d..07b2f8f2c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -27126,7 +27126,7 @@ Partial Class Ventas Exit Sub End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/Ventas/eFacturas.aspx.vb b/Ventas/eFacturas.aspx.vb index 409f2db17..4ece942df 100644 --- a/Ventas/eFacturas.aspx.vb +++ b/Ventas/eFacturas.aspx.vb @@ -399,7 +399,7 @@ Partial Class Ventas_eFacturas 'Dim Folio = If(TxtFolio.Text.Trim.Length > 0, String.Format("%{0}%", TxtFolio.Text.Trim.ToUpper), "-1") 'Dim Proveedor = If(TxtProveedor.Text.Trim.Length > 0, String.Format("%{0}%", TxtProveedor.Text.Trim.ToUpper.Replace(" ", "%")), "-1") 'If ObjDatos.GetFacturas(-1, Folio, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, "-1", Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) ' Dim dt As DataTable = ObjDatos.DtResultados ' Dim params As New List(Of ReportParameter)