diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 7d5ffee83..22e7526ab 100644 --- a/AF/AF.aspx.vb +++ b/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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 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 diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb index 14a3d44f4..46e3271d5 100644 --- a/AF/CatAF.aspx.vb +++ b/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 diff --git a/AF/RepAF.aspx.vb b/AF/RepAF.aspx.vb index c22268a9c..bbd39fd61 100644 --- a/AF/RepAF.aspx.vb +++ b/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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 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 diff --git a/Acarreos/RepContratosAcarreos.aspx.vb b/Acarreos/RepContratosAcarreos.aspx.vb index aecbfcb18..d67432b70 100644 --- a/Acarreos/RepContratosAcarreos.aspx.vb +++ b/Acarreos/RepContratosAcarreos.aspx.vb @@ -150,8 +150,6 @@ Partial Class Acarreos_RepContratosAcarreos If DdlAgrupador.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Agrupador: {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(" Fecha Fin : {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 diff --git a/Acarreos/RepContratosAcarreosDetalle.aspx.vb b/Acarreos/RepContratosAcarreosDetalle.aspx.vb index 3b4191fe5..867f4b816 100644 --- a/Acarreos/RepContratosAcarreosDetalle.aspx.vb +++ b/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 diff --git a/Acarreos/RepPreEstimacionDetalle.aspx.vb b/Acarreos/RepPreEstimacionDetalle.aspx.vb index 0f8b67161..559972ceb 100644 --- a/Acarreos/RepPreEstimacionDetalle.aspx.vb +++ b/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 diff --git a/Acumuladores/RepIndicadorDiario.aspx.vb b/Acumuladores/RepIndicadorDiario.aspx.vb index 460b62abe..f6c5c4fdd 100644 --- a/Acumuladores/RepIndicadorDiario.aspx.vb +++ b/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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -205,7 +205,7 @@ Partial Class ACumuladores_RepIndicadorDiario params.Add(New ReportParameter("AgrupadoPor", $"Filtros Por: {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 diff --git a/Bancos/CatBancos.aspx.vb b/Bancos/CatBancos.aspx.vb index 0aee43f9b..f0546778c 100644 --- a/Bancos/CatBancos.aspx.vb +++ b/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 diff --git a/Bancos/CuentasBancarias.aspx.vb b/Bancos/CuentasBancarias.aspx.vb index ce28b5f56..74260599c 100644 --- a/Bancos/CuentasBancarias.aspx.vb +++ b/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 diff --git a/Bancos/FlujoDiario.aspx.vb b/Bancos/FlujoDiario.aspx.vb index e812818d7..b6b9367b0 100644 --- a/Bancos/FlujoDiario.aspx.vb +++ b/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 diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb index 7dc726ae8..51547feeb 100644 --- a/Bancos/PagoElectronico.aspx.vb +++ b/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 - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Else + 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 - - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Else + 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 - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Else + 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 diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index 165f7b701..1bf5d636b 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -2324,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 @@ -2355,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 - - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Else + + + 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 @@ -2394,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 - 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)) + Else + + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -2994,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 - 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)) + Else + + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index e05a7a8e4..da2e46109 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/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 diff --git a/Bancos/RepClientesAnticipo.aspx.vb b/Bancos/RepClientesAnticipo.aspx.vb index d2eeeb119..7623a6f93 100644 --- a/Bancos/RepClientesAnticipo.aspx.vb +++ b/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 = "Filtros: " 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 diff --git a/Bancos/RepCobrado.aspx.vb b/Bancos/RepCobrado.aspx.vb index 27bab7d10..8a2620b02 100644 --- a/Bancos/RepCobrado.aspx.vb +++ b/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 diff --git a/Bancos/RepCobradoDetalle.aspx.vb b/Bancos/RepCobradoDetalle.aspx.vb index 06560f929..3e86bc927 100644 --- a/Bancos/RepCobradoDetalle.aspx.vb +++ b/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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) 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 diff --git a/Bancos/RepCobradoPagado.aspx.vb b/Bancos/RepCobradoPagado.aspx.vb index 07fed0f2f..4bb2da107 100644 --- a/Bancos/RepCobradoPagado.aspx.vb +++ b/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 diff --git a/Bancos/RepComprobaciones.aspx.cs b/Bancos/RepComprobaciones.aspx.cs index ba1cc8cb2..af3e8775f 100644 --- a/Bancos/RepComprobaciones.aspx.cs +++ b/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 @params = new List(); - 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); + System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); @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 { diff --git a/Bancos/RepCxCCliente.aspx.vb b/Bancos/RepCxCCliente.aspx.vb index f2ff9d95b..ed097ea67 100644 --- a/Bancos/RepCxCCliente.aspx.vb +++ b/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 diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb index 21057b1ce..99f4c5c78 100644 --- a/Bancos/RepEgresosSinComprobante.aspx.vb +++ b/Bancos/RepEgresosSinComprobante.aspx.vb @@ -367,8 +367,8 @@ Partial Class Bancos_RepEgresosSinComprobante Dim StrFiltro As New StringBuilder If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio : {0}", txtFechaI.Text.ToDate.ToShortDateString) If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin : {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 Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 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 diff --git a/Bancos/RepSaldos.aspx.vb b/Bancos/RepSaldos.aspx.vb index 4d3ed5bc6..e6391203b 100644 --- a/Bancos/RepSaldos.aspx.vb +++ b/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 diff --git a/Bancos/RepSaldosDetalle.aspx.vb b/Bancos/RepSaldosDetalle.aspx.vb index 3ecb33a4d..946ce33e0 100644 --- a/Bancos/RepSaldosDetalle.aspx.vb +++ b/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 diff --git a/CGame/OrdenProduccion.aspx.vb b/CGame/OrdenProduccion.aspx.vb index f3f5fe229..5eb1fea86 100644 --- a/CGame/OrdenProduccion.aspx.vb +++ b/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 diff --git a/Compras/CatEstatusFactura.aspx.vb b/Compras/CatEstatusFactura.aspx.vb index ec8af5706..b4c69a943 100644 --- a/Compras/CatEstatusFactura.aspx.vb +++ b/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 diff --git a/Compras/CatProveedores.aspx.vb b/Compras/CatProveedores.aspx.vb index 0a73f76a4..3e46014c9 100644 --- a/Compras/CatProveedores.aspx.vb +++ b/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 diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 6f85e1f3f..4eed8c7d4 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/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 diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index e771ec2c1..21bdd7e6d 100644 --- a/Compras/Proveedores.aspx.vb +++ b/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", $"Agrupado Por: {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 diff --git a/Compras/ProveedoresAuxiliar.aspx.vb b/Compras/ProveedoresAuxiliar.aspx.vb index 41bcfe68c..e9f3f51ef 100644 --- a/Compras/ProveedoresAuxiliar.aspx.vb +++ b/Compras/ProveedoresAuxiliar.aspx.vb @@ -119,14 +119,14 @@ Partial Class Compras_ProveedoresAuxiliar Dim TipoProv = If(DdlTipoProveedor.SelectedValue = "-1", "", $" Tipo Proveedor: {DdlTipoProveedor.SelectedItem.Text}") Dim ContaP = If(DdlOpcionContabilizable.SelectedValue = "-1", "", $" Contabilizable: {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", $"Filtros: {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 diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index ea30d6a2b..3396d9ad6 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/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 diff --git a/Compras/RepComplementoPago.aspx.vb b/Compras/RepComplementoPago.aspx.vb index b3af2df92..f8b880e56 100644 --- a/Compras/RepComplementoPago.aspx.vb +++ b/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 = "", "", $" Proveedor: {DdlProveedores.SelectedText}") Dim FI As String = If(TxtFiltrosFechaInicio.Text = "", "", $" Fecha Inicio: {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 diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb index 7b9864e11..5dbe3742a 100644 --- a/Compras/RepCompras.aspx.vb +++ b/Compras/RepCompras.aspx.vb @@ -400,8 +400,8 @@ Partial Class Compras_RepCompras Dim TipoProveedor = If(DdlTipoProveedor.SelectedValue = "-1", "", $" Tipo de Proveedor: {DdlTipoProveedor.SelectedItem.Text}") Dim TipoDocto = If(DdlTipoDocto.SelectedValue = "-1", "", $" Tipo de Documento: {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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) 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", $"Agrupado Por: {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 diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb index aa9cb1ed9..87a992806 100644 --- a/Compras/RepComprasAF.aspx.vb +++ b/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 diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb index b3b037570..f63896887 100644 --- a/Compras/RepComprasAFDetalle.aspx.vb +++ b/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 diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index d66383613..601cee895 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) 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", $"Agrupado Por: {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 diff --git a/Compras/RepComprasPeriodo.aspx.vb b/Compras/RepComprasPeriodo.aspx.vb index 93a160755..ced8c83f9 100644 --- a/Compras/RepComprasPeriodo.aspx.vb +++ b/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", $"Agrupado Por: {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 diff --git a/Compras/RepComprasPersonal.aspx.vb b/Compras/RepComprasPersonal.aspx.vb index 59b6c8d17..0368c8250 100644 --- a/Compras/RepComprasPersonal.aspx.vb +++ b/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 diff --git a/Compras/RepComprasPersonalDetalle.aspx.vb b/Compras/RepComprasPersonalDetalle.aspx.vb index d9257e328..60b29cc80 100644 --- a/Compras/RepComprasPersonalDetalle.aspx.vb +++ b/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 diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index 53d703549..9dd15d7cc 100644 --- a/Compras/RepCxP.aspx.vb +++ b/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 diff --git a/Compras/RepGastosFijos.aspx.cs b/Compras/RepGastosFijos.aspx.cs index 2e41a8983..b81b584ea 100644 --- a/Compras/RepGastosFijos.aspx.cs +++ b/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 @params = new List(); @@ -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 { diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb index 61f5b6979..c6946764e 100644 --- a/Compras/RepNotasCredito.aspx.vb +++ b/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 diff --git a/Compras/RepPUESinPago.aspx.vb b/Compras/RepPUESinPago.aspx.vb index 94b70c055..13357c4fc 100644 --- a/Compras/RepPUESinPago.aspx.vb +++ b/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 = "", "", $" Fecha Inicio: {TxtFechaI.Text}") Dim FF As String = If(TxtFechaF.Text = "", "", $" Fecha Fin: {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 diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb index 027cc1a66..3290b2841 100644 --- a/Compras/RepProductosServicios.aspx.vb +++ b/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", "", $" Proveedor: {DdlProveedor.SelectedText}") Dim FechaInicio = If(txtFechaI.Text = "", "", $" Fecha Inicio: {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 diff --git a/Compras/RepProductosServiciosDetalle.aspx - copia.vb b/Compras/RepProductosServiciosDetalle.aspx - copia.vb index 054686b25..9e308e6f7 100644 --- a/Compras/RepProductosServiciosDetalle.aspx - copia.vb +++ b/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 diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb index c71fb4c3c..3691d562a 100644 --- a/Compras/RepProductosServiciosDetalle.aspx.vb +++ b/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 diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb index bef7e5cdb..01b94d869 100644 --- a/Compras/RepRembolsoComprobaciones.aspx.vb +++ b/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 diff --git a/Compras/RepReqOCCompraInv.aspx.vb b/Compras/RepReqOCCompraInv.aspx.vb index bfbb0fd3a..7bc8c46e9 100644 --- a/Compras/RepReqOCCompraInv.aspx.vb +++ b/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 diff --git a/Contabilidad/CatCuentas.aspx.vb b/Contabilidad/CatCuentas.aspx.vb index 2143f1db8..1f4f48db5 100644 --- a/Contabilidad/CatCuentas.aspx.vb +++ b/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 diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb index 5c37015df..2c1a32f85 100644 --- a/Contabilidad/FiltraPolizas.aspx.vb +++ b/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 diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb index afaa319cb..153b14da1 100644 --- a/Contabilidad/PopUpAuxiliar.aspx.vb +++ b/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 diff --git a/Contabilidad/RepEdoResultados2.aspx.vb b/Contabilidad/RepEdoResultados2.aspx.vb index d8f901f0a..2abaf0bd9 100644 --- a/Contabilidad/RepEdoResultados2.aspx.vb +++ b/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 diff --git a/Contabilidad/RepGastosCC.aspx.vb b/Contabilidad/RepGastosCC.aspx.vb index 2222739d5..34ea1542c 100644 --- a/Contabilidad/RepGastosCC.aspx.vb +++ b/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 diff --git a/Contratos/CatRefrendos.aspx.cs b/Contratos/CatRefrendos.aspx.cs index bbfb4a453..08ee5bddf 100644 --- a/Contratos/CatRefrendos.aspx.cs +++ b/Contratos/CatRefrendos.aspx.cs @@ -1,4 +1,5 @@ using System; +using System.Activities.Expressions; using System.Collections.Generic; using System.Data; using System.IO; @@ -502,12 +503,12 @@ public partial class Contratos_CatRefrendos : ClsPaginas @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); @params.Add(new ReportParameter("Estatus", DdlEstatus.SelectedItem.Text)); - var logouri = string.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); + System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); if (Imagen.Exists) { - @params.Add(new ReportParameter("LogoPath", logouri)); + @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}")); } else { diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 15e7d3ea7..629b5bde7 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -2856,9 +2856,9 @@ Partial Class Contratos_Default Exit Sub End If - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + + Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -2871,7 +2871,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("Tipo", "-1")) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -3646,9 +3646,9 @@ Partial Class Contratos_Default End Sub Private Sub GenerarPDF(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + + Dim dt As DataTable = DtAvanceDocumento.FiltraParametros("CveVenta > 0") Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -3662,8 +3662,8 @@ Partial Class Contratos_Default params.Add(New ReportParameter("FechaFin", TxtFechaFinal.Text.Trim)) params.Add(New ReportParameter("TipoContrato", TipoDocumento)) params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -3671,9 +3671,9 @@ Partial Class Contratos_Default ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato) End Sub Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + + Dim dt As DataTable = DtAvanceDocumento Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -3714,7 +3714,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("FechaVencimiento", txtFechaVenc.Text.Trim)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -3731,8 +3731,8 @@ Partial Class Contratos_Default End Sub Private Sub GenerarPDFGastos(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString @@ -3752,7 +3752,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("Utilidad", UtilidadGastos)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -3775,9 +3775,9 @@ Partial Class Contratos_Default GenerarPDFSuministros() End Sub Private Sub GenerarPDFSuministros(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + + Dim dt As DataTable = DtSuministros Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -3792,7 +3792,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("TipoContrato", TipoDocumento)) params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -3806,9 +3806,9 @@ Partial Class Contratos_Default GenerarPDFAvance() End Sub Private Sub GenerarPDFAvance(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + + Dim dt As DataTable = DtAvance Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -3823,8 +3823,8 @@ Partial Class Contratos_Default params.Add(New ReportParameter("TipoContrato", TipoDocumento)) params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -3841,9 +3841,9 @@ Partial Class Contratos_Default GenerarPDFPPresupuesto(Formato:="EXCEL") End Sub Private Sub GenerarPDFPPresupuesto(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + + Dim dt As DataTable = DtPresupuestos Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -3859,7 +3859,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -3876,9 +3876,9 @@ Partial Class Contratos_Default GenerarPDFActivosFijos("Excel") End Sub Private Sub GenerarPDFActivosFijos(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + + Dim dt As DataTable = Nothing Select Case RBLAlmacen.SelectedValue @@ -3913,7 +3913,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("FiltroContratos", Filtro)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/Contratos/Contrato.vb b/Contratos/Contrato.vb index 385377c09..152d82f72 100644 --- a/Contratos/Contrato.vb +++ b/Contratos/Contrato.vb @@ -1866,9 +1866,9 @@ Partial Class Contratos_Default End Sub Private Sub GenerarPDF(Optional Formato As String = "PDF") - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + + Dim dt As DataTable = DtAvanceDocumento Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -1877,7 +1877,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("Contrato", Titulo)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -1885,9 +1885,9 @@ Partial Class Contratos_Default ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato) End Sub Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + + Dim dt As DataTable = DtAvanceDocumento Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -1928,7 +1928,7 @@ Partial Class Contratos_Default params.Add(New ReportParameter("FechaVencimiento", txtFechaVenc.Text.Trim)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index e1e2df363..e24bee053 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -2920,7 +2920,7 @@ Partial Class Contratos_ContratoObra End If Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim params As New List(Of ReportParameter) @@ -2934,7 +2934,7 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("Tipo", "-1")) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -3423,7 +3423,7 @@ Partial Class Contratos_ContratoObra Private Sub GenerarPDF(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim dt As DataTable = DtAvanceDocumento.FiltraParametros("CveVenta > 0") Dim params As New List(Of ReportParameter) @@ -3439,7 +3439,7 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("TipoContrato", TipoDocumento)) params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -3459,7 +3459,7 @@ Partial Class Contratos_ContratoObra Private Sub GenerarPDFGastos(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + ' Dim UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString @@ -3479,7 +3479,7 @@ Partial Class Contratos_ContratoObra ' params.Add(New ReportParameter("Utilidad", UtilidadGastos)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -3503,7 +3503,7 @@ Partial Class Contratos_ContratoObra 'End Sub Private Sub GenerarPDFSuministros(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim dt As DataTable = DtSuministros Dim params As New List(Of ReportParameter) @@ -3519,7 +3519,7 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("TipoContrato", TipoDocumento)) params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -3534,7 +3534,7 @@ Partial Class Contratos_ContratoObra 'End Sub Private Sub GenerarPDFAvance(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim dt As DataTable = DtAvance Dim params As New List(Of ReportParameter) @@ -3551,7 +3551,7 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -3566,7 +3566,7 @@ Partial Class Contratos_ContratoObra 'End Sub Private Sub GenerarPDFPPresupuesto(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim dt As DataTable = DtPresupuestos Dim params As New List(Of ReportParameter) @@ -3583,7 +3583,7 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If @@ -3601,7 +3601,7 @@ Partial Class Contratos_ContratoObra 'End Sub Private Sub GenerarPDFActivosFijos(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim dt As DataTable = Nothing @@ -3637,7 +3637,7 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("FiltroContratos", Filtro)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/Contratos/Contratos.aspx.vb b/Contratos/Contratos.aspx.vb index 58229e426..9adf97c91 100644 --- a/Contratos/Contratos.aspx.vb +++ b/Contratos/Contratos.aspx.vb @@ -95,7 +95,7 @@ Partial Class Contratos_Contratos params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {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 diff --git a/Contratos/RepContratosCostos.aspx.vb b/Contratos/RepContratosCostos.aspx.vb index 1f992d9dd..a686b9e96 100644 --- a/Contratos/RepContratosCostos.aspx.vb +++ b/Contratos/RepContratosCostos.aspx.vb @@ -91,7 +91,7 @@ Partial Class Contratos_RepContratosCostos params.Add(New ReportParameter("Tipo", DdlTipo.SelectedItem.Text)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/Contratos/RepContratosFianzas.aspx.cs b/Contratos/RepContratosFianzas.aspx.cs index 2497b618d..a6e0afae1 100644 --- a/Contratos/RepContratosFianzas.aspx.cs +++ b/Contratos/RepContratosFianzas.aspx.cs @@ -1,4 +1,5 @@ using System; +using System.Activities.Expressions; using System.Collections.Generic; using System.Data; using System.Linq; @@ -133,7 +134,7 @@ public partial class Contratos_RepContratosFianzas : ClsPaginas if (Imagen.Exists) { - @params.Add(new ReportParameter("LogoPath", logouri)); + @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}")); } else { diff --git a/Contratos/RepContratosSuministros.aspx.vb b/Contratos/RepContratosSuministros.aspx.vb index b05d9970a..17ddc97f2 100644 --- a/Contratos/RepContratosSuministros.aspx.vb +++ b/Contratos/RepContratosSuministros.aspx.vb @@ -90,7 +90,7 @@ Partial Class Contratos_RepContratosSuministros params.Add(New ReportParameter("AgrupadoPor", $"{FechaI}{FechaF}{Contrato}{Estatus}{Tipo}")) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb index c47574744..069a9bdee 100644 --- a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb +++ b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb @@ -84,7 +84,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato params.Add(New ReportParameter("Tipo", DdlTipo.SelectedItem.Text)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index c49216d9b..c7e64c63b 100644 --- a/Contratos/RepPresupuestos.aspx.vb +++ b/Contratos/RepPresupuestos.aspx.vb @@ -550,7 +550,7 @@ Partial Class Contratos_RepPresupuestos params.Add(New ReportParameter("PorEjercer", LtlPorEjercer.Text.FormatoNumero())) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb index c68bd35ff..5d23ef8ad 100644 --- a/Contratos/RepPresupuestosDetalle.aspx.vb +++ b/Contratos/RepPresupuestosDetalle.aspx.vb @@ -345,7 +345,7 @@ Partial Class Contratos_RepPresupuestosDetalle params.Add(New ReportParameter("PorEjercer", DtPresupuestos.Rows(0)("PorEjercer").ToString.FormatoNumero())) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/CxC/GestionCobranza.aspx.vb b/CxC/GestionCobranza.aspx.vb index 5ca1ad276..9f6686ad0 100644 --- a/CxC/GestionCobranza.aspx.vb +++ b/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 diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index cd9c0c6ac..db4081538 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/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 diff --git a/Edoc/Contratos.aspx.vb b/Edoc/Contratos.aspx.vb index 84904c884..9f4537c22 100644 --- a/Edoc/Contratos.aspx.vb +++ b/Edoc/Contratos.aspx.vb @@ -364,9 +364,9 @@ Partial Class Proveedores_Contratos Dim Filtro As String = String.Format("{0}: {1}   Proveedor: {2}   Tipo Contrato: {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 diff --git a/Finanzas/RepRotacionCartera.aspx.cs b/Finanzas/RepRotacionCartera.aspx.cs index 0b0370e1e..fc50ded54 100644 --- a/Finanzas/RepRotacionCartera.aspx.cs +++ b/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 { diff --git a/Finanzas/RepRotacionCarteraDetalle.aspx.cs b/Finanzas/RepRotacionCarteraDetalle.aspx.cs index 121d4723c..ce2ec079a 100644 --- a/Finanzas/RepRotacionCarteraDetalle.aspx.cs +++ b/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 - + } \ No newline at end of file diff --git a/Flotillas/RepIncidentes.aspx.vb b/Flotillas/RepIncidentes.aspx.vb index 5e5d5e3a2..a28cc0c0f 100644 --- a/Flotillas/RepIncidentes.aspx.vb +++ b/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 diff --git a/Flotillas/RepLicencias.aspx.vb b/Flotillas/RepLicencias.aspx.vb index 79fdd376a..1c6122e8a 100644 --- a/Flotillas/RepLicencias.aspx.vb +++ b/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 diff --git a/Flotillas/RepPlacas.aspx.vb b/Flotillas/RepPlacas.aspx.vb index bf15e2926..a4462648b 100644 --- a/Flotillas/RepPlacas.aspx.vb +++ b/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 diff --git a/Flotillas/RepPolizaSeguro.aspx.vb b/Flotillas/RepPolizaSeguro.aspx.vb index 7ee1cf4b1..00b464429 100644 --- a/Flotillas/RepPolizaSeguro.aspx.vb +++ b/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 diff --git a/Flotillas/RepServicios.aspx.vb b/Flotillas/RepServicios.aspx.vb index 66fb3ee71..664c0a912 100644 --- a/Flotillas/RepServicios.aspx.vb +++ b/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 diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index cb7120051..2e954e7eb 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/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 { diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 26a9a7903..9f237b107 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/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 diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index f4b716677..ef402e041 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/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 diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb index 7cb69b8cb..b7c3fc026 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx.vb +++ b/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 diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index a337a35b9..a3f414a5b 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -472,7 +472,7 @@ Partial Class Inventarios_Kardex params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {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 diff --git a/Inventarios/KardexAlmacen.aspx.vb b/Inventarios/KardexAlmacen.aspx.vb index 70c9ebda8..0aa94ec71 100644 --- a/Inventarios/KardexAlmacen.aspx.vb +++ b/Inventarios/KardexAlmacen.aspx.vb @@ -188,7 +188,7 @@ Partial Class Inventarios_KardexAlmacen params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {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 diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 94dcafa7c..7b6ae3826 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/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 diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb index ea57d5056..c02187b8d 100644 --- a/Inventarios/RepAlmacen.aspx.vb +++ b/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 diff --git a/Inventarios/RepAlmacenCompras.aspx.vb b/Inventarios/RepAlmacenCompras.aspx.vb index b52d29f6c..6e077dd39 100644 --- a/Inventarios/RepAlmacenCompras.aspx.vb +++ b/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 diff --git a/Inventarios/RepAlmacenPeriodo.aspx.vb b/Inventarios/RepAlmacenPeriodo.aspx.vb index f4c8efd47..3bbdcc71e 100644 --- a/Inventarios/RepAlmacenPeriodo.aspx.vb +++ b/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 diff --git a/Inventarios/RepApartados.aspx.vb b/Inventarios/RepApartados.aspx.vb index ad66997c0..199bbfc2a 100644 --- a/Inventarios/RepApartados.aspx.vb +++ b/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 diff --git a/Inventarios/RepApartados2.aspx.vb b/Inventarios/RepApartados2.aspx.vb index 7c991c56b..7a08ef173 100644 --- a/Inventarios/RepApartados2.aspx.vb +++ b/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 diff --git a/Inventarios/RepConsignaciones.aspx.vb b/Inventarios/RepConsignaciones.aspx.vb index d1f11c158..6fd73ee5d 100644 --- a/Inventarios/RepConsignaciones.aspx.vb +++ b/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 diff --git a/Inventarios/RepConsumoInterno.aspx.cs b/Inventarios/RepConsumoInterno.aspx.cs index 0268d9c13..1326b0531 100644 --- a/Inventarios/RepConsumoInterno.aspx.cs +++ b/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 { diff --git a/Inventarios/RepEntregasForaneas.aspx.vb b/Inventarios/RepEntregasForaneas.aspx.vb index 0e3044a3c..270aee3f6 100644 --- a/Inventarios/RepEntregasForaneas.aspx.vb +++ b/Inventarios/RepEntregasForaneas.aspx.vb @@ -742,7 +742,7 @@ Partial Class Inventarios_RepEntregasForaneas params.Add(New ReportParameter("Filtros", $" Estado:{Estatus} Paqueteria:{Paqueteria} Tipo:{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 diff --git a/Inventarios/RepExistenciasCostos.aspx.vb b/Inventarios/RepExistenciasCostos.aspx.vb index f3cdfe821..3c6d86118 100644 --- a/Inventarios/RepExistenciasCostos.aspx.vb +++ b/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 diff --git a/Inventarios/RepFletes.aspx.vb b/Inventarios/RepFletes.aspx.vb index f5b5fa434..251aa6d51 100644 --- a/Inventarios/RepFletes.aspx.vb +++ b/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 diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb index 2e678fb2b..309478c86 100644 --- a/Inventarios/RepMaximoMinimo.aspx.vb +++ b/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 diff --git a/Inventarios/RepMovimientos.aspx.vb b/Inventarios/RepMovimientos.aspx.vb index abcc4fcde..3d89b29fc 100644 --- a/Inventarios/RepMovimientos.aspx.vb +++ b/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 diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb index 4838bd1b0..4dec61bc8 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx.vb +++ b/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 diff --git a/Inventarios/RepOcInv.aspx.vb b/Inventarios/RepOcInv.aspx.vb index 8dabef84e..b3754ad01 100644 --- a/Inventarios/RepOcInv.aspx.vb +++ b/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 diff --git a/Inventarios/RepOcInvMoto.aspx.vb b/Inventarios/RepOcInvMoto.aspx.vb index 01be179d5..ab7e52922 100644 --- a/Inventarios/RepOcInvMoto.aspx.vb +++ b/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 diff --git a/Inventarios/RepProductosPorCaducar.aspx.cs b/Inventarios/RepProductosPorCaducar.aspx.cs index 8a1519fdd..83946dee6 100644 --- a/Inventarios/RepProductosPorCaducar.aspx.cs +++ b/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 { diff --git a/Inventarios/RepTraspasoAlmacen.aspx.vb b/Inventarios/RepTraspasoAlmacen.aspx.vb index 6b3ca229e..2cf3fc56c 100644 --- a/Inventarios/RepTraspasoAlmacen.aspx.vb +++ b/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 diff --git a/Inventarios/ReporteMaterial.aspx.vb b/Inventarios/ReporteMaterial.aspx.vb index 7a136cfec..7948b0da4 100644 --- a/Inventarios/ReporteMaterial.aspx.vb +++ b/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 diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index 728ee6dd9..18f59f5c7 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/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 diff --git a/OC/ListaRequisicion.aspx.cs b/OC/ListaRequisicion.aspx.cs index 447ef0980..9b764f090 100644 --- a/OC/ListaRequisicion.aspx.cs +++ b/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 { diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index fdf6a6880..f682ea94f 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -475,7 +475,7 @@ Partial Class RepOC params.Add(New ReportParameter("Titulo", "REPORTE DE ORDENES DE COMPRA POR ATENDER")) 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 diff --git a/OC/RepOCGuias.aspx.vb b/OC/RepOCGuias.aspx.vb index be431a5fe..b1b84f671 100644 --- a/OC/RepOCGuias.aspx.vb +++ b/OC/RepOCGuias.aspx.vb @@ -142,7 +142,7 @@ Partial Class OC_RepOCGuias params.Add(New ReportParameter("FechaImpresion", Now.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 diff --git a/OC/RepReqXOC.aspx.vb b/OC/RepReqXOC.aspx.vb index 26417220c..8a4210fc6 100644 --- a/OC/RepReqXOC.aspx.vb +++ b/OC/RepReqXOC.aspx.vb @@ -141,7 +141,7 @@ Partial Class RepReqXOC 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 diff --git a/OC/RepRequisiciones.aspx.vb b/OC/RepRequisiciones.aspx.vb index 4642cb047..d85d2bca5 100644 --- a/OC/RepRequisiciones.aspx.vb +++ b/OC/RepRequisiciones.aspx.vb @@ -165,7 +165,7 @@ Partial Class OC_RepRequisiciones params.Add(New ReportParameter("Proyecto", DdlProyecto.SelectedItem.Text)) params.Add(New ReportParameter("SubProyecto", DdlSubProyecto.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 diff --git a/OI/Circular.aspx.vb b/OI/Circular.aspx.vb index 1a0b342f6..0b950ac7b 100644 --- a/OI/Circular.aspx.vb +++ b/OI/Circular.aspx.vb @@ -53,7 +53,7 @@ Partial Class OI_Circular Dim params As New List(Of ReportParameter) 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 diff --git a/OI/RepSoporteADS.aspx.vb b/OI/RepSoporteADS.aspx.vb index b1ef4e4a7..4857a9b2a 100644 --- a/OI/RepSoporteADS.aspx.vb +++ b/OI/RepSoporteADS.aspx.vb @@ -235,7 +235,7 @@ Partial Class OI_RepSoporteADS 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 diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index 689456ba7..b192621c7 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -496,7 +496,7 @@ Partial Class OS_Asignaciones params.Add(New ReportParameter("FechaFin", txtFechaF.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 diff --git a/Portal/ConsultaCliente.aspx.vb b/Portal/ConsultaCliente.aspx.vb index 8ada595f0..ae831ee60 100644 --- a/Portal/ConsultaCliente.aspx.vb +++ b/Portal/ConsultaCliente.aspx.vb @@ -911,7 +911,7 @@ Partial Class Ventas_ConsultaCliente ' params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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 @@ -954,7 +954,7 @@ Partial Class Ventas_ConsultaCliente ' params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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 @@ -989,7 +989,7 @@ Partial Class Ventas_ConsultaCliente ' params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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 @@ -1025,7 +1025,7 @@ Partial Class Ventas_ConsultaCliente ' params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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 @@ -1059,7 +1059,7 @@ Partial Class Ventas_ConsultaCliente ' params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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 @@ -1095,7 +1095,7 @@ Partial Class Ventas_ConsultaCliente ' params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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 diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb index ae77813c1..84a4d1faf 100644 --- a/PortalCliente/PortalCliente.aspx.vb +++ b/PortalCliente/PortalCliente.aspx.vb @@ -2328,7 +2328,7 @@ Partial Class Ventas_PortalCliente params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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 @@ -2375,7 +2375,7 @@ Partial Class Ventas_PortalCliente params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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 @@ -2410,7 +2410,7 @@ Partial Class Ventas_PortalCliente params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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 @@ -2447,7 +2447,7 @@ Partial Class Ventas_PortalCliente params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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 @@ -2481,7 +2481,7 @@ Partial Class Ventas_PortalCliente params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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 @@ -2518,7 +2518,7 @@ Partial Class Ventas_PortalCliente params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.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 diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb index 1c935a145..0490ee546 100644 --- a/PortalProveedor/PortalProveedor.aspx.vb +++ b/PortalProveedor/PortalProveedor.aspx.vb @@ -999,7 +999,7 @@ Partial Class Portal_PortalProveedor End If 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 @@ -1048,7 +1048,7 @@ Partial Class Portal_PortalProveedor End If 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 @@ -1118,7 +1118,7 @@ Partial Class Portal_PortalProveedor End If 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 @@ -1167,7 +1167,7 @@ Partial Class Portal_PortalProveedor End If 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 @@ -1236,7 +1236,7 @@ Partial Class Portal_PortalProveedor End If 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 @@ -1299,7 +1299,7 @@ Partial Class Portal_PortalProveedor End If 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 @@ -1367,7 +1367,7 @@ Partial Class Portal_PortalProveedor End If 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 diff --git a/Proveedores/PortalProveedor.aspx.vb b/Proveedores/PortalProveedor.aspx.vb index ad4ae37f7..4630c9911 100644 --- a/Proveedores/PortalProveedor.aspx.vb +++ b/Proveedores/PortalProveedor.aspx.vb @@ -810,7 +810,7 @@ Partial Class Portal_PortalProveedor ' End If ' 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 @@ -859,7 +859,7 @@ Partial Class Portal_PortalProveedor ' End If ' 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 @@ -928,7 +928,7 @@ Partial Class Portal_PortalProveedor ' End If ' 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 @@ -977,7 +977,7 @@ Partial Class Portal_PortalProveedor ' End If ' 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 @@ -1109,7 +1109,7 @@ Partial Class Portal_PortalProveedor ' End If ' 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 @@ -1177,7 +1177,7 @@ Partial Class Portal_PortalProveedor ' End If ' 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 diff --git a/RH/CatCursos.aspx.vb b/RH/CatCursos.aspx.vb index 461c691fe..9902ecc1d 100644 --- a/RH/CatCursos.aspx.vb +++ b/RH/CatCursos.aspx.vb @@ -336,7 +336,7 @@ Partial Class RH_CatCursos 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 diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 2044c0802..e3d2655de 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -686,7 +686,7 @@ Partial Class RH_CatPersonal 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 diff --git a/RH/MiPerfil.aspx.vb b/RH/MiPerfil.aspx.vb index 9fe5b2b49..e698be95a 100644 --- a/RH/MiPerfil.aspx.vb +++ b/RH/MiPerfil.aspx.vb @@ -1759,7 +1759,7 @@ end_of_for: If (Imagen.Exists) Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index c0d3f1f0b..2db1b9972 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -3704,7 +3704,7 @@ Partial Class RH_Personal 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 @@ -3806,7 +3806,7 @@ Partial Class RH_Personal 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 @@ -6408,7 +6408,7 @@ Partial Class RH_Personal 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 diff --git a/RH/RepIndiceRotacionPersonal.aspx.vb b/RH/RepIndiceRotacionPersonal.aspx.vb index 10605fe33..e2a58bb11 100644 --- a/RH/RepIndiceRotacionPersonal.aspx.vb +++ b/RH/RepIndiceRotacionPersonal.aspx.vb @@ -168,7 +168,7 @@ Partial Class Ventas_RepIndiceRotacionPersonal 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 diff --git a/RH/RepPersonalInconsistencias.aspx.vb b/RH/RepPersonalInconsistencias.aspx.vb index c1afce118..a56bcf804 100644 --- a/RH/RepPersonalInconsistencias.aspx.vb +++ b/RH/RepPersonalInconsistencias.aspx.vb @@ -257,8 +257,8 @@ Partial Class RH_RepPersonalInconsistencias 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)) - Else + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) + Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/RH/RepUniformes.aspx.vb b/RH/RepUniformes.aspx.vb index 889b496d0..71dc28f22 100644 --- a/RH/RepUniformes.aspx.vb +++ b/RH/RepUniformes.aspx.vb @@ -104,7 +104,7 @@ Partial Class RH_RepUniformes 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 diff --git a/RH/RepUniformesResguardo.aspx.vb b/RH/RepUniformesResguardo.aspx.vb index 79138892e..dc3623ddf 100644 --- a/RH/RepUniformesResguardo.aspx.vb +++ b/RH/RepUniformesResguardo.aspx.vb @@ -136,7 +136,7 @@ Partial Class RH_RepUniformesResguardo 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 diff --git a/RH/SolicitudViaticos.aspx.cs b/RH/SolicitudViaticos.aspx.cs index cd34023b5..395c7f591 100644 --- a/RH/SolicitudViaticos.aspx.cs +++ b/RH/SolicitudViaticos.aspx.cs @@ -9,6 +9,7 @@ using System.Data; using Extensiones; using Microsoft.Reporting.WebForms; using System.Text; +using System.Activities.Expressions; public partial class RH_SolicitudViaticos : ClsPaginas { @@ -714,7 +715,7 @@ public partial class RH_SolicitudViaticos : ClsPaginas if (Imagen.Exists) { - @params.Add(new ReportParameter("LogoPath", logouri)); + @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}")); } else { diff --git a/Ventas/CatClientes.aspx.vb b/Ventas/CatClientes.aspx.vb index 4dfd6a1d8..adaaf80e7 100644 --- a/Ventas/CatClientes.aspx.vb +++ b/Ventas/CatClientes.aspx.vb @@ -203,7 +203,7 @@ Partial Class CatClientes 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 diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 1b8edf730..ec63096d4 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -4054,7 +4054,7 @@ Partial Class Clientes 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 @@ -6380,7 +6380,7 @@ Partial Class Clientes params.Add(New ReportParameter("Cliente", LtlCliente.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 @@ -6425,7 +6425,7 @@ Partial Class Clientes params.Add(New ReportParameter("Cliente", LtlCliente.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 @@ -6800,7 +6800,7 @@ Partial Class Clientes 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 @@ -9872,7 +9872,7 @@ Partial Class Clientes params.Add(New ReportParameter("AgrupadoPor", "Cliente: " & LtlCliente.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 diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 054a47a1d..bc04fa7e1 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -8165,7 +8165,7 @@ Partial Class PV 'End If '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 diff --git a/Ventas/RepAuxiliarFacturas.aspx.vb b/Ventas/RepAuxiliarFacturas.aspx.vb index 6f4d006ce..77cf94d40 100644 --- a/Ventas/RepAuxiliarFacturas.aspx.vb +++ b/Ventas/RepAuxiliarFacturas.aspx.vb @@ -288,7 +288,7 @@ Partial Class Ventas_RepAuxiliarFacturas params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", $"{Cliente}{FechaInicio}{FechaFin}{Clasificacion}{PS}{Proyecto}{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 diff --git a/Ventas/RepCotizaciones.aspx.vb b/Ventas/RepCotizaciones.aspx.vb index bec45a074..c7dfa72f5 100644 --- a/Ventas/RepCotizaciones.aspx.vb +++ b/Ventas/RepCotizaciones.aspx.vb @@ -138,7 +138,7 @@ Partial Class RepRemisiones 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 diff --git a/Ventas/RepCotizacionesDetalle.aspx.vb b/Ventas/RepCotizacionesDetalle.aspx.vb index 31aeaa2a4..66f35610f 100644 --- a/Ventas/RepCotizacionesDetalle.aspx.vb +++ b/Ventas/RepCotizacionesDetalle.aspx.vb @@ -100,7 +100,7 @@ Partial Class RepRemisionesDetalle 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 diff --git a/Ventas/RepCotizacionesxFacturar.aspx.vb b/Ventas/RepCotizacionesxFacturar.aspx.vb index 34059ca2e..81a5e723d 100644 --- a/Ventas/RepCotizacionesxFacturar.aspx.vb +++ b/Ventas/RepCotizacionesxFacturar.aspx.vb @@ -176,7 +176,7 @@ Partial Class RepCotizacionesxFacturar ' 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 diff --git a/Ventas/RepNCxAplicar.aspx.cs b/Ventas/RepNCxAplicar.aspx.cs index 3fefb3800..4de0c1890 100644 --- a/Ventas/RepNCxAplicar.aspx.cs +++ b/Ventas/RepNCxAplicar.aspx.cs @@ -1,4 +1,5 @@ using System; +using System.Activities.Expressions; using System.Collections.Generic; using System.Data; using System.Linq; @@ -138,7 +139,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas if (Imagen.Exists) { - @params.Add(new ReportParameter("LogoPath", logouri)); + @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}")); } else { diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb index 2da0659ef..ac1b0c0c7 100644 --- a/Ventas/RepPS.aspx.vb +++ b/Ventas/RepPS.aspx.vb @@ -220,7 +220,7 @@ Partial Class Ventas_RepPS 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 diff --git a/Ventas/RepPUESinPago.aspx.vb b/Ventas/RepPUESinPago.aspx.vb index 052c1a85e..761e4cbb5 100644 --- a/Ventas/RepPUESinPago.aspx.vb +++ b/Ventas/RepPUESinPago.aspx.vb @@ -102,7 +102,7 @@ Partial Class Ventas_RepPUESinPago params.Add(New ReportParameter("AgrupadoPor", $"{FI}{FF}{cliente}{subProy}{vendedor}")) 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 diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index de016ffb0..a9d01c824 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -573,7 +573,7 @@ Partial Class Ventas_RepProductosServicios params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Filtros", $"{Grupo}{Cliente}{FechaInicio}{FechaFin}{Categoria}{Clasificacion}{PS}{Proyecto}{Estatus}{Usuario}{Proveedor}")) 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 diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb index ac8f1f55b..8c1f8520a 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx.vb +++ b/Ventas/RepProductosServiciosDetalle.aspx.vb @@ -784,7 +784,7 @@ Partial Class Ventas_RepProductosServiciosDetalle 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 diff --git a/Ventas/RepRemisiones2.aspx.vb b/Ventas/RepRemisiones2.aspx.vb index 91167e2c5..7e2f5fcea 100644 --- a/Ventas/RepRemisiones2.aspx.vb +++ b/Ventas/RepRemisiones2.aspx.vb @@ -145,7 +145,7 @@ Partial Class RepRemisiones 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 diff --git a/Ventas/RepRemisionesNC.aspx.vb b/Ventas/RepRemisionesNC.aspx.vb index a85466454..315959006 100644 --- a/Ventas/RepRemisionesNC.aspx.vb +++ b/Ventas/RepRemisionesNC.aspx.vb @@ -168,7 +168,7 @@ Partial Class RepRemisionesNC ' 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 diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index c811cee1b..494f0fa60 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -1050,7 +1050,7 @@ Partial Class RepVentaDetalle params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo} {TipoDocto} {FechaIn} {FechaFn} {FechaIEjec} {FechaFEjec} {CveCliente} {CveSucursal} {CveSucursalEjec} {Vendedor} {CveUsuario} {CveEstatusFactura} {CondicionesPago} ")) 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 diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 9c12ca6f6..df2c98fa7 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -695,7 +695,7 @@ Partial Class Ventas_RepVentas 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 diff --git a/Ventas/RepVentas.aspx.vb2 b/Ventas/RepVentas.aspx.vb2 index 785e354f6..5659d9865 100644 --- a/Ventas/RepVentas.aspx.vb2 +++ b/Ventas/RepVentas.aspx.vb2 @@ -325,7 +325,7 @@ Partial Class Ventas_RepVentas 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 diff --git a/Ventas/RepVentasPeriodo.aspx.vb b/Ventas/RepVentasPeriodo.aspx.vb index 191f6d7e2..0dc47424c 100644 --- a/Ventas/RepVentasPeriodo.aspx.vb +++ b/Ventas/RepVentasPeriodo.aspx.vb @@ -330,7 +330,7 @@ Partial Class RepVentasPeriodo 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 diff --git a/Ventas/RepVentasUtilidad.aspx.vb b/Ventas/RepVentasUtilidad.aspx.vb index 04c9b5e37..6ffecd8ea 100644 --- a/Ventas/RepVentasUtilidad.aspx.vb +++ b/Ventas/RepVentasUtilidad.aspx.vb @@ -337,7 +337,7 @@ Partial Class Ventas_RepVentasUtilidad params.Add(New ReportParameter("UtilidadPerdida", LblNombreNeto.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 diff --git a/Ventas/RepVentasUtilidadDetalle.aspx.vb b/Ventas/RepVentasUtilidadDetalle.aspx.vb index eaf05fa4f..944933029 100644 --- a/Ventas/RepVentasUtilidadDetalle.aspx.vb +++ b/Ventas/RepVentasUtilidadDetalle.aspx.vb @@ -331,7 +331,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle 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 @@ -380,7 +380,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Vendedor}{PS}{Clasificacion}{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 diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb index c5f1d1cc7..66e2d2f56 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx.vb +++ b/Ventas/RepVentasUtilidadPadre.aspx.vb @@ -297,7 +297,7 @@ Partial Class Ventas_RepVentasUtilidadPadre params.Add(New ReportParameter("Rentabilidad", $"{LblRentabilidad.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 diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f331cc6cc..e2180022e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -26444,7 +26444,7 @@ Partial Class Ventas 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 diff --git a/Ventas/eFacturas.aspx.vb b/Ventas/eFacturas.aspx.vb index 390e3115e..409f2db17 100644 --- a/Ventas/eFacturas.aspx.vb +++ b/Ventas/eFacturas.aspx.vb @@ -409,7 +409,7 @@ Partial Class Ventas_eFacturas ' 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 diff --git a/vwd.webinfo b/vwd.webinfo index ae786c07a..cd5a963ea 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -572,6 +572,8 @@ + +