Añadir a Favoritos del IE un informe de Reporting Services desde Navision

Hemos visto en anteriores posts como lanzar un informe de reporting services. En este posts vamos a ver como podemos antes de abrirlo con el IE guardarlo en los favoritos para que se pueda sacar de manera rapida desde el IE sin necesidad de abrir navision.

Los Favoritos del IE es una carpeta dentro de la carpeta de usuario de windows que contiene los links a las paginas almacenadas como favoritas. En este ejemplo, vamos a ver como crear un link sencillo, pero las posibilidades del link permiten adornarlo mucho más.
Tambien vamos a crear una carpeta dentro de Favoritos para así ver como podriamos crear una estructura organizada por carpetas.

Dependiendo del SO puede ser que tengamos la carpeta Favoritos o en su defecto Favorites. En este ejemplo veremos como comprobar cual es la correcta para almacenar nuestro link.

Name	DataType	Subtype
CarpetaPersonal	Text
Carpeta	Automation	'Microsoft Scripting Runtime'.FileSystemObject
CarpetaMia	Text
TempInformes	Record	Informes
LCarpetaFavoritos	Text
Continuar	Boolean

Fichero

File

Link

Text

//Creo las variables de la carpeta de favoritos mia que voy a crear, la del link de mi informe y
 //la variable de entorno donde esta la carpeta favoritos
   CarpetaPersonal := ENVIRON('USERPROFILE');
    CarpetaRaiz := 'MIS INFORMES';
    Link := 'http://servidor/......MIS INFORME';
//Creo el controlador de carpetas
   IF ISCLEAR(Carpeta) THEN
      CREATE(Carpeta);
//Compruebo si existe en español o ingles
   IF Carpeta.FolderExists(CarpetaPersonal + '\Favorites') THEN BEGIN
      Continuar := TRUE;
      LCarpetaFavoritos := '\Favorites';
   END ELSE BEGIN
      IF Carpeta.FolderExists(CarpetaPersonal + '\Favoritos') THEN BEGIN
         Continuar := TRUE;
         LCarpetaFavoritos := '\Favoritos';
      END ELSE BEGIN
         Continuar := FALSE;
      END;
   END;
//Continuo si encuentro Favoritos en el idioma español o ingles
   IF Continuar = TRUE THEN BEGIN
      //Creo mi carpeta dentro de favoritos
      IF NOT Carpeta.FolderExists(CarpetaPersonal + LCarpetaFavoritos + '\'+ CarperaRaiz) THEN BEGIN
         Carpeta.CreateFolder(CarpetaPersonal + LCarpetaFavoritos + '\' + CarperaRaiz);
      END;
     //Creo el fichero .url dentro de mi carpeta de favoritos Informe de Prueba.url es el nombre que aparecera en el menu de favoritos
     Fichero.CREATE(CarpetaPersonal + LCarpetaFavoritos + '\' + CarperaRaiz + '\' + 'Informe de Prueba.url');
     Fichero.WRITEMODE := TRUE;
     Fichero.TEXTMODE  := TRUE;
     Fichero.WRITE('[InternetShortcut]');
     Fichero.WRITE('URL='+Link);
     Fichero.WRITE('IDList=');
     Fichero.CLOSE;
END;

Con este código podemos facilitar el sacar informes de Reporting Services haciendolo directamente desde IE.