Fix Logos Empresas RDLCs

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepClasificacionFuncional.rdlc", DtClasificacionFuncional, params, "ReporteClasificacionFuncional")
     End Sub

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepClasificacionGeografica.rdlc", DtClasificacionGeografica, params, "ReporteClasificacionGeografica")
     End Sub

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepFuentesFinanciamiento.rdlc", DtFuentesFinanciamiento, params, "ReporteFuentesFinanciamiento")
     End Sub

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepFuentesFinanciamientoCONAC.rdlc", DtFuentesFinanciamientoCONAC, params, "ReporteFuentesFinanciamientoCONAC")
     End Sub

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepFuentesRecaudacion.rdlc", DtFuentesRecaudacion, params, "ReporteFuentesRecaudacion")
     End Sub

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepOGClasificaciones.rdlc", DtOGClasificaciones, params, "ReporteOGClasificaciones")
     End Sub

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
         params.Add(New ReportParameter("pTotal", pTotal))
         ImprimirPDF("AC/Reportes/RepCatPresupuestoEgresos.rdlc", DtPresupuestoEgresos, params, "PresupuestoEgresos", Formato)

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
         'params.Add(New ReportParameter("pTotal", pTotal))
         ImprimirPDF("AC/Reportes/RepCatPresupuestoIngresos.rdlc", DtPresupuestoIngresos, params, "PresupuestoIngresos", Formato)

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepCatUnidadesAdministrativas.rdlc", DtUnidadesAdministrativas, params, "ReporteUnidadesAdministrativas")
     End Sub

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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)))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
         params.Add(New ReportParameter("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)))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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)))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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)))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepPresupuestoIngresos.rdlc", DtIngresos, params, "ReporteIngresos")
     End Sub

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepMatrizEgresos.rdlc", GlobalDTAC_MatrizEgresos, params, "RepMatrizEgresos")
     End Sub

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepMatrizIngresos.rdlc", GlobalDTAC_MatrizIngresos, params, "ReporteMatrizEgresos")
     End Sub

AC/RepPresupuestoEgresos.aspx.vb

@@ -222,7 +222,8 @@ Partial Class AC_RepPresupuestoEgresos
 
         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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
         params.Add(New ReportParameter("pFechaCorte", txtFechaF.Text))
 
@@ -241,7 +242,12 @@ Partial Class AC_RepPresupuestoEgresos
         '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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        'If Imagen.Exists Then
+        '    params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}"))
+        'Else
+        '    params.Add(New ReportParameter("pImg", ""))
+        'End If
 
         'MasterReporteador.LocalReport.SetParameters(params)
 

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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

AC/RepPresupuestoEgresosMensual.aspx.vb

@@ -167,7 +167,8 @@ Partial Class AC_RepPresupuestoEgresosMensual
     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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
         params.Add(New ReportParameter("pMomentoContable", DdlTipoCuenta.SelectedItem.ToString))
         ImprimirPDF("AC/Reportes/RepPresupuestoEgresosMensual.rdlc", DtPresupuestoEgresos, params, "RepPresupuestoEgresosMensual", Formato)

AC/RepPresupuestoIngresos.aspx.vb

@@ -159,7 +159,8 @@ Partial Class AC_RepPresupuestoIngresos
         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))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
 
         ImprimirPDF("AC/Reportes/RepPresupuestoIngresos.rdlc", DtIngresos, params, "ReportePresupuestoIngresos", Formato)

AC/RepPresupuestoIngresosMensual.aspx.vb

@@ -132,7 +132,8 @@ Partial Class AC_RepIngresosMensuales
     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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue))
         params.Add(New ReportParameter("pMomentoContable", DdlMomentoContable.SelectedItem.ToString))
         ImprimirPDF("AC/Reportes/RepPresupuestoIngresosMensual.rdlc", DtIngresos, params, "ReportePresupuestoIngresosMensual", Formato)

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
         ImprimirPDF(reportpath, DtProgramaOperativo, params, fileName, Formato)
     End Sub

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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)))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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)))

CRM/RepAcercamientos.aspx.cs

@@ -149,10 +149,11 @@ public partial class CRM_RepAcercamientos : ClsPaginas
         string FechaFinFiltro = String.Format("<strong>Fecha Fin:</strong> {0}&nbsp;&nbsp;&nbsp;&nbsp;", TxtFechaFin.Text);
 
         string Filtros = String.Format("{0}{1}{2}{3}{4}", VendedorFiltro, FechaInicioFiltro, FechaFinFiltro, ProductoServicioFiltro, GiroFiltro);
+        System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
 
         List<ReportParameter> @params = new List<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", 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')");
-
-
-
-
     }
 
-
 }

Compras/RepGastosFijos.aspx.cs

@@ -229,7 +229,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
 
         List<ReportParameter> @params = new List<ReportParameter>();
 
-        @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));

Contabilidad/RepAnexoCatalogo.aspx.vb

@@ -313,17 +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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            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)

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+    '    If Imagen.Exists Then
+    '        params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}"))
+    '    Else
+    '        params.Add(New ReportParameter("pImg", ""))
+    '    End If
     '    params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
 
     '    ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)

Contabilidad/RepAnexoCatalogoSegmento.aspx.vb

@@ -350,7 +350,12 @@ 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))
+    '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+    '    If Imagen.Exists Then
+    '        params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}"))
+    '    Else
+    '        params.Add(New ReportParameter("pImg", ""))
+    '    End If
     '    params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
 
     '    ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)

Contabilidad/RepBalanzaComprobacion.aspx.vb

@@ -267,7 +267,12 @@ 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))
+    '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+    '    If Imagen.Exists Then
+    '        params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}"))
+    '    Else
+    '        params.Add(New ReportParameter("pImg", ""))
+    '    End If
     '    params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
     '    params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy")))
 

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pFirma1", ""))
         params.Add(New ReportParameter("pFirma2", ""))
         params.Add(New ReportParameter("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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pFechaFin", FechaF))
         params.Add(New ReportParameter("pSubtotal", DdlSubtotales.SelectedValue.ToString))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
@@ -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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pFechaI", DdlEjercicio.SelectedValue))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
         params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))

Contabilidad/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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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)

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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)

Contabilidad2/RepAnexoCatalogo.aspx.vb

@@ -297,14 +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))
-
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            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")))
         params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
 

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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")))
 

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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)

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pFirma1", ""))
         params.Add(New ReportParameter("pFirma2", ""))
         params.Add(New ReportParameter("pFechaFin", FechaF))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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")))
 

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
         params.Add(New ReportParameter("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)))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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)))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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))

Contabilidad2/RepSituacionFinanciera.aspx.vb_old

@@ -591,7 +591,12 @@ 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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}"))
+        Else
+            params.Add(New ReportParameter("pImg", ""))
+        End If
         params.Add(New ReportParameter("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))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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)))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pFirma1", ""))
         params.Add(New ReportParameter("pFirma2", ""))
         params.Add(New ReportParameter("pFechaFin", FechaF))

General/RepPaqueteriasGuias.aspx.cs

@@ -869,7 +869,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
         List<ReportParameter> @params = new List<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", 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", Imagen.Exists ? $"file://{Imagen.FullName}" : ""));
-        {
-            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
-        }
-        else
-        {
-            @params.Add(new ReportParameter("LogoPath", ""));
-        }
-
         ImprimirPDF(RutaPDF, DTDatos, @params, "RepPaqueteriasGuias" + DateTime.Now.ToString("yyyyMMddhhmmss"), Formato);
     }
     #endregion

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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))

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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

Inventarios/RepEntregasForaneas.aspx.vb

@@ -730,7 +730,8 @@ 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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        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)
@@ -741,11 +742,7 @@ Partial Class Inventarios_RepEntregasForaneas
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
         params.Add(New ReportParameter("Filtros", $" <b>Estado:</b>{Estatus} <b>Paqueteria:</b>{Paqueteria} <b>Tipo:</b>{Tipo}"))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         ImprimirPDF(RutaPDF, DTDatos, params, "RepEntregasForaneas" & Now.ToString("yyyyMMddhhmmss"), Formato)
 

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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
 
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("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))
 

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);
+        // 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));
 
         List<ReportParameter> @params = new List<ReportParameter>();
 
-        @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()));
-       
+		@params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : ""));
-        if (Imagen.Exists)
-        {
-            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
-        }
-        else
-        {
-            @params.Add(new ReportParameter("LogoPath", ""));
-        }
 
         ImprimirPDF(RutaPDF, DTDatos, @params, "Lista de Requisicion", Formato);
     }