Merge branch 'master' of http://192.168.10.111:8383/SIG

AF/AF.aspx.vb

@@ -3215,11 +3215,10 @@ 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(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("LogoPath", logouri))
+                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen}"))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
@@ -4152,11 +4151,10 @@ 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(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("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

AF/CatAF.aspx.vb

@@ -457,7 +457,7 @@ Partial Class AF_CatAF
         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 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\CatAF.rdlc", UsuarioActual.Empresa.Ruta))
             Dim Ruta As String = ""
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -465,7 +465,7 @@ Partial Class AF_CatAF
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
             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

AF/RepAF.aspx.vb

@@ -326,15 +326,14 @@ 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(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)
+
-
             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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Acarreos/RepContratosAcarreos.aspx.vb

@@ -150,8 +150,6 @@ Partial Class Acarreos_RepContratosAcarreos
             If DdlAgrupador.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Agrupador</b>: {0}", DdlAgrupador.SelectedItem.Text)
 
             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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -159,7 +157,7 @@ Partial Class Acarreos_RepContratosAcarreos
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -180,9 +178,6 @@ Partial Class Acarreos_RepContratosAcarreos
             If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
 
             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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -190,7 +185,7 @@ Partial Class Acarreos_RepContratosAcarreos
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             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

Acarreos/RepContratosAcarreosDetalle.aspx.vb

@@ -179,7 +179,6 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
         If DTCont IsNot Nothing 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 params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -202,7 +201,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
             params.Add(New ReportParameter("VolF", LblVolFaltante.Text))
             params.Add(New ReportParameter("PresF", LblPresFaltante.Text))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -218,7 +217,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
         If DTCont IsNot Nothing 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 params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -241,7 +240,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
             params.Add(New ReportParameter("VolF", LblVolFaltante.Text))
             params.Add(New ReportParameter("PresF", LblPresFaltante.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

Acarreos/RepPreEstimacionDetalle.aspx.vb

@@ -94,7 +94,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle
 
 
             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)
@@ -103,7 +103,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -127,7 +127,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle
 
 
             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)
@@ -136,7 +136,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             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

Acumuladores/RepIndicadorDiario.aspx.vb

@@ -193,8 +193,8 @@ 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(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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -205,7 +205,7 @@ Partial Class ACumuladores_RepIndicadorDiario
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Filtros Por:</b>  {FechaIn} {FechaFn} {SubProyecto} "))
 
             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

Bancos/CatBancos.aspx.vb

@@ -218,12 +218,12 @@ Partial Class Bancos_CatBancos
 
         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 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))
             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

Bancos/CuentasBancarias.aspx.vb

@@ -154,12 +154,12 @@ Partial Class Bancos_CuentasBancarias
     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 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))
             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

Bancos/FlujoDiario.aspx.vb

@@ -51,7 +51,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 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))
@@ -59,7 +59,7 @@ Partial Class Bancos_FlujoDiario
         params.Add(New ReportParameter("Fecha", TxtFecha.Text.ToDate.ToLongDateString))
 
         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

Bancos/PagoElectronico.aspx.vb

@@ -2751,11 +2751,10 @@ Partial Class Bancos_PagoElectronico
         If Archivo.Exists Then
             'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico") 
             ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
-        Else
+        Else
-            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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -2780,12 +2779,10 @@ Partial Class Bancos_PagoElectronico
 
         If Archivo.Exists Then
             ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
-        Else
+        Else
-
+
-            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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -2807,11 +2804,10 @@ Partial Class Bancos_PagoElectronico
 
         If Archivo.Exists Then
             ImprimirPDF(String.Format("{0}Formatos\LayoutPagoProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtPago, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
-        Else
+        Else
-            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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Bancos/PagoElectronicoGrupos.aspx

@@ -579,7 +579,7 @@
                                </div>                                        
                                         
                                         <asp:GridView ID="GvEnviadas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros enviados" ToolTip="Tabla de pagos electronicos" 
-                                            DataKeyNames="CveLayoutEnvioDetalle,CveIE,CveLayoutEnvio,CveProveedor,Archivo,Estatus,NotificarA"
+                                            DataKeyNames="CveLayoutEnvioDetalle,CveIE,CveLayoutEnvio,CveProveedor,Archivo,Estatus,NotificarA,Tipo,CveCuenta"
                                             OnRowDataBound="GvEnviadas_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-heigth="350px" data-freezerows="1" Style="text-align: center;" GridLines="None">
                                             <Columns>
                                                 <asp:BoundField DataField="Fecha" HeaderText="Fecha Envio" DataFormatString="{0:d}" />

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -650,13 +650,26 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
+
         Dim CveBLE = CType(sender, LinkButton).CommandArgument.ToEntero
+        Dim Cvecuenta As Integer = GvRow.DataKey("CveCuenta").ToEntero
+        Dim CveLayoutEnvio As Integer = GvRow.DataKey("CveLayoutEnvio").ToEntero
+
+        Dim TipoRegenrar As String = ""
+
+        If DTEnviadas IsNot Nothing Then
+            TipoRegenrar = DTEnviadas.FiltroPrimeroValor("Tipo", "LEN(Tipo) > 0")
+            TipoRegenrar = If(TipoRegenrar.Contains("ANT"), "ANT", TipoRegenrar)
+        End If
+
+
+
         Dim DtRegenerar As New DataTable
 
         Dim NombreDelArchivo As String = GvRow.DataKey("Archivo")
 
         Dim ObjBancos As New ClsBancos
-        If ObjBancos.GetLayoutPagos(DdlCuentaEnviados.SelectedValue.ToEntero, CveBLE, DdlTipoGeneracionEnviados.SelectedValue, PorGrupos:=True) Then
+        If ObjBancos.GetLayoutPagos(Cvecuenta, CveBLE, TipoRegenrar, PorGrupos:=True) Then
             DtRegenerar = ObjBancos.DtResultados
         Else
             DtRegenerar = Nothing
@@ -2311,10 +2324,10 @@ Partial Class Bancos_PagoElectronicoGrupos
             'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico") 
             ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
         Else
-            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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -2342,12 +2355,12 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         If Archivo.Exists Then
             ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
-        Else
+        Else
-
+
-            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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -2381,11 +2394,11 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         If Archivo.Exists Then
             ImprimirPDF(String.Format("{0}Formatos\LayoutPagoProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtPago, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
-        Else
+        Else
-            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
+            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
@@ -2538,6 +2551,8 @@ Partial Class Bancos_PagoElectronicoGrupos
     Protected Sub ImgUpload_Click(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
         CveIEPagoActual = GvRow.DataKey("CveIE").ToEntero
 
         ' HFComprobanteActual = GvRow.FCHiddenField("HFComprobante")
@@ -2979,11 +2994,11 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         If Archivo.Exists Then
             ImprimirPDF(String.Format("{0}Formatos\LayoutPagoProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtPago, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
-        Else
+        Else
-            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
+            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

Bancos/ProveedoresAbonar.aspx.vb

@@ -2029,7 +2029,7 @@ Partial Class Bancos_ProveedoresAbonar
     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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
             Dim StrImporte As String = DtDatos.Rows(0)("Saldo").ToString.FormatoNumero
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -2059,7 +2059,7 @@ Partial Class Bancos_ProveedoresAbonar
             params.Add(New ReportParameter("Cuenta", Cuenta))
             params.Add(New ReportParameter("Correo", Correo))
             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

Bancos/RepClientesAnticipo.aspx.vb

@@ -147,7 +147,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 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 = "<b>Filtros: </b>"
 
         If DdlClientes.SelectedIndex > 0 Then Filtros = Filtros & " Clientes Todos: " Else Filtros = Filtros & " Cliente: " & DdlClientes.SelectedItem.Text
@@ -170,7 +170,7 @@ Partial Class Bancos_RepClientesAnticipo
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         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

Bancos/RepCobrado.aspx.vb

@@ -141,14 +141,14 @@ Partial Class Ventas_RepRecuperacion
         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)
         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", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Bancos/RepCobradoDetalle.aspx.vb

@@ -199,15 +199,15 @@ 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(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)
         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", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Bancos/RepCobradoPagado.aspx.vb

@@ -190,7 +190,7 @@ Partial Class Bancos_RepCobradoPagado
 
         If DtDatos.Rows.Count > 0 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 params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("FechaInicio", FechaI))
@@ -203,7 +203,7 @@ Partial Class Bancos_RepCobradoPagado
             params.Add(New ReportParameter("FUltimoMes", FUltimoMes))
             params.Add(New ReportParameter("FPenultimoMes", FPenultimoMes))
             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

Bancos/RepComprobaciones.aspx.cs

@@ -1,4 +1,5 @@
 using System;
+using System.Activities.Expressions;
 using System.Collections.Generic;
 using System.Data;
 using System.Linq;
@@ -74,8 +75,7 @@ public partial class Bancos_RepComprobaciones : ClsPaginas
     {
         List<ReportParameter> @params = new List<ReportParameter>();
 
-        System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+        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);
 
         @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
         @params.Add(new ReportParameter("FechaInicio", TxtFechaInicio.Text));
@@ -86,7 +86,7 @@ public partial class Bancos_RepComprobaciones : ClsPaginas
 
         if (Imagen.Exists)
         {
-            @params.Add(new ReportParameter("LogoPath", logouri));
+            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
         }
         else
         {

Bancos/RepCxCCliente.aspx.vb

@@ -132,7 +132,7 @@ Partial Class Bancos_RepCxCCliente
 
     Private Sub GenerarPDFpp()
         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()
         Dim DTpp As DataTable
@@ -159,7 +159,7 @@ Partial Class Bancos_RepCxCCliente
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
 
             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

Bancos/RepEgresosSinComprobante.aspx.vb

@@ -367,8 +367,8 @@ Partial Class Bancos_RepEgresosSinComprobante
             Dim StrFiltro As New StringBuilder
             If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
             If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {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(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 FechaI, FechaF As String
             FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
             FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
@@ -380,7 +380,7 @@ Partial Class Bancos_RepEgresosSinComprobante
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             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

Bancos/RepSaldos.aspx.vb

@@ -160,7 +160,6 @@ 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 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 DtBancos As DataTable
@@ -197,7 +196,7 @@ Partial Class Bancos_RepSaldos
         params.Add(New ReportParameter("FechaFin", FechaF))
 
         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

Bancos/RepSaldosDetalle.aspx.vb

@@ -187,7 +187,6 @@ Partial Class Bancos_RepSaldosDetalle
 
     Private Sub ImprimirReporte(formato As String)
         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 dt As DataTable
@@ -215,7 +214,7 @@ Partial Class Bancos_RepSaldosDetalle
         params.Add(New ReportParameter("SaldoInicial", LblSaldoInicial.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

CGame/OrdenProduccion.aspx.vb

@@ -1677,7 +1677,7 @@ Partial Class CGame_OrdenProduccion
             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 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))
@@ -1688,7 +1688,7 @@ Partial Class CGame_OrdenProduccion
                 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", logouri))
+                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If

Compras/CatEstatusFactura.aspx.vb

@@ -149,14 +149,14 @@ Partial Class Compras_CatEstatusFactura
 
     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 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", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Compras/CatProveedores.aspx.vb

@@ -254,7 +254,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 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
         Dim ObjBancos As New ClsBancos
 
@@ -270,7 +270,7 @@ Partial Class Compras_CatProveedores
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
 
             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

Compras/PopUpVerFactura.aspx.vb

@@ -4792,9 +4792,9 @@ Partial Class PopUpVerFactura
             '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
             '    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", logouri))
+            '        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             '    Else
             '        params.Add(New ReportParameter("LogoPath", ""))
             '    End If

Compras/Proveedores.aspx.vb

@@ -4175,7 +4175,7 @@ Partial Class Compras_Proveedores
 
     Private Sub ImprimirReporteCxP(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 ObjMovtos As New ClsMovimientos()
 
         If rblreporte.SelectedValue = "cxp" Then
@@ -4225,7 +4225,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Proveedor}{FechaIn}{FechaFn}{FechVI}{FechVF}"))
 
                 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
@@ -4261,7 +4261,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("FechaInicio", FI))
                 params.Add(New ReportParameter("FechaFin", FF))
                 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
@@ -4717,7 +4717,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("NombreProveedor", TxtRazonSocial.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
@@ -6284,14 +6284,14 @@ Partial Class Compras_Proveedores
             Dim params As New List(Of ReportParameter)
 
             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)
+
 
             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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/ProveedoresAuxiliar.aspx.vb

@@ -119,14 +119,14 @@ Partial Class Compras_ProveedoresAuxiliar
         Dim TipoProv = If(DdlTipoProveedor.SelectedValue = "-1", "", $"&emsp;<b>Tipo Proveedor:</b> {DdlTipoProveedor.SelectedItem.Text}")
         Dim ContaP = If(DdlOpcionContabilizable.SelectedValue = "-1", "", $"&emsp;<b>Contabilizable:</b> {DdlOpcionContabilizable.SelectedItem.Text}")
         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)
         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", $"<b>Filtros:</b> {Proveedor}{FechaIn}{FechaFn}{OpcionP}{TipoProv}{ContaP}"))
         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

Compras/ReembolsosComprobaciones.aspx.vb

@@ -1259,9 +1259,9 @@ Partial Class Compras_ReembolsosComprobaciones
     End Sub
 
     Private Sub Imprimir(Formato As String)
+
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", 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 params As New List(Of ReportParameter)
 
@@ -1295,7 +1295,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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepComplementoPago.aspx.vb

@@ -174,7 +174,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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         Dim proveedor As String = If(DdlProveedores.SelectedValue = "", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedores.SelectedText}")
         Dim FI As String = If(TxtFiltrosFechaInicio.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtFiltrosFechaInicio.Text}")
@@ -193,7 +193,7 @@ Partial Class Compras_RepComplementoPago
             params.Add(New ReportParameter("AgrupadoPor", $"{proveedor}{FI}{FF}{vinc}{TP}{subProy}{usuario}"))
 
             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

Compras/RepCompras.aspx.vb

@@ -400,8 +400,8 @@ Partial Class Compras_RepCompras
         Dim TipoProveedor = If(DdlTipoProveedor.SelectedValue = "-1", "", $"&emsp;<b>Tipo de Proveedor:</b> {DdlTipoProveedor.SelectedItem.Text}")
         Dim TipoDocto = If(DdlTipoDocto.SelectedValue = "-1", "", $"&emsp;<b>Tipo de Documento:</b> {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(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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("FechaInicio", FechaI))
@@ -411,7 +411,7 @@ Partial Class Compras_RepCompras
             params.Add(New ReportParameter("FechaImpresion", Now.ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{Proveedor}{Capturo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{FechaICaptura}{FechaFCaptura}{TipoDocto}"))
             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

Compras/RepComprasAF.aspx.vb

@@ -242,7 +242,7 @@ Partial Class Compras_RepComprasAF
         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 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
         FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
         FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
@@ -258,7 +258,7 @@ Partial Class Compras_RepComprasAF
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         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

Compras/RepComprasAFDetalle.aspx.vb

@@ -376,7 +376,7 @@ Partial Class Compras_RepComprasAFDetalle
 
 
         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 FechaI, FechaF As String
         FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
@@ -392,7 +392,7 @@ Partial Class Compras_RepComprasAFDetalle
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            pparams.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Compras/RepComprasDetalle.aspx.vb

@@ -441,8 +441,8 @@ 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(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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("FechaInicio", FechaI))
@@ -452,7 +452,7 @@ Partial Class Compras_RepComprasDetalle
             params.Add(New ReportParameter("FechaImpresion", Now.ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{Proveedor}{Capturo}{FechaIn}{FechaFn}{FechaCIn}{FechaCFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{TipoDocto}"))
             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

Compras/RepComprasPeriodo.aspx.vb

@@ -305,7 +305,7 @@ Partial Class Compras_RepComprasPeriodo
                                            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 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 = ObjCompras.DtResultados
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -316,7 +316,7 @@ Partial Class Compras_RepComprasPeriodo
             params.Add(New ReportParameter("FechaImpresion", Now.ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Proveedor}{Capturo}{Grupo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}"))
             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

Compras/RepComprasPersonal.aspx.vb

@@ -194,7 +194,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 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
         FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
@@ -209,7 +209,7 @@ Partial Class Compras_RepComprasPersonal
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         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

Compras/RepComprasPersonalDetalle.aspx.vb

@@ -316,7 +316,7 @@ Partial Class Compras_RepComprasPersonalDetalle
 
 
         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 FechaI, FechaF As String
         FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
@@ -332,7 +332,7 @@ Partial Class Compras_RepComprasPersonalDetalle
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         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

Compras/RepCxP.aspx.vb

@@ -1433,7 +1433,7 @@ Partial Class Compras_RepCxP
             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 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("FechaInicio", FechaI))
@@ -1445,7 +1445,7 @@ Partial Class Compras_RepCxP
             params.Add(New ReportParameter("CantColumnas", CantidadColumnas))
 
             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

Compras/RepGastosFijos.aspx.cs

@@ -224,8 +224,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
         {
             RutaPDF = "Empresas/Grales/Formatos/RepGastosFijos.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));
 
         List<ReportParameter> @params = new List<ReportParameter>();
@@ -241,7 +240,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
 
         if (Imagen.Exists)
         {
-            @params.Add(new ReportParameter("LogoPath", logouri));
+            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
         }
         else
         {

Compras/RepNotasCredito.aspx.vb

@@ -76,7 +76,7 @@ Partial Class Compras_RepNotasCredito
 
 
             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 = DtVentas.FiltraParametros("", "Orden") '.FiltraParametros("Total > 0", DistinctColumns:={"GPO", "Cantidad", "SubTotal", "Descuento", "Amortizacion", "IVA", "Total"})
             Dim FechaI, FechaF As String
             FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
@@ -91,7 +91,7 @@ Partial Class Compras_RepNotasCredito
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
 
             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

Compras/RepPUESinPago.aspx.vb

@@ -81,7 +81,6 @@ 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 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 = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtFechaI.Text}")
         Dim FF As String = If(TxtFechaF.Text = "", "", $"&emsp;<b>Fecha Fin:</b>&nbsp;{TxtFechaF.Text}")
@@ -97,7 +96,7 @@ Partial Class Compras_RepPUESinPago
             params.Add(New ReportParameter("AgrupadoPor", $"{FI}{FF}{cliente}{subProy}"))
 
             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

Compras/RepProductosServicios.aspx.vb

@@ -498,7 +498,7 @@ Partial Class Compras_RepProductosServicios
     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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedor.SelectedText}")
         Dim FechaInicio = If(txtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{txtFechaI.Text}")
@@ -536,7 +536,7 @@ Partial Class Compras_RepProductosServicios
         'params.Add(New ReportParameter("AF", IIf(DdlAF.SelectedItem.Text = "", "Todos", DdlAF.SelectedItem.Text).ToString()))
 
         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

Compras/RepProductosServiciosDetalle.aspx - copia.vb

@@ -412,7 +412,7 @@ Partial Class Compras_RepProductosServiciosDetalle
 
         If DtDatos.Rows.Count > 0 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 params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             'params.Add(New ReportParameter("FechaInicio", FechaI))
@@ -422,7 +422,7 @@ Partial Class Compras_RepProductosServiciosDetalle
             params.Add(New ReportParameter("AgrupoPor", $"{Grupo}{Proyecto}{SubProyecto}{Categoria}{Clasificacion}{PS}{Proveedor}{Estatus}{TipoAF}{FechaIn}{FechaFn}"))
 
             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

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -641,7 +641,7 @@ Partial Class Compras_RepProductosServiciosDetalle
 
         If DtDatos.Rows.Count > 0 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 params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             'params.Add(New ReportParameter("FechaInicio", FechaI))
@@ -651,7 +651,7 @@ Partial Class Compras_RepProductosServiciosDetalle
             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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepRembolsoComprobaciones.aspx.vb

@@ -327,7 +327,6 @@ Partial Class Compras_RepRembolsoComprobaciones
     Private Sub Imprimir(Formato As String)
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", 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 params As New List(Of ReportParameter)
 
@@ -366,7 +365,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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepReqOCCompraInv.aspx.vb

@@ -141,7 +141,7 @@ Partial Class RepReqOCCompraInv
     '        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
     '        params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
     '        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

Contabilidad/CatCuentas.aspx.vb

@@ -301,7 +301,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 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))
@@ -309,7 +309,7 @@ Partial Class Contabilidad_CatCuentas
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         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

Contabilidad/FiltraPolizas.aspx.vb

@@ -217,7 +217,7 @@ Partial Class Contabilidad_FiltraPolizas
         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 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("LogoPath", $"file://{Imagen.FullName}"))
             Dim dt As DataTable = DtDatos
 
 
@@ -227,7 +227,7 @@ Partial Class Contabilidad_FiltraPolizas
             params.Add(New ReportParameter("Periodo", DdlPeriodo.SelectedItem.ToString))
 
             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

Contabilidad/PopUpAuxiliar.aspx.vb

@@ -362,7 +362,7 @@ Partial Class PopUpAuxiliar
     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)
+
 
         If DTDatos IsNot Nothing And DTDatos.Rows.Count > 0 Then
 
@@ -377,7 +377,7 @@ Partial Class PopUpAuxiliar
             params.Add(New ReportParameter("Saldo", LtlSaldo.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

Contabilidad/RepEdoResultados2.aspx.vb

@@ -207,10 +207,9 @@ Partial Class Contabilidad_RepEdoResultados2
         Dim StrFiltro As New StringBuilder
 
         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("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Contabilidad/RepGastosCC.aspx.vb

@@ -129,7 +129,7 @@ Partial Class RepGastosCC
     '        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
     '        params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
     '        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

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
         {

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 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)
 
         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 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)
         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
+        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
@@ -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 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
         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 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
 
 
@@ -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 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)
         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 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)
         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
+        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
@@ -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 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)
         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 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
 
         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

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 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
         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 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
         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

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

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

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

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
         {

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

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

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

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

CxC/GestionCobranza.aspx.vb

@@ -205,7 +205,7 @@ Partial Class Ventas_GestionCobranza
             params.Add(New ReportParameter("Filtros", $"{Cobrador}{Estatus}{Responsable}{Turno}{TipoPago}"))
 
             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

CxC/RepCxCDetalle.aspx.vb

@@ -962,7 +962,7 @@ Partial Class RepCxCDetalle
         params.Add(New ReportParameter("TituloReporte", TituloReporte))
 
         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

Edoc/Contratos.aspx.vb

@@ -364,9 +364,9 @@ Partial Class Proveedores_Contratos
         Dim Filtro As String = String.Format("<b>{0}: </b>{1}&emsp; &emsp;<b>Proveedor: </b>{2}&emsp; &emsp;<b>Tipo Contrato: </b>{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", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", ""))
         End If
         ImprimirPDF("Empresas/Grales/Formatos/RepContratosGen.rdlc", DtDatos, params, "Reporte de Contratos", Formato)
     End Sub

Finanzas/RepRotacionCartera.aspx.cs

@@ -9,6 +9,7 @@ using Extensiones;
 using System.Data;
 using System.IO;
 using Microsoft.Reporting.WebForms;
+using System.Activities.Expressions;
 
 public partial class Finanzas_RepRotacionCartera : ClsPaginas
 {
@@ -359,7 +360,7 @@ public partial class Finanzas_RepRotacionCartera : ClsPaginas
         
         if (Imagen.Exists)
         {
-            @params.Add(new ReportParameter("LogoPath", logouri));
+            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
         }
         else
         {

Finanzas/RepRotacionCarteraDetalle.aspx.cs

@@ -350,7 +350,7 @@ public partial class Finanzas_RepRotacionCarteraDetalle : ClsPaginas
 
     //    if (Imagen.Exists)
     //    {
-    //        @params.Add(new ReportParameter("LogoPath", logouri));
+    //        @params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
     //    }
     //    else
     //    {
@@ -380,5 +380,5 @@ public partial class Finanzas_RepRotacionCarteraDetalle : ClsPaginas
     //    //GeneraPDF("Excel");
     //}
     #endregion
-    
+
 }

Flotillas/RepIncidentes.aspx.vb

@@ -117,7 +117,7 @@ Partial Class AF_RepIncidentes
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         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

Flotillas/RepLicencias.aspx.vb

@@ -122,7 +122,7 @@ Partial Class AF_RepLicencias
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         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

Flotillas/RepPlacas.aspx.vb

@@ -99,7 +99,7 @@ Partial Class AF_RepPlacas
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
             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

Flotillas/RepPolizaSeguro.aspx.vb

@@ -96,7 +96,7 @@ Partial Class AF_RepPolizaSeguro
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         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

Flotillas/RepServicios.aspx.vb

@@ -103,7 +103,7 @@ Partial Class AF_RepPlacas
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
             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

General/RepPaqueteriasGuias.aspx.cs

@@ -10,6 +10,7 @@ using System.Data;
 using Microsoft.Reporting.WebForms;
 using System.IO;
 using System.Text;
+using System.Activities.Expressions;
 
 public partial class General_RepPaqueteriasGuias : ClsPaginas
 {
@@ -895,7 +896,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
 
         if (Imagen.Exists)
         {
-            @params.Add(new ReportParameter("LogoPath", logouri));
+            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
         }
         else
         {

Inventarios/EntradasSalidas.aspx.vb

@@ -3523,7 +3523,7 @@ Partial Class Inventarios_EntradasSalidas
         'params.Add(New ReportParameter("FechaEstimada", FechaEstimada))
 
         '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

Inventarios/EntregaAlmacen.aspx.vb

@@ -3907,7 +3907,7 @@ Partial Class Inventarios_EntregaAlmacen
 
         Dim params As New List(Of ReportParameter)
         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

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -645,7 +645,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
             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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Inventarios/Kardex.aspx.vb

@@ -472,7 +472,7 @@ Partial Class Inventarios_Kardex
                     params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{SerieAgrupado}{EntradaSalida}{Almacen}{UM}{FechaIn}{FechaFn}"))
 
                     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

Inventarios/KardexAlmacen.aspx.vb

@@ -188,7 +188,7 @@ Partial Class Inventarios_KardexAlmacen
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{EntradaSalida}{Almacen}{UM}{FechaIn}{FechaFn}"))
 
             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

Inventarios/RecepcionUsados.aspx.vb

@@ -3579,7 +3579,7 @@ Partial Class Inventarios_RecepcionUsados
         params.Add(New ReportParameter("TelConsumidor", ""))
 
         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

Inventarios/RepAlmacen.aspx.vb

@@ -107,7 +107,7 @@ Partial Class Inventarios_RepAlmacen
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
         params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
         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

Inventarios/RepAlmacenCompras.aspx.vb

@@ -132,7 +132,7 @@ Partial Class Inventarios_RepAlmacenCompras
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
 
             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

Inventarios/RepAlmacenPeriodo.aspx.vb

@@ -134,7 +134,7 @@ Partial Class Inventarios_RepAlmacenPeriodo
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
         params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
         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

Inventarios/RepApartados.aspx.vb

@@ -231,7 +231,7 @@ Partial Class Inventarios_RepApartados
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
 
             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

Inventarios/RepApartados2.aspx.vb

@@ -146,7 +146,7 @@ Partial Class Inventarios_RepApartados2
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
 
             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

Inventarios/RepConsignaciones.aspx.vb

@@ -118,7 +118,7 @@ Partial Class Inventarios_RepConsignaciones
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
 
             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

Inventarios/RepConsumoInterno.aspx.cs

@@ -207,7 +207,7 @@ public partial class Inventarios_RepConsumoInterno : ClsPaginas
 
         if (Imagen.Exists)
         {
-            @params.Add(new ReportParameter("LogoPath", logouri));
+            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
         }
         else
         {

Inventarios/RepEntregasForaneas.aspx.vb

@@ -742,7 +742,7 @@ Partial Class Inventarios_RepEntregasForaneas
         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", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Inventarios/RepExistenciasCostos.aspx.vb

@@ -298,7 +298,7 @@ Partial Class Inventarios_RepExistenciasCostos
             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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Inventarios/RepFletes.aspx.vb

@@ -96,7 +96,7 @@ Partial Class Compras_RepFletes
         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("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Inventarios/RepMaximoMinimo.aspx.vb

@@ -285,7 +285,7 @@ Partial Class Inventarios_RepMaximoMinimo
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                 params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
                 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
@@ -320,7 +320,7 @@ Partial Class Inventarios_RepMaximoMinimo
             params.Add(New ReportParameter("PS", PS))
 
             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

Inventarios/RepMovimientos.aspx.vb

@@ -140,7 +140,7 @@ Partial Class RepMovimientosRep
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
 
             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

Inventarios/RepNotasSinAlmacen.aspx.vb

@@ -254,7 +254,7 @@ Partial Class RepNotasSinAlmacen
         params.Add(New ReportParameter("FechaFin", FechaFinal))
 
         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

Inventarios/RepOcInv.aspx.vb

@@ -120,7 +120,7 @@ Partial Class Inventarios_RepOcInv
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             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

Inventarios/RepOcInvMoto.aspx.vb

@@ -101,7 +101,7 @@ Partial Class Inventarios_RepOcInvMoto
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             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

Inventarios/RepProductosPorCaducar.aspx.cs

@@ -1,6 +1,7 @@
 using Extensiones;
 using Microsoft.Reporting.WebForms;
 using System;
+using System.Activities.Expressions;
 using System.Collections.Generic;
 using System.Data;
 using System.Text;
@@ -185,7 +186,7 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
         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
         {

Inventarios/RepTraspasoAlmacen.aspx.vb

@@ -164,7 +164,7 @@ Partial Class RepTraspasoAlmacen
             params.Add(New ReportParameter("FechaImprimio", DateTime.Now.ToString))
 
             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

Inventarios/ReporteMaterial.aspx.vb

@@ -103,7 +103,7 @@ Partial Class Inventarios_ReporteMaterial
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         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

Inventarios/TrasladoSolicitud.aspx.vb

@@ -893,7 +893,7 @@ Partial Class Inventarios_TrasladoSolicitud
 
 
                 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

OC/ListaRequisicion.aspx.cs

@@ -123,7 +123,7 @@ public partial class OC_ListaRequisicion : ClsPaginas
        
         if (Imagen.Exists)
         {
-            @params.Add(new ReportParameter("LogoPath", logouri));
+            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
         }
         else
         {