Rep ventas, rep PS filtro Servicio Domicilio

Bancos/RepProveedoresPagos.aspx.vb

@@ -228,8 +228,9 @@ Partial Class Bancos_RepProveedoresPagos
     End Sub
 
     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 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 ObjMovtos As New ClsMovimientos()
@@ -310,7 +311,7 @@ Partial Class Bancos_RepProveedoresPagos
             params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, 1, 0)))
 
             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