correcciones en reportes

Compras/PopUpVerFactura.aspx.vb

@@ -2673,9 +2673,10 @@ Partial Class PopUpVerFactura
                     Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                     Dim params As New List(Of ReportParameter)
 
+                    Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
                     Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalidaUniforme.rdlc"
 
-                    If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
+                    If Not ArchivoRuta.Exists Then
                         Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc"
                     End If