AF/CatAF.aspx.vb

@@ -458,7 +458,8 @@ Partial Class AF_CatAF
             Dim params As New List(Of ReportParameter)
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
             Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
+            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\CatAF.rdlc", UsuarioActual.Empresa.Ruta))
+            Dim Ruta As String = ""
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
@@ -468,7 +469,13 @@ Partial Class AF_CatAF
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
-            ImprimirPDF(String.Format("{0}Formatos\CatAF.rdlc", UsuarioActual.Empresa.Ruta), DtActivosFijos, params, "CatalogoActivosFijos", Formato:=Formato)
+
+            If Archivo.Exists Then
+                Ruta = UsuarioActual.Empresa.Ruta & "Formatos/CatAF.rdlc"
+            Else
+                Ruta = "Empresas/Grales/Formatos/CatAF.rdlc"
+            End If
+            ImprimirPDF(Ruta, DtActivosFijos, params, "CatalogoActivosFijos", Formato:=Formato)
 
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)