Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2022-12-24 14:05:55 -07:00
parent 0cd353446a 09b997ed41
commit 5c95f1bef2
278 changed files with 972 additions and 1880 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
@@ -202,11 +202,7 @@ Partial Class CatClientes
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))

-        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("Empresas/Grales/Formatos/RepClientes.rdlc", DtClientes, params, "RepClientes")

--- 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
@@ -4048,11 +4048,7 @@ Partial Class Clientes
        '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)
-        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
@@ -4072,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)
@@ -4233,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
@@ -4316,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"
@@ -6360,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)


@@ -6382,11 +6368,7 @@ Partial Class Clientes
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
            params.Add(New ReportParameter("Cliente", LtlCliente.Text))

-            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

            ImprimirPDF("Empresas/Grales/Formatos/ClienteHistorial.rdlc", DTHistorialVentas, params, "Reporte de Historial", "Excel")
        Else
@@ -6405,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()

@@ -6427,11 +6409,7 @@ Partial Class Clientes
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
            params.Add(New ReportParameter("Cliente", LtlCliente.Text))

-            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

            retorno = StreamPDF("Empresas/Grales/Formatos/ClienteHistorial.rdlc", DTHistorialVentas, params, "Reporte de Historial")
        Else
@@ -6795,18 +6773,14 @@ 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))
        params.Add(New ReportParameter("AgrupadoPor", String.Format("<b>Cliente: </b>{0}", TxtNombreComercial.Text)))
        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime().ToShortDateString()))

-        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)


@@ -9881,18 +9855,14 @@ 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))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("AgrupadoPor", "Cliente: " & LtlCliente.Text))

-            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
        Else
            Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)
--- 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,15 +118,11 @@ 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))

-        If Imagen.Exists Then
-            params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}"))
-        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/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))
@@ -287,11 +287,7 @@ Partial Class Ventas_RepAuxiliarFacturas
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            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", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepAuxiliarFacturas.rdlc", DtVentas, params, "ReporteAuxiliarFacturas")
        Else
            Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)
--- 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
@@ -137,11 +137,7 @@ Partial Class RepRemisiones
            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", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepCotizaciones.rdlc", DtVentas, params, String.Format("RepCotizaciones-{0}", Now.ToDateTime.ToShortDateString))
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
--- 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 = ""
@@ -99,11 +99,7 @@ Partial Class RepRemisionesDetalle
            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", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepCotizacionesDetalle.rdlc", DtVentas, params, String.Format("RepCotizacionesDetalle-{0}", Now.ToDateTime.ToShortDateString))
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
--- 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}");
@@ -137,15 +137,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas
        //@params.Add(new ReportParameter("FechaInicio", txtFechaI.Text));
        //@params.Add(new ReportParameter("FechaFin", txtFechaF.Text));

-        if (Imagen.Exists)
-        {
-            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
-        }
-        else
-        {
-            @params.Add(new ReportParameter("LogoPath", ""));
-        }
-
+        @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : ""));
        this.ImprimirPDF("Empresas/Grales/Formatos/RepNCxAplicar.rdlc", DTDatos, @params, "Reporte de Notas de Credito por Aplicar", Formato);

    }
--- 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))
@@ -219,11 +219,7 @@ Partial Class Ventas_RepPS
            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", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            params.Add(New ReportParameter("Parametros", SbParametros.ToString()))

            If System.IO.File.Exists($"{UsuarioActual.Empresa.Ruta}Formatos/RepPS.rdlc") Then
--- 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}")
@@ -101,11 +101,7 @@ Partial Class Ventas_RepPUESinPago
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("AgrupadoPor", $"{FI}{FF}{cliente}{subProy}{vendedor}"))

-            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

            ImprimirPDF("Empresas/Grales/Formatos/RepPUESinPago.rdlc", DtDatos, params, "RepPUESinPago", Formato)
        Else
--- 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))
@@ -570,11 +570,7 @@ Partial Class Ventas_RepProductosServicios
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            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", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepProductosServicios.rdlc", DtVentas, params, "ReportePS")
        Else
            Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -778,17 +778,13 @@ 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)

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

            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
--- 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,18 +254,14 @@ 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))
            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", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF(RutaPDF, DtDatos, params, String.Format("ReporteRecuperacion-{0}", Now.ToDateTime.ToShortDateString), Formato)
        Else
            Alert("No hay datos consultados.", TipoMensaje.MsgAdvertencia)
--- a/Ventas/RepRecuperacionDetalle.aspx.vb
+++ b/Ventas/RepRecuperacionDetalle.aspx.vb
@@ -351,18 +351,14 @@ 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))
            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", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF(RutaPDF, DtDatos, params, String.Format("ReporteRecuperacionDetalle-{0}", Now.ToDateTime.ToShortDateString), Formato)
        Else
            Alert("No hay datos consultados.", TipoMensaje.MsgAdvertencia)
--- 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)
@@ -223,11 +223,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", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepRemisiones.rdlc", DtVentas, params, String.Format("ReporteRemisiones-{0}", Now.ToDateTime.ToShortDateString))
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
--- 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
@@ -144,11 +144,7 @@ Partial Class RepRemisiones
            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", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepRemisiones.rdlc", DtVentas, params, String.Format("ReporteRemisiones-{0}", Now.ToDateTime.ToShortDateString))
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
--- 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 = ""

@@ -251,11 +251,7 @@ Partial Class RepRemisionesDetalle
            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", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepRemisionesDetalle.rdlc", DtVentas, params, String.Format("ReporteRemisionesDetalle-{0}", Now.ToDateTime.ToShortDateString))
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
--- 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)

@@ -1050,11 +1050,7 @@ Partial Class RepVentaDetalle
            params.Add(New ReportParameter("TipoDocto", TipoDocto))
            params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Grupo}  {TipoDocto} {FechaIn} {FechaFn} {FechaIEjec} {FechaFEjec} {CveCliente} {CveSucursal} {CveSucursalEjec}  {Vendedor} {CveUsuario}  {CveEstatusFactura} {CondicionesPago} "))

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

            If Archivo.Exists Then
                ruta = UsuarioActual.Empresa.Ruta & "Formatos/RepVentas.rdlc"
--- 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
@@ -329,11 +329,7 @@ Partial Class RepVentasPeriodo
            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", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

            'Alert("El reporte requiere papel tipo oficio", TipoMensaje.MsgInformacion)
            ImprimirPDF("Empresas/Grales/Formatos/RepVentasPeriodo.rdlc", dt, params, String.Format("ReporteVentas-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
--- 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)
@@ -336,11 +336,7 @@ Partial Class Ventas_RepVentasUtilidad
            params.Add(New ReportParameter("PorNeto", LblPorNeto.Text + " %"))
            params.Add(New ReportParameter("UtilidadPerdida", LblNombreNeto.Text))

-            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidad.rdlc", dt, params, "RepVentasUtilidad", Formato)
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
@@ -348,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)
@@ -330,11 +330,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
            params.Add(New ReportParameter("PorPerdida", LblPorPerdida.Text))


-            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidadDetalle.rdlc", dt, params, "RepVentasUtilidadDetalle", Formato)
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
@@ -368,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)
@@ -379,11 +375,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
            params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Vendedor}{PS}{Clasificacion}{FechaIn}{FechaFn}"))

-            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidadDetalleGeneral.rdlc", dt, params, "RepVentasUtilidadDetalle", Formato)
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
@@ -391,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
@@ -435,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
@@ -468,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
@@ -284,10 +284,11 @@ Partial Class Ventas_RepVentasUtilidadPadre
        If DdlClientesWS.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Cliente</b>: {0}", DdlClientesWS.SelectedText)
        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 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 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))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString()))
@@ -295,19 +296,11 @@ Partial Class Ventas_RepVentasUtilidadPadre
        params.Add(New ReportParameter("Neto", LblNeto.Text))
        params.Add(New ReportParameter("PorNeto", $"{LblPorNeto.Text}%"))
        params.Add(New ReportParameter("Rentabilidad", $"{LblRentabilidad.Text}%"))
-
-        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidadPadre.rdlc", DtDatos, params, "Reporte de Utilidad o Pérdida sobre Ventas", Formato)
    End Sub

 #End Region

-
-
-
 End Class
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16279,7 +16279,7 @@ Partial Class Ventas
                            CveIEAnticipo = gvr.DataKey("CveIE").ToEntero()

                            Select Case gvr.DataKey("CveConceptoContable").ToString()
-                                Case "3"
+                                Case "3", "295"
                                    importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)

                                    If importeMovimiento <> 0 Then
@@ -16290,7 +16290,9 @@ Partial Class Ventas
                                        Pago.CveIE = CveIEAnticipo
                                        Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero()
                                        Pago.TipoPago = "A"
+                                        Pago.Fecha = TxtFechaAnticipoCliente.text.todate   'TCPago = gvr.DataKey("TipoCambio").todecimal
                                        Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero()
+                                        Pago.TCPago = gvr.DataKey("TipoCambio").Todecimal
                                        Pago.AplicaTraslado = gvr.DataKey("RegresarImpuesto") = "1"
                                        Pago.Referencia = gvr.DataKey("Folio")

@@ -27124,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))
@@ -27151,11 +27153,7 @@ Partial Class Ventas
        params.Add(New ReportParameter("Dimensiones", Dimensiones))
        params.Add(New ReportParameter("FechaEstimada", FechaEstimada))

-        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF(RutaRdlc, DTMovimientosDetalle, params, $"ReporteGuia_{Now.ToString("yyyyMMddhhmmss")}")

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