Logotipos correciones

2022-10-20 16:37:49 -07:00
parent 24fe7abcc0
commit 4af6c5483a
143 changed files with 320 additions and 330 deletions
--- a/Contratos/CatRefrendos.aspx.cs
+++ b/Contratos/CatRefrendos.aspx.cs
@@ -1,4 +1,5 @@
 using System;
+using System.Activities.Expressions;
 using System.Collections.Generic;
 using System.Data;
 using System.IO;
@@ -502,12 +503,12 @@ public partial class Contratos_CatRefrendos : ClsPaginas
        @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
        @params.Add(new ReportParameter("Estatus", DdlEstatus.SelectedItem.Text));

-        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", logouri));
+            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
        }
        else
        {
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -2856,9 +2856,9 @@ Partial Class Contratos_Default
            Exit Sub
        End If

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

        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -2871,7 +2871,7 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("Tipo", "-1"))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3646,9 +3646,9 @@ 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = DtAvanceDocumento.FiltraParametros("CveVenta > 0")
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3662,8 +3662,8 @@ 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", logouri))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3671,9 +3671,9 @@ Partial Class Contratos_Default
        ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato)
    End Sub
    Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = DtAvanceDocumento
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3714,7 +3714,7 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("FechaVencimiento", txtFechaVenc.Text.Trim))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3731,8 +3731,8 @@ 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
        Dim UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString


@@ -3752,7 +3752,7 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("Utilidad", UtilidadGastos))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3775,9 +3775,9 @@ 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = DtSuministros
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3792,7 +3792,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", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3806,9 +3806,9 @@ 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = DtAvance
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3823,8 +3823,8 @@ 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", logouri))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3841,9 +3841,9 @@ 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = DtPresupuestos
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3859,7 +3859,7 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("TotalContrato", LblImporte.Text))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3876,9 +3876,9 @@ 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = Nothing

        Select Case RBLAlmacen.SelectedValue
@@ -3913,7 +3913,7 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("FiltroContratos", Filtro))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
--- a/Contratos/Contrato.vb
+++ b/Contratos/Contrato.vb
@@ -1866,9 +1866,9 @@ 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = DtAvanceDocumento
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -1877,7 +1877,7 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("Contrato", Titulo))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -1885,9 +1885,9 @@ Partial Class Contratos_Default
        ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato)
    End Sub
    Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = DtAvanceDocumento
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -1928,7 +1928,7 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("FechaVencimiento", txtFechaVenc.Text.Trim))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -2920,7 +2920,7 @@ Partial Class Contratos_ContratoObra
        End If

        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+

        Dim params As New List(Of ReportParameter)

@@ -2934,7 +2934,7 @@ Partial Class Contratos_ContratoObra
        params.Add(New ReportParameter("Tipo", "-1"))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3423,7 +3423,7 @@ Partial Class Contratos_ContratoObra
    Private Sub GenerarPDF(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 dt As DataTable = DtAvanceDocumento.FiltraParametros("CveVenta > 0")
        Dim params As New List(Of ReportParameter)
@@ -3439,7 +3439,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", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3459,7 +3459,7 @@ Partial Class Contratos_ContratoObra
    Private Sub GenerarPDFGastos(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 UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString


@@ -3479,7 +3479,7 @@ Partial Class Contratos_ContratoObra
        ' params.Add(New ReportParameter("Utilidad", UtilidadGastos))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3503,7 +3503,7 @@ Partial Class Contratos_ContratoObra
    '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 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 = DtSuministros
        Dim params As New List(Of ReportParameter)
@@ -3519,7 +3519,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", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3534,7 +3534,7 @@ Partial Class Contratos_ContratoObra
    '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 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 = DtAvance
        Dim params As New List(Of ReportParameter)
@@ -3551,7 +3551,7 @@ Partial Class Contratos_ContratoObra
        params.Add(New ReportParameter("TotalContrato", LblImporte.Text))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3566,7 +3566,7 @@ Partial Class Contratos_ContratoObra
    '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 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 = DtPresupuestos
        Dim params As New List(Of ReportParameter)
@@ -3583,7 +3583,7 @@ Partial Class Contratos_ContratoObra
        params.Add(New ReportParameter("TotalContrato", LblImporte.Text))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3601,7 +3601,7 @@ Partial Class Contratos_ContratoObra
    '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 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 = Nothing

@@ -3637,7 +3637,7 @@ Partial Class Contratos_ContratoObra
        params.Add(New ReportParameter("FiltroContratos", Filtro))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
--- a/Contratos/Contratos.aspx.vb
+++ b/Contratos/Contratos.aspx.vb
@@ -95,7 +95,7 @@ Partial Class Contratos_Contratos
            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
            params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Cliente}{Estatus}"))
            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
            Else
                params.Add(New ReportParameter("LogoPath", ""))
            End If
--- a/Contratos/RepContratosCostos.aspx.vb
+++ b/Contratos/RepContratosCostos.aspx.vb
@@ -91,7 +91,7 @@ Partial Class Contratos_RepContratosCostos
        params.Add(New ReportParameter("Tipo", DdlTipo.SelectedItem.Text))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
--- a/Contratos/RepContratosFianzas.aspx.cs
+++ b/Contratos/RepContratosFianzas.aspx.cs
@@ -1,4 +1,5 @@
 using System;
+using System.Activities.Expressions;
 using System.Collections.Generic;
 using System.Data;
 using System.Linq;
@@ -133,7 +134,7 @@ public partial class Contratos_RepContratosFianzas : ClsPaginas

        if (Imagen.Exists)
        {
-            @params.Add(new ReportParameter("LogoPath", logouri));
+            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
        }
        else
        {
--- a/Contratos/RepContratosSuministros.aspx.vb
+++ b/Contratos/RepContratosSuministros.aspx.vb
@@ -90,7 +90,7 @@ Partial Class Contratos_RepContratosSuministros
        params.Add(New ReportParameter("AgrupadoPor", $"{FechaI}{FechaF}{Contrato}{Estatus}{Tipo}"))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
--- a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb
+++ b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb
@@ -84,7 +84,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
        params.Add(New ReportParameter("Tipo", DdlTipo.SelectedItem.Text))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
--- a/Contratos/RepPresupuestos.aspx.vb
+++ b/Contratos/RepPresupuestos.aspx.vb
@@ -550,7 +550,7 @@ Partial Class Contratos_RepPresupuestos
            params.Add(New ReportParameter("PorEjercer", LtlPorEjercer.Text.FormatoNumero()))

            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
            Else
                params.Add(New ReportParameter("LogoPath", ""))
            End If
--- a/Contratos/RepPresupuestosDetalle.aspx.vb
+++ b/Contratos/RepPresupuestosDetalle.aspx.vb
@@ -345,7 +345,7 @@ Partial Class Contratos_RepPresupuestosDetalle
            params.Add(New ReportParameter("PorEjercer", DtPresupuestos.Rows(0)("PorEjercer").ToString.FormatoNumero()))

            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
            Else
                params.Add(New ReportParameter("LogoPath", ""))
            End If