-- mejora en código para buscar la ruta del reporte

Compras/PopUpVerFactura.aspx.vb

@@ -5,6 +5,7 @@ Imports System.Data
 Imports System.IO
 Imports System.Xml
 Imports Extensiones
+Imports iText.Barcodes.Dmcode
 Imports Microsoft.Reporting.WebForms
 Imports Stimulsoft.Report
 Imports Stimulsoft.Report.Web
@@ -291,9 +292,6 @@ Partial Class PopUpVerFactura
 
         End Using
 
-        'endimg
-        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
-        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
         ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
     End Sub
     Private Sub rfctxtvalidar()
@@ -462,7 +460,7 @@ Partial Class PopUpVerFactura
         Dim lrds As New List(Of ReportDataSource)
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
         lrds.Add(rds)
-        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
+
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
         Dim rutardlc = "GPS/EmbarqueManifiesto.rdlc"
         If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
@@ -984,8 +982,6 @@ Partial Class PopUpVerFactura
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
         lrds.Add(rds)
 
-        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
-        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
         Dim ruta As String = "GPS/PalletEtiquetaWalmart.rdlc"
         'If CvetypeImpresion = 2 Then
         '    ruta = "GPS/PalletEtiqueta_2.rdlc"
@@ -1505,17 +1501,12 @@ 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($"{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("AgrupoPor", $"{FechaCorte}{Usuario}"))
-            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+            params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
             Dim lrds As New List(Of ReportDataSource)
             Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen}
             lrds.Add(rds)
@@ -1617,8 +1608,6 @@ 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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-
         Dim Dr As DataRow = Nothing
         Dim ObjContratos As New ClsContratos
         If Not ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Or Not ObjContratos.DtResultados.Rows.Count > 0 Then
@@ -1651,7 +1640,7 @@ Partial Class PopUpVerFactura
         End If
         params.Add(New ReportParameter("Utilidad", $"$ {(SumaUtilidad - SumaGasto).ToString.FormatoNumero()}"))
 
-        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
         ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF")
     End Sub
@@ -1992,29 +1981,15 @@ Partial Class PopUpVerFactura
 
                     End If
 
-
-
                 End If
 
                 ObjGral.Dispose()
 
-
-
-
-
-
-
-
             End If
 
-
             If Dt.Rows.Count > 0 Then
 
-                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-
-
-                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-
                 params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                 params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
@@ -2044,14 +2019,8 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Ciudad", Ciudad))
                 params.Add(New ReportParameter("Licencia", Licencia))
 
-
-
-
                 ImprimirPDF($"Empresas/Grales/Formatos/{FormatoRDLC}", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
 
-
-
-
             End If
 
         End If
@@ -2448,9 +2417,6 @@ Partial Class PopUpVerFactura
                         Next
                     End If
 
-
-
-
                     Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces)
                     If nodeTFD IsNot Nothing Then
                         FolioFiscal = ValorXML(nodeTFD, "UUID", "")
@@ -2481,9 +2447,7 @@ Partial Class PopUpVerFactura
 
                 If DtConceptos.Rows.Count > 0 Then
 
-                    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-
-                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                     'EMPRESA
                     params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen))
@@ -3559,7 +3523,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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
                 Dim params As New List(Of ReportParameter)
                 Dim SBDireccion As New StringBuilder()
 
@@ -3579,7 +3543,7 @@ Partial Class PopUpVerFactura
                 If Archivo.Exists Then
                     ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
                 Else
-                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
                     ImprimirPDF("Empresas/Grales/Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
                 End If
@@ -3587,8 +3551,6 @@ 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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-
                 Dim dr As DataRow = Nothing
                 If CveCompra > 0 Then
                     'buscar en compras, para mandar los datos
@@ -3609,7 +3571,7 @@ Partial Class PopUpVerFactura
                     End If
                     If UsuarioActual.CveEmpresa = 119 Then
 
-                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                         params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC))
                         params.Add(New ReportParameter("RazonSocial", RazonSocial))
                         params.Add(New ReportParameter("Remision", Remision))
@@ -3669,7 +3631,7 @@ Partial Class PopUpVerFactura
                         ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios")
                     ElseIf UsuarioActual.CveEmpresa = 140 Then
 
-                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                         Dim concepto As String = ""
                         If CveConcepto.Contiene(2, 32, 33) Then
                             concepto = "ENTRADA DE ALMACÉN"
@@ -3727,7 +3689,7 @@ Partial Class PopUpVerFactura
                 Else
 
 
-                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
                     params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN"))
@@ -3760,7 +3722,6 @@ 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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                 Dim params As New List(Of ReportParameter)
                 Dim concepto As String = ""
                 If CveConcepto.Contiene(3, 40) Then
@@ -3824,7 +3785,6 @@ Partial Class PopUpVerFactura
                                 CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                                 DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                             Else
-
                                 DomicilioSucursal = DomicilioCliente
                             End If
 
@@ -3906,7 +3866,7 @@ Partial Class PopUpVerFactura
                         ElseIf UsuarioActual.CveEmpresa = 140 Then
 
 
-                            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                            params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
                             params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                             params.Add(New ReportParameter("Concepto", concepto))
@@ -3942,7 +3902,7 @@ Partial Class PopUpVerFactura
                     Else
                         Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta))
 
-                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Concepto", concepto))
@@ -4018,12 +3978,10 @@ Partial Class PopUpVerFactura
                 End If
 
             Case 4 ' ENTRADA POR DESARMADO 
-                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
                 Dim params As New List(Of ReportParameter)
 
-
+                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Entrada por Desarmado de Paquete"))
                 params.Add(New ReportParameter("Almacen", Almacen))
@@ -4043,11 +4001,10 @@ 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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
                 Dim params As New List(Of ReportParameter)
 
-
+                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Salida por Armado de Paquete"))
@@ -4077,9 +4034,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("NombreEntrego", Personal))
                         params.Add(New ReportParameter("Responsable", Personal))
                         params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper))
-
+                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-                        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"))
@@ -4103,20 +4058,13 @@ 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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
                     Dim params As New List(Of ReportParameter)
                     Dim TipoResponsable As String = ""
                     Dim Responsable As String = ""
 
-                    Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
+                    Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc")
-
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-                    If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
-                        Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
-                    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("Folio", Folio))
                     params.Add(New ReportParameter("Fecha", Fecha))
@@ -4159,9 +4107,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
                         params.Add(New ReportParameter("Responsable", Personal))
                         params.Add(New ReportParameter("NombreRecibio", Personal))
-
+                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-                        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"))
                         Else
@@ -4185,19 +4131,12 @@ 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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
                     Dim params As New List(Of ReportParameter)
                     Dim TipoResponsable As String = ""
                     Dim Responsable As String = ""
-
+                    Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc")
-                    Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-
-                    If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
-                        Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
-                    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("Folio", Folio))
@@ -4343,10 +4282,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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-
-
-                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                     If UsuarioActual.CveEmpresa = 140 Then
                         params.Add(New ReportParameter("Origen", Almacen))
                         params.Add(New ReportParameter("Destino", AlmacenDestino))
@@ -4391,10 +4327,8 @@ 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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
 
-
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                     params.Add(New ReportParameter("Origen", Almacen))
                     params.Add(New ReportParameter("Destino", AlmacenDestino))
                     params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
@@ -4440,10 +4374,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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-
-
-                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                         params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
                         params.Add(New ReportParameter("Destino", Almacen))
 
@@ -4453,9 +4384,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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-
-                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                         params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
                         params.Add(New ReportParameter("Destino", Almacen))
                         params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
@@ -4467,9 +4396,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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-
-                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                     params.Add(New ReportParameter("Origen", Almacen))
                     params.Add(New ReportParameter("Destino", AlmacenDestino))
 
@@ -4577,7 +4504,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($"{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))
 
@@ -4625,7 +4552,7 @@ Partial Class PopUpVerFactura
 
                 If Not Archivo.Exists Then
 
-                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
                     ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
                 Else
@@ -4636,7 +4563,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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
                 Dim params As New List(Of ReportParameter)
 
                 If UsuarioActual.CveEmpresa = 72 Then
@@ -4678,7 +4605,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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
                 Dim params As New List(Of ReportParameter)
 
                 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
@@ -4727,7 +4654,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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
                 Dim params As New List(Of ReportParameter)
 
                 If Archivo.Exists Then
@@ -4771,7 +4698,7 @@ Partial Class PopUpVerFactura
                     'End If
                 Else
 
-                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
                     Dim CiudadSucursal As String = ""
                     Dim DomicilioSucursal As String = ""
@@ -4800,11 +4727,11 @@ Partial Class PopUpVerFactura
                 End If
 
             Case 19 'ARMADO DE PAQUETE
-                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
                 Dim params As New List(Of ReportParameter)
 
 
-                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Armado de Paquete"))
@@ -4825,11 +4752,11 @@ 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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
                 Dim params As New List(Of ReportParameter)
 
 
-                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Desarmado de Paquete"))
@@ -4850,17 +4777,10 @@ Partial Class PopUpVerFactura
 
 
             Case 21, 22 'SALIDA POR PRESTAMO
-                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
                 Dim params As New List(Of ReportParameter)
-
+                Dim Archivo As String = RutaFormatoReporte("EntradaSalida.rdlc")
-                Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalida.rdlc"
+                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-                If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
-                    Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc"
-                End If
-
-                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-
-                'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                 If CveConcepto = 21 Then
                     params.Add(New ReportParameter("Concepto", "Salida por Prestamo"))
                 Else
@@ -4873,7 +4793,6 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Descuentos", ""))
                 params.Add(New ReportParameter("IVA", ""))
                 params.Add(New ReportParameter("Total", ""))
-                'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                 params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                 params.Add(New ReportParameter("FacturadoA", NombreCliente))
                 If (UsuarioActual.CveEmpresa = 72) Then
@@ -4888,15 +4807,9 @@ Partial Class PopUpVerFactura
                 End If
 
             'Case 22 'ENTRADA POR PRESTAMO
-            '    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+            '    
             '    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("Empresa", UsuarioActual.Empresa.Empresa))
             '    params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
@@ -4917,17 +4830,10 @@ 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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
                     Dim params As New List(Of ReportParameter)
-
+                    Dim Archivo As String = RutaFormatoReporte("EntradaSalidaUniforme.rdlc")
-                    Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta))
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-                    Dim Archivo As String = String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta)
-
-                    If Not ArchivoRuta.Exists Then
-                        Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc"
-                    End If
-
-                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
                     Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
                     Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego))
@@ -4958,19 +4864,13 @@ Partial Class PopUpVerFactura
 
                     ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios")
                 Else
-                    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 = ""
 
-                    Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
+                    Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc")
-
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-                    If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
-                        Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
-                    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("Folio", Folio))
@@ -5005,11 +4905,11 @@ Partial Class PopUpVerFactura
                 End If
 
             Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR
-                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
                 Dim params As New List(Of ReportParameter)
 
 
-                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                 Dim ConceptoReporte As String = If(CveConcepto = 28, "Entrada por Préstamo", "Devolución de Préstamo")
 
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
@@ -5025,12 +4925,8 @@ Partial Class PopUpVerFactura
                 ImprimirPDF("Empresas/Grales/Formatos/PrestamosProveedor.rdlc", DtMovimientos, params, String.Format("Proveedor - {0}", Folio.ToString), RDSName:="DsInventarios")
 
             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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
 
                 Dim params As New List(Of ReportParameter)
-
                 'If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
                 Dim CiudadSucursal As String = ""
                 Dim DomicilioSucursal As String = ""
@@ -5063,16 +4959,11 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("NombreEntrego", Capturo))
                 params.Add(New ReportParameter("NombreRecibio", Recibio))
+                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
-                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
-                'End If
+                ImprimirPDF(RutaFormatoReporte("ConsumoInterno.rdlc"), DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
 
-                If Archivo2.Exists Then
-                    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
-                Else
-                    ImprimirPDF("Empresas/Grales/Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
-                End If
 
             Case 31  'SALIDA POR DEMOSTRACION
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidaDemostracion.rdlc", UsuarioActual.Empresa.Ruta))
@@ -5094,7 +4985,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($"{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
@@ -5249,9 +5140,8 @@ Partial Class PopUpVerFactura
                         End If
 
                     Else
-                        Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta))
-                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
+                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE"))
                         params.Add(New ReportParameter("Almacen", Almacen))
@@ -5311,12 +5201,8 @@ Partial Class PopUpVerFactura
                             End If
                         End If
 
+                        ImprimirPDF(RutaFormatoReporte("EntradaSalida.rdlc"), DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
 
-                        If A.Exists Then
-                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
-                        Else
-                            ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
-                        End If
 
                         End If
                 End If
@@ -5332,17 +5218,10 @@ Partial Class PopUpVerFactura
                 End If
                 ObjAcum.Dispose()
 
-                'Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2))
-                'Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1)
-
-                'Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today))
-
                 Dim params As New List(Of ReportParameter)
 
                 params.Add(New ReportParameter("Direccion", Almacen))
                 params.Add(New ReportParameter("FechaConFormato", Fecha))
-                'params.Add(New ReportParameter("FechaInicial", Fecha))
-                'params.Add(New ReportParameter("FechaFinal", Today.ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("Sucursal", "Sucursal"))
                 params.Add(New ReportParameter("Cliente", NombreCliente))
                 params.Add(New ReportParameter("Folio", Folio))
@@ -5524,7 +5403,7 @@ Partial Class PopUpVerFactura
             End If
         End If
 
-        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
 
         If Not RutaReporte.Exists Then
 
@@ -5534,7 +5413,7 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
-            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+            params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
         End If
 
@@ -5586,7 +5465,6 @@ Partial Class PopUpVerFactura
     Private Sub CreaDTMateriales()
         TmpDTMaterialesOS = New DataTable
         TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer))
-
         TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer))
         TmpDTMaterialesOS.Columns.Add("CveConsecutivo", GetType(Integer))
         TmpDTMaterialesOS.Columns.Add("CveConsecutivoDetalle", GetType(Integer))
@@ -5662,8 +5540,6 @@ Partial Class PopUpVerFactura
 
     Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer)
         Dim ObjAF As New ClsAF
-        'Dim ObjSubProyecto As New ClsSubProyectos
-        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta))
 
         Dim dtVC As DataTable = Nothing
         Dim dtHijos As DataTable = Nothing
@@ -5675,8 +5551,6 @@ Partial Class PopUpVerFactura
         If ObjAF.GetActivosFijosResguardos(-1, CveAFR, -1, -1) Then
             dtVC = ObjAF.DtResultados
         End If
-
-
         dr = dtVC.Rows(0)
 
         Select Case Tipo
@@ -5726,16 +5600,13 @@ Partial Class PopUpVerFactura
 
         ObjAF.Dispose()
 
-        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
-        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-
         params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString))
         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("Folio", dr("Folio").ToString))
         params.Add(New ReportParameter("Responsable", dr("NombreCompleto").ToString))
         params.Add(New ReportParameter("Observaciones", dr("ObservacionesAF").ToString))
 
-
         If UsuarioActual.CveEmpresa.Contiene(72) Then
             Dim SBDomicilioSucursal As New StringBuilder()
             Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
@@ -5766,13 +5637,7 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString))
         End If
 
-
+        ImprimirPDF(RutaFormatoReporte("ResguardoAF.rdlc"), dtVC, params, NomArchivo)
-        If Archivo.Exists Then
-            ImprimirPDF(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params, NomArchivo)
-        Else
-            ImprimirPDF("Empresas/Grales/Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo)
-        End If
-
 
     End Sub
     Private Sub ImprimirPDFAFR2(CveAFR As Integer, Tipo As Integer)
@@ -5797,7 +5662,6 @@ Partial Class PopUpVerFactura
 
         dr = dtVC.Rows(0)
 
-
         Select Case Tipo
             Case 1
                 params.Add(New ReportParameter("Tipo", "RESGUARDO DE ACTIVO FIJO"))
@@ -6015,7 +5879,6 @@ Partial Class PopUpVerFactura
         End If
         Dim params As New List(Of ReportParameter)
 
-
         If CveTipoTransaccion = 1 Then
             Dim Folio = ObjIE.Folio
             Dim Importe = ObjIE.Importe
@@ -6035,7 +5898,6 @@ Partial Class PopUpVerFactura
 
             If UsuarioActual.CveEmpresa.Contiene(141) Then
 
-
                 Dim InicialesUsuarioGenero As String = ""
 
                 Try
@@ -6047,11 +5909,8 @@ Partial Class PopUpVerFactura
 
                 End Try
 
-
                 params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero))
 
-
-
             End If
 
             Dim DtMovimientosPoliza As DataTable = Nothing
@@ -6101,8 +5960,6 @@ Partial Class PopUpVerFactura
                             DtMovimientosPoliza.Rows.Add(Dr)
 
                         Next
-
-
                     End If
                 End If
                 PreP.Dispose()
@@ -6119,7 +5976,6 @@ Partial Class PopUpVerFactura
                 ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
             End If
 
-
         ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then
 
             Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
@@ -6359,7 +6215,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
                 params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
 
-                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
                 ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
             End If
@@ -6402,9 +6258,6 @@ Partial Class PopUpVerFactura
 
                     Dim paramList As New List(Of ReportParameter)
                     With paramList
-
-                        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))
                         .Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -6415,21 +6268,11 @@ Partial Class PopUpVerFactura
                         .Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True))
                         .Add(New ReportParameter("Folio", ObjIE.Folio, True))
                         .Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True))
-
+                        .Add(New ReportParameter("LogoPath", RutaImagenLogo))
-
-                        If Imagen.Exists Then
-                            .Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                        Else
-                            .Add(New ReportParameter("LogoPath", ""))
-                        End If
-
                     End With
                     dtMovs.Dispose()
-
                     ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
-
                 End If
-
             End If
         End If
 
@@ -6726,7 +6569,7 @@ Partial Class PopUpVerFactura
         End If
         ObjPS.Dispose()
 
-        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
 
@@ -6805,7 +6648,7 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Comprobante", Comprobante))
         params.Add(New ReportParameter("CodigoTD", CodigoTD))
 
-        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
         ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline")
     End Sub
@@ -6859,7 +6702,7 @@ Partial Class PopUpVerFactura
         End If
         ObjPS.Dispose()
 
-        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
 
@@ -6938,7 +6781,7 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Comprobante", Comprobante))
         params.Add(New ReportParameter("CodigoTD", CodigoTD))
 
-        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
         ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline")
     End Sub

Contabilidad/PolizasImpresion.aspx.vb

@@ -77,12 +77,7 @@ Partial Class Contabilidad_PolizasImpresion
             folf = FolioFin.Text.ToEntero()
         End If
 
-        Dim ArchivoReporte As String = "Empresas/Grales/Formatos/Polizas.rdlc"
+        Dim ArchivoReporte As String = RutaFormatoReporte("Polizas.rdlc")
-
-        If IO.File.Exists(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) Then
-            ArchivoReporte = String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)
-        End If
-
         Dim ObjConta As New ClsContabilidad
         If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
                                            FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSegmentoNeg.SelectedValue.ToEntero,
@@ -99,8 +94,6 @@ Partial Class Contabilidad_PolizasImpresion
                     params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text))
                     params.Add(New ReportParameter("FFin", TxtFechaFin.Text))
                     params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
-                    'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
-                    'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
                     params.Add(New ReportParameter("Numero", dr("Folio").ToString))
                     params.Add(New ReportParameter("Moneda", ""))
                     params.Add(New ReportParameter("CodigoPostal", ""))