[Infoview] Récupérer des fichiers publiés dans Infoview [Résolu]

[tedo01]

Bonjour,

Nous avons publié sur Infoview des fichiers Excel et Pdf dans toute une arborescence. Nous avons maintenant besoin de les récupérer pour les stocker sur un serveur d'archives (seulement serveur de fichier, sans BO).

J'ai vu que ces documents sont stockés avec leur nom d'origine dans le système de fichiers BO (répertoires Input/a_123/456/... sur le disque). Par contre j'en ai plusieurs avec le même nom, et c'est assez fastidieux de reconstituer le lien avec la structure de dossiers dans Infoview (Query Builder est assez limité, et la DB est difficile à exploiter directement).

Avez-vous des idées sur la manière de faire en masse ce lien entre les répertoires BO et ceux sur le disque ? Nous avons BO XI R2.

Merci d'avance.

[roxise]

bonjour,
Essaye de planifier tes requêtes en spécifiant le format et destination du fichier, à partir de là, clique ensuite sur "options de destinations" tu peux paramêtrer tous ce que tu désires :
paramêtrage du chemain de sortie "répertoire", nom du fichier du fichier ,formats de sortie, des destinataires avec active directory etc...

je pense que cela répond à ton besoin, chao chao

[tedo01]

Bonjour roxise,
Merci pour la réponse, malheureusement ça ne répond pas à ma question.
Ce dont j'ai besoin, c'est de faire le lien entre les instances déjà exécutées de documents dans Infoview et les fichiers physiques correspondants sur le disque, afin de récupérer un historique existant.

[purplebamboo]

Bonjour,

je ne suis pas sûr (pas de BO XI sous la main) mais il me semble que dans la CMC il est possible d'effectuer des requêtes sur les objets d'admin.

Il faudrait voir si on peut faire une requête afin de récupérer les chemins physiques des rapports que tu as exécutés. A vérifier si cela est réellement possible...

[Julien59]

Bonjour,

Il est en effet possible de requêter le référentiel.
Par contre, je dirais qu'il faut le module d'audit pour ça...
il s'agit du champs PHYSICAL_PATH dans la table DOCS de la base d'audit.
Sinon, il faut les faire 1 par 1

Bon courage.

[roxise]

salut
ahhh bin voilà maitenant je pense que j'ai capiche utilise le riche client...

[Julien59]

Envoyé par roxise

salut
ahhh bin voilà maitenant je pense que j'ai capiche utilise le riche client...

Il n'y a pas de WebI rich en XI R2

[roxise]

Personnelement j'utilise la R3 cela ne voulais pas dire que je parlais de la 2, c'est vrais j'ai pas été explicite, mais cela répond comme même à sa question

[tedo01]

(...) Nous avons BO XI R2.

J'avais précisé la version dans mon premier post

[Julien59]

As tu testé la base d'audit pour résoudre ton problème pour finir ?
Je ne vois pas d'autre moyen à part dans la CMC, doc par doc, pour récupérer ce que tu veux.

D'où mon post un peu plus haut

[roxise]

désoler c'est vrai javais pas vue, comme on dit "ça arrive au plus malin"

[tedo01]

Bonjour Julien59,

Merci pour la piste, c'est agréable d'avoir quelqu'un qui lit la question avant de répondre

Par la CMC ou le Query Builder c'est trop lourd, je me rabats vers une macro en Excel avec les librairies Crystal.
Je parcours les objets avec InfoStore.Query,et je récupère les propriétés via InfoObject.Name, InfoObject.Parent.Title et InfoObject.Files(1).Name.

[Julien59]

Ca marche

Si ta solution fonctionne, tu pourrais détailler un peu le process, ainsi que poster ta macro excel (dans un fichier en PJ si elle est trop longue) ?
Ca serait une bonne contribution.

Et n'oublie pas le bouton

[tedo01]

Re-Bonjour,
Ma question se transforme donc en contribution
Voici une petite procédure VBA (pour Excel, mais peut s'adapter à d'autres clients) qui liste des fichiers d'un type donné et dont le nom correspond à un certain critère, en donnant pour chaque fichier l'emplacement dans Infoview et celui sur le disque :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Public Sub ListFilesBO()
Dim Sess AS CrystalEnterpriseLib.SessionMgr
Dim EntSess AS CrystalEnterpriseLib.EnterpriseSession
Dim IStore AS InfoStore
Dim strQuery AS String
Dim Files AS InfoObjects
Dim File AS InfoObject
Dim lngLigne AS Long
Dim objChemin AS InfoObject
Dim strChemin AS String
Dim objCell AS Range
 
    'Connection à BO
    Set Sess = New SessionMgr
    Set EntSess = Sess.Logon("", "", "Serveur", "secWinAD")
    Set IStore = EntSess.Service("", "InfoStore")
    'Liste des fichiers
    strQuery = "Select top 70000 * From CI_INFOOBJECTS Where SI_KIND='" & Range("Type") & "' AND SI_NAME LIKE '" & Range("Like").Value & "'"
    SET Files = IStore.Query(strQuery)
    lngLigne = 2
 
    FOR Each File IN Files
        'Reconstitution du chemin dans Infoview
        Set objChemin = File.Parent
        strChemin = ""
        Do While objChemin.Title <> "Serveur"
            strChemin = objChemin.Title & "\" & strChemin
            Set objChemin = objChemin.Parent
        Loop
        lngLigne = lngLigne + 1
        Set objCell = Range("Type").Offset(lngLigne, 0)
        With objCell
            .Value = File.Title
            .Offset(0, 1).Value = strChemin
            'Récupération du fichier physique
            IF File.Files.Count > 0 Then
                .Offset(0, 2).Value = File.Files(1).Name
            End IF
        End WITH
    Next File
End Sub

J'espère que ça servira à d'autres...