Simplificar referencias a logos en RDLC y más limpieza de código

2022-12-22 19:26:13 -07:00
parent 2e4bfe761b
commit 5ef0983e77
260 changed files with 446 additions and 591 deletions
--- a/Ventas/ActualizarPrecios.aspx.vb
+++ b/Ventas/ActualizarPrecios.aspx.vb
@@ -767,7 +767,7 @@ Partial Class Ventas_ActualizarPrecios
        worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
        worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")

-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

        If Imagen.Exists Then
            Dim Ruta As String = String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)
--- a/Ventas/CatClientes.aspx.vb
+++ b/Ventas/CatClientes.aspx.vb
@@ -175,7 +175,7 @@ Partial Class CatClientes
 #Region "P D F"
    Private Sub LinkPdf_Click(sender As Object, e As EventArgs) Handles LinkPdf.Click

-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        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
--- a/Ventas/CatPS.aspx.vb
+++ b/Ventas/CatPS.aspx.vb
@@ -248,19 +248,14 @@ Partial Class CatPS
    End Sub
    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Empresas/Grales/Formatos/CatPS.rpt", 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

        Dim lista = New List(Of CrystalParametro)
        lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
        lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Usuario))
-        lista.Add(New CrystalParametro("AplicaVenta", AplicaVenta.ToString))
-
-        If Imagen.Exists Then
-            lista.Add(New CrystalParametro("LogoPath", logouri))
-        Else
-            lista.Add(New CrystalParametro("LogoPath", ""))
-        End If
+        lista.Add(New CrystalParametro("AplicaVenta", AplicaVenta.ToString))		
+		lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/CatPS.rpt"), DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato)

--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -4068,10 +4068,10 @@ Partial Class Clientes

    Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF")
        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.rpt", 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        '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 DtCxCFact As DataTable = Nothing

        Dim FI = If(TxtFechaInicioCxP.Text = "" Or TxtFechaInicioCxP.Text = "__/__/____", "-1", TxtFechaInicioCxP.Text)
@@ -4229,12 +4229,7 @@ Partial Class Clientes
            lista.Add(New CrystalParametro("TotalAnt", TotalAnt.FormatoNumero()))
            lista.Add(New CrystalParametro("ContaIng", ContaIng))
            lista.Add(New CrystalParametro("ContaAnt", ContaAnt))
-
-            If Imagen.Exists Then
-                lista.Add(New CrystalParametro("LogoPath", logouri))
-            Else
-                lista.Add(New CrystalParametro("LogoPath", ""))
-            End If
+            lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

            If ChkCobranzaEnviarCorreo.Checked Then
                Try
@@ -4312,12 +4307,7 @@ Partial Class Clientes
            lista.Add(New CrystalParametro("TotalAnt", TotalAnt.FormatoNumero()))
            lista.Add(New CrystalParametro("ContaIng", ContaIng))
            lista.Add(New CrystalParametro("ContaAnt", ContaAnt))
-
-            If Imagen.Exists Then
-                lista.Add(New CrystalParametro("LogoPath", logouri))
-            Else
-                lista.Add(New CrystalParametro("LogoPath", ""))
-            End If
+            lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

            Dim drr As DataRow = DtCxCFact2.NewRow
            drr("SerieFolio") = "Total Ing Pesos"
@@ -6356,7 +6346,7 @@ Partial Class Clientes

    Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
        Dim retorno As Byte() = Nothing
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)


@@ -6397,7 +6387,7 @@ Partial Class Clientes

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

@@ -6783,7 +6773,7 @@ Partial Class Clientes
    Private Sub GenerarPDF(Optional Formato As String = "PDF")
        Dim params As New List(Of ReportParameter)

-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        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))
@@ -9865,7 +9855,7 @@ Partial Class Clientes
        If DtTemp IsNot Nothing And DtTemp.Rows.Count > 0 Then
            Dim params As New List(Of ReportParameter)

-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            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))
--- a/Ventas/MetasVendedores.aspx.vb
+++ b/Ventas/MetasVendedores.aspx.vb
@@ -102,16 +102,12 @@ Partial Class MetasVendedores
    End Sub

    Protected Sub LnkPDF_RowDataBound(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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        '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("pEmp", UsuarioActual.Empresa.Empresa))
-        If Imagen.Exists Then
-            params.Add(New ReportParameter("pImg", logouri))
-        Else
-            params.Add(New ReportParameter("pImg", ""))
-        End If
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
        params.Add(New ReportParameter("FechaImpresion", Today))
        params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
@@ -122,7 +118,7 @@ Partial Class MetasVendedores

    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click

-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))

--- a/Ventas/MetasVendedoresDetalle.aspx.vb
+++ b/Ventas/MetasVendedoresDetalle.aspx.vb
@@ -73,16 +73,12 @@ Partial Class MetasVendedoresDetalle


    'Protected Sub LnkPDF_RowDataBound(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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+    '    '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("pEmp", UsuarioActual.Empresa.Empresa))
-    '    If Imagen.Exists Then
-    '        params.Add(New ReportParameter("pImg", logouri))
-    '    Else
-    '        params.Add(New ReportParameter("pImg", ""))
-    '    End If
+    '    params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
    '    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
    '    params.Add(New ReportParameter("FechaImpresion", Today))
    '    params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
@@ -92,16 +88,12 @@ Partial Class MetasVendedoresDetalle
    'End Sub

    'Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+    '    '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("pEmp", UsuarioActual.Empresa.Empresa))
-    '    If Imagen.Exists Then
-    '        params.Add(New ReportParameter("pImg", logouri))
-    '    Else
-    '        params.Add(New ReportParameter("pImg", ""))
-    '    End If
+    '    params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
    '    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
    '    params.Add(New ReportParameter("FechaImpresion", Today))
    '    params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -8194,7 +8194,7 @@ Partial Class PV
        '    MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", DdlPSAjuste.SelectedValue.ToEntero))
        'End If

-        'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        'Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        '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 New DataTable

--- a/Ventas/RepAnticipo-NC-IXC.aspx.cs
+++ b/Ventas/RepAnticipo-NC-IXC.aspx.cs
@@ -140,7 +140,7 @@ public partial class Ventas_RepAnticipo_NC_IXC : ClsPaginas
        if (DdlCliente.SelectedValue != "-1") { Cliente = $"&emsp;<b>Cliente:</b> {DdlCliente.SelectedText}"; } else { Cliente = ""; }
        if (DtDatos.Rows.Count > 0)
        {
-            System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+            System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
            String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
            List<ReportParameter> para = new List<ReportParameter>();
            para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
--- a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs
+++ b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs
@@ -183,7 +183,7 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
        if (DdlTipo.SelectedValue != "-1") { Tipo2 = $"&emsp;<b>Tipo:</b> {DdlTipo.SelectedItem.Text}"; } else { Tipo2 = ""; }
        if (DtDatos.Rows.Count > 0)
        {
-            System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+            System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
            String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
            List<ReportParameter> para = new List<ReportParameter>();
            para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
--- a/Ventas/RepAuxiliarFacturas.aspx.vb
+++ b/Ventas/RepAuxiliarFacturas.aspx.vb
@@ -277,7 +277,7 @@ Partial Class Ventas_RepAuxiliarFacturas


        If DtVentas IsNot Nothing AndAlso DtVentas.Rows.Count > 0 Then
-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            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))
--- a/Ventas/RepComisionesJAM.aspx.cs
+++ b/Ventas/RepComisionesJAM.aspx.cs
@@ -314,7 +314,7 @@ public partial class Ventas_RepComisionesJAM : ClsPaginas
    }

    protected void GvDatos_PreRender(object sender, EventArgs e)
-    {
+    {
        MergeRows(GvDatos);
    }

--- a/Ventas/RepCostoPromedioVenta.aspx.cs
+++ b/Ventas/RepCostoPromedioVenta.aspx.cs
@@ -89,7 +89,7 @@ public partial class Ventas_RepCostoPromedioVenta : ClsPaginas
        if (DtDatos.Rows.Count > 0)
        {
            String FechaF;
-            if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = "-1"; } else { FechaF = $"&emsp;<b>Fecha Final:</b> {txtFechaF.Text}"; }
+            if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = "-1"; } else { FechaF = $"&emsp;<b>Fecha Final:</b> {txtFechaF.Text}"; }
            String FechaI;
            if (txtFechaI.Text == "" || txtFechaI.Text == "__/__/____") { FechaI = "-1"; } else { FechaI = $"&emsp;<b>Fecha Inicial:</b> {txtFechaI.Text}"; }
            String Proveedor;
--- a/Ventas/RepCotizaciones.aspx.vb
+++ b/Ventas/RepCotizaciones.aspx.vb
@@ -123,7 +123,7 @@ Partial Class RepRemisiones
            If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
            If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)

-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            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
--- a/Ventas/RepCotizacionesDetalle.aspx.vb
+++ b/Ventas/RepCotizacionesDetalle.aspx.vb
@@ -86,7 +86,7 @@ Partial Class RepRemisionesDetalle
            Dim StrFiltro As New StringBuilder


-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            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 = ""
--- a/Ventas/RepCotizacionesxFacturar.aspx.vb
+++ b/Ventas/RepCotizacionesxFacturar.aspx.vb
@@ -161,7 +161,7 @@ Partial Class RepCotizacionesxFacturar
    '        If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
    '        If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)

-    '        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+    '        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
    '        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
--- a/Ventas/RepNCxAplicar.aspx.cs
+++ b/Ventas/RepNCxAplicar.aspx.cs
@@ -118,7 +118,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas
    {
        List<ReportParameter> @params = new List<ReportParameter>();

-        System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+        System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
        var logouri = string.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);

        string Sucursal = (DdlSucursal.SelectedValue == "-1" ? "" : $"<b>Sucursal:</b>&nbsp;{DdlSucursal.SelectedItem.Text}");
--- a/Ventas/RepPS.aspx.vb
+++ b/Ventas/RepPS.aspx.vb
@@ -210,7 +210,7 @@ Partial Class Ventas_RepPS
            SbParametros.AppendFormat("Sucursal:{0}", DdlSubProyecto.SelectedItem.Text)
            SbParametros.AppendFormat(", Orden:{0}", DdlGrupo.SelectedItem.Text)

-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            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))
--- a/Ventas/RepPUESinPago.aspx.vb
+++ b/Ventas/RepPUESinPago.aspx.vb
@@ -84,7 +84,7 @@ Partial Class Ventas_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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

        Dim FI As String = If(TxtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtFechaI.Text}")
--- a/Ventas/RepPedidos2.aspx.cs
+++ b/Ventas/RepPedidos2.aspx.cs
@@ -55,7 +55,7 @@ public partial class Ventas_RepPedidos2 : ClsPaginas
        String Cliente;
        if (DdlClientes.SelectedValue != "-1") { Cliente = $"&emsp;<b>Cliente:</b> {DdlClientes.SelectedText}"; } else { Cliente = ""; }
        String SubProyectos;
-        if (DdlSubProyectos.GetSelectedText() != "") { SubProyectos = $"&emsp;<b>SubProyecto:</b> {DdlSubProyectos.GetSelectedText()}"; } else { SubProyectos = ""; }
+        if (DdlSubProyectos.GetSelectedText() != "") { SubProyectos = $"&emsp;<b>SubProyecto:</b> {DdlSubProyectos.GetSelectedText()}"; } else { SubProyectos = ""; }
        String Vendedores;
        if (DdlVendedor.GetSelectedText() != "") { Vendedores = $"&emsp;<b>Vendedor:</b> {DdlVendedor.GetSelectedText()}"; } else { Vendedores = ""; }

--- a/Ventas/RepPedidos2Detalle.aspx.cs
+++ b/Ventas/RepPedidos2Detalle.aspx.cs
@@ -71,7 +71,7 @@ public partial class Ventas_RepPedidos2Detalle : ClsPaginas
        String Cliente;
        if (DdlClientes.SelectedValue != "-1") { Cliente = $"&emsp;<b>Cliente:</b> {DdlClientes.SelectedText}"; } else { Cliente = ""; }
        String SubProyectos;
-        if (DdlSubProyectos.GetSelectedText() != "") { SubProyectos = $"&emsp;<b>SubProyecto:</b> {DdlSubProyectos.GetSelectedText()}"; } else { SubProyectos = ""; }
+        if (DdlSubProyectos.GetSelectedText() != "") { SubProyectos = $"&emsp;<b>SubProyecto:</b> {DdlSubProyectos.GetSelectedText()}"; } else { SubProyectos = ""; }
        String Vendedores;
        if (DdlVendedor.GetSelectedText() != "") { Vendedores = $"&emsp;<b>Vendedor:</b> {DdlVendedor.GetSelectedText()}"; } else { Vendedores = ""; }

--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -560,7 +560,7 @@ Partial Class Ventas_RepProductosServicios


        If DtVentas IsNot Nothing AndAlso DtVentas.Rows.Count > 0 Then
-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            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))
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -778,7 +778,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")

-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

        If TmpDT.Rows.Count > 0 Then
            Dim params As New List(Of ReportParameter)
--- a/Ventas/RepProductosServiciosPeriodo.aspx.cs
+++ b/Ventas/RepProductosServiciosPeriodo.aspx.cs
@@ -496,7 +496,7 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas

    private void GeneraPDF(string Formato)
    {
-        if (DtVentas.Rows.Count > 0)
+        if (DtVentas.Rows.Count > 0)
        {
            StringBuilder StrFiltro = new StringBuilder();
            StrFiltro.AppendFormat("<b>Agrupado por</b>: {0}", DdlGrupo.SelectedItem.Text);
--- a/Ventas/RepRecuperacion.aspx.vb
+++ b/Ventas/RepRecuperacion.aspx.vb
@@ -254,7 +254,7 @@ Partial Class Ventas_RepRecuperacion
                RutaPDF = "Empresas/Grales/Formatos/RepRecuperacion.rdlc"
            End If

-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
--- a/Ventas/RepRecuperacionDetalle.aspx.vb
+++ b/Ventas/RepRecuperacionDetalle.aspx.vb
@@ -351,7 +351,7 @@ Partial Class Ventas_RepRecuperacionDetalle
                RutaPDF = "Empresas/Grales/Formatos/RepRecuperacionDetalle.rdlc"
            End If

-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
--- a/Ventas/RepRecuperacionPeriodo.aspx.cs
+++ b/Ventas/RepRecuperacionPeriodo.aspx.cs
@@ -110,7 +110,7 @@ public partial class Ventas_RepRecuperacionPeriodo : ClsPaginas
        if (DdlClienteClasificacion.SelectedValue == "-1") { ClasificacionCliente = ""; } else { ClasificacionCliente = $"&emsp;<b>Clasificación Cliente:</b> {DdlClienteClasificacion.SelectedItem.Text}"; }
        if (DdlBanco.SelectedValue == "-1") { Banco = ""; } else { Banco = $"&emsp;<b>Banco:</b> {DdlBanco.SelectedItem.Text}"; }
        if (DdlCuentaBancaria.SelectedValue == "-1") { CuentaBancaria = ""; } else { CuentaBancaria = $"&emsp;<b>Cuenta Bancaria:</b> {DdlCuentaBancaria.SelectedItem.Text}"; }
-        if (DdlTipoDocto.SelectedValue == "-1") { TipoDocto = ""; } else { TipoDocto = $"&emsp;<b>Tipo Documento:</b> {DdlTipoDocto.SelectedItem.Text}"; }
+        if (DdlTipoDocto.SelectedValue == "-1") { TipoDocto = ""; } else { TipoDocto = $"&emsp;<b>Tipo Documento:</b> {DdlTipoDocto.SelectedItem.Text}"; }
        if (DdlEstatusCliente.SelectedValue == "-1") { EstatusCliente = ""; } else { EstatusCliente = $"&emsp;<b>Estatus Cliente:</b> {DdlEstatusCliente.SelectedItem.Text}"; }
        if (DdlUsuario.SelectedValue == "-1") { Registro = ""; } else { Registro = $"&emsp;<b>Registro:</b> {DdlUsuario.SelectedItem.Text}"; }
        if (DdlResponsable.SelectedValue == "-1") { Responsable = ""; } else { Responsable = $"&emsp;<b>Responsable:</b> {DdlResponsable.SelectedItem.Text}"; }
--- a/Ventas/RepRemisiones.aspx.vb
+++ b/Ventas/RepRemisiones.aspx.vb
@@ -209,7 +209,7 @@ Partial Class RepRemisiones

            If DdlVendedor.GetSelectedText <> "" Then StrFiltro.AppendFormat("&emsp;<b>Vendedor</b>: {0}", DdlVendedor.GetSelectedText)

-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

            Dim FechaI, FechaF As String
            FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
--- a/Ventas/RepRemisiones2.aspx.vb
+++ b/Ventas/RepRemisiones2.aspx.vb
@@ -130,7 +130,7 @@ Partial Class RepRemisiones
            If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
            If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)

-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            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
--- a/Ventas/RepRemisionesDetalle.aspx.vb
+++ b/Ventas/RepRemisionesDetalle.aspx.vb
@@ -239,7 +239,7 @@ Partial Class RepRemisionesDetalle
            If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
            If TxtFechaVencimiento.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Vencimiento al</b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)

-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

            Dim FechaI = "", FechaF = ""

--- a/Ventas/RepRemisionesNC.aspx.vb
+++ b/Ventas/RepRemisionesNC.aspx.vb
@@ -153,7 +153,7 @@ Partial Class RepRemisionesNC
    '        If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
    '        If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)

-    '        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+    '        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
    '        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
--- a/Ventas/RepTopClientesVentas.aspx.vb
+++ b/Ventas/RepTopClientesVentas.aspx.vb
@@ -77,19 +77,15 @@ Partial Class Ventas_RepTopClientesVentas
    End Sub

    Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
+	    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        '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("pEmp", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

-        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("pImg", logouri))
-        Else
-            params.Add(New ReportParameter("pImg", ""))
-        End If
        ImprimirPDF("Empresas/Grales/Formatos/TopClientes.rdlc", DtClientes, params, String.Format("ReporteVentas-{0}", Now.ToDateTime.ToShortDateString), Formato:="PDF")
    End Sub

--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -1035,7 +1035,7 @@ Partial Class RepVentaDetalle
            Dim RutaFormato = String.Format("{0}Formatos\RepVentaDetalle.rdlc", UsuarioActual.Empresa.Ruta)

            Dim Archivo As New System.IO.FileInfo(RutaFormato)
-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

            Dim logouri = String.Format("file://{0}", Imagen.FullName)

--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -683,7 +683,7 @@ Partial Class Ventas_RepVentas
            If DdlCondicionesPago.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Condiciones Pago</b>: {0}", DdlCondicionesPago.SelectedItem.Text)


-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            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
--- a/Ventas/RepVentasMensuales.aspx.vb
+++ b/Ventas/RepVentasMensuales.aspx.vb
@@ -65,16 +65,12 @@ Partial Class RepVentasMensuales
    End Sub

    Public Sub LnkPDF_Click() 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        '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("pEmp", UsuarioActual.Empresa.Empresa))
-        If Imagen.Exists Then
-            params.Add(New ReportParameter("pImg", logouri))
-        Else
-            params.Add(New ReportParameter("pImg", ""))
-        End If
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
        params.Add(New ReportParameter("FechaImpresion", Today))
        params.Add(New ReportParameter("Modalidad", DdlModalidad.SelectedValue))
--- a/Ventas/RepVentasMensualesDetalle.aspx.vb
+++ b/Ventas/RepVentasMensualesDetalle.aspx.vb
@@ -41,16 +41,12 @@ Partial Class RepVentasMensualesDetalle
    End Sub

    Public Sub LnkPDF_Click() 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        '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("pEmp", UsuarioActual.Empresa.Empresa))
-        If Imagen.Exists Then
-            params.Add(New ReportParameter("pImg", logouri))
-        Else
-            params.Add(New ReportParameter("pImg", ""))
-        End If
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
        params.Add(New ReportParameter("FechaImpresion", Today))
        params.Add(New ReportParameter("Modalidad", 2))
--- a/Ventas/RepVentasPeriodo.aspx.vb
+++ b/Ventas/RepVentasPeriodo.aspx.vb
@@ -316,7 +316,7 @@ Partial Class RepVentasPeriodo
            If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)


-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            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
--- a/Ventas/RepVentasUtilidad.aspx.vb
+++ b/Ventas/RepVentasUtilidad.aspx.vb
@@ -322,7 +322,7 @@ Partial Class Ventas_RepVentasUtilidad
            If txtFechaI.Text = "" Then FechaInicio = "-1"
            If txtFechaF.Text = "" Then FechaFin = "-1"

-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            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 = ObjVentas.DtResultados
            Dim params As New List(Of ReportParameter)
@@ -344,7 +344,7 @@ Partial Class Ventas_RepVentasUtilidad

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

        Dim Sucursal = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.GetSelectedText}")
--- a/Ventas/RepVentasUtilidadDetalle.aspx.vb
+++ b/Ventas/RepVentasUtilidadDetalle.aspx.vb
@@ -306,7 +306,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
            If txtFechaI.Text = "" Then FechaInicio = "-1"
            If txtFechaF.Text = "" Then FechaFin = "-1"

-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            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 = ObjVentas.DtResultados
            Dim params As New List(Of ReportParameter)
@@ -364,7 +364,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
            If txtFechaI.Text = "" Then FechaInicio = "-1"
            If txtFechaF.Text = "" Then FechaFin = "-1"

-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            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 = ObjVentas.DtResultados
            Dim params As New List(Of ReportParameter)
@@ -383,7 +383,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle

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

        Dim FechaI As Date = txtFechaI.Text.ToDate
@@ -427,7 +427,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
        ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepVentaUtilidadDetalle.rpt"), DtVentas, lista, "RepVentasUtilidadesDetalle", Formato), "RepVentasUtilidadesDetalle", Formato)
    End Sub
    Private Sub GenerarPDFCrystalGeneral(Optional Formato As String = "PDF")
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

        Dim FechaI As Date = txtFechaI.Text.ToDate
@@ -460,7 +460,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
    End Sub

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

        Dim FechaI As Date = txtFechaI.Text.ToDate
--- a/Ventas/RepVentasUtilidadPadre.aspx.vb
+++ b/Ventas/RepVentasUtilidadPadre.aspx.vb
@@ -285,7 +285,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
        If DdlVendedor.GetSelectedText <> "" Then StrFiltro.AppendFormat("&emsp;<b>Vendedor</b>: {0}", DdlVendedor.GetSelectedText)
        If DdlMarcas.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Marcas</b>: {0}", DdlMarcas.SelectedItem.Text)

-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        '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)()
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -27126,7 +27126,7 @@ Partial Class Ventas
            Exit Sub
        End If

-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        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))
--- a/Ventas/eFacturas.aspx.vb
+++ b/Ventas/eFacturas.aspx.vb
@@ -399,7 +399,7 @@ Partial Class Ventas_eFacturas
        'Dim Folio = If(TxtFolio.Text.Trim.Length > 0, String.Format("%{0}%", TxtFolio.Text.Trim.ToUpper), "-1")
        'Dim Proveedor = If(TxtProveedor.Text.Trim.Length > 0, String.Format("%{0}%", TxtProveedor.Text.Trim.ToUpper.Replace(" ", "%")), "-1")
        'If ObjDatos.GetFacturas(-1, Folio, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, "-1", Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-        '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        '    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        '    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 = ObjDatos.DtResultados
        '    Dim params As New List(Of ReportParameter)