diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 0e2a3a5aa..a825a28f5 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/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", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-
+                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                 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", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                     '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", 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 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", 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 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))
-
-                        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
                         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"
-
-                    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}", "")))
-
+                    Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc")
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                     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))
-
-                        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                         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 = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
-
-                    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}", "")))
+                    Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc")
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
                     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", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                     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", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                     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", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                         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", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                         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", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                     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 = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalida.rdlc"
-                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))
+                Dim Archivo As String = RutaFormatoReporte("EntradaSalida.rdlc")
+                params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                 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 ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta))
-                    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 Archivo As String = RutaFormatoReporte("EntradaSalidaUniforme.rdlc")
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
                     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"
-
-                    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}", "")))
+                    Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc")
+                    params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
                     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,14 +5201,10 @@ 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
 
             Case 42 'ENTRADAS USADOS
@@ -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", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-
+        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
         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
 
-
-        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
-
+        ImprimirPDF(RutaFormatoReporte("ResguardoAF.rdlc"), dtVC, params, NomArchivo)
 
     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,196 +5909,190 @@ Partial Class PopUpVerFactura
 
                 End Try
 
-
                 params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero))
 
-
-
             End If
 
             Dim DtMovimientosPoliza As DataTable = Nothing
-                If UsuarioActual.CveEmpresa = 48 Then
-                    'Movimientos del IE
-                    If ObjIE.IDPoliza > 0 Then
+            If UsuarioActual.CveEmpresa = 48 Then
+                'Movimientos del IE
+                If ObjIE.IDPoliza > 0 Then
 
-                        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-                        If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then
-                            Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError)
-                        Else
-                            DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable
-                        End If
-
-                        ObjConta.Dispose()
+                    Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+                    If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then
+                        Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError)
                     Else
-                        DtMovimientosPoliza = New DataTable
-                        DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
-                        DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
-                        DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
-                        DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
-
-                        Dim Dr = DtMovimientosPoliza.NewRow
-                        Dr("CODIGO") = ""
-                        Dr("Cuenta") = ""
-                        Dr("Cargo") = 0
-                        Dr("Abono") = 0
-                        DtMovimientosPoliza.Rows.Add(Dr)
+                        DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable
                     End If
-                ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
-                    Dim PreP As New ClsContabilidad
-                    If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
-                        DtMovimientosPoliza = New DataTable
-                        DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
-                        DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
-                        DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
-                        DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
 
-                        If PreP.DtResultados.Rows.Count > 0 Then
-
-                            For Each drt As DataRow In PreP.DtResultados.Rows
-                                Dim Dr = DtMovimientosPoliza.NewRow
-                                Dr("CODIGO") = drt("CuentaCodigo")
-                                Dr("Cuenta") = drt("CuentaNombre")
-                                Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
-                                Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0")
-                                DtMovimientosPoliza.Rows.Add(Dr)
-
-                            Next
-
-
-                        End If
-                    End If
-                    PreP.Dispose()
-                End If
-
-
-                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta))
-
-                If Archivo.Exists Then
-                    ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
+                    ObjConta.Dispose()
                 Else
-                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                    params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
-                    ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
+                    DtMovimientosPoliza = New DataTable
+                    DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
+                    DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
+                    DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
+                    DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
+
+                    Dim Dr = DtMovimientosPoliza.NewRow
+                    Dr("CODIGO") = ""
+                    Dr("Cuenta") = ""
+                    Dr("Cargo") = 0
+                    Dr("Abono") = 0
+                    DtMovimientosPoliza.Rows.Add(Dr)
                 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
-                Dim FechaExpedicion As Date = Now
-                Dim Importe As Double
-                Dim FormatoCheque As String = ""
-
-                Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer
-                Dim tIdPoliza As Integer
-                Dim DtMovimientosPoliza As DataTable = Nothing
-                Dim RFC As String = ""
-                Dim Correo As String = ""
-                Dim CLABE As String = ""
-                Dim NoSucursal As String = ""
-                Dim Telefono As String = ""
-                Dim IVA As Double = 0
-
-                Folio = ""
-                TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = ""
-                CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0
-                Ruta = UsuarioActual.Empresa.Ruta
-
-                PagueseA = ObjIE.PagueseA
-                Folio = ObjIE.Folio
-                Importe = ObjIE.Importe
-                CveTipoTransaccion = ObjIE.CveTipoTransaccion
-                Banco = ObjIE.Banco
-                NumCuenta = ObjIE.DepositoCuenta
-                If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE
-                CLABE = ObjIE.DepositoCLABE
-                If CLABE = "" Then CLABE = ObjIE.DepositoReferencia
-                NoSucursal = ObjIE.DepositoSucursal
-                RefCrediproveedor = ObjIE.DepositoRefCrediProveedor
-                TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
-                FechaExpedicion = ObjIE.FechaDocumento
-                Observacion = ObjIE.Observaciones
-                UsuarioRegistro = ObjIE.UsuarioNombre
-                SubProyecto = ObjIE.SubProyecto
-                AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")
-                NotificarA = ObjIE.NotificarA
-                tIdPoliza = ObjIE.IDPoliza
-
+            ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
                 Dim PreP As New ClsContabilidad
                 If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+                    DtMovimientosPoliza = New DataTable
+                    DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
+                    DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
+                    DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
+                    DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
+
                     If PreP.DtResultados.Rows.Count > 0 Then
-                        CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
-                        CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
 
-                        IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
+                        For Each drt As DataRow In PreP.DtResultados.Rows
+                            Dim Dr = DtMovimientosPoliza.NewRow
+                            Dr("CODIGO") = drt("CuentaCodigo")
+                            Dr("Cuenta") = drt("CuentaNombre")
+                            Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
+                            Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0")
+                            DtMovimientosPoliza.Rows.Add(Dr)
 
-                        If CveProveedor > 0 Then
-                            Dim Prov As New ClsCompProveedores
-                            If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then
-                                If Prov.DtResultados.Rows.Count > 0 Then
-                                    RFC = Prov.DtResultados.Rows(0)("RFC").ToString
-                                    Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString
-                                End If
-                            End If
-                            Prov.Dispose()
-                        End If
-
-                        If CvePersonal > 0 Then
-                            Dim RH As New ClsRH
-                            If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
-                                If RH.DtResultados.Rows.Count > 0 Then
-                                    Correo = RH.DtResultados.Rows(0)("Correo").ToString
-                                    Banco = RH.DtResultados.Rows(0)("Banco").ToString
-                                    NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString
-                                    CLABE = RH.DtResultados.Rows(0)("CLABE").ToString
-                                End If
-
-
-                            End If
-
-                            RH.Dispose()
-
-                        End If
+                        Next
                     End If
                 End If
                 PreP.Dispose()
+            End If
 
 
-                params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
-                params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
-                params.Add(New ReportParameter("PagueseA", PagueseA))
-                params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
-                params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))
-                params.Add(New ReportParameter("Banco", Banco))
-                params.Add(New ReportParameter("NumCuenta", NumCuenta))
-                params.Add(New ReportParameter("CLABE", CLABE))
-                params.Add(New ReportParameter("Concepto", Observacion))
-                params.Add(New ReportParameter("Factura", ""))
-                params.Add(New ReportParameter("RFC", RFC))
-                params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}"))
-                params.Add(New ReportParameter("NumSucursal", NoSucursal))
-                params.Add(New ReportParameter("Correo", Correo))
-                params.Add(New ReportParameter("Telefono", Telefono))
-                params.Add(New ReportParameter("NotifiqueA", NotificarA))
-                params.Add(New ReportParameter("Obra", SubProyecto))
-                params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
-                params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))
+            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta))
 
-                If UsuarioActual.CveEmpresa = 66 Then
-                    params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor))
+            If Archivo.Exists Then
+                ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
+            Else
+                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
+                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
+            Dim FechaExpedicion As Date = Now
+            Dim Importe As Double
+            Dim FormatoCheque As String = ""
+
+            Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer
+            Dim tIdPoliza As Integer
+            Dim DtMovimientosPoliza As DataTable = Nothing
+            Dim RFC As String = ""
+            Dim Correo As String = ""
+            Dim CLABE As String = ""
+            Dim NoSucursal As String = ""
+            Dim Telefono As String = ""
+            Dim IVA As Double = 0
+
+            Folio = ""
+            TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = ""
+            CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0
+            Ruta = UsuarioActual.Empresa.Ruta
+
+            PagueseA = ObjIE.PagueseA
+            Folio = ObjIE.Folio
+            Importe = ObjIE.Importe
+            CveTipoTransaccion = ObjIE.CveTipoTransaccion
+            Banco = ObjIE.Banco
+            NumCuenta = ObjIE.DepositoCuenta
+            If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE
+            CLABE = ObjIE.DepositoCLABE
+            If CLABE = "" Then CLABE = ObjIE.DepositoReferencia
+            NoSucursal = ObjIE.DepositoSucursal
+            RefCrediproveedor = ObjIE.DepositoRefCrediProveedor
+            TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
+            FechaExpedicion = ObjIE.FechaDocumento
+            Observacion = ObjIE.Observaciones
+            UsuarioRegistro = ObjIE.UsuarioNombre
+            SubProyecto = ObjIE.SubProyecto
+            AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")
+            NotificarA = ObjIE.NotificarA
+            tIdPoliza = ObjIE.IDPoliza
+
+            Dim PreP As New ClsContabilidad
+            If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+                If PreP.DtResultados.Rows.Count > 0 Then
+                    CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
+                    CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
+
+                    IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
+
+                    If CveProveedor > 0 Then
+                        Dim Prov As New ClsCompProveedores
+                        If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then
+                            If Prov.DtResultados.Rows.Count > 0 Then
+                                RFC = Prov.DtResultados.Rows(0)("RFC").ToString
+                                Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString
+                            End If
+                        End If
+                        Prov.Dispose()
+                    End If
+
+                    If CvePersonal > 0 Then
+                        Dim RH As New ClsRH
+                        If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
+                            If RH.DtResultados.Rows.Count > 0 Then
+                                Correo = RH.DtResultados.Rows(0)("Correo").ToString
+                                Banco = RH.DtResultados.Rows(0)("Banco").ToString
+                                NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString
+                                CLABE = RH.DtResultados.Rows(0)("CLABE").ToString
+                            End If
+
+
+                        End If
+
+                        RH.Dispose()
+
+                    End If
                 End If
+            End If
+            PreP.Dispose()
 
 
-                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta))
-                If Archivo.Exists Then
-                    ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
-                Else
-                    ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
-                End If
+            params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
+            params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
+            params.Add(New ReportParameter("PagueseA", PagueseA))
+            params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
+            params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))
+            params.Add(New ReportParameter("Banco", Banco))
+            params.Add(New ReportParameter("NumCuenta", NumCuenta))
+            params.Add(New ReportParameter("CLABE", CLABE))
+            params.Add(New ReportParameter("Concepto", Observacion))
+            params.Add(New ReportParameter("Factura", ""))
+            params.Add(New ReportParameter("RFC", RFC))
+            params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}"))
+            params.Add(New ReportParameter("NumSucursal", NoSucursal))
+            params.Add(New ReportParameter("Correo", Correo))
+            params.Add(New ReportParameter("Telefono", Telefono))
+            params.Add(New ReportParameter("NotifiqueA", NotificarA))
+            params.Add(New ReportParameter("Obra", SubProyecto))
+            params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
+            params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))
 
-            ElseIf CveTipoTransaccion.Contiene(6) Then
-                'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS
-                Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
+            If UsuarioActual.CveEmpresa = 66 Then
+                params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor))
+            End If
+
+
+            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta))
+            If Archivo.Exists Then
+                ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
+            Else
+                ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
+            End If
+
+        ElseIf CveTipoTransaccion.Contiene(6) Then
+            'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS
+            Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
             Dim Ruta As String = UsuarioActual.Empresa.Ruta
             Dim FechaExpedicion As Date = Now
             Dim Importe As Double
@@ -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))
-
-
-                        If Imagen.Exists Then
-                            .Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                        Else
-                            .Add(New ReportParameter("LogoPath", ""))
-                        End If
-
+                        .Add(New ReportParameter("LogoPath", RutaImagenLogo))
                     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
diff --git a/Contabilidad/PolizasImpresion.aspx.vb b/Contabilidad/PolizasImpresion.aspx.vb
index 2b015f44a..0ea6f1bfa 100644
--- a/Contabilidad/PolizasImpresion.aspx.vb
+++ b/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"
-
-        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 ArchivoReporte As String = RutaFormatoReporte("Polizas.rdlc")
         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", ""))