Fix Logos Empresas RDLCs

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", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("pImg", ""))
-        End If
-
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
 
         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)