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/Compras/CatEstatusFactura.aspx.vb
+++ b/Compras/CatEstatusFactura.aspx.vb
@@ -148,7 +148,7 @@ Partial Class Compras_CatEstatusFactura
    End Sub

    Private Sub GenerarPDF(Optional Formato As String = "PDF")
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
--- a/Compras/CatProveedores.aspx.vb
+++ b/Compras/CatProveedores.aspx.vb
@@ -253,7 +253,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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

        Dim DtDatos As DataTable = Nothing
        Dim ObjBancos As New ClsBancos
@@ -279,7 +279,7 @@ Partial Class Compras_CatProveedores

    Protected Sub LnkCtasBancSinProveedor_Click(sender As Object, e As EventArgs)

-        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 DataTable = Nothing
@@ -373,7 +373,7 @@ Partial Class Compras_CatProveedores
        worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión"
        worksheet.Rows(IndexEndTable + 1).Cells(6).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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa)
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1486,7 +1486,7 @@ Partial Class PopUpVerFactura
        Dim FechaCorte As String = $"&emsp;<b>Fecha fin:</b> {Fecha}"
        Dim Usuario As String = $"&emsp;<b>Usuario:</b> {Nombre}"
        If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.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")



@@ -1598,7 +1598,7 @@ Partial Class PopUpVerFactura
 #Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO"
    Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)

-        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 Dr As DataRow = Nothing
        Dim ObjContratos As New ClsContratos
@@ -1991,7 +1991,7 @@ Partial Class PopUpVerFactura

            If Dt.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")


                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
@@ -2462,7 +2462,7 @@ Partial Class PopUpVerFactura

                If DtConceptos.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")

                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                    'EMPRESA
@@ -3503,7 +3503,7 @@ Partial Class PopUpVerFactura
        Select Case CveConcepto
            Case 1 'INICIAL
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta))
-                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)
                Dim SBDireccion As New StringBuilder()

@@ -3531,7 +3531,7 @@ Partial Class PopUpVerFactura
            Case 2, 32, 33, 36, 48  ' E N T R A D A S

                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
-                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 dr As DataRow = Nothing
                If CveCompra > 0 Then
@@ -3704,7 +3704,7 @@ Partial Class PopUpVerFactura
                'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
-                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)
                Dim concepto As String = ""
                If CveConcepto.Contiene(3, 40) Then
@@ -3962,7 +3962,7 @@ Partial Class PopUpVerFactura
                End If

            Case 4 ' ENTRADA POR DESARMADO 
-                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)


@@ -3987,7 +3987,7 @@ Partial Class PopUpVerFactura
                ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Desarmado - {0}", Folio.ToString), RDSName:="DsInventarios")

            Case 5 'SALIDA POR ARMADO
-                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)


@@ -4022,7 +4022,7 @@ Partial Class PopUpVerFactura
                        params.Add(New ReportParameter("Responsable", Personal))
                        params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper))

-                        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")
                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

                        If DtMovimientos.COUNT("Serie") > 0 Then
@@ -4047,7 +4047,7 @@ Partial Class PopUpVerFactura

                    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
                Else
-                    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)
                    Dim TipoResponsable As String = ""
                    Dim Responsable As String = ""
@@ -4104,7 +4104,7 @@ Partial Class PopUpVerFactura
                        params.Add(New ReportParameter("Responsable", Personal))
                        params.Add(New ReportParameter("NombreRecibio", Personal))

-                        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")
                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                        If DtMovimientos.COUNT("Serie") > 0 Then
                            params.Add(New ReportParameter("MostrarSerieLote", "1"))
@@ -4129,7 +4129,7 @@ Partial Class PopUpVerFactura

                    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
                Else
-                    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)
                    Dim TipoResponsable As String = ""
                    Dim Responsable As String = ""
@@ -4287,7 +4287,7 @@ Partial Class PopUpVerFactura

                Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
                If Archivo.Exists 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")


                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
@@ -4335,7 +4335,7 @@ Partial Class PopUpVerFactura

                    ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
                Else
-                    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")


                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
@@ -4384,7 +4384,7 @@ Partial Class PopUpVerFactura
                    ElseIf UsuarioActual.CveEmpresa = 140 Then
                        params.Add(New ReportParameter("CantidadProductos", "500"))
                        params.Add(New ReportParameter("CantidadUsados", "500"))
-                        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")


                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
@@ -4397,7 +4397,7 @@ Partial Class PopUpVerFactura
                        params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
                        params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
                    ElseIf UsuarioActual.CveEmpresa = 153 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")

                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                        params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
@@ -4411,7 +4411,7 @@ Partial Class PopUpVerFactura

                    ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
                Else
-                    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")

                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                    params.Add(New ReportParameter("Origen", Almacen))
@@ -4521,7 +4521,7 @@ Partial Class PopUpVerFactura
                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionConsignacion.rdlc", DtMovimientos, params, String.Format("Devolucion por Consignacion - {0}", Folio), RDSName:="DsInventarios")
            Case 13 'D E V O L U C I O N  D E  P R O V E E D O R
                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)
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta))

@@ -4580,7 +4580,7 @@ Partial Class PopUpVerFactura
            Case 14 'E N T R E G A   P O R   G A R A N T I A

                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta))
-                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)

                If UsuarioActual.CveEmpresa = 72 Then
@@ -4622,7 +4622,7 @@ Partial Class PopUpVerFactura
            Case 15 'S A L I D A   G A R A N T I A

                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta))
-                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)

                'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
@@ -4671,7 +4671,7 @@ Partial Class PopUpVerFactura

            Case 18 'D E V O L U C I O N    D E L   C L I E N T E
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta))
-                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)

                If Archivo.Exists Then
@@ -4744,7 +4744,7 @@ Partial Class PopUpVerFactura
                End If

            Case 19 'ARMADO DE PAQUETE
-                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)


@@ -4769,7 +4769,7 @@ Partial Class PopUpVerFactura
                ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Armado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios")

            Case 20 'DESARMADO DE PAQUETE
-                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)


@@ -4794,7 +4794,7 @@ Partial Class PopUpVerFactura


            Case 21, 22 'SALIDA POR PRESTAMO
-                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)

                Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalida.rdlc"
@@ -4832,7 +4832,7 @@ Partial Class PopUpVerFactura
                End If

            'Case 22 'ENTRADA POR PRESTAMO
-            '    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)

            '    
@@ -4861,7 +4861,7 @@ Partial Class PopUpVerFactura

            Case 24 'SALIDA POR RESGUARDO
                If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 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 params As New List(Of ReportParameter)

                    Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta))
@@ -4902,7 +4902,7 @@ Partial Class PopUpVerFactura

                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios")
                Else
-                    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)
                    Dim TipoResponsable As String = ""
                    Dim Responsable As String = ""
@@ -4949,7 +4949,7 @@ Partial Class PopUpVerFactura
                End If

            Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR
-                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)


@@ -4971,7 +4971,7 @@ Partial Class PopUpVerFactura
            Case 30
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
-                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)

@@ -5038,7 +5038,7 @@ Partial Class PopUpVerFactura
                'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
-                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)

                If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then
@@ -5447,7 +5447,7 @@ Partial Class PopUpVerFactura
            End If
        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")

        If Not RutaReporte.Exists Then

@@ -5649,7 +5649,7 @@ Partial Class PopUpVerFactura

        ObjAF.Dispose()

-        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")
        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString))
@@ -6298,7 +6298,7 @@ Partial Class PopUpVerFactura
                    Dim paramList As New List(Of ReportParameter)
                    With paramList

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

                        .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
@@ -6621,7 +6621,7 @@ Partial Class PopUpVerFactura
        End If
        ObjPS.Dispose()

-        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

@@ -6754,7 +6754,7 @@ Partial Class PopUpVerFactura
        End If
        ObjPS.Dispose()

-        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/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -3834,8 +3834,8 @@ Partial Class Compras_Proveedores

    Private Sub ImprimirReporteCxPCrystal(Optional Formato As String = "PDF")
        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepProveedorCxP.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 DTCxPTempral As DataTable = Nothing

@@ -3866,15 +3866,9 @@ Partial Class Compras_Proveedores
            lista.Add(New CrystalParametro("LimiteCredito", TxtLimiteCredito.Text))
            lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - dr("Saldo").ToString.ToDouble).ToString.FormatoNumero))
            lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
-
-            Dim params As New List(Of ReportParameter)
-
-            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 params As New List(Of ReportParameter)
            Dim dtnc As New DataTable
            Dim ObjCompra As New ClsCompras()
            For Each dr2 As DataRow In DTCxPTempral.FiltraParametros("", DistinctColumns:={"CveIE"}).Rows
@@ -4174,7 +4168,7 @@ Partial Class Compras_Proveedores
    End Sub

    Private Sub ImprimirReporteCxP(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 ObjMovtos As New ClsMovimientos()

@@ -4700,7 +4694,7 @@ Partial Class Compras_Proveedores
            dt.WriteXml(writer)
            If ObjProveedores.GetProveedoresConciliacion(CveProveedor, DataTableToXml(writer)) Then
                'ObjProveedores.DtResultados.ExportToExcel("Resultados")
-                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)
@@ -6271,7 +6265,7 @@ Partial Class Compras_Proveedores
        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")


            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
--- a/Compras/ProveedoresAuxiliar.aspx.vb
+++ b/Compras/ProveedoresAuxiliar.aspx.vb
@@ -118,7 +118,7 @@ Partial Class Compras_ProveedoresAuxiliar
        Dim OpcionP = If(DdlOpcion.SelectedValue = "-1", "", $"&emsp;<b>Opción:</b> {DdlOpcion.SelectedItem.Text}")
        Dim TipoProv = If(DdlTipoProveedor.SelectedValue = "-1", "", $"&emsp;<b>Tipo Proveedor:</b> {DdlTipoProveedor.SelectedItem.Text}")
        Dim ContaP = If(DdlOpcionContabilizable.SelectedValue = "-1", "", $"&emsp;<b>Contabilizable:</b> {DdlOpcionContabilizable.SelectedItem.Text}")
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim 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/Compras/RepAnt-NC-EXC.aspx.cs
+++ b/Compras/RepAnt-NC-EXC.aspx.cs
@@ -110,7 +110,7 @@ public partial class Compras_RepAnt_NC_EXC : ClsPaginas
        if (DdlProveedor.SelectedValue != "-1") { Proveedor = $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedItem.Text}"; } else { Proveedor = ""; }
        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/Compras/RepAnt-NC-EXCDetalle.aspx.cs
+++ b/Compras/RepAnt-NC-EXCDetalle.aspx.cs
@@ -147,7 +147,7 @@ public partial class Compras_RepAnt_NC_EXCDetalle : 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/Compras/RepComplementoPago.aspx.vb
+++ b/Compras/RepComplementoPago.aspx.vb
@@ -173,7 +173,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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")


        Dim proveedor As String = If(DdlProveedores.SelectedValue = "", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedores.SelectedText}")
--- a/Compras/RepCompras.aspx.vb
+++ b/Compras/RepCompras.aspx.vb
@@ -400,7 +400,7 @@ Partial Class Compras_RepCompras
        Dim TipoProveedor = If(DdlTipoProveedor.SelectedValue = "-1", "", $"&emsp;<b>Tipo de Proveedor:</b> {DdlTipoProveedor.SelectedItem.Text}")
        Dim TipoDocto = If(DdlTipoDocto.SelectedValue = "-1", "", $"&emsp;<b>Tipo de Documento:</b> {DdlTipoDocto.SelectedItem.Text}")
        If DtCompras IsNot Nothing AndAlso DtCompras.Rows.Count > 0 Then
-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
--- a/Compras/RepComprasAF.aspx.vb
+++ b/Compras/RepComprasAF.aspx.vb
@@ -241,7 +241,7 @@ Partial Class Compras_RepComprasAF
    Private Sub GenerarPDF(Optional Formato As String = "PDF")
        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 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/Compras/RepComprasAFDetalle.aspx.vb
+++ b/Compras/RepComprasAFDetalle.aspx.vb
@@ -375,7 +375,7 @@ Partial Class Compras_RepComprasAFDetalle



-        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
--- a/Compras/RepComprasDetalle.aspx.vb
+++ b/Compras/RepComprasDetalle.aspx.vb
@@ -441,7 +441,7 @@ Partial Class Compras_RepComprasDetalle
            For Each Dr As DataRow In DtDatos.Rows
                Dr("Fecha") = Dr("Fecha").ToString.ToDate.ToShortDateString
            Next
-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
--- a/Compras/RepComprasInventarios.aspx.cs
+++ b/Compras/RepComprasInventarios.aspx.cs
@@ -94,7 +94,7 @@ public partial class Compras_RepComprasInventarios : ClsPaginas
    }
    protected void GeneraImpresion(string Formato)
    {
-        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);
        
        string FIC = (txtFechaIC.Text == "" ? "" : $"&emsp;<b>Fecha Inicio:</b>&nbsp;{txtFechaIC.Text}");
--- a/Compras/RepComprasPeriodo.aspx.vb
+++ b/Compras/RepComprasPeriodo.aspx.vb
@@ -304,7 +304,7 @@ Partial Class Compras_RepComprasPeriodo
                                           DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero,
                                           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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

            Dim dt As DataTable = ObjCompras.DtResultados
            Dim params As New List(Of ReportParameter)
--- a/Compras/RepComprasPersonal.aspx.vb
+++ b/Compras/RepComprasPersonal.aspx.vb
@@ -193,7 +193,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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")


        Dim FechaI, FechaF As String
--- a/Compras/RepComprasPersonalDetalle.aspx.vb
+++ b/Compras/RepComprasPersonalDetalle.aspx.vb
@@ -315,7 +315,7 @@ Partial Class Compras_RepComprasPersonalDetalle



-        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
--- a/Compras/RepCxP.aspx.vb
+++ b/Compras/RepCxP.aspx.vb
@@ -1473,7 +1473,7 @@ Partial Class Compras_RepCxP
            If DtDatos.Rows(0)("TC8").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC8").ToString.ToEntero = 2 Then CantidadColumnas += 1
            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 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/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -740,7 +740,7 @@ Partial Class RepCxPDetalle
        FechaVI = If(IsDate(txtFechaVI.Text.Trim()), txtFechaVI.Text.Trim(), "-1")
        FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.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")
        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/Compras/RepCxPPeriodo.aspx.cs
+++ b/Compras/RepCxPPeriodo.aspx.cs
@@ -280,7 +280,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
            RutaPDF = "Empresas/Grales/Formatos/RepCxPPeriodo.rdlc";
        }

-        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/Compras/RepEvaluacionesProveedores.aspx.vb
+++ b/Compras/RepEvaluacionesProveedores.aspx.vb
@@ -49,23 +49,18 @@ Partial Class RepEvaluacionesProveedores
    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 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("FechaInicial", TxtFechaI.Text))
        params.Add(New ReportParameter("FechaFinal", TxtFechaF.Text))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", Today))
        params.Add(New ReportParameter("Proveedor", DdlProveedor.SelectedItem.ToString))

-
        ImprimirPDF("Empresas/Grales/Formatos/RepEvaluacionesProveedores.rdlc", DtDatos, params, "RepEvaluacionesProveedores", "PDF", RDSName:="DataSet1")
    End Sub

--- a/Compras/RepGastosFijos.aspx.cs
+++ b/Compras/RepGastosFijos.aspx.cs
@@ -225,7 +225,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
            RutaPDF = "Empresas/Grales/Formatos/RepGastosFijos.rdlc";
        }
        
-        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");

        List<ReportParameter> @params = new List<ReportParameter>();

--- a/Compras/RepGastosSemanal.aspx.cs
+++ b/Compras/RepGastosSemanal.aspx.cs
@@ -165,7 +165,7 @@ public partial class Compras_RepGastosSemanal : ClsPaginas
    }
    #endregion

-    #region PDF
+    #region PDF

    protected void GenerarPDF(String Opcion)
    {
--- a/Compras/RepNotasCredito.aspx.vb
+++ b/Compras/RepNotasCredito.aspx.vb
@@ -75,7 +75,7 @@ Partial Class Compras_RepNotasCredito
            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 dt As DataTable = DtVentas.FiltraParametros("", "Orden") '.FiltraParametros("Total > 0", DistinctColumns:={"GPO", "Cantidad", "SubTotal", "Descuento", "Amortizacion", "IVA", "Total"})
            Dim FechaI, FechaF As String
--- a/Compras/RepPUESinPago.aspx.vb
+++ b/Compras/RepPUESinPago.aspx.vb
@@ -80,7 +80,7 @@ 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 Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

        Dim FI As String = If(TxtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtFechaI.Text}")
        Dim FF As String = If(TxtFechaF.Text = "", "", $"&emsp;<b>Fecha Fin:</b>&nbsp;{TxtFechaF.Text}")
--- a/Compras/RepPagado.aspx.cs
+++ b/Compras/RepPagado.aspx.cs
@@ -251,7 +251,7 @@ public partial class Compras_RepPagado : ClsPaginas
            RutaPDF = "Empresas/Grales/Formatos/RepPagado.rdlc";
        }

-        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>();
--- a/Compras/RepPagadoDetalle.aspx.cs
+++ b/Compras/RepPagadoDetalle.aspx.cs
@@ -299,7 +299,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
            RutaPDF = "Empresas/Grales/Formatos/RepPagadoDetalle.rdlc";
        }

-        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/Compras/RepPagadoPeriodo.aspx.cs
+++ b/Compras/RepPagadoPeriodo.aspx.cs
@@ -300,7 +300,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
            RutaPDF = "Empresas/Grales/Formatos/RepPagadoPeriodo.rdlc";
        }

-        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/Compras/RepProductosServicios.aspx.vb
+++ b/Compras/RepProductosServicios.aspx.vb
@@ -511,7 +511,7 @@ Partial Class Compras_RepProductosServicios
        Dim SubTipoAF = If(DdlSubTipoAF.GetSelectedText = "", "", $"&emsp;<b>SubTipo AF:</b>&nbsp;{DdlSubTipoAF.GetSelectedText}")
        Dim AF = If(DdlAF.SelectedValue = "-1", "", $"&emsp;<b>Activo Fijo:</b>&nbsp;{DdlAF.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 params As New List(Of ReportParameter)()
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
--- a/Compras/RepProductosServiciosDetalle.aspx.vb
+++ b/Compras/RepProductosServiciosDetalle.aspx.vb
@@ -640,7 +640,7 @@ Partial Class Compras_RepProductosServiciosDetalle
        Dim SubTipoAF = If(DdlSubTipoAF.GetSelectedText = "", "", $"&emsp;<b>SubTipo AF:</b> {DdlSubTipoAF.GetSelectedText}")

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

            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
--- a/Compras/RepProductosServiciosPeriodo.aspx.cs
+++ b/Compras/RepProductosServiciosPeriodo.aspx.cs
@@ -401,7 +401,7 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
        if (DdlMonedas.SelectedValue == "-1") { Moneda = ""; } else { Moneda = $"&emsp;<b>Monedas:</b> {DdlMonedas.SelectedItem.Text}"; }
        FechaIn = $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}";
        FechaFn = $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}";
-        if (txtFechaI.Text == "") { FechaIn = ""; }
+        if (txtFechaI.Text == "") { FechaIn = ""; }
        if (txtFechaF.Text == "") { FechaFn = ""; }
        if (DdlProyecto.SelectedValue == "-1") { Proyecto = ""; } else { Proyecto = $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}"; }
        if (DdlSubProyecto.SelectedValue == "-1") { SubProyecto = ""; } else { SubProyecto = $"&emsp;<b>SubProyecto:</b> {DdlSubProyecto.SelectedItem.Text}"; }
--- a/Compras/RepReqOCCompraInv.aspx.vb
+++ b/Compras/RepReqOCCompraInv.aspx.vb
@@ -127,7 +127,7 @@ Partial Class RepReqOCCompraInv
    '        If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Destino:</b> {0}", DdlAlmacenDestino.SelectedItem.Text)
    '        If ChkRecibido.Checked Then StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>Si") Else StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>No")

-    '        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/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -1447,7 +1447,7 @@ Partial Class Compras_eFacturas

        If dt IsNot Nothing 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 params As New List(Of ReportParameter)