diff --git a/AC/CatClasificacionFuncional.aspx.vb b/AC/CatClasificacionFuncional.aspx.vb index f5e504a36..109a265fb 100644 --- a/AC/CatClasificacionFuncional.aspx.vb +++ b/AC/CatClasificacionFuncional.aspx.vb @@ -268,7 +268,8 @@ Partial Class AC_CatClasificacionFuncional Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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") End Sub diff --git a/AC/CatClasificacionGeografica.aspx.vb b/AC/CatClasificacionGeografica.aspx.vb index 3f0bf74c0..2b871ee67 100644 --- a/AC/CatClasificacionGeografica.aspx.vb +++ b/AC/CatClasificacionGeografica.aspx.vb @@ -288,7 +288,8 @@ Partial Class AC_CatClasificacionGeografica Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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") End Sub diff --git a/AC/CatFuentesFinanciamiento.aspx.vb b/AC/CatFuentesFinanciamiento.aspx.vb index 8d82f271c..89ad47690 100644 --- a/AC/CatFuentesFinanciamiento.aspx.vb +++ b/AC/CatFuentesFinanciamiento.aspx.vb @@ -288,7 +288,8 @@ Partial Class AC_CatFuentesFinanciamiento Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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") End Sub diff --git a/AC/CatFuentesFinanciamientoCONAC.aspx.vb b/AC/CatFuentesFinanciamientoCONAC.aspx.vb index 48141e477..ccf963d7d 100644 --- a/AC/CatFuentesFinanciamientoCONAC.aspx.vb +++ b/AC/CatFuentesFinanciamientoCONAC.aspx.vb @@ -286,7 +286,8 @@ Partial Class AC_CatFuentesFinanciamientoCONAC Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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") End Sub diff --git a/AC/CatFuentesRecaudacion.aspx.vb b/AC/CatFuentesRecaudacion.aspx.vb index 5fd6985f2..349f696f1 100644 --- a/AC/CatFuentesRecaudacion.aspx.vb +++ b/AC/CatFuentesRecaudacion.aspx.vb @@ -267,7 +267,8 @@ Partial Class AC_CatFuentesRecaudacion Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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") End Sub diff --git a/AC/CatOGClasificaciones.aspx.vb b/AC/CatOGClasificaciones.aspx.vb index c5739c56d..02524768e 100644 --- a/AC/CatOGClasificaciones.aspx.vb +++ b/AC/CatOGClasificaciones.aspx.vb @@ -277,7 +277,8 @@ Partial Class AC_CatOGClasificaciones Protected Sub ImprimirReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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") End Sub diff --git a/AC/CatPresupuestoEgresos.aspx.vb b/AC/CatPresupuestoEgresos.aspx.vb index 1f870fa6f..21e3bfa1c 100644 --- a/AC/CatPresupuestoEgresos.aspx.vb +++ b/AC/CatPresupuestoEgresos.aspx.vb @@ -416,7 +416,8 @@ Partial Class AC_CatPresupuestoEgresos 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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)) ImprimirPDF("AC/Reportes/RepCatPresupuestoEgresos.rdlc", DtPresupuestoEgresos, params, "PresupuestoEgresos", Formato) diff --git a/AC/CatPresupuestoIngresos.aspx.vb b/AC/CatPresupuestoIngresos.aspx.vb index 47e24546f..db6622c63 100644 --- a/AC/CatPresupuestoIngresos.aspx.vb +++ b/AC/CatPresupuestoIngresos.aspx.vb @@ -326,7 +326,8 @@ Partial Class AC_CatPresupuestoIngresos 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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)) ImprimirPDF("AC/Reportes/RepCatPresupuestoIngresos.rdlc", DtPresupuestoIngresos, params, "PresupuestoIngresos", Formato) diff --git a/AC/CatUnidadesAdministrativas.aspx.vb b/AC/CatUnidadesAdministrativas.aspx.vb index 9d4dcd997..1ac5a94dc 100644 --- a/AC/CatUnidadesAdministrativas.aspx.vb +++ b/AC/CatUnidadesAdministrativas.aspx.vb @@ -210,7 +210,8 @@ Partial Class AC_CatUnidadesAdministrativas Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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") End Sub diff --git a/AC/RegIngresosModificaciones.aspx.vb b/AC/RegIngresosModificaciones.aspx.vb index d877c12e4..3fcc0fa29 100644 --- a/AC/RegIngresosModificaciones.aspx.vb +++ b/AC/RegIngresosModificaciones.aspx.vb @@ -286,7 +286,8 @@ Partial Class AC_RegIngresosModificaciones 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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)) params.Add(New ReportParameter("pAmpliacion", pAmpliacion)) diff --git a/AC/RepAnaliticoDeudaPublica.aspx.vb b/AC/RepAnaliticoDeudaPublica.aspx.vb index ffa3ee85d..870d7c02f 100644 --- a/AC/RepAnaliticoDeudaPublica.aspx.vb +++ b/AC/RepAnaliticoDeudaPublica.aspx.vb @@ -217,7 +217,8 @@ Partial Class AC_RepAnaliticoDeudaPublica Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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)) params.Add(New ReportParameter("pFirma1", String.Format("ING. Soraida Mesinas Reyes{0} Subdirector de Contabilidad", vbCrLf))) diff --git a/AC/RepCambiosSituacionFinanciera.aspx.vb b/AC/RepCambiosSituacionFinanciera.aspx.vb index e9626934d..6c99e45b4 100644 --- a/AC/RepCambiosSituacionFinanciera.aspx.vb +++ b/AC/RepCambiosSituacionFinanciera.aspx.vb @@ -253,7 +253,8 @@ 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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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))) params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf))) diff --git a/AC/RepEstadoActividades.aspx.vb b/AC/RepEstadoActividades.aspx.vb index 79d17e979..133e0a7ca 100644 --- a/AC/RepEstadoActividades.aspx.vb +++ b/AC/RepEstadoActividades.aspx.vb @@ -328,7 +328,8 @@ Partial Class AC_RepEstadoActividades params.Add(New ReportParameter("lbTotalActual", LbTotalActual.Text)) params.Add(New ReportParameter("lbTotalAnterior", LbTotalAnterior.Text)) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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))) params.Add(New ReportParameter("pFirma2", String.Format("M.E.R Carla Neudert Cordova{0}Dirección General", vbCrLf))) diff --git a/AC/RepEstadoAnaliticoActivo.aspx.vb b/AC/RepEstadoAnaliticoActivo.aspx.vb index 20c5e451a..2b9a5ba46 100644 --- a/AC/RepEstadoAnaliticoActivo.aspx.vb +++ b/AC/RepEstadoAnaliticoActivo.aspx.vb @@ -113,7 +113,8 @@ Partial Class AC_RepEstadoAnaliticoActivo Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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)) params.Add(New ReportParameter("pFirma1", String.Format("ING. Soraida Mesinas Reyes{0} Subdirector de Contabilidad", vbCrLf))) diff --git a/AC/RepFlujoEfectivo.aspx.vb b/AC/RepFlujoEfectivo.aspx.vb index 7a36239a6..a99f8baa6 100644 --- a/AC/RepFlujoEfectivo.aspx.vb +++ b/AC/RepFlujoEfectivo.aspx.vb @@ -231,7 +231,8 @@ 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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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)) params.Add(New ReportParameter("pTotalAnterior", TotalAnterior.ToString.FormatoNumero)) diff --git a/AC/RepIngresos.aspx.vb.exclude b/AC/RepIngresos.aspx.vb.exclude index 446e17a93..ecd9d3da3 100644 --- a/AC/RepIngresos.aspx.vb.exclude +++ b/AC/RepIngresos.aspx.vb.exclude @@ -57,7 +57,8 @@ Partial Class AC_RepIngresos Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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") End Sub diff --git a/AC/RepMatrizEgresos.aspx.vb b/AC/RepMatrizEgresos.aspx.vb index 675d7765b..9fdac379e 100644 --- a/AC/RepMatrizEgresos.aspx.vb +++ b/AC/RepMatrizEgresos.aspx.vb @@ -96,7 +96,8 @@ Partial Class AC_RepMatrizEgresos Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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") End Sub diff --git a/AC/RepMatrizIngresos.aspx.vb b/AC/RepMatrizIngresos.aspx.vb index 7a7a846ae..2ea902854 100644 --- a/AC/RepMatrizIngresos.aspx.vb +++ b/AC/RepMatrizIngresos.aspx.vb @@ -93,7 +93,8 @@ Partial Class AC_RepMatrizIngresos Protected Sub ImprimiReporte() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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") End Sub diff --git a/AC/RepPresupuestoEgresos.aspx.vb b/AC/RepPresupuestoEgresos.aspx.vb index f4d2fbc0d..b4f15938e 100644 --- a/AC/RepPresupuestoEgresos.aspx.vb +++ b/AC/RepPresupuestoEgresos.aspx.vb @@ -219,10 +219,11 @@ 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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + 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)) @@ -231,20 +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)) - 'params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + '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 7a744c998..b6d7f0f3c 100644 --- a/AC/RepPresupuestoEgresosDetalle.aspx.vb +++ b/AC/RepPresupuestoEgresosDetalle.aspx.vb @@ -110,7 +110,8 @@ 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)) - params.Add(New ReportParameter("Img", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + 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) End Sub diff --git a/AC/RepPresupuestoEgresosMensual.aspx.vb b/AC/RepPresupuestoEgresosMensual.aspx.vb index b17e42e14..f081fa26b 100644 --- a/AC/RepPresupuestoEgresosMensual.aspx.vb +++ b/AC/RepPresupuestoEgresosMensual.aspx.vb @@ -165,11 +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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + 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 4df39f8ad..51798f725 100644 --- a/AC/RepPresupuestoIngresos.aspx.vb +++ b/AC/RepPresupuestoIngresos.aspx.vb @@ -155,15 +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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + 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 b719b7122..db18c1510 100644 --- a/AC/RepPresupuestoIngresosMensual.aspx.vb +++ b/AC/RepPresupuestoIngresosMensual.aspx.vb @@ -130,11 +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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + 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 b50baf59e..a60676dfb 100644 --- a/AC/RepProgramaOperativo.aspx.vb +++ b/AC/RepProgramaOperativo.aspx.vb @@ -177,7 +177,8 @@ Partial Class AC_RepProgramaOperativo 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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) End Sub diff --git a/AC/RepSituacionFinanciera.aspx.vb b/AC/RepSituacionFinanciera.aspx.vb index 75a53e925..e4b336d2d 100644 --- a/AC/RepSituacionFinanciera.aspx.vb +++ b/AC/RepSituacionFinanciera.aspx.vb @@ -638,7 +638,8 @@ 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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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/RepVariacionHaciendaPublica.aspx.vb b/AC/RepVariacionHaciendaPublica.aspx.vb index ba6ad4667..b314e0dee 100644 --- a/AC/RepVariacionHaciendaPublica.aspx.vb +++ b/AC/RepVariacionHaciendaPublica.aspx.vb @@ -384,7 +384,8 @@ Partial Class AC_RepVariacionHaciendaPublica Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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)) params.Add(New ReportParameter("pFirma1", String.Format("ING. Soraida Mesinas Reyes{0} Subdirector de Contabilidad", vbCrLf))) diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 3517452da..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,13 +4146,9 @@ 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") - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepComprasInsumos.rdlc", DTCompras, params, "RepComprasInsumos", Formato) diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb index 46e3271d5..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 = "" @@ -464,11 +464,7 @@ Partial Class AF_CatAF params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If Archivo.Exists Then Ruta = UsuarioActual.Empresa.Ruta & "Formatos/CatAF.rdlc" diff --git a/AF/RepAF.aspx.vb b/AF/RepAF.aspx.vb index bbd39fd61..bd5d72b0f 100644 --- a/AF/RepAF.aspx.vb +++ b/AF/RepAF.aspx.vb @@ -326,17 +326,13 @@ 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)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF(String.Format("{0}Formatos\RepAF.rdlc", UsuarioActual.Empresa.Ruta), DtActivosFijos, params, "ReporteActivosFijos", Formato:=Formato) Else diff --git a/AF/RepDepreciacion.aspx.vb b/AF/RepDepreciacion.aspx.vb index 7f54bd884..3a0e849b6 100644 --- a/AF/RepDepreciacion.aspx.vb +++ b/AF/RepDepreciacion.aspx.vb @@ -1,11 +1,8 @@ Option Explicit On Option Strict On -Imports System.Data -Imports Microsoft.Reporting.WebForms Imports Extensiones -Imports DocumentFormat.OpenXml.Wordprocessing -Imports System +Imports System.Data Partial Class AF_RepDepreciacion Inherits ClsPaginas @@ -113,7 +110,7 @@ Partial Class AF_RepDepreciacion Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DataKey("CveActivoFijo") = "0" Then - e.Row.BackColor = Drawing.Color.LightGray + e.Row.BackColor = System.Drawing.Color.LightGray e.Row.Font.Bold = True e.Row.Font.Size = 10 e.Row.FCLiteral("LtlDepreciacion").Text = "%" diff --git a/Acarreos/RepContratosAcarreos.aspx.vb b/Acarreos/RepContratosAcarreos.aspx.vb index d67432b70..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,18 +177,14 @@ 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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreos.rdlc", DTCont, params, String.Format("RepContratosAcarreos-{0}", Now.ToDateTime.ToShortDateString), "Excel") Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Acarreos/RepContratosAcarreosDetalle.aspx.vb b/Acarreos/RepContratosAcarreosDetalle.aspx.vb index 867f4b816..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) @@ -239,11 +239,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle params.Add(New ReportParameter("PresEstimado", LblPresEstimado.Text)) params.Add(New ReportParameter("VolF", LblVolFaltante.Text)) params.Add(New ReportParameter("PresF", LblPresFaltante.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreosDetalle.rdlc", DTCont, params, String.Format("RepContratosAcarreosDetalle-{0}", Now.ToDateTime.ToShortDateString), "Excel") Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Acarreos/RepPreEstimacionDetalle.aspx.vb b/Acarreos/RepPreEstimacionDetalle.aspx.vb index 559972ceb..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") @@ -135,11 +135,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepPreEstimacionDetalle.rdlc", DTCont, params, String.Format("RepPreEstimacionDetalle-{0}", Now.ToDateTime.ToShortDateString), "Excel") Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Acumuladores/RepIndicadorDiario.aspx.vb b/Acumuladores/RepIndicadorDiario.aspx.vb index f6c5c4fdd..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) @@ -204,11 +204,7 @@ Partial Class ACumuladores_RepIndicadorDiario params.Add(New ReportParameter("FechaImpresion", Now.ToString)) params.Add(New ReportParameter("AgrupadoPor", $"Filtros Por: {FechaIn} {FechaFn} {SubProyecto} ")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepIndicadorDiario.rdlc", DtDatos, params, $"RepIndicadorDiario_{Now.ToString("yyyyMMddhhmmss")}", Opcion) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 8d16938a6..fda2358d9 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2397,7 +2397,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function GetNominaEmpleadoSimulador(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, SalarioDiario As Decimal) As Boolean + Public Function GetNominaEmpleadoSimulador(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, SalarioDiario As Decimal, CveTipoTrabajador As Integer) As Boolean Dim retorno As Boolean = False Try DTSet = New DataSet() @@ -2410,6 +2410,7 @@ Public Class ClsNominas .Add("@Agrupador", SqlDbType.VarChar).Value = Agrupador .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@SalarioDiario", SqlDbType.Decimal).Value = SalarioDiario + .Add("@CveTipoTrabajador", SqlDbType.Decimal).Value = CveTipoTrabajador End With diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 3d7ffe631..75e53dde0 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9631,7 +9631,8 @@ Public Class ClsPaginas Dim ImporteMovimiento As Decimal = 0 Dim ImporteMN As Decimal = 0 Dim ImporteME As Decimal = 0 - Dim TCValuacion As Decimal = CompraActual.TC + Dim TCValuacion As Decimal + Dim TCValuacionCompra As Decimal = CompraActual.TC Dim TCValuacionPago As Decimal = Pago.TCPago Dim tFechaUltimaFluctuacion As Date Dim tImportePago As Decimal @@ -9652,37 +9653,39 @@ Public Class ClsPaginas Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False) Dim tFecha As Date = Pago.Fecha - Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) - If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then - If UltimaFluctuacion.FechaFluctuacion <= tFecha Then - tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion - TCValuacion = UltimaFluctuacion.TCFluctuacion + If CompraActual.CveMoneda > 1 AndAlso UsuarioActual.Empresa.Funcionalidad(703) = "1" Then + Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) + If UltimaFluctuacion IsNot Nothing Then + If UltimaFluctuacion.FechaFluctuacion <= tFecha Then + tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion + TCValuacion = UltimaFluctuacion.TCFluctuacion + End If + If CompraActual.Fecha < tFechaUltimaFluctuacion Then TCValuacionCompra = TCValuacion + If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion End If - If CompraActual.Fecha < tFechaUltimaFluctuacion Then TCValuacion = TCValuacion - If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion End If If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then 'factura pesos, pago en dolares - tImportePago = ((Pago.ImportePago * TCValuacion / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL - tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL + tImportePago = ((Pago.ImportePago * TCValuacionCompra / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL + tImporteCompra = (Pago.ImportePago * TCValuacionCompra).RoundSQL ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago <> 1 Then 'factura dolares, pago en dolares - tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL + tImporteCompra = (Pago.ImportePago * TCValuacionCompra).RoundSQL tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago = 1 Then 'factura dolares, pago en pesos - tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL + tImporteCompra = (Pago.ImportePago * TCValuacionCompra).RoundSQL tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL End If If CompraActual.CveMoneda > 1 Then ImporteME = Pago.ImportePago 'movimiento de pago proveedor - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacion, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True 'movimiento de pago proveedor Complementaria If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (ImporteME * TCValuacion - ImporteME).RoundSQL, CveConceptoContableComplementaria, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacion, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (ImporteME * TCValuacionCompra - ImporteME).RoundSQL, CveConceptoContableComplementaria, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True End If @@ -9871,7 +9874,7 @@ Public Class ClsPaginas ' End If 'End If - If Not ErrorMovtos AndAlso TCValuacion <> Pago.TCPago Then + If Not ErrorMovtos AndAlso TCValuacionCompra <> TCValuacionPago Then Dim ConceptoContable, IdCtaContable As Integer Dim TipoMovimiento As Boolean Dim Diferencia As Decimal = 0 @@ -10125,16 +10128,17 @@ Public Class ClsPaginas Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False) Dim tFecha As Date = Pago.Fecha - Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) - If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then - If UltimaFluctuacion.FechaFluctuacion <= tFecha Then - tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion - TCValuacion = UltimaFluctuacion.TCFluctuacion + If VentaActual.CveMoneda > 1 AndAlso UsuarioActual.Empresa.Funcionalidad(703) = "1" Then + Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) + If UltimaFluctuacion IsNot Nothing Then + If UltimaFluctuacion.FechaFluctuacion <= tFecha Then + tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion + TCValuacion = UltimaFluctuacion.TCFluctuacion + End If + If VentaActual.Fecha < tFechaUltimaFluctuacion Then TCValuacionVenta = TCValuacion + If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion End If - If VentaActual.Fecha < tFechaUltimaFluctuacion Then TCValuacionVenta = TCValuacion - If Pago.FechaDocumentoRelacionado < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion - End If If VentaActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then 'factura pesos, pago en dolares @@ -10154,7 +10158,7 @@ Public Class ClsPaginas 'movimiento de pago cliente Complementaria If Not ErrorMovtos AndAlso VentaActual.CveMoneda > 1 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, (ImporteME * TCValuacion - ImporteME).RoundSQL, CveConceptoContableComplementaria, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, (ImporteME * TCValuacionVenta - ImporteME).RoundSQL, CveConceptoContableComplementaria, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True End If @@ -10236,13 +10240,13 @@ Public Class ClsPaginas Dim Ret As New ConceptosRetenciones If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 296, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 227, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True Else 'Agregamos Nacional - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True End If @@ -10284,16 +10288,16 @@ Public Class ClsPaginas End If If Pago.CveMonedaPago > 1 Then - 'Agregamos la Extranjera - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True + 'Agregamos la Extranjera + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True - ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL + ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True Else - 'Agregamos Nacional - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True + 'Agregamos Nacional + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True - End If + End If End If diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 5fb4804f3..c6570ec94 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -858,7 +858,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function UpdateEstatusPersonal(EstatusPersonal As String, Estatus As Boolean, CveEstatusPersonal As Integer) As Boolean + Public Function UpdateEstatusPersonal(EstatusPersonal As String, Estatus As Boolean, CveEstatusPersonal As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_EstatusPersonalUpdate") @@ -867,6 +867,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@EstatusPersonal", SqlDbType.VarChar).Value = EstatusPersonal .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario End With Try @@ -1939,7 +1940,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String, CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1, - Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1) As Boolean + Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1) As Boolean Dim Retorno As Boolean = False Dim noguardoXcurp = False @@ -2028,6 +2029,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal .Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado + .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador @@ -2073,7 +2075,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1, - Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1) As Boolean + Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -2168,6 +2170,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte .Add("@EsReserva", SqlDbType.Int).Value = EsReserva .Add("@Fiscalizable", SqlDbType.Int).Value = Fiscalizable + .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador End With @@ -2452,12 +2455,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean, Optional Observaciones As String = "") As Boolean + Public Function UpPersonalAltas(CvePersonal As Integer, CveUsuario As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean, Optional Observaciones As String = "") As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalAltasUp") With SqlAdapter.SelectCommand.Parameters .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@fechaInicio", SqlDbType.VarChar).Value = fechaInicio .Add("@fechaFin", SqlDbType.VarChar).Value = fechaFin .Add("@CvePeriodoFiniquito", SqlDbType.Int).Value = CvePeriodoFiniquito @@ -2757,13 +2761,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function AddAsistenciaMasiva2(CvePeriodo As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Public Function AddAsistenciaMasiva2(CvePeriodo As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveTipoTrabajador As Integer) As Boolean Dim Retorno As Boolean = False Data = New DataTable - SqlDataAdapter("PA_RH_PersonalAsistenciasMasivaAddUpd2") + SqlDataAdapter("PA_RH_PersonalAsistenciasMasivas") With SqlAdapter.SelectCommand.Parameters .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With @@ -7578,7 +7583,69 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - +#Region "TipoTrabajador" +#Region "CRUD_TiposTrabajador" + Public Function TiposTrabajadorGet(cveTipoTrabajador As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_TiposTrabajadorGet", CommandType.StoredProcedure) + addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los tipos trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function TiposTrabajadorAdd(tipoTrabajador As String, estatus As Boolean, fechaIng As DateTime, cveUsuario As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_TiposTrabajadorAdd", CommandType.StoredProcedure) + addParameters("@TipoTrabajador", SqlDbType.VarChar, tipoTrabajador) + addParameters("@Estatus", SqlDbType.Bit, estatus) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el tipo trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function TiposTrabajadorUp(cveTipoTrabajador As Int32, tipoTrabajador As String, estatus As Boolean, fechaIng As DateTime, cveUsuario As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_TiposTrabajadorUp", CommandType.StoredProcedure) + addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador) + addParameters("@TipoTrabajador", SqlDbType.VarChar, tipoTrabajador) + addParameters("@Estatus", SqlDbType.Bit, estatus) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el tipo trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function TiposTrabajadorRemove(cveTipoTrabajador As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_TiposTrabajadorRemove", CommandType.StoredProcedure) + addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + retorno = RunQuery("Ocurrió un error al eliminar el TiposTrabajador.") + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el tipo trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function +#End Region +#End Region 'Public msgsError As New StringBuilder() 'Public Sub OnError(Mensaje As String, Exeption As Exception, Optional InfoAdicional As String = "") diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index b5e93bcc7..ef98beb14 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -2232,11 +2232,11 @@ Namespace Extensiones Dim IndexEndTable As Integer = GridView.Rows.Count + TotalRowHeader + TotalRowFooter - worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió" - worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre + worksheet.Rows(IndexEndTable).Cells(1).Value = "Usuario Imprimió" + worksheet.Rows(IndexEndTable + 1).Cells(1).Value = Usuario.Nombre - worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión" - worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy") + worksheet.Rows(IndexEndTable).Cells(3).Value = "Fecha Impresión" + worksheet.Rows(IndexEndTable + 1).Cells(3).Value = DateTime.Now.ToString("dd/MM/yyyy") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) diff --git a/Bancos/CatBancos.aspx.vb b/Bancos/CatBancos.aspx.vb index f0546778c..1784f8c16 100644 --- a/Bancos/CatBancos.aspx.vb +++ b/Bancos/CatBancos.aspx.vb @@ -217,16 +217,12 @@ 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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepBancos.rdlc", DtBan, params, "Reporte Bancos", Formato) Else Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia) diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index 05a6e20ff..36c793a37 100644 --- a/Bancos/ConciliacionesBancarias.aspx.vb +++ b/Bancos/ConciliacionesBancarias.aspx.vb @@ -550,10 +550,9 @@ Partial Class Bancos_ConciliacionesBancariasaspx GeneraPDF(Formato) End Sub Protected Sub GeneraPDF(Formato As String) - Dim params As List(Of ReportParameter) = New List(Of ReportParameter)() - - Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo($"{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)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString())) @@ -661,12 +660,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx params.Add(New ReportParameter("SaldoFinalContabilidadComplementaria", (SaldoFinalContabilidadComplementaria.FormatoNumero))) params.Add(New ReportParameter("Diferencia", (SaldoFinalLibros - SaldoFinalContabilidad).FormatoNumero)) params.Add(New ReportParameter("Filtros", Filtros)) - - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim Archivo As String = $"{UsuarioActual.Empresa.Ruta}Formatos/Conciliacion.rdlc" diff --git a/Bancos/CuentasBancarias.aspx.vb b/Bancos/CuentasBancarias.aspx.vb index 74260599c..84c256a9d 100644 --- a/Bancos/CuentasBancarias.aspx.vb +++ b/Bancos/CuentasBancarias.aspx.vb @@ -153,16 +153,12 @@ 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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/CuentasBancarias.rdlc", DtBan, params, "Reporte de Cuentas Bancarias", Formato) Else Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia) diff --git a/Bancos/FlujoDiario.aspx.vb b/Bancos/FlujoDiario.aspx.vb index b6b9367b0..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)) @@ -58,11 +58,7 @@ Partial Class Bancos_FlujoDiario params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Fecha", TxtFecha.Text.ToDate.ToLongDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) 'SE LLENA TmpDTSaldosIniciales Dim Ban As New ClsBancos diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index eb2d25f4c..697ec6c74 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -686,11 +686,12 @@ public partial class Bancos_PagoDeudor : ClsPaginas (Double)tipoCambio, TxtObservaciones.Text.Trim(), "", false, false, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); + decimal ImporteMN=0; if (CveIE > 0) { decimal Importe; - decimal ImporteMN; + //GUARDA COMPROBANTE if (!filemove.Equals("")) @@ -834,6 +835,15 @@ public partial class Bancos_PagoDeudor : ClsPaginas if (CveMoneda != 1 && UsaComplementaria) { + + decimal difComplementaria = ImporteMN - (ImporteBanco + ImporteComplementaria); + + if (difComplementaria != 0) + { + ImporteComplementaria = difComplementaria > 0 ? (ImporteComplementaria+ difComplementaria) : (ImporteComplementaria- difComplementaria); + } + + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, ImporteBanco, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos complementaria"; diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb index 51547feeb..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 @@ -2753,11 +2753,7 @@ Partial Class Bancos_PagoElectronico ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico") Else - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) @@ -2771,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) @@ -2781,11 +2777,7 @@ Partial Class Bancos_PagoElectronico ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico") Else - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion)) @@ -2797,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) @@ -2806,11 +2798,7 @@ Partial Class Bancos_PagoElectronico ImprimirPDF(String.Format("{0}Formatos\LayoutPagoProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtPago, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2") Else - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion)) diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index 1bf5d636b..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 @@ -2326,11 +2326,7 @@ Partial Class Bancos_PagoElectronicoGrupos Else - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) @@ -2347,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) @@ -2359,11 +2355,7 @@ Partial Class Bancos_PagoElectronicoGrupos - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion)) @@ -2380,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() @@ -2397,11 +2389,7 @@ Partial Class Bancos_PagoElectronicoGrupos Else - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion)) @@ -2986,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() @@ -2997,11 +2985,7 @@ Partial Class Bancos_PagoElectronicoGrupos Else - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion)) diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 9c2195276..9d8b173be 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -1464,7 +1464,7 @@ Partial Class Bancos_PopIECompras Case "5" 'Acreedores Diversos ImportePagado = TxtImporte.Text.Trim.ToDecimal CveConcepto = 17 - CveConcepto2 = 41 + CveConcepto2 = 56 CveProveedor2 = DdlAcreedor.SelectedValue.ToEntero CveIE = -1 'verifica que se halla selccionado algun acreedor @@ -1779,7 +1779,7 @@ Partial Class Bancos_PopIECompras If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, TipoCambio:=If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion)) Then MsgError = "No se pudo insertar la póliza" End If - + '123456789 If CveMonedaCompra <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then IdCtaContable = IdCtaContComplementaria If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then @@ -2736,6 +2736,8 @@ Partial Class Bancos_PopIECompras CveIE = rw.DataKey("CveIE").ToString.ToEntero + ConceptoContable = If(CveMoneda <> 1, 346, 56) + IdCtaContable = CtaProveedorAcreedores If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=tipoCambioPago) Then MsgError = "No se pudo insertar la póliza" diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 02deb93e3..e95df4dd1 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -912,38 +912,38 @@ Partial Class Bancos_ProveedoresAbonar End If End If - If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES - 'fluctuación. - Dim TCPago = TxtTCDolares.Text.ToDecimal + 'If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES + ' 'fluctuación. + ' Dim TCPago = TxtTCDolares.Text.ToDecimal - Dim ImporteFluctuacion As Decimal = 0 '((ImporteSeleccionado / TCPago) - TxtImporte.Text.ToDecimal) + ' Dim ImporteFluctuacion As Decimal = 0 '((ImporteSeleccionado / TCPago) - TxtImporte.Text.ToDecimal) - Dim DtPrePoliza As DataTable = Nothing - If ObjMov.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then - DtPrePoliza = ObjMov.DtResultados.Copy - End If + ' Dim DtPrePoliza As DataTable = Nothing + ' If ObjMov.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then + ' DtPrePoliza = ObjMov.DtResultados.Copy + ' End If - Dim PagoProveedoresME = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 312 AND TipoMovto = 0") - Dim Bancos = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 30 AND TipoMovto = 1") - Dim BancosComplementaria = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 204 AND TipoMovto = 1") + ' Dim PagoProveedoresME = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 312 AND TipoMovto = 0") + ' Dim Bancos = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 30 AND TipoMovto = 1") + ' Dim BancosComplementaria = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 204 AND TipoMovto = 1") - DtPrePoliza.Dispose() + ' DtPrePoliza.Dispose() - ImporteFluctuacion = PagoProveedoresME - (Bancos + BancosComplementaria) + ' ImporteFluctuacion = PagoProveedoresME - (Bancos + BancosComplementaria) - If MsgError = "" AndAlso ImporteFluctuacion.RoundSQL() <> 0 Then - 'SI EL PAGO DE PROVEEDORES ME ES MAYOR QUE BANCOS METER EL CONCEPTO DE GANANCIA - If ImporteFluctuacion > 0 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Referencia, 64, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then - MsgError = "Ocurrio un error al saldar el movimiento" - End If - ElseIf ImporteFluctuacion < 0 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Referencia, 65, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then - MsgError = "Ocurrio un error al saldar el movimiento" - End If - End If - End If - End If + ' If MsgError = "" AndAlso ImporteFluctuacion.RoundSQL() <> 0 Then + ' 'SI EL PAGO DE PROVEEDORES ME ES MAYOR QUE BANCOS METER EL CONCEPTO DE GANANCIA + ' If ImporteFluctuacion > 0 Then + ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Referencia, 64, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then + ' MsgError = "Ocurrio un error al saldar el movimiento" + ' End If + ' ElseIf ImporteFluctuacion < 0 Then + ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Referencia, 65, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then + ' MsgError = "Ocurrio un error al saldar el movimiento" + ' End If + ' End If + ' End If + 'End If End If @@ -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) @@ -2058,11 +2058,7 @@ Partial Class Bancos_ProveedoresAbonar params.Add(New ReportParameter("CLABE", CLABE)) params.Add(New ReportParameter("Cuenta", Cuenta)) params.Add(New ReportParameter("Correo", Correo)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim NombreArchivo As String = "SolicitudPago" ''String.Format("SolicitudPago{0}.pdf", TxtPagueseA.Text).Replace(" ", "") ImprimirPDF("Empresas/Grales/Formatos/Solicitud.rdlc", DtDatos, params, NombreArchivo, Opcion) Else diff --git a/Bancos/RepClientesAnticipo.aspx.vb b/Bancos/RepClientesAnticipo.aspx.vb index 7623a6f93..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: " @@ -169,11 +169,7 @@ Partial Class Bancos_RepClientesAnticipo params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepClientesAnticipo.rdlc", DTDatos, params, "ReporteAnticipoClientes", Formato:=Formato) diff --git a/Bancos/RepCobrado.aspx.vb b/Bancos/RepCobrado.aspx.vb index 8a2620b02..9e30438c3 100644 --- a/Bancos/RepCobrado.aspx.vb +++ b/Bancos/RepCobrado.aspx.vb @@ -140,18 +140,14 @@ 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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF(RutaPDF, DtDatos, params, "RepRecuperacion" & Now.ToString("yyyyMMddhhmmss"), Formato) End Sub diff --git a/Bancos/RepCobradoDetalle.aspx.vb b/Bancos/RepCobradoDetalle.aspx.vb index 3e86bc927..e70927ee4 100644 --- a/Bancos/RepCobradoDetalle.aspx.vb +++ b/Bancos/RepCobradoDetalle.aspx.vb @@ -199,18 +199,14 @@ 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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF(RutaPDF, DtDatos, params, "RepRecuperacionDetalle" & Now.ToString("yyyyMMddhhmmss"), Formato) End Sub End Class diff --git a/Bancos/RepCobradoPagado.aspx.vb b/Bancos/RepCobradoPagado.aspx.vb index 4bb2da107..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)) @@ -202,11 +202,7 @@ Partial Class Bancos_RepCobradoPagado params.Add(New ReportParameter("FUltimaSemana", FUltimaSemana)) params.Add(New ReportParameter("FUltimoMes", FUltimoMes)) params.Add(New ReportParameter("FPenultimoMes", FPenultimoMes)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepCobradoPagado.rdlc", DtDatos, params, "ReporteCobrado-Pagado") Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Bancos/RepComprobaciones.aspx.cs b/Bancos/RepComprobaciones.aspx.cs index af3e8775f..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)); @@ -84,15 +84,7 @@ public partial class Bancos_RepComprobaciones : ClsPaginas @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString())); @params.Add(new ReportParameter("Cuenta", DdlCuentas.SelectedItem.Text)); - if (Imagen.Exists) - { - @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}")); - } - else - { - @params.Add(new ReportParameter("LogoPath", "")); - } - + @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : "")); ImprimirPDF("Empresas/Grales/Formatos/RepComprobaciones.rdlc", DTDatos, @params, "ReporteComprobaciones", Formato); } #endregion diff --git a/Bancos/RepCxCCliente.aspx.vb b/Bancos/RepCxCCliente.aspx.vb index ed097ea67..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() @@ -158,11 +158,7 @@ Partial Class Bancos_RepCxCCliente params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepPagoClientes.rdlc", DTpp, params, "ReportePagoClientes") Else Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia) diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb index 99f4c5c78..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) @@ -379,11 +379,7 @@ Partial Class Bancos_RepEgresosSinComprobante params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF($"Empresas/Grales/Formatos/{Archivo}", DtDatos, params, String.Format("EgresosSinComprovante-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato) End If End Sub diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb index a1c3dabe8..d81393546 100644 --- a/Bancos/RepIE.aspx.vb +++ b/Bancos/RepIE.aspx.vb @@ -550,11 +550,7 @@ Partial Class Bancos_RepIE params.Add(New ReportParameter("CajaChica", ParametrosReporte)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobacionesIE.rdlc", DtDatos, params, "ReporteMovimientosBancarios", Formato:=Formato) diff --git a/Bancos/RepProveedoresPagos.aspx.vb b/Bancos/RepProveedoresPagos.aspx.vb index 15c8ea45c..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 @@ -310,11 +310,7 @@ Partial Class Bancos_RepProveedoresPagos params.Add(New ReportParameter("AgrupadoPor", $"{Programo} {Proveedor} {Registro} {Responsable} {Clasificacion} {Moneda} {Estatus} {SubProyecto} {FechaIn} {FechaFn}{FVI}{FVF}")) params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, 1, 0))) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepPagoProveedores.rdlc", DTpp, params, "ReportePagoProveedores", Formato) Else Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia) diff --git a/Bancos/RepSaldos.aspx.vb b/Bancos/RepSaldos.aspx.vb index e6391203b..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 @@ -195,11 +195,7 @@ Partial Class Bancos_RepSaldos params.Add(New ReportParameter("FechaInicio", FechaI)) params.Add(New ReportParameter("FechaFin", FechaF)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepSaldos.rdlc", DtBancos, params, "RepSaldos", Formato:=Formato) diff --git a/Bancos/RepSaldosDetalle.aspx.vb b/Bancos/RepSaldosDetalle.aspx.vb index 946ce33e0..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 @@ -213,11 +213,7 @@ Partial Class Bancos_RepSaldosDetalle params.Add(New ReportParameter("NombreCuenta", NombreCuenta)) params.Add(New ReportParameter("SaldoInicial", LblSaldoInicial.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle", Formato:=formato) diff --git a/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 5eb1fea86..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)) @@ -1687,11 +1687,7 @@ Partial Class CGame_OrdenProduccion params.Add(New ReportParameter("Direccion", ObjCGame.DtResultados.Rows(0)("Direccion").ToString)) params.Add(New ReportParameter("Ciudad", ObjCGame.DtResultados.Rows(0)("Ciudad").ToString)) params.Add(New ReportParameter("Fecha", ObjCGame.DtResultados.Rows(0)("Fecha").ToString.ToDate.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If ObjCGame.GetAvance(CveOrdenProduccion, UsuarioActual.CveEmpresa) Then Dt = ObjCGame.DtResultados If Dt.Rows.Count > 0 Then diff --git a/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 dd0e4f392..59bc658e8 100644 --- a/CRM/RepAcercamientos.aspx.cs +++ b/CRM/RepAcercamientos.aspx.cs @@ -149,10 +149,11 @@ 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($"{UsuarioActual.Empresa.Ruta}/Logo.png"); List @params = new List(); @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); - @params.Add(new ReportParameter("LogoPath", new Uri(Server.MapPath(string.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)); + @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : "")); @params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)); @params.Add(new ReportParameter("AgrupadoPor", Filtros)); @@ -180,15 +181,9 @@ public partial class CRM_RepAcercamientos : ClsPaginas GVDatos.Columns[9].Visible = ChkEnPausa.Checked; GVDatos.Columns[10].Visible = ChkGiro.Checked; - UPDatos.Update(); RegistraScript("$('#DivPersonalizar').modal('hide')"); - - - - } - } \ No newline at end of file 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 b4c69a943..def133ac0 100644 --- a/Compras/CatEstatusFactura.aspx.vb +++ b/Compras/CatEstatusFactura.aspx.vb @@ -148,18 +148,14 @@ 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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepEstatusFactura.rdlc", GlobalDTCompEstatusFactura, params, "Reporte de Estatus Factura", Formato) End Sub diff --git a/Compras/CatProveedores.aspx.vb b/Compras/CatProveedores.aspx.vb index 3e46014c9..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 @@ -269,11 +269,7 @@ Partial Class Compras_CatProveedores params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepCuentasBancarias.rdlc", DtDatos, params, "RepCuentasBancarias", "Excel") Else @@ -283,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 @@ -377,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/Compras.aspx b/Compras/Compras.aspx index fe9f2113f..c84d79087 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -3643,7 +3643,7 @@
- + <%----%>

Impuestos en la Factura

@@ -3690,7 +3690,7 @@ - +
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 4a52fe946..c83d36b37 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2359,7 +2359,15 @@ Partial Class Compras_Compras End If If TrasladoIEPS > 0 Or OtrosImpuestos > 0 Then - RegistraScript("$('#ModalIEPS').modal('show');") + + + If OtrosImpuestos > 0 Then + RegistraScript("$('#ModalIEPS').modal({ backdrop: 'static', keyboard: false },'show');") + Else + RegistraScript("$('#ModalIEPS').modal('show');") + BtnCancelarotrosImpuestos.Visible = True + End If + If TrasladoIEPS > 0 Then ChkIEPS.Visible = True @@ -8627,6 +8635,7 @@ Partial Class Compras_Compras 'vinculo la compra actual, y no la compra como si fuera nota de credito CveCompraNC = -1 CveIE = gvr.DataKey("CveIE").ToEntero + CompraActual.IdCtaContableAnticipoProv = IdCtaContable Case "DD" CveConceptoCompra = If(CveMonedaAnticipo = 1, 37, 37) IdCtaContable = CtaProveedorDeudores @@ -8637,10 +8646,9 @@ Partial Class Compras_Compras PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal - Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), TipoCambio:=TipoCambioAnt, CveSubProyecto:=CveSubProyectoAnticipo) Then - ErrorMovtosCxP = 1 - End If + + + If CveMonedaAnticipo > 1 Then Dim ImporteAntMN As Decimal = TipoCambioAnt * ImporteAnt - ImporteAnt diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index a406c8fa7..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") @@ -1496,11 +1496,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim lrds As New List(Of ReportDataSource) Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen} lrds.Add(rds) @@ -1602,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 @@ -1636,11 +1632,7 @@ Partial Class PopUpVerFactura End If params.Add(New ReportParameter("Utilidad", $"$ {(SumaUtilidad - SumaGasto).ToString.FormatoNumero()}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF") End Sub @@ -1999,14 +1991,10 @@ 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") - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) @@ -2474,13 +2462,9 @@ 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") - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) 'EMPRESA params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen)) @@ -3519,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() @@ -3539,11 +3523,7 @@ Partial Class PopUpVerFactura If Archivo.Exists Then ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios") Else - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios") End If @@ -3551,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 @@ -3573,12 +3553,7 @@ Partial Class PopUpVerFactura End If If UsuarioActual.CveEmpresa = 119 Then - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC)) params.Add(New ReportParameter("RazonSocial", RazonSocial)) params.Add(New ReportParameter("Remision", Remision)) @@ -3638,11 +3613,7 @@ Partial Class PopUpVerFactura ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios") ElseIf UsuarioActual.CveEmpresa = 140 Then - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim concepto As String = "" If CveConcepto.Contiene(2, 32, 33) Then concepto = "ENTRADA DE ALMACÉN" @@ -3700,11 +3671,7 @@ Partial Class PopUpVerFactura Else - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN")) @@ -3737,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 @@ -3883,11 +3850,7 @@ Partial Class PopUpVerFactura ElseIf UsuarioActual.CveEmpresa = 140 Then - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", concepto)) @@ -3923,11 +3886,7 @@ Partial Class PopUpVerFactura Else Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", concepto)) @@ -4003,15 +3962,11 @@ 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) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "Entrada por Desarmado de Paquete")) @@ -4032,15 +3987,11 @@ 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) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "Salida por Armado de Paquete")) @@ -4071,12 +4022,8 @@ 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)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + 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")) @@ -4100,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 = "" @@ -4112,11 +4059,7 @@ Partial Class PopUpVerFactura End If - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) @@ -4161,12 +4104,8 @@ 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)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + 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")) Else @@ -4190,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 = "" @@ -4202,11 +4141,7 @@ Partial Class PopUpVerFactura End If - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) @@ -4352,14 +4287,10 @@ 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") - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If UsuarioActual.CveEmpresa = 140 Then params.Add(New ReportParameter("Origen", Almacen)) params.Add(New ReportParameter("Destino", AlmacenDestino)) @@ -4404,14 +4335,10 @@ 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") - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Origen", Almacen)) params.Add(New ReportParameter("Destino", AlmacenDestino)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) @@ -4457,14 +4384,10 @@ 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") - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte params.Add(New ReportParameter("Destino", Almacen)) @@ -4474,13 +4397,9 @@ 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") - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte params.Add(New ReportParameter("Destino", Almacen)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) @@ -4492,13 +4411,9 @@ 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") - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Origen", Almacen)) params.Add(New ReportParameter("Destino", AlmacenDestino)) @@ -4606,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)) @@ -4654,11 +4569,7 @@ Partial Class PopUpVerFactura If Not Archivo.Exists Then - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") Else @@ -4669,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 @@ -4711,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 @@ -4760,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 @@ -4804,11 +4715,7 @@ Partial Class PopUpVerFactura 'End If Else - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim CiudadSucursal As String = "" Dim DomicilioSucursal As String = "" @@ -4837,15 +4744,11 @@ 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) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "Armado de Paquete")) @@ -4866,15 +4769,11 @@ 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) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "Desarmado de Paquete")) @@ -4895,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" @@ -4903,11 +4802,7 @@ Partial Class PopUpVerFactura Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc" End If - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) 'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) If CveConcepto = 21 Then @@ -4937,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) ' @@ -4966,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)) @@ -4976,11 +4871,7 @@ Partial Class PopUpVerFactura Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc" End If - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio)) Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego)) @@ -5011,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 = "" @@ -5023,11 +4914,7 @@ Partial Class PopUpVerFactura End If - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) @@ -5062,15 +4949,11 @@ 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) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim ConceptoReporte As String = If(CveConcepto = 28, "Entrada por Préstamo", "Devolución de Préstamo") params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) @@ -5088,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) @@ -5125,11 +5008,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("NombreEntrego", Capturo)) params.Add(New ReportParameter("NombreRecibio", Recibio)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) 'End If @@ -5159,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 @@ -5315,11 +5194,7 @@ Partial Class PopUpVerFactura Else Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE")) @@ -5572,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 @@ -5582,11 +5457,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) End If @@ -5778,12 +5649,8 @@ Partial Class PopUpVerFactura ObjAF.Dispose() - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + 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)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) @@ -6387,11 +6254,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString)) params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF") End If @@ -6435,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)) @@ -6758,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 @@ -6837,11 +6700,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Comprobante", Comprobante)) params.Add(New ReportParameter("CodigoTD", CodigoTD)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline") End Sub @@ -6895,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 @@ -6974,11 +6833,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Comprobante", Comprobante)) params.Add(New ReportParameter("CodigoTD", CodigoTD)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline") End Sub diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 21bdd7e6d..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() @@ -4224,11 +4218,7 @@ Partial Class Compras_Proveedores params.Add(New ReportParameter("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - dr("Saldo").ToString.ToDouble).ToString.FormatoNumero)) params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Proveedor}{FechaIn}{FechaFn}{FechVI}{FechVF}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepProveedorCxP.rdlc", DTCxPTempral, params, "RepCxP") Else @@ -4260,11 +4250,7 @@ Partial Class Compras_Proveedores params.Add(New ReportParameter("NombreProveedor", LtlProveedor.Text)) params.Add(New ReportParameter("FechaInicio", FI)) params.Add(New ReportParameter("FechaFin", FF)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepAntNC.rdlc", DtANC, params, "RepAnticiposProveedor", Formato) Else @@ -4708,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) @@ -4716,11 +4702,7 @@ Partial Class Compras_Proveedores params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("NombreProveedor", TxtRazonSocial.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/ProveedorConciliacion.rdlc", ObjProveedores.DtResultados, params, String.Format("ProveedorConciliacion-{0}", Now.ToDateTime.ToShortDateString)) End If @@ -6283,18 +6265,14 @@ 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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("AgrupadoPor", "Proveedor: " & LtlProveedor.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato) Else Alert("No se encontró información.", TipoMensaje.MsgAdvertencia) diff --git a/Compras/ProveedoresAuxiliar.aspx.vb b/Compras/ProveedoresAuxiliar.aspx.vb index e9f3f51ef..8524e6916 100644 --- a/Compras/ProveedoresAuxiliar.aspx.vb +++ b/Compras/ProveedoresAuxiliar.aspx.vb @@ -118,18 +118,14 @@ 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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToString)) params.Add(New ReportParameter("Filtros", $"Filtros: {Proveedor}{FechaIn}{FechaFn}{OpcionP}{TipoProv}{ContaP}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/AuxiliarProveedor.rdlc", DtDatos, params, "AuxiliarProveedor", Opcion) End Sub Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 3396d9ad6..128e2b9aa 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -1294,11 +1294,7 @@ Partial Class Compras_ReembolsosComprobaciones params.Add(New ReportParameter("CajaChica", If(DdlCajaChica.SelectedValue.ToEntero > 0, "Caja chica: " & DdlCajaChica.SelectedItem.Text, "Funcionario/Empleado: " & DdlPersonal.SelectedItem.Text))) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtDatos, params, "RepRembolsosComprobaciones", Formato:=Formato) End If diff --git a/Compras/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 f8b880e56..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}") @@ -192,11 +192,7 @@ Partial Class Compras_RepComplementoPago params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("AgrupadoPor", $"{proveedor}{FI}{FF}{vinc}{TP}{subProy}{usuario}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepComplementoPago.rdlc", DTComplemntos, params, "RepComplementoPago", Formato) Else diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb index 5dbe3742a..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)) @@ -410,11 +410,7 @@ Partial Class Compras_RepCompras params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToString)) params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo}{Proveedor}{Capturo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{FechaICaptura}{FechaFCaptura}{TipoDocto}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepCompras.rdlc", DtCompras, params, "ReporteCompras") Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb index 87a992806..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) @@ -257,11 +257,7 @@ Partial Class Compras_RepComprasAF params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepComprasAF.rdlc", DTDatos, params, "ReporteComprasAF_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato) End Sub diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb index 38b0e8adc..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 @@ -391,11 +391,7 @@ Partial Class Compras_RepComprasAFDetalle params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF(RutaPDF, DTDatos, params, "ReporteComprasAFDetalle_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato) diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index 601cee895..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)) @@ -451,11 +451,7 @@ Partial Class Compras_RepComprasDetalle params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToString)) params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo}{Proveedor}{Capturo}{FechaIn}{FechaFn}{FechaCIn}{FechaCFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{TipoDocto}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepComprasDetalle.rdlc", DtDatos, params, "ReporteComprasDetalles", Opcion) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Compras/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 ced8c83f9..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) @@ -315,11 +315,7 @@ Partial Class Compras_RepComprasPeriodo params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToString)) params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Proveedor}{Capturo}{Grupo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepComprasPeriodo.rdlc", dt, params, "RepComprasPeriodo") Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Compras/RepComprasPersonal.aspx.vb b/Compras/RepComprasPersonal.aspx.vb index 0368c8250..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 @@ -208,11 +208,7 @@ Partial Class Compras_RepComprasPersonal params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepComprasPersonal.rdlc", DTDatos, params, "ReporteComprasPersonal_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato) End Sub diff --git a/Compras/RepComprasPersonalDetalle.aspx.vb b/Compras/RepComprasPersonalDetalle.aspx.vb index 60b29cc80..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 @@ -331,11 +331,7 @@ Partial Class Compras_RepComprasPersonalDetalle params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepComprasPersonalDetalle.rdlc", DTDatos, params, "ReporteComprasPersonalDetalle_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato) diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index cc90a744c..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)) @@ -1485,11 +1485,7 @@ Partial Class Compras_RepCxP params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Proyecto}{Sucursal}{TipoMoneda}{FVI}{FVF}")) params.Add(New ReportParameter("CantColumnas", CantidadColumnas)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepCxP.rdlc", DtDatos, params, "ReporteCxP", Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index b9f48a271..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)) @@ -763,11 +763,7 @@ Partial Class RepCxPDetalle Dim TipoMoneda = If(RblTipoCambio.SelectedValue = "-1", "", $" Tipo Moneda: {RblTipoCambio.SelectedItem.Text}") params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{FechaIn}{FechaFn}{FechaInV}{FechaFnV}{Responsable}{Estatus}{Registro}{Clasificacion}{Sucursal}{TipoMoneda}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepCxPDetalle.rdlc", DtDatos, params, "ReporteCxPDetalle", Formato) diff --git a/Compras/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 b81b584ea..0a9bc0d1a 100644 --- a/Compras/RepGastosFijos.aspx.cs +++ b/Compras/RepGastosFijos.aspx.cs @@ -225,11 +225,11 @@ 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(); - @params.Add(new ReportParameter("pImg", new Uri(Server.MapPath(string.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)); + @params.Add(new ReportParameter("pImg", Imagen.Exists ? $"file://{Imagen.FullName}" : "")); @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); @params.Add(new ReportParameter("FechaInicio", FechaInicio)); 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 c6946764e..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 @@ -90,11 +90,7 @@ Partial Class Compras_RepNotasCredito params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepNotasCredito.rdlc", DtDatos, params, String.Format("ReporteVentas-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Compras/RepPUESinPago.aspx.vb b/Compras/RepPUESinPago.aspx.vb index 13357c4fc..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}") @@ -95,11 +95,7 @@ Partial Class Compras_RepPUESinPago params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("AgrupadoPor", $"{FI}{FF}{cliente}{subProy}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/CompPUEConSaldo.rdlc", DtDatos, params, "RepPUESinPago", Formato) Else diff --git a/Compras/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 3290b2841..34addd1e1 100644 --- a/Compras/RepProductosServicios.aspx.vb +++ b/Compras/RepProductosServicios.aspx.vb @@ -496,10 +496,6 @@ Partial Class Compras_RepProductosServicios End Sub Protected Sub GeneraPDF(Optional Formato As String = "PDF") - Dim params As List(Of ReportParameter) = New List(Of ReportParameter)() - Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - - Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $" Proveedor: {DdlProveedor.SelectedText}") Dim FechaInicio = If(txtFechaI.Text = "", "", $" Fecha Inicio: {txtFechaI.Text}") Dim FechaFin = If(txtFechaF.Text = "", "", $" Fecha Fin: {txtFechaF.Text}") @@ -515,6 +511,8 @@ Partial Class Compras_RepProductosServicios Dim SubTipoAF = If(DdlSubTipoAF.GetSelectedText = "", "", $" SubTipo AF: {DdlSubTipoAF.GetSelectedText}") Dim AF = If(DdlAF.SelectedValue = "-1", "", $" Activo Fijo: {DdlAF.SelectedItem.Text}") + Dim Imagen As New System.IO.FileInfo($"{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)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString())) @@ -535,11 +533,7 @@ Partial Class Compras_RepProductosServicios 'params.Add(New ReportParameter("SubTipoAF", IIf(DdlSubTipoAF.GetSelectedText = "", "Todos", DdlSubTipoAF.GetSelectedText).ToString())) 'params.Add(New ReportParameter("AF", IIf(DdlAF.SelectedItem.Text = "", "Todos", DdlAF.SelectedItem.Text).ToString())) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepProductosServiciosCompras.rdlc", DtDatos, params, "Reporte de Productos Servicios", Formato) End Sub diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb index 3691d562a..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)) @@ -650,11 +650,7 @@ Partial Class Compras_RepProductosServiciosDetalle params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("AgrupoPor", $"{Grupo}{Proyecto}{TipoGasto}{SubProyecto}{Categoria}{Clasificacion}{PS}{Proveedor}{Estatus}{TipoAF}{SubTipoAF}{FechaIn}{FechaFn}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepProductosServiciosDetalleCompra.rdlc", DtDatos, params, "ReportePSDetalle", Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Compras/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/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb index 01b94d869..7a43dbef6 100644 --- a/Compras/RepRembolsoComprobaciones.aspx.vb +++ b/Compras/RepRembolsoComprobaciones.aspx.vb @@ -364,11 +364,7 @@ Partial Class Compras_RepRembolsoComprobaciones params.Add(New ReportParameter("CajaChica", If(DdlCajaChica.SelectedValue.ToEntero > 0, "Caja chica: " & DdlCajaChica.SelectedItem.Text, "Funcionario/Empleado: " & DdlPersonal.SelectedItem.Text))) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtDatos, params, "RepRembolsosComprobaciones", Formato:=Formato) End If diff --git a/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 1f4f48db5..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) @@ -308,11 +308,7 @@ Partial Class Contabilidad_CatCuentas params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/CatCuentas.rdlc", DtDatos.FiltraParametros("", "Orden ASC"), params, String.Format("Catalogo Cuentas-{0}", Now.ToDateTime.ToShortDateString)) End Sub diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb index ffe15a65c..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 @@ -230,11 +230,7 @@ Partial Class Contabilidad_FiltraPolizas params.Add(New ReportParameter("Ejercicio", DdlEjercicio.SelectedItem.ToString)) params.Add(New ReportParameter("Periodo", DdlPeriodo.SelectedItem.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/PolizasPeriodo.rdlc", dt, params, String.Format("ReporteDePolizas-{0} {1}", DdlEjercicio.SelectedItem, DdlPeriodo.SelectedItem), Formato:=Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Contabilidad/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 7817aaf45..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 @@ -376,11 +376,7 @@ Partial Class PopUpAuxiliar params.Add(New ReportParameter("Importe", LtlImporte.Text)) params.Add(New ReportParameter("Saldo", LtlSaldo.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepAuxiliarContable.rdlc", DTDatos, params, "RepAuxiliarContable_" & LtlFolio.Text, Formato:=Formato) diff --git a/Contabilidad/RepAnexoCatalogo.aspx.vb b/Contabilidad/RepAnexoCatalogo.aspx.vb index 3cd3a76cd..5941f821a 100644 --- a/Contabilidad/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad/RepAnexoCatalogo.aspx.vb @@ -313,7 +313,8 @@ 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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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"))) ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) diff --git a/Contabilidad/RepAnexoCatalogoMes.aspx.vb b/Contabilidad/RepAnexoCatalogoMes.aspx.vb index 10c2b0b53..63ad7eedc 100644 --- a/Contabilidad/RepAnexoCatalogoMes.aspx.vb +++ b/Contabilidad/RepAnexoCatalogoMes.aspx.vb @@ -315,7 +315,12 @@ 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)) - ' params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + ' If Imagen.Exists Then + ' params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}")) + ' Else + ' params.Add(New ReportParameter("pImg", "")) + ' End If ' params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) ' ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) diff --git a/Contabilidad/RepAnexoCatalogoSegmento.aspx.vb b/Contabilidad/RepAnexoCatalogoSegmento.aspx.vb index 2e02836e7..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,7 +351,8 @@ 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)) - ' params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + ' params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + ' End If ' params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) ' ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) diff --git a/Contabilidad/RepBalanceGeneral.aspx.vb b/Contabilidad/RepBalanceGeneral.aspx.vb index 4ca08cb36..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,10 +1129,8 @@ Partial Class Contabilidad_RepBalanceGeneral 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - - Dim RutaLogo As String = String.Format("file://{0}Logo.png", UsuarioActual.Empresa.Ruta) - params.Add(New ReportParameter("pImg", RutaLogo)) - 'params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) @@ -1156,9 +1153,8 @@ Partial Class Contabilidad_RepBalanceGeneral 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim RutaLogo As String = String.Format("file://{0}Logo.png", UsuarioActual.Empresa.Ruta) - params.Add(New ReportParameter("pImg", RutaLogo)) - 'params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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)) params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString)) diff --git a/Contabilidad/RepBalanzaComprobacion.aspx.vb b/Contabilidad/RepBalanzaComprobacion.aspx.vb index f9bbddfb3..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,7 +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)) - ' params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + ' 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 2abaf0bd9..3d26b79df 100644 --- a/Contabilidad/RepEdoResultados2.aspx.vb +++ b/Contabilidad/RepEdoResultados2.aspx.vb @@ -206,13 +206,9 @@ 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") - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) StrFiltro.AppendFormat("Agrupado por: {0}", DdlAgrupador.SelectedItem.Text) diff --git a/Contabilidad/RepEstadoResultados.aspx.vb b/Contabilidad/RepEstadoResultados.aspx.vb index 9a8d9b12f..d6cf044bf 100644 --- a/Contabilidad/RepEstadoResultados.aspx.vb +++ b/Contabilidad/RepEstadoResultados.aspx.vb @@ -1055,7 +1055,8 @@ Partial Class Contabilidad_RepEstadoResultados 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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", "")) params.Add(New ReportParameter("pFechaFin", FechaF)) @@ -1090,7 +1091,8 @@ Partial Class Contabilidad_RepEstadoResultados 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) @@ -1113,7 +1115,8 @@ Partial Class Contabilidad_RepEstadoResultados 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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)) params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString)) 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 4dcb8bfbb..8fa87384e 100644 --- a/Contabilidad/RepIEPS.aspx.vb +++ b/Contabilidad/RepIEPS.aspx.vb @@ -122,19 +122,15 @@ Partial Class Contabilidad_RepIEPS Dim Modalidad As String = $" Modalidad: {DdlModalidad.SelectedItem.Text}" If DtDatos.Rows.Count > 0 Then - Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim Imagen As New System.IO.FileInfo($"{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)() para.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) para.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) para.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString())) para.Add(New ReportParameter("Filtros", $"Filtros: {FechaI}{FechaF}{TipoOperacion}{Modalidad}")) - - If Imagen.Exists Then - para.Add(New ReportParameter("LogoPath", logouri)) - Else - para.Add(New ReportParameter("LogoPath", "")) - End If + para.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepIEPS.rdlc", DtDatos, para, "Reporte de IEPS", Opcion) Else diff --git a/Contabilidad/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 a19bb6fc6..22a9ee915 100644 --- a/Contabilidad/RepIVADiferencias.aspx.vb +++ b/Contabilidad/RepIVADiferencias.aspx.vb @@ -98,24 +98,14 @@ Partial Class Contabilidad_RepIVADiferencias Dim reportpath As String = Server.MapPath("~/Empresas/Grales/Formatos/RepIvaDiferencias.rdlc") '"Empresas/Grales/Formatos/RepIvaDiferencias.rdlc" 'nombre del reporte Dim fileName As String = "Diferencias IVA" - Dim LogoRuta = String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta) If Not IsNothing(DtDatos) AndAlso DtDatos.Rows.Count > 0 Then + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) - If File.Exists(LogoRuta) Then - - If File.Exists(LogoRuta) Then - LogoRuta = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - End If - 'POR EMPRESA - params.Add(New ReportParameter("pImg", LogoRuta)) - Else - params.Add(New ReportParameter("pImg", "")) - End If - 'parametros a enviar al reporte + params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - 'params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) params.Add(New ReportParameter("Ejercicio", Ejercicio.ToString)) params.Add(New ReportParameter("Periodo", Periodo)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) diff --git a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb index 937506849..77ec78951 100644 --- a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb +++ b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb @@ -426,7 +426,8 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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)) ImprimirPDF("Contabilidad/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc", DtDatos, params, "MovimientosAuxiliares", Formato) diff --git a/Contabilidad2/MovimientosconProveedores.aspx.vb b/Contabilidad2/MovimientosconProveedores.aspx.vb index 8259887e4..8c2a8b97a 100644 --- a/Contabilidad2/MovimientosconProveedores.aspx.vb +++ b/Contabilidad2/MovimientosconProveedores.aspx.vb @@ -277,7 +277,8 @@ 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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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"))) ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb index 15b12d53a..5529ff8d8 100644 --- a/Contabilidad2/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb @@ -297,7 +297,8 @@ 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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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/RepAnexoCatalogoCC.aspx.vb b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb index 4e321c5c7..8a1f4f273 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb @@ -375,10 +375,10 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}") SbFiltros.AppendFormat("Estado de Resultados Horizontal por : {0}|", SubProyecto) SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text) + SbFiltros.AppendFormat("Periodo : {0}|", DdlPeriodo.SelectedItem.Text) - GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString()) - 'GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}") + GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", DatoTituloExtra:="", DatosFiltros:=SbFiltros.ToString()) End Sub diff --git a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb index d8c74441f..fd53b9e79 100644 --- a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb @@ -293,7 +293,8 @@ 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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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 6fa1d3400..ec0ceb8dc 100644 --- a/Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude +++ b/Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude @@ -277,7 +277,8 @@ 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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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"))) ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) diff --git a/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude b/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude index c65a7af4f..02759e36a 100644 --- a/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude +++ b/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude @@ -971,7 +971,8 @@ Partial Class Contabilidad2_RepBalanceGeneral 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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", "")) params.Add(New ReportParameter("pFechaFin", FechaF)) diff --git a/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb b/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb index 97763f31b..9f6ccba22 100644 --- a/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb +++ b/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb @@ -836,7 +836,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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), ""))) params.Add(New ReportParameter("pFechaFin", FechaF)) diff --git a/Contabilidad2/RepBalanzaComprobacion.aspx.vb b/Contabilidad2/RepBalanzaComprobacion.aspx.vb index fae21caf0..39997878d 100644 --- a/Contabilidad2/RepBalanzaComprobacion.aspx.vb +++ b/Contabilidad2/RepBalanzaComprobacion.aspx.vb @@ -204,7 +204,8 @@ Partial Class Contabilidad2_RepBalanzaComprobacion 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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"))) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) diff --git a/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude b/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude index 888fb6018..09c7a34ef 100644 --- a/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude +++ b/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude @@ -234,7 +234,8 @@ Partial Class Contabilidad2_RepBalanzaComprobacion 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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 b82602af2..49470a8f0 100644 --- a/Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb +++ b/Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb @@ -255,7 +255,8 @@ 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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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))) params.Add(New ReportParameter("pFirma2", String.Format("Lic. Juan Fortino Leon Robinson{0} Director General", vbCrLf))) diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb index 869c345c2..207b4d58c 100644 --- a/Contabilidad2/RepEstadoActividades.aspx.vb +++ b/Contabilidad2/RepEstadoActividades.aspx.vb @@ -319,20 +319,8 @@ Partial Class AC_RepEstadoActividades params.Add(New ReportParameter("lbTotalActual", LbTotalActual.Text)) params.Add(New ReportParameter("lbTotalAnterior", LbTotalAnterior.Text)) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - - ' params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) - - Dim LogoRuta As String = "" - LogoRuta = String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta) - - If IO.File.Exists(LogoRuta) Then - params.Add(New ReportParameter("pImg", $"file://{LogoRuta}")) - Else - params.Add(New ReportParameter("pImg", "")) - End If - - - + Dim Imagen As New System.IO.FileInfo($"{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", "")) params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem.Text, DdlEjercicio.SelectedItem.Text))) diff --git a/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude b/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude index 06b52d76c..3300292c2 100644 --- a/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude +++ b/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude @@ -316,7 +316,8 @@ Partial Class AC_RepEstadoActividades params.Add(New ReportParameter("lbTotalActual", LbTotalActual.Text)) params.Add(New ReportParameter("lbTotalAnterior", LbTotalAnterior.Text)) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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", String.Format("{0} al {1}", FechaI, FechaF))) diff --git a/Contabilidad2/RepFlujoEfectivo.aspx.vb b/Contabilidad2/RepFlujoEfectivo.aspx.vb index 6ccf25850..97d163776 100644 --- a/Contabilidad2/RepFlujoEfectivo.aspx.vb +++ b/Contabilidad2/RepFlujoEfectivo.aspx.vb @@ -222,7 +222,8 @@ 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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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)) params.Add(New ReportParameter("pTotalAnterior", TotalAnterior.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 180a5cc60..eeba1fdb8 100644 --- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb +++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb @@ -473,7 +473,8 @@ 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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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"))) params.Add(New ReportParameter("CveMoneda", DdlMoneda.SelectedValue)) 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 a29f1b506..b199785e1 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx.vb_old +++ b/Contabilidad2/RepSituacionFinanciera.aspx.vb_old @@ -591,7 +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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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 3be4b85b6..d2854b78f 100644 --- a/Contabilidad2/RepSituacionFinancieraSAT.aspx.vb.exclude +++ b/Contabilidad2/RepSituacionFinancieraSAT.aspx.vb.exclude @@ -589,7 +589,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)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim Imagen As New System.IO.FileInfo($"{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/RepVariacionHaciendaPublica.aspx.vb b/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb index 047d22a3f..9ae8d10c3 100644 --- a/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb +++ b/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb @@ -385,7 +385,8 @@ Partial Class AC_RepVariacionHaciendaPublica Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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)) params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf))) diff --git a/Contratos/CatRefrendos.aspx.cs b/Contratos/CatRefrendos.aspx.cs index 08ee5bddf..802ec036c 100644 --- a/Contratos/CatRefrendos.aspx.cs +++ b/Contratos/CatRefrendos.aspx.cs @@ -504,17 +504,9 @@ 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)); - - if (Imagen.Exists) - { - @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}")); - } - else - { - @params.Add(new ReportParameter("LogoPath", "")); - } + 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); } #endregion diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 629b5bde7..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) @@ -2870,11 +2870,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("Estatus", "")) params.Add(New ReportParameter("Tipo", "-1")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim lrds As New List(Of ReportDataSource) lrds.Add(New ReportDataSource("DataSet1", DsDatosPedDev.Tables(0))) @@ -3646,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") @@ -3662,16 +3658,12 @@ Partial Class Contratos_Default params.Add(New ReportParameter("FechaFin", TxtFechaFinal.Text.Trim)) params.Add(New ReportParameter("TipoContrato", TipoDocumento)) params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato) End Sub 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 @@ -3713,11 +3705,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("Folio", TxtFolio.Text.Trim)) params.Add(New ReportParameter("FechaVencimiento", txtFechaVenc.Text.Trim)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/Contrato.rdlc", dt, params, $"Contrato-{Titulo}", Formato:="PDF") End Sub @@ -3731,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 @@ -3751,11 +3739,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) params.Add(New ReportParameter("Utilidad", UtilidadGastos)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoGastos.rdlc", dt, params, $"{Nombre}-Gastos", Formato:=Formato) End Sub @@ -3775,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 @@ -3791,11 +3775,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("FechaFin", TxtFechaFinal.Text.Trim)) params.Add(New ReportParameter("TipoContrato", TipoDocumento)) params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoSuministros.rdlc", dt, params, $"{Nombre}-Suministros", Formato:=Formato) End Sub @@ -3806,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 @@ -3823,11 +3803,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("TipoContrato", TipoDocumento)) params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/ContratoAvance.rdlc", dt, params, $"{Nombre}-Avance", Formato:=Formato) End Sub @@ -3841,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 @@ -3858,11 +3834,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("TipoContrato", TipoDocumento)) params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoPresupuestos.rdlc", dt, params, $"{Nombre}-Presupuestos", Formato:=Formato) End Sub @@ -3876,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 @@ -3912,11 +3884,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("ValorActivo", LBLAFValorActivo.Text)) params.Add(New ReportParameter("FiltroContratos", Filtro)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoActivosFijos.rdlc", dt, params, $"{Nombre}-ActivosFijos", Formato:=Formato) End Sub diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index e24bee053..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) @@ -2933,11 +2933,7 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("Estatus", "")) params.Add(New ReportParameter("Tipo", "-1")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim lrds As New List(Of ReportDataSource) lrds.Add(New ReportDataSource("DataSet1", DsDatosPedDev.Tables(0))) @@ -3422,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") @@ -3438,11 +3434,7 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("FechaFin", TxtFechaFinal.Text.Trim)) params.Add(New ReportParameter("TipoContrato", TipoDocumento)) params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato) End Sub @@ -3458,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 @@ -3478,11 +3470,7 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) ' params.Add(New ReportParameter("Utilidad", UtilidadGastos)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoGastos.rdlc", dt, params, $"{Nombre}-Gastos", Formato:=Formato) End Sub @@ -3502,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 @@ -3518,11 +3506,7 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("FechaFin", TxtFechaFinal.Text.Trim)) params.Add(New ReportParameter("TipoContrato", TipoDocumento)) params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoSuministros.rdlc", dt, params, $"{Nombre}-Suministros", Formato:=Formato) End Sub @@ -3533,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 @@ -3550,11 +3534,7 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("TipoContrato", TipoDocumento)) params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/ContratoAvance.rdlc", dt, params, $"{Nombre}-Avance", Formato:=Formato) End Sub @@ -3565,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 @@ -3582,11 +3562,7 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("TipoContrato", TipoDocumento)) params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoPresupuestos.rdlc", dt, params, $"{Nombre}-Presupuestos", Formato:=Formato) End Sub @@ -3600,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 @@ -3636,11 +3612,7 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("ValorActivo", LBLAFValorActivo.Text)) params.Add(New ReportParameter("FiltroContratos", Filtro)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoActivosFijos.rdlc", dt, params, $"{Nombre}-ActivosFijos", Formato:=Formato) End Sub diff --git a/Contratos/Contratos.aspx.vb b/Contratos/Contratos.aspx.vb index 9adf97c91..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}") @@ -94,11 +94,7 @@ Partial Class Contratos_Contratos params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Cliente}{Estatus}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepContratos.rdlc", dt, params, "ReporteContratos") Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Contratos/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 a686b9e96..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) @@ -90,11 +90,7 @@ Partial Class Contratos_RepContratosCostos params.Add(New ReportParameter("Estatus", DdlEstatus.SelectedItem.Text)) params.Add(New ReportParameter("Tipo", DdlTipo.SelectedItem.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepContratosCostos.rdlc", DtDatos, params, "ReporteContratosCostos", Formato) End Sub diff --git a/Contratos/RepContratosFianzas.aspx.cs b/Contratos/RepContratosFianzas.aspx.cs index a6e0afae1..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,15 +131,7 @@ 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)); - - if (Imagen.Exists) - { - @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}")); - } - else - { - @params.Add(new ReportParameter("LogoPath", "")); - } + @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : "")); ImprimirPDF("Empresas/Grales/Formatos/RepContratosFianzas.rdlc", DTDatos, @params, "ReporteContratosFianzas", Formato); } diff --git a/Contratos/RepContratosSuministros.aspx.vb b/Contratos/RepContratosSuministros.aspx.vb index 17ddc97f2..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) @@ -89,11 +89,7 @@ Partial Class Contratos_RepContratosSuministros params.Add(New ReportParameter("AgrupadoPor", $"{FechaI}{FechaF}{Contrato}{Estatus}{Tipo}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepContratosSuministros.rdlc", DtDatos, params, "ReporteContratosSuministros", Formato) End Sub diff --git a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb index 069a9bdee..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) @@ -83,11 +83,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato params.Add(New ReportParameter("Estatus", "")) params.Add(New ReportParameter("Tipo", DdlTipo.SelectedItem.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim lrds As New List(Of ReportDataSource) lrds.Add(New ReportDataSource("DataSet1", DsDatos.Tables(0))) diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index c7e64c63b..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)) @@ -549,11 +549,7 @@ Partial Class Contratos_RepPresupuestos params.Add(New ReportParameter("Ejercido", LtlEjercido.Text.FormatoNumero())) params.Add(New ReportParameter("PorEjercer", LtlPorEjercer.Text.FormatoNumero())) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepPresupuestoAnual.rdlc", DtPresupuestos, params, "Reporte de Presupuestos Anual", Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb index 5d23ef8ad..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)) @@ -344,11 +344,7 @@ Partial Class Contratos_RepPresupuestosDetalle params.Add(New ReportParameter("Ejercido", DtPresupuestos.Rows(0)("Ejercido").ToString.FormatoNumero())) params.Add(New ReportParameter("PorEjercer", DtPresupuestos.Rows(0)("PorEjercer").ToString.FormatoNumero())) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepPresupuestoAnual.rdlc", DtPresupuestos, params, "Reporte de Presupuestos Anual", Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/CxC/GestionCobranza.aspx.vb b/CxC/GestionCobranza.aspx.vb index 9f6686ad0..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}") @@ -204,11 +204,7 @@ Partial Class Ventas_GestionCobranza 'params.Add(New ReportParameter("Cobrador", DdlUsuarioCobranza.SelectedItem.Text)) params.Add(New ReportParameter("Filtros", $"{Cobrador}{Estatus}{Responsable}{Turno}{TipoPago}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If Archivo.Exists Then ImprimirPDF(String.Format("{0}Formatos/GestionCobranza.rdlc", UsuarioActual.Empresa.Ruta), DtDatos, params, NombreArchivo:="Gestión de Cobranza") diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index 22c77a23f..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) @@ -733,11 +733,7 @@ Partial Class RepCxC params.Add(New ReportParameter("TituloReporte", TituloReporte)) params.Add(New ReportParameter("CantColumnas", CantidadColumnas.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepCxC.rdlc", DtDatos, params, "ReporteCxC", Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index db4081538..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 @@ -961,11 +961,7 @@ Partial Class RepCxCDetalle params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{ClasificacionCli}{CorteA}")) params.Add(New ReportParameter("TituloReporte", TituloReporte)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim lrds As New List(Of ReportDataSource) diff --git a/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 9f4537c22..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) @@ -363,11 +363,7 @@ Partial Class Proveedores_Contratos Dim Filtro As String = String.Format("{0}: {1}   Proveedor: {2}   Tipo Contrato: {3}", LblSubProyectoFiltro.Text, DdlSubProyectoFiltro.SelectedItem.Text, DdlProveedorFiltro.SelectedItem.Text, DdlTipoContratoFiltro.SelectedItem.Text) params.Add(New ReportParameter("Filtro", Filtro)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepContratosGen.rdlc", DtDatos, params, "Reporte de Contratos", Formato) End Sub End Class diff --git a/Finanzas/RepBalanceGeneral.aspx.vb b/Finanzas/RepBalanceGeneral.aspx.vb index 6b3a669b7..b6d0cc6c4 100644 --- a/Finanzas/RepBalanceGeneral.aspx.vb +++ b/Finanzas/RepBalanceGeneral.aspx.vb @@ -967,7 +967,8 @@ Partial Class Contabilidad2_RepBalanceGeneral 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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", "")) params.Add(New ReportParameter("pFechaFin", FechaF)) diff --git a/Finanzas/RepRotacionCartera.aspx.cs b/Finanzas/RepRotacionCartera.aspx.cs index fc50ded54..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)); @@ -358,15 +358,7 @@ public partial class Finanzas_RepRotacionCartera : ClsPaginas @params.Add(new ReportParameter("Sucursal", ModExtensiones.GetSelectedText(DdlSucursal) == "" ? "Todos" : ModExtensiones.GetSelectedText(DdlSucursal))); - if (Imagen.Exists) - { - @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}")); - } - else - { - @params.Add(new ReportParameter("LogoPath", "")); - } - + @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : "")); if (Tab.ActiveTabIndex == 1) { diff --git a/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 a28cc0c0f..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}" @@ -116,11 +116,7 @@ Partial Class AF_RepIncidentes params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepAFIncidentes.rdlc", DTDatos, params, "ReporIncidentes", Formato:=Formato) diff --git a/Flotillas/RepLicencias.aspx.vb b/Flotillas/RepLicencias.aspx.vb index 1c6122e8a..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 } " @@ -121,11 +121,7 @@ Partial Class AF_RepLicencias params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepAFLicencia.rdlc", DTDatos, params, "ReporLicencias", Formato:=Formato) diff --git a/Flotillas/RepPlacas.aspx.vb b/Flotillas/RepPlacas.aspx.vb index a4462648b..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 @@ -98,11 +98,7 @@ Partial Class AF_RepPlacas params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepPlacas.rdlc", DTDatos, params, "ReportePlacas", Formato:=Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Flotillas/RepPolizaSeguro.aspx.vb b/Flotillas/RepPolizaSeguro.aspx.vb index 00b464429..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 @@ -95,11 +95,7 @@ Partial Class AF_RepPolizaSeguro params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepPolizaSeguroGPS.rdlc", DTDatos, params, "Reporte Poliza Seguro", Formato:=Formato) diff --git a/Flotillas/RepServicios.aspx.vb b/Flotillas/RepServicios.aspx.vb index 664c0a912..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 @@ -102,11 +102,7 @@ Partial Class AF_RepPlacas params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepServiciosGPS.rdlc", DTDatos, params, "ReporteServicios", Formato:=Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/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 2e954e7eb..00b9403d9 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -864,12 +864,12 @@ 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(); @params.Add(new ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)); - @params.Add(new ReportParameter("pImg", new Uri(Server.MapPath(string.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)); + @params.Add(new ReportParameter("pImg", Imagen.Exists ? $"file://{Imagen.FullName}" : "")); @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); @params.Add(new ReportParameter("Sucursal", Sucursal)); @@ -894,15 +894,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas @params.Add(new ReportParameter("FiltroUsuario", Usuario)); - if (Imagen.Exists) - { - @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}")); - } - else - { - @params.Add(new ReportParameter("LogoPath", "")); - } - + @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : "")); ImprimirPDF(RutaPDF, DTDatos, @params, "RepPaqueteriasGuias" + DateTime.Now.ToString("yyyyMMddhhmmss"), Formato); } #endregion diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 9f237b107..757a67bd9 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1048,16 +1048,18 @@ Partial Class Inventarios_EntradasSalidas TxtObservaciones.Enabled = True End If - Dim ObjContabilidad As New ClsContabilidad - If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then - Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("") - If dr IsNot Nothing Then - If dr("IdPoliza").ToString.ToEntero > 0 Then - BtnEliminar.Visible = False + If CvePrePoliza > 0 Then + Dim ObjContabilidad As New ClsContabilidad + If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("") + If dr IsNot Nothing Then + If dr("IdPoliza").ToString.ToEntero > 0 Then + BtnEliminar.Visible = False + End If End If End If + ObjContabilidad.Dispose() End If - ObjContabilidad.Dispose() 'SI TIENE PREPOLIZA NO SE DEBE PODER EDITAR If Mov.TienePrePoliza > 0 Then @@ -3495,7 +3497,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)) @@ -4273,7 +4275,7 @@ Partial Class Inventarios_EntradasSalidas Dim ValorSalida As Decimal = 0 Dim ImporteConcepto As Decimal = 0 Dim tConcepto As String = TxtIFDescripcion.Text.Trim - Dim Fecha = TxtFechaInvFisico.Text.ToDate.ToString("yyyy/MM/dd").ToDate + Dim Fecha As Date = (TxtFechaInvFisico.Text.ToDate.ToString("yyyy/MM/dd ") & Now.ToShortTimeString).ToDate Dim tCveSubProyectoEntrada As Integer = -1 Dim tCveSubProyectoSalida As Integer = -1 Dim TipoMovto As Boolean = False @@ -4414,6 +4416,8 @@ Partial Class Inventarios_EntradasSalidas End If If ValorEntrada >= ValorSalida Then + 'si el valor entrada es igual al valorsalida, y este sea cero. + If tCveSubProyectoEntrada = -1 Then tCveSubProyectoEntrada = tCveSubProyectoSalida If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoEntrada, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then ErrorMovInv = True Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso" diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index bbe6bc894..d32123b5b 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -3979,11 +3979,7 @@ Partial Class Inventarios_EntregaAlmacen Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) Dim params As New List(Of ReportParameter) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb index b7c3fc026..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) @@ -644,11 +644,7 @@ Partial Class Inventarios_InventarioFisicoDetalle params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepInventarioFisicoDetalle.rdlc", DtDatos, params, String.Format("Reporte Inventario Físico-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato) diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index 8beae4fb0..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) @@ -473,11 +473,7 @@ Partial Class Inventarios_Kardex params.Add(New ReportParameter("Producto", ddlProducto2.SelectedText)) params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {SerieAgrupado}{EntradaSalida}{Almacen}{UM}{FechaIn}{FechaFn}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepKardex.rdlc", dt, params, "ReporteKardex", Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Inventarios/KardexAlmacen.aspx.vb b/Inventarios/KardexAlmacen.aspx.vb index 0aa94ec71..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) @@ -187,11 +187,7 @@ Partial Class Inventarios_KardexAlmacen params.Add(New ReportParameter("Producto", ddlProducto2.SelectedText)) params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {EntradaSalida}{Almacen}{UM}{FechaIn}{FechaFn}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepKardexAlmacen.rdlc", dt, params, "ReporteKardex", Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index f7a1e120d..20274a117 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -4747,7 +4747,8 @@ Partial Class Inventarios_RecepcionAlmacen End If Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index bd7b054fd..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 @@ -3572,11 +3572,7 @@ Partial Class Inventarios_RecepcionUsados params.Add(New ReportParameter("CiudadEstadoConsumidor", "")) params.Add(New ReportParameter("TelConsumidor", "")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Anio", "")) params.Add(New ReportParameter("Comprobante", TxtPoliza.Text)) diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb index c02187b8d..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") @@ -106,11 +106,7 @@ Partial Class Inventarios_RepAlmacen params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepAlmacen.rdlc", TmpDT, params, "ReporteAlmacen", Formato) End Sub Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click diff --git a/Inventarios/RepAlmacenCompras.aspx.vb b/Inventarios/RepAlmacenCompras.aspx.vb index 6e077dd39..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) @@ -131,11 +131,7 @@ Partial Class Inventarios_RepAlmacenCompras params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepAlmacenCompras.rdlc", DtAlmacenCompra, params, String.Format("ReporteAlmacenCompras-{0}", Now.ToDateTime.ToShortDateString)) diff --git a/Inventarios/RepAlmacenPeriodo.aspx.vb b/Inventarios/RepAlmacenPeriodo.aspx.vb index 3bbdcc71e..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) @@ -133,11 +133,7 @@ Partial Class Inventarios_RepAlmacenPeriodo params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepAlmacenPeriodo.rdlc", TmpDT, params, "ReporteAlmacenPeriodo") End Sub Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index e5febc579..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 @@ -461,11 +461,7 @@ Partial Class Inventarios_RepAnomalias params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If EsAvance Then If Inventario.GetInventarioFisicoResultadosAvance(CveInventarioFisico, UsuarioActual.CveEmpresa) Then diff --git a/Inventarios/RepApartados.aspx.vb b/Inventarios/RepApartados.aspx.vb index 199bbfc2a..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) @@ -230,11 +230,7 @@ Partial Class Inventarios_RepApartados params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepApartados.rdlc", DtApartados, params, String.Format("ReporteApartados-{0}", Now.ToDateTime.ToShortDateString)) diff --git a/Inventarios/RepApartados2.aspx.vb b/Inventarios/RepApartados2.aspx.vb index 7a08ef173..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) @@ -145,11 +145,7 @@ Partial Class Inventarios_RepApartados2 params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepApartados2.rdlc", DtApartados, params, String.Format("ReporteApartados-{0}", Now.ToDateTime.ToShortDateString), Formato) diff --git a/Inventarios/RepConsignaciones.aspx.vb b/Inventarios/RepConsignaciones.aspx.vb index 6fd73ee5d..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) @@ -117,11 +117,7 @@ Partial Class Inventarios_RepConsignaciones params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepConsignaciones.rdlc", DtConsignaciones, params, String.Format("ReporteConsignaciones-{0}", Now.ToDateTime.ToShortDateString)) diff --git a/Inventarios/RepConsumoInterno.aspx.cs b/Inventarios/RepConsumoInterno.aspx.cs index 1326b0531..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(); @@ -205,15 +205,7 @@ public partial class Inventarios_RepConsumoInterno : ClsPaginas @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString())); - if (Imagen.Exists) - { - @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}")); - } - else - { - @params.Add(new ReportParameter("LogoPath", "")); - } - + @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : "")); ImprimirPDF(RutaPDF, DTDatos, @params, "RepConsumoInterno " + DateTime.Now.ToString("yyyyMMddhhmmss"), Formato); } diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb index ea6ca3b88..c60cd06a3 100644 --- a/Inventarios/RepEntradasSalidas.aspx.vb +++ b/Inventarios/RepEntradasSalidas.aspx.vb @@ -404,7 +404,8 @@ Partial Class Inventarios_ReporteEntradasSalidas Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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)) If FormatoInventario Then 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 270aee3f6..5e7d46689 100644 --- a/Inventarios/RepEntregasForaneas.aspx.vb +++ b/Inventarios/RepEntregasForaneas.aspx.vb @@ -730,9 +730,10 @@ Partial Class Inventarios_RepEntregasForaneas Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + Dim 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)) @@ -741,11 +742,7 @@ Partial Class Inventarios_RepEntregasForaneas params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", $" Estado:{Estatus} Paqueteria:{Paqueteria} Tipo:{Tipo}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF(RutaPDF, DTDatos, params, "RepEntregasForaneas" & Now.ToString("yyyyMMddhhmmss"), Formato) diff --git a/Inventarios/RepExistenciaLote.aspx.vb b/Inventarios/RepExistenciaLote.aspx.vb index 685490a6f..0af361520 100644 --- a/Inventarios/RepExistenciaLote.aspx.vb +++ b/Inventarios/RepExistenciaLote.aspx.vb @@ -267,11 +267,11 @@ Partial Class Inventarios_RepExistenciaLote Dim NombreArchivoDescarga = "ReporteExistenciaLotes" RutaPDF = "Empresas/Grales/Formatos/RepExistenciaLotes.rdlc" - + 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("LogoPath", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + params.Add(New ReportParameter("LogoPath", 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/RepExistenciasCostos.aspx.vb b/Inventarios/RepExistenciasCostos.aspx.vb index acb091561..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) @@ -297,11 +297,7 @@ Partial Class Inventarios_RepExistenciasCostos params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", $"{FechaIn} {FechaFn} {Proveedor} {Concepto} {Almacen} {Clasificacion} {PS} {Moneda}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepExistenciasCostos.rdlc", DtData, params, "ReporteExistenciasCostos", Formato:=reporte) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Inventarios/RepFletes.aspx.vb b/Inventarios/RepFletes.aspx.vb index 251aa6d51..ce0c41ebc 100644 --- a/Inventarios/RepFletes.aspx.vb +++ b/Inventarios/RepFletes.aspx.vb @@ -93,13 +93,9 @@ 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) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta)) If Not ArchivoRuta.Exists Then ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtFletes, params, "Reporte de fletes", formato) diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb index 309478c86..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) @@ -284,11 +284,7 @@ Partial Class Inventarios_RepMaximoMinimo params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepMaximosMinimos.rdlc", dt, params, "ReporteMaxMin") Else @@ -307,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) @@ -319,11 +315,7 @@ Partial Class Inventarios_RepMaximoMinimo params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("PS", PS)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepMaximosMinimosDetalle.rdlc", dt, params, "ReporteMaxMinDetalle") Else diff --git a/Inventarios/RepMovimientos.aspx.vb b/Inventarios/RepMovimientos.aspx.vb index 3d89b29fc..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) @@ -139,11 +139,7 @@ Partial Class RepMovimientosRep params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepMovimientos.rdlc", DtMovimientos, params, String.Format("ReporteMovimientos-{0}", Now.ToDateTime.ToShortDateString)) diff --git a/Inventarios/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 4dec61bc8..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 @@ -253,11 +253,7 @@ Partial Class RepNotasSinAlmacen params.Add(New ReportParameter("FechaInicio", FechaInicial)) params.Add(New ReportParameter("FechaFin", FechaFinal)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If Tab.ActiveTabIndex = 0 Then ImprimirPDF("Empresas/Grales/Formatos/RepNotasSinAlmacenVentas.rdlc", DtNotasSinAlmacenVentas, params, "RepNotasSinAlmacenVentas", Formato:=Formato) Else diff --git a/Inventarios/RepOcInv.aspx.vb b/Inventarios/RepOcInv.aspx.vb index b3754ad01..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) @@ -119,11 +119,7 @@ Partial Class Inventarios_RepOcInv params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepOCInv.rdlc", DtOCXSurtir, params, String.Format("ReporteOCXSurtir-{0}", Now.ToDateTime.ToShortDateString)) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Inventarios/RepOcInvMoto.aspx.vb b/Inventarios/RepOcInvMoto.aspx.vb index ab7e52922..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) @@ -100,11 +100,7 @@ Partial Class Inventarios_RepOcInvMoto params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepOCInvMoto.rdlc", DtOCMovimientos, params, String.Format("ReporteOCMovimientos-{0}", Now.ToDateTime.ToShortDateString)) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Inventarios/RepProductosPorCaducar.aspx.cs b/Inventarios/RepProductosPorCaducar.aspx.cs index 83946dee6..1ebd8c08a 100644 --- a/Inventarios/RepProductosPorCaducar.aspx.cs +++ b/Inventarios/RepProductosPorCaducar.aspx.cs @@ -183,15 +183,8 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas var logouri = string.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); - System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); - if (Imagen.Exists) - { - @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}")); - } - else - { - @params.Add(new ReportParameter("LogoPath", "")); - } + 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"))); ImprimirPDF("Empresas/Grales/Formatos/RepProductosCaducidad.rdlc", DTDatos, @params, "Reporte de Productos por Caducar", formato); diff --git a/Inventarios/RepRSCO.aspx.vb b/Inventarios/RepRSCO.aspx.vb index 720d140d6..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 @@ -113,11 +113,7 @@ Partial Class Inventarios_RepRSCO params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepRSCO.rdlc", DTDatos, params, "RepRSCO" & Now.ToString("yyyyMMddmmss"), Formato:=Formato) diff --git a/Inventarios/RepTraspasoAlmacen.aspx.vb b/Inventarios/RepTraspasoAlmacen.aspx.vb index 2cf3fc56c..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 @@ -163,11 +163,7 @@ Partial Class RepTraspasoAlmacen params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) params.Add(New ReportParameter("FechaImprimio", DateTime.Now.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Inventarios/ReporteMaterial.aspx.vb b/Inventarios/ReporteMaterial.aspx.vb index 7948b0da4..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)) @@ -102,11 +102,7 @@ Partial Class Inventarios_ReporteMaterial params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepReporteMaterial.rdlc", DTDatos, params, $"RepReporteMaterial_{Now.ToString("yyyyMMddmmss")}", Formato:=Formato) End Sub diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index 18f59f5c7..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 @@ -892,11 +892,7 @@ Partial Class Inventarios_TrasladoSolicitud Dim Archivo As New System.IO.FileInfo(RutaFormato) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 1 Then ImprimirPDF(String.Format("{0}Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.Empresa.Ruta), dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato) diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index e1f382790..be5af6a84 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -1087,7 +1087,7 @@ public partial class Nomina_Finiquito : ClsPaginas using (ClsRH ObjPersonal = new ClsRH()) using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL())) { - if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked,TxtObservaciones.Text ) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) + if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked,TxtObservaciones.Text ) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) { DataRow da = ObjPersonal.DtResultados.Rows[0]; CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); @@ -1340,7 +1340,7 @@ public partial class Nomina_Finiquito : ClsPaginas using (ClsRH ObjPersonal = new ClsRH()) using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL())) { - if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) + if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) { DataRow da = ObjPersonal.DtResultados.Rows[0]; CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); diff --git a/Nomina/FiniquitoOld.aspx.cs b/Nomina/FiniquitoOld.aspx.cs index 0d3ca1ad6..95eeedff3 100644 --- a/Nomina/FiniquitoOld.aspx.cs +++ b/Nomina/FiniquitoOld.aspx.cs @@ -362,7 +362,7 @@ partial class Nomina_Finiquito : ClsPaginas using (ClsRH ObjPersonal = new ClsRH()) { - if (ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) && ObjPersonal.DtResultados.Rows.Count > 0) + if (ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) && ObjPersonal.DtResultados.Rows.Count > 0) { } } diff --git a/Nomina/FiniquitoOld.aspx.vb b/Nomina/FiniquitoOld.aspx.vb index 657ddabd9..18c1cda0f 100644 --- a/Nomina/FiniquitoOld.aspx.vb +++ b/Nomina/FiniquitoOld.aspx.vb @@ -308,7 +308,7 @@ Partial Class Nomina_FiniquitoVB Using ObjPersonal As New ClsRH() - If ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then + If ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then End If End Using diff --git a/OC/ListaRequisicion.aspx.cs b/OC/ListaRequisicion.aspx.cs index 9b764f090..36e3fbb8d 100644 --- a/OC/ListaRequisicion.aspx.cs +++ b/OC/ListaRequisicion.aspx.cs @@ -110,25 +110,16 @@ public partial class OC_ListaRequisicion : ClsPaginas RutaPDF = "Empresas/Grales/Formatos/ListaRequisicion.rdlc"; } - 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)); + // 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"); List @params = new List(); - @params.Add(new ReportParameter("pImg", new Uri(Server.MapPath(string.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)); + @params.Add(new ReportParameter("pImg", Imagen.Exists ? $"file://{Imagen.FullName}" : "")); @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); - @params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString())); - - if (Imagen.Exists) - { - @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}")); - } - else - { - @params.Add(new ReportParameter("LogoPath", "")); - } + @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : "")); ImprimirPDF(RutaPDF, DTDatos, @params, "Lista de Requisicion", Formato); } diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index 38d12e28b..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}") @@ -524,11 +524,7 @@ Partial Class RepOC params.Add(New ReportParameter("SubProyectoHeader", LblSubProyecto.Text)) params.Add(New ReportParameter("Titulo", "REPORTE DE ORDENES DE COMPRA POR ATENDER")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If Archivo.Exists Then ImprimirPDF($"{UsuarioActual.Empresa.Ruta}Formatos/RepOCPorAtender.rdlc", DtPorAtender, params, "RepOCPorAtender", Formato) diff --git a/OC/RepOCGuias.aspx.vb b/OC/RepOCGuias.aspx.vb index b1b84f671..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: " @@ -141,11 +141,7 @@ Partial Class OC_RepOCGuias params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepOCGuias.rdlc", DTDatos, params, $"RepOCGuias_{Now.ToString("yyyyMMddmmss")}", Formato:=Formato) End Sub diff --git a/OC/RepReqXOC.aspx.vb b/OC/RepReqXOC.aspx.vb index 8a4210fc6..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: " @@ -140,11 +140,7 @@ Partial Class RepReqXOC params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepReqXOC.rdlc", DTDatos, params, $"RepReqXOC_{Now.ToString("yyyyMMddmmss")}", Formato:=Formato) diff --git a/OC/RepRequisiciones.aspx.vb b/OC/RepRequisiciones.aspx.vb index d85d2bca5..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) @@ -164,11 +164,7 @@ Partial Class OC_RepRequisiciones params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Proyecto", DdlProyecto.SelectedItem.Text)) params.Add(New ReportParameter("SubProyecto", DdlSubProyecto.SelectedItem.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepRequisiciones.rdlc", dt, params, "ReporteRequisiciones") Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/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 0b950ac7b..63b26eecf 100644 --- a/OI/Circular.aspx.vb +++ b/OI/Circular.aspx.vb @@ -47,16 +47,12 @@ 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) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) params.Add(New ReportParameter("FechaImpresion", Today)) params.Add(New ReportParameter("Filtros", String.Format("Fecha Inicial: {0} Fecha Final: {1}", TxtFechaI.Text, TxtFechaF.Text))) diff --git a/OI/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 4857a9b2a..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 @@ -234,11 +234,7 @@ Partial Class OI_RepSoporteADS params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index b192621c7..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 @@ -376,11 +376,7 @@ Partial Class OS_Asignaciones params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) End If @@ -484,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 @@ -495,11 +491,7 @@ Partial Class OS_Asignaciones params.Add(New ReportParameter("FechaInicio", txtFechaI.Text)) params.Add(New ReportParameter("FechaFin", txtFechaF.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepOSAsignacion.rdlc", dt, params, "OrdenesServicio") End Sub #End Region diff --git a/OS/RepServicioDomicilio.aspx.vb b/OS/RepServicioDomicilio.aspx.vb index 48e21a909..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 @@ -700,11 +700,7 @@ Partial Class OS_RepServicioDomicilio params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) End If diff --git a/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 84a4d1faf..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) @@ -2327,11 +2327,7 @@ Partial Class Ventas_PortalCliente params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion)) params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/ClienteHistorial.rdlc", DTHistorialVentas, params, "Reporte de Historial", "Excel") Else @@ -2354,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() @@ -2374,11 +2370,7 @@ Partial Class Ventas_PortalCliente params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion)) params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) retorno = StreamPDF("Empresas/Grales/Formatos/ClienteHistorial.rdlc", DTHistorialVentas, params, "Reporte de Historial") Else @@ -2396,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) @@ -2409,11 +2401,7 @@ Partial Class Ventas_PortalCliente params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion)) params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/ClienteCxC.rdlc", DTCxC, params, "Reporte de CxC Activas", "Excel") Else @@ -2433,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() @@ -2446,11 +2434,7 @@ Partial Class Ventas_PortalCliente params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion)) params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) retorno = StreamPDF("Empresas/Grales/Formatos/ClienteCxC.rdlc", DTCxC, params, "Reporte de CxC Activas") Else @@ -2467,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) @@ -2480,11 +2464,7 @@ Partial Class Ventas_PortalCliente params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion)) params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/ClienteCxC.rdlc", DTCxCHistorial, params, "Reporte de CxC Historial", "Excel") Else @@ -2504,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() @@ -2517,11 +2497,7 @@ Partial Class Ventas_PortalCliente params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion)) params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) retorno = StreamPDF("Empresas/Grales/Formatos/ClienteCxC.rdlc", DTCxCHistorial, params, "Reporte de CxC Historial") Else diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb index 0490ee546..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") @@ -998,11 +998,7 @@ Partial Class Portal_PortalProveedor params.Add(New ReportParameter("LogoPathADS", "")) End If - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorCuentasBancos.rdlc", DTCuentasBancos, params, "Reporte de CxP Pagadas", Formato) Else @@ -1025,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") @@ -1047,11 +1043,7 @@ Partial Class Portal_PortalProveedor params.Add(New ReportParameter("LogoPathADS", "")) End If - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorBancos.rdlc", DtBancos, params, "Reporte de CxP Pagadas", Formato) Else @@ -1092,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") @@ -1117,11 +1109,7 @@ Partial Class Portal_PortalProveedor params.Add(New ReportParameter("LogoPathADS", "")) End If - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorNTPorAplicar.rdlc", DTGvA, params, "Reporte de Ventas", Formato) Else @@ -1141,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") @@ -1166,11 +1154,7 @@ Partial Class Portal_PortalProveedor params.Add(New ReportParameter("LogoPathADS", "")) End If - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorNTPorAplicar.rdlc", DTGvAH, params, "Reporte de Ventas", Formato) Else @@ -1204,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") @@ -1235,11 +1219,7 @@ Partial Class Portal_PortalProveedor params.Add(New ReportParameter("LogoPathADS", "")) End If - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorHistorial.rdlc", DTCxCHistorial, params, "Reporte de Ventas", Formato) Else @@ -1268,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") @@ -1298,11 +1278,7 @@ Partial Class Portal_PortalProveedor params.Add(New ReportParameter("LogoPathADS", "")) End If - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorCxC.rdlc", DTCxCHistorial, params, "Reporte de CxP Pagadas", Formato) Else @@ -1336,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") @@ -1366,11 +1342,7 @@ Partial Class Portal_PortalProveedor params.Add(New ReportParameter("LogoPathADS", "")) End If - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorCxC.rdlc", DTCxCHistorial, params, "Reporte de CxC Activa", Formato) Else diff --git a/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 9902ecc1d..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" @@ -335,11 +335,7 @@ Partial Class RH_CatCursos Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Capacitador", DDLCapacitador.SelectedItem.Text)) diff --git a/RH/CatEstatusPersonal.aspx.vb b/RH/CatEstatusPersonal.aspx.vb index e9fa41ae6..845e2274b 100644 --- a/RH/CatEstatusPersonal.aspx.vb +++ b/RH/CatEstatusPersonal.aspx.vb @@ -139,7 +139,7 @@ Partial Class RH_CatEstatusPersonal Dim EstatusPersonal As String = PersonalEstatTxt.Text Dim Estatus As Boolean = ChkEstatus.Checked Dim CveEstatusPersonal As Integer = CveEstatusPerAEditar 'aquí obtenemos el valor de la propiedad que utilizamos en el metodo "GvDatos_RowEditing" - If ObjEstatusPersonal.UpdateEstatusPersonal(EstatusPersonal, Estatus, CveEstatusPersonal) Then + If ObjEstatusPersonal.UpdateEstatusPersonal(EstatusPersonal, Estatus, CveEstatusPersonal, UsuarioActual.CveUsuario) Then GvDatos.EditIndex = -1 ViewState("DTEstatusPersonal") = ObjEstatusPersonal.DtResultados GlobalDTEstatusPersonal = ObjEstatusPersonal.DtResultados diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index f15c45134..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) @@ -689,11 +689,7 @@ Partial Class RH_CatPersonal params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepPersonal.rdlc", DTDatos, params, "ReporteTareas", Formato:=Formato) diff --git a/RH/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 63926a0a9..b46772b37 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -932,6 +932,7 @@ Partial Class RH_Personal divBitacora.Visible = True CargaGvBitacora() Else + cargatipoTrabajador() MostrarOcultarFechasEstatus() LoadDefaultValues() 'Configuración de Modalidad Insert @@ -1080,29 +1081,43 @@ Partial Class RH_Personal Public Sub cargatipoTrabajador() Using objrh As New ClsRH() - If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then - Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"}) - Dim drow As DataRow = dt.NewRow() - If UsuarioActual.CveEmpresa <> 158 Then - drow = dt.NewRow() - drow("CveTipoTrabajador") = "2" - drow("TipoTrabajadorB") = "Operativo" - dt.Rows.InsertAt(drow, 0) - drow = dt.NewRow() - drow("CveTipoTrabajador") = "3" - drow("TipoTrabajadorB") = "Administrativo" + If UsuarioActual.CveEmpresa <> 158 Then + If (objrh.TiposTrabajadorGet(-1, UsuarioActual.CveEmpresa)) Then + Dim dt As DataTable = objrh.DtResultados + Dim drow As DataRow = dt.NewRow() + drow("CveTipoTrabajador") = "-1" + drow("TipoTrabajadorB") = "Seleccione" dt.Rows.InsertAt(drow, 0) + DdlTipoTrabajador.DataSource = dt + DdlTipoTrabajador.DataBind() + End If - End If - drow = dt.NewRow() - drow("CveTipoTrabajador") = "-1" - drow("TipoTrabajadorB") = "Seleccione" - dt.Rows.InsertAt(drow, 0) - If DdlTipoTrabajador.Items.Count() > 0 Then - DdlTipoTrabajador.SelectedValueExist("-1") - End If - DdlTipoTrabajador.DataSource = dt - DdlTipoTrabajador.DataBind() + Else + + 'If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then + ' Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"}) + ' Dim drow As DataRow = dt.NewRow() + ' If UsuarioActual.CveEmpresa <> 158 Then + ' drow = dt.NewRow() + ' drow("CveTipoTrabajador") = "2" + ' drow("TipoTrabajadorB") = "Operativo" + ' dt.Rows.InsertAt(drow, 0) + ' drow = dt.NewRow() + ' drow("CveTipoTrabajador") = "3" + ' drow("TipoTrabajadorB") = "Administrativo" + ' dt.Rows.InsertAt(drow, 0) + + ' End If + ' drow = dt.NewRow() + ' drow("CveTipoTrabajador") = "-1" + ' drow("TipoTrabajadorB") = "Seleccione" + ' dt.Rows.InsertAt(drow, 0) + ' If DdlTipoTrabajador.Items.Count() > 0 Then + ' DdlTipoTrabajador.SelectedValueExist("-1") + ' End If + ' DdlTipoTrabajador.DataSource = dt + ' DdlTipoTrabajador.DataBind() + 'End If End If End Using End Sub @@ -1938,7 +1953,7 @@ Partial Class RH_Personal DdlSupervisor.SelectedValue.ToEntero(), TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero(), DdlViaticos.SelectedValue.ToEntero(), DdlViaticos.SelectedItem.Text, DdlPrestamos.SelectedValue.ToEntero(), DdlPrestamos.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(), TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), - Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero) Then + Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero()) Then If Archivo.Exists Then @@ -2023,7 +2038,7 @@ Partial Class RH_Personal DdlPrestamos.SelectedValue.ToEntero(), DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(), TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario, CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), - CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1)) Then + CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero()) Then 'Funsion usa RH Familiares If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then @@ -3721,14 +3736,10 @@ 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) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/Personal.rdlc", New DataTable, params, "ReportePersonal", Formato) Else @@ -3823,14 +3834,10 @@ 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) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/ExpedientePersonal.rdlc", New DataTable, params, "ExpedientePersonal") Else @@ -3879,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 @@ -3917,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 @@ -6018,12 +6014,11 @@ Partial Class RH_Personal RutaPDF = "Empresas/Grales/Formatos/RepConsumoPersonal.rdlc" End If - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As List(Of ReportParameter) = New List(Of ReportParameter)() + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter)() params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - 'params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) Dim ObjPersonal As New ClsRH() If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then @@ -6038,12 +6033,8 @@ Partial Class RH_Personal params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString())) + params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - If Imagen.Exists Then - params.Add(New ReportParameter("pImg", logouri)) - Else - params.Add(New ReportParameter("pImg", "")) - End If ImprimirPDF(RutaPDF, DTConsumos, params, $"RepConsumoPersonal - {CodigoP} {NombreCompletoP}", Formato) End Sub Protected Sub LnkImprimirPDFConsumo_Click(sender As Object, e As EventArgs) @@ -6387,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 @@ -6434,11 +6425,7 @@ Partial Class RH_Personal params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If Archivo.Exists Then diff --git a/RH/RepIndiceRotacionPersonal.aspx.vb b/RH/RepIndiceRotacionPersonal.aspx.vb index e2a58bb11..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) @@ -167,11 +167,7 @@ Partial Class Ventas_RepIndiceRotacionPersonal params.Add(New ReportParameter("FechaRealizado", Date.Now().ToString())) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepIndiceRotacionPersonal.rdlc", DTGvDatos, params, "Reporte de Historial", "PDF") diff --git a/RH/RepPersonalInconsistencias.aspx.vb b/RH/RepPersonalInconsistencias.aspx.vb index a56bcf804..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) @@ -256,11 +256,7 @@ Partial Class RH_RepPersonalInconsistencias params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF($"Empresas/Grales/Formatos/{rdlc}", DT, params, String.Format("{0}-{1}", NombreReporte, Now.ToDateTime.ToShortDateString), Formato:=Formato) diff --git a/RH/RepUniformes.aspx.vb b/RH/RepUniformes.aspx.vb index 71dc28f22..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: " @@ -103,11 +103,7 @@ Partial Class RH_RepUniformes params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepUniformes.rdlc", DTDatos, params, "ReporteUniformes", Formato:=Formato) End If diff --git a/RH/RepUniformesResguardo.aspx.vb b/RH/RepUniformesResguardo.aspx.vb index dc3623ddf..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: " @@ -135,11 +135,7 @@ Partial Class RH_RepUniformesResguardo params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepUniformesResguardo.rdlc", DTDatos, params, "ReporteUniformes", Formato:=Formato) End If diff --git a/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 a4f9dbb0b..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 @@ -4995,11 +4995,7 @@ Partial Class Sistemas_UsuarioDetalle params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/BitacoraLogin.rdlc", DtDatos, params, String.Format("BitacoraRegistro-{0}", Now.ToDateTime.ToShortDateString)) End Sub End Class diff --git a/Ventas/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 adaaf80e7..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 @@ -202,11 +202,7 @@ Partial Class CatClientes params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepClientes.rdlc", DtClientes, params, "RepClientes") diff --git a/Ventas/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 748caee5f..4e92f2575 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -4048,11 +4048,7 @@ Partial Class Clientes 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim params As New List(Of ReportParameter) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) @@ -4072,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) @@ -4233,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 @@ -4316,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" @@ -6360,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) @@ -6382,11 +6368,7 @@ Partial Class Clientes params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) params.Add(New ReportParameter("Cliente", LtlCliente.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/ClienteHistorial.rdlc", DTHistorialVentas, params, "Reporte de Historial", "Excel") Else @@ -6405,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() @@ -6427,11 +6409,7 @@ Partial Class Clientes params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) params.Add(New ReportParameter("Cliente", LtlCliente.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) retorno = StreamPDF("Empresas/Grales/Formatos/ClienteHistorial.rdlc", DTHistorialVentas, params, "Reporte de Historial") Else @@ -6795,18 +6773,14 @@ 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)) params.Add(New ReportParameter("AgrupadoPor", String.Format("Cliente: {0}", TxtNombreComercial.Text))) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime().ToShortDateString())) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato) @@ -9881,18 +9855,14 @@ 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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("AgrupadoPor", "Cliente: " & LtlCliente.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato) Else Alert("No se encontró información.", TipoMensaje.MsgAdvertencia) diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb index 35ab16170..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,15 +118,11 @@ 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)) - If Imagen.Exists Then - params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("pImg", "")) - End If + params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) params.Add(New ReportParameter("FechaImpresion", Today)) params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString)) diff --git a/Ventas/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 77cf94d40..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)) @@ -287,11 +287,7 @@ Partial Class Ventas_RepAuxiliarFacturas params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", $"{Cliente}{FechaInicio}{FechaFin}{Clasificacion}{PS}{Proyecto}{Estatus}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepAuxiliarFacturas.rdlc", DtVentas, params, "ReporteAuxiliarFacturas") Else Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia) diff --git a/Ventas/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 c7dfa72f5..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 @@ -137,11 +137,7 @@ Partial Class RepRemisiones params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepCotizaciones.rdlc", DtVentas, params, String.Format("RepCotizaciones-{0}", Now.ToDateTime.ToShortDateString)) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Ventas/RepCotizacionesDetalle.aspx.vb b/Ventas/RepCotizacionesDetalle.aspx.vb index 66f35610f..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 = "" @@ -99,11 +99,7 @@ Partial Class RepRemisionesDetalle params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepCotizacionesDetalle.rdlc", DtVentas, params, String.Format("RepCotizacionesDetalle-{0}", Now.ToDateTime.ToShortDateString)) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Ventas/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 4de0c1890..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}"); @@ -137,15 +137,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas //@params.Add(new ReportParameter("FechaInicio", txtFechaI.Text)); //@params.Add(new ReportParameter("FechaFin", txtFechaF.Text)); - if (Imagen.Exists) - { - @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}")); - } - else - { - @params.Add(new ReportParameter("LogoPath", "")); - } - + @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : "")); this.ImprimirPDF("Empresas/Grales/Formatos/RepNCxAplicar.rdlc", DTDatos, @params, "Reporte de Notas de Credito por Aplicar", Formato); } diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb index ac1b0c0c7..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)) @@ -219,11 +219,7 @@ Partial Class Ventas_RepPS params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("Parametros", SbParametros.ToString())) If System.IO.File.Exists($"{UsuarioActual.Empresa.Ruta}Formatos/RepPS.rdlc") Then diff --git a/Ventas/RepPUESinPago.aspx.vb b/Ventas/RepPUESinPago.aspx.vb index 761e4cbb5..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}") @@ -101,11 +101,7 @@ Partial Class Ventas_RepPUESinPago params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("AgrupadoPor", $"{FI}{FF}{cliente}{subProy}{vendedor}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepPUESinPago.rdlc", DtDatos, params, "RepPUESinPago", Formato) Else diff --git a/Ventas/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 d2806311a..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)) @@ -570,11 +570,7 @@ Partial Class Ventas_RepProductosServicios params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", $"{Grupo}{Cliente}{FechaInicio}{FechaFin}{Categoria}{Clasificacion}{PS}{Proyecto}{Estatus}{Usuario}{Proveedor}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepProductosServicios.rdlc", DtVentas, params, "ReportePS") Else Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia) diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb index 40d57e848..7a3e8be79 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx.vb +++ b/Ventas/RepProductosServiciosDetalle.aspx.vb @@ -778,17 +778,13 @@ 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) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) diff --git a/Ventas/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 aaa0da419..8eb1e5fc5 100644 --- a/Ventas/RepRecuperacion.aspx.vb +++ b/Ventas/RepRecuperacion.aspx.vb @@ -254,18 +254,14 @@ 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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF(RutaPDF, DtDatos, params, String.Format("ReporteRecuperacion-{0}", Now.ToDateTime.ToShortDateString), Formato) Else Alert("No hay datos consultados.", TipoMensaje.MsgAdvertencia) diff --git a/Ventas/RepRecuperacionDetalle.aspx.vb b/Ventas/RepRecuperacionDetalle.aspx.vb index 13319a362..8ed4521e2 100644 --- a/Ventas/RepRecuperacionDetalle.aspx.vb +++ b/Ventas/RepRecuperacionDetalle.aspx.vb @@ -351,18 +351,14 @@ 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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF(RutaPDF, DtDatos, params, String.Format("ReporteRecuperacionDetalle-{0}", Now.ToDateTime.ToShortDateString), Formato) Else Alert("No hay datos consultados.", TipoMensaje.MsgAdvertencia) diff --git a/Ventas/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 dce02d2e6..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) @@ -223,11 +223,7 @@ Partial Class RepRemisiones params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepRemisiones.rdlc", DtVentas, params, String.Format("ReporteRemisiones-{0}", Now.ToDateTime.ToShortDateString)) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Ventas/RepRemisiones2.aspx.vb b/Ventas/RepRemisiones2.aspx.vb index 7e2f5fcea..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 @@ -144,11 +144,7 @@ Partial Class RepRemisiones params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepRemisiones.rdlc", DtVentas, params, String.Format("ReporteRemisiones-{0}", Now.ToDateTime.ToShortDateString)) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Ventas/RepRemisionesDetalle.aspx.vb b/Ventas/RepRemisionesDetalle.aspx.vb index d8c4b4269..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 = "" @@ -251,11 +251,7 @@ Partial Class RepRemisionesDetalle params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepRemisionesDetalle.rdlc", DtVentas, params, String.Format("ReporteRemisionesDetalle-{0}", Now.ToDateTime.ToShortDateString)) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/Ventas/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 5cb7340ca..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) @@ -1050,11 +1050,7 @@ Partial Class RepVentaDetalle params.Add(New ReportParameter("TipoDocto", TipoDocto)) params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo} {TipoDocto} {FechaIn} {FechaFn} {FechaIEjec} {FechaFEjec} {CveCliente} {CveSucursal} {CveSucursalEjec} {Vendedor} {CveUsuario} {CveEstatusFactura} {CondicionesPago} ")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 3d2aadb94..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 @@ -696,11 +696,7 @@ Partial Class Ventas_RepVentas params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) If Archivo.Exists Then ruta = UsuarioActual.Empresa.Ruta & "Formatos/RepVentas.rdlc" diff --git a/Ventas/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 0dc47424c..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 @@ -329,11 +329,7 @@ Partial Class RepVentasPeriodo params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) 'Alert("El reporte requiere papel tipo oficio", TipoMensaje.MsgInformacion) ImprimirPDF("Empresas/Grales/Formatos/RepVentasPeriodo.rdlc", dt, params, String.Format("ReporteVentas-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato) diff --git a/Ventas/RepVentasUtilidad.aspx.vb b/Ventas/RepVentasUtilidad.aspx.vb index 6ffecd8ea..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) @@ -336,11 +336,7 @@ Partial Class Ventas_RepVentasUtilidad params.Add(New ReportParameter("PorNeto", LblPorNeto.Text + " %")) params.Add(New ReportParameter("UtilidadPerdida", LblNombreNeto.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidad.rdlc", dt, params, "RepVentasUtilidad", Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) @@ -348,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 944933029..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) @@ -330,11 +330,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle params.Add(New ReportParameter("PorPerdida", LblPorPerdida.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidadDetalle.rdlc", dt, params, "RepVentasUtilidadDetalle", Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) @@ -368,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) @@ -379,11 +375,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Vendedor}{PS}{Clasificacion}{FechaIn}{FechaFn}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidadDetalleGeneral.rdlc", dt, params, "RepVentasUtilidadDetalle", Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) @@ -391,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 @@ -435,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 @@ -468,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 66e2d2f56..2b219d27e 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx.vb +++ b/Ventas/RepVentasUtilidadPadre.aspx.vb @@ -284,10 +284,11 @@ Partial Class Ventas_RepVentasUtilidadPadre If DdlClientesWS.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Cliente: {0}", DdlClientesWS.SelectedText) If DdlVendedor.GetSelectedText <> "" Then StrFiltro.AppendFormat(" Vendedor: {0}", DdlVendedor.GetSelectedText) If DdlMarcas.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Marcas: {0}", DdlMarcas.SelectedItem.Text) - Dim params As List(Of ReportParameter) = New List(Of ReportParameter)() - Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim Imagen As New System.IO.FileInfo($"{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)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString())) @@ -295,19 +296,11 @@ Partial Class Ventas_RepVentasUtilidadPadre params.Add(New ReportParameter("Neto", LblNeto.Text)) params.Add(New ReportParameter("PorNeto", $"{LblPorNeto.Text}%")) params.Add(New ReportParameter("Rentabilidad", $"{LblRentabilidad.Text}%")) - - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidadPadre.rdlc", DtDatos, params, "Reporte de Utilidad o Pérdida sobre Ventas", Formato) End Sub #End Region - - - End Class diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index fcd6e3b9f..1908b258e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16279,7 +16279,7 @@ Partial Class Ventas CveIEAnticipo = gvr.DataKey("CveIE").ToEntero() Select Case gvr.DataKey("CveConceptoContable").ToString() - Case "3" + Case "3", "295" importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal) If importeMovimiento <> 0 Then @@ -16290,7 +16290,9 @@ Partial Class Ventas Pago.CveIE = CveIEAnticipo Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero() Pago.TipoPago = "A" + Pago.Fecha = TxtFechaAnticipoCliente.text.todate 'TCPago = gvr.DataKey("TipoCambio").todecimal Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero() + Pago.TCPago = gvr.DataKey("TipoCambio").Todecimal Pago.AplicaTraslado = gvr.DataKey("RegresarImpuesto") = "1" Pago.Referencia = gvr.DataKey("Folio") @@ -27124,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)) @@ -27151,11 +27153,7 @@ Partial Class Ventas params.Add(New ReportParameter("Dimensiones", Dimensiones)) params.Add(New ReportParameter("FechaEstimada", FechaEstimada)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF(RutaRdlc, DTMovimientosDetalle, params, $"ReporteGuia_{Now.ToString("yyyyMMddhhmmss")}") 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)