Forums, dernières contributions
un univers manager de BO XI R2 pedro_paul
Bonjour,
Pour lister des rapports et des univers BO 6, je peux lancer des requetes SQL sur des tables système de BO6. à partir de chaque Domaine(schéma d'univers ou schèma Document), je liste les rapports ou les univers des schèmas(domaines). Par contre pour BO XI R2 vous savez que la notion de domaine n'existe pas, et par contre on a des dossiers. Est ce qu'il y a une solution pour lister de façon automatique les univers et les rapports du référentiel BO XI R2? Merci d'avance Pedro_paul M Rochais
Bonjour,
Nous utilisons la solution 360view qui permet de gérer la sécurité encore plus simplement que dans le supervisor. Il est possible également de tout exporter sous Excel y compris les rapports que vous demandez... Cdlt pedro_paul
Bonjour,
Merci de votre réponse. Ce que je fais c'est de récuperer les rapports et les univers au format Excel. Mais si vous avez une version free trial de 360view, je suis preneur. Merci d'avance Pedro_paul M Rochais
Il faut contacter l'éditeur http://gbandsmith.com/
pedro_paul
Merci pour le lien.
Cordialement Pedro_paul pedro_paul
Visiblement la solution 360Viewer n'est pas adapté à tous les besoins!
Les copmosants BO XI sont stockés dans les files systemes et pas dans les domaines(schèma )de data base. pour lister les univers et les repports, est ce qu'il une requete SQL ou un univers manager? Est ce qu'on doit utiliser la base d'Audit. si la réponse est oui, pour activer cette base à partir du référentiel BO XI R2 est ce possible de l'activer? Merci d'avance et bon week end Jean
Bonjour,
Ce n'est pas la meilleure façon, mais pour lister les univers on peut faire une recherche sur %BusinessObjects HOME%Business Objects 11.5Filestore pour *.unv. Pour lister les reports on doit aller dans la console de géstion de BO et en suite HOME->Objects. Bonne journée M Rochais
Nous exportons depuis 360view tous les rapports et tous les univers et leurs dossiers associés. Nous pouvons même planifier ces exports et les envoyer sur des emails ou un serveur...
Pouvez vous préciser votre besoin? Cdlt Zikos Gregoris
Voici quelques lignes de codes à copier dans un fichier. vbs qui devraient vous aider, ills suffit de remplacer le Msgbox par une ecriture dans un fichier csv et ca devrait etre un bon debut ;)
testé sur XI3.1 et devrait fonctionner en XI2 aussi Cordialement, Gregoris Zikos Pour les rapports Dim SessionManager Dim esession Dim iStore Dim FolderName Const CEuser = 'User' 'This is a BO admin Const cePassword = 'Password' 'password for User specified above Const CECMS = '@cms' 'Cms to connect Const CEAuth= 'secEnterprise' 'Auth Type, usually secEnterprise CEUserSession CEUser, CEpassword, CECMS, CEAuth QueryStr = 'select * from CI_INFOOBJECTS where SI_KIND in ('Webi','FullClient') order by SI_NAME' Set Reports = iStore.Query(QueryStr) For Each Report in Reports Set PluginMgr = IStore.PluginManager Set ObjectPlugin = PluginMgr.PluginInfo('CrystalEnterprise.Webi') Set ReportObject = Report.PluginInterface('') ReportID = ReportObject.ID 'Wscript.Echo Reportid FolderList = '' If ReportObject.ParentID 49 Then If ReportObject.Parent.ParentID 4 Then If ReportID 0 Then ' Wscript.Echo 'Level 1' Set DocHierParent = ReportObject.Parent While ReportID 0 If ReportID 4 Then ' Wscript.Echo 'Level 2' oldfolderlist = FolderList newfolder = DocHierParent.Title FolderList = newfolder & '/' & oldfolderlist ReportID = DocHierParent.ParentID Set DocHierParent = DocHierParent.Parent ' Wscript.echo FolderList Else ' Wscript.Echo 'Level 3' ReportID = ReportObject.ParentID Set DocHierParent = ReportObject.Parent End If Wend ' ' Rng(RowNum, 3) = Left(DocumentItem.Parent.Kind & ':' & FolderList, Len(DocumentItem.Parent.Kind & ':' & FolderList) - 1) ' Wscript.Echo newfolder 'Wscript.Echo Left(FolderList, Len(FolderList) - 1) & ' ' & Pathfile End If End If End If ' End If ReportsName = Report.Properties('SI_NAME').Value ReportsDescription = Report.Properties('SI_DESCRIPTION').Value 'GetfolderName(Report.Properties('SI_PARENT_FOLDER').Value) MsgBox('Universe Name : ' & ReportsName & Chr(10) & 'Description' & ReportsDescription & Chr(10) & 'Universe Folder :' & Left(FolderList, Len(FolderList) - 1)) Next Function CEUserSession(CEUser, CEpassword, CECMS, CEAuth) 'Create BO Session set oEnterpriseSessionMgr = CreateObject('CrystalEnterprise.SessionMgr') set ceSession = oEnterpriseSessionMgr.Logon(CEuser, CEpassword, CECMS, CEAuth) set iStore = ceSession.Service('','InfoStore') End Function Function GetfolderName(ParentId) QueryFolderStr = 'select * from CI_INFOOBJECTS where SI_ID = ' & ParentId &' order by SI_NAME' Set Folders = iStore.Query(QueryFolderStr) If FOLDERS.count > 0 Then Set Folder = Folders(1) FolderName = Folder.Properties('SI_NAME').Value End If End function pour les univers Dim SessionManager Dim esession Dim iStore Dim FolderName Const CEuser = 'User' 'This is a BO admin Const cePassword = 'Password' 'password for User specified above Const CECMS = '@cms' 'Cms to connect Const CEAuth= 'secEnterprise' 'Auth Type, usually secEnterprise CEUserSession CEUser, CEpassword, CECMS, CEAuth QueryStr = 'select * from CI_APPOBJECTS where SI_KIND = 'Universe' order by SI_NAME' Set Universes = iStore.Query(QueryStr) For Each UniverseItem In Universes UniverseName = UniverseItem.Properties('SI_NAME').Value UniverseDescription = UniverseItem.Properties('SI_DESCRIPTION').Value GetfolderName(UniverseItem.Properties('SI_PARENT_FOLDER').Value) MsgBox('Universe Name : ' & UniverseName & Chr(10) & 'Description' & UniverseDescription & Chr(10) & 'Universe Folder :' & FolderName) Next Function CEUserSession(CEUser, CEpassword, CECMS, CEAuth) 'Create BO Session set oEnterpriseSessionMgr = CreateObject('CrystalEnterprise.SessionMgr') set ceSession = oEnterpriseSessionMgr.Logon(CEuser, CEpassword, CECMS, CEAuth) set iStore = ceSession.Service('','InfoStore') End Function Function GetfolderName(ParentId) QueryFolderStr = 'select * from CI_APPOBJECTS where SI_ID = ' & ParentId &' order by SI_NAME' Set Folders = iStore.Query(QueryFolderStr) If FOLDERS.count > 0 Then Set Folder = Folders(1) FolderName = Folder.Properties('SI_NAME').Value End If End function |
|