[VxiR2] Copier Jointure entre Univers

[bastoonet]

Bonjour,

J'ai 2 univers avec certaines tables en commun, et j'aimerais récupérer des jointures du 1er univers (une 100aine d'auto-jointures avec prompt pour filtre sur les pays autorisés à l'utilisateur) pour les copier dans mon second univers.

Y a-t-il un moyen de copier ces jointures ?
Je précise que je ne peux pas faire un simple enregistrer sous du 1er univers pour travailler sur une copie, car il y a trop de différences sur le reste de la structure des univers, donc trop de boulot.

Sinon y a-t-il une autre solution pour placer un filtre global sur tous les champs "pays" des tables de l'univers ??? (en XIR2)

[TomDuBouchon]

Bonjour Bastoonet,

Sincèrement, je ne crois pas qu'il y ait de moyen simple de le faire... Il me semble que doc malkovich a fait un tutoriel sur comment extraire les informations d'un univers vers un fichier plat pour ensuite recréer le même univers... Peut-être y a t il moyen de bidouiller le fichier plat afin que l'univers recréé ne reprenne que certaines informations.

[bastoonet]

Oui, je connais la macro pour générer un univers depuis un fichier Excel et extraire un univers sous EXCEL, mais je pense que ça va etre aussi long de mettre ça en place que de me faire les 100 jointures à la main...

...je sais ce qu'il me reste à faire...

[Julien59]

Hello,

Tu dois pouvoir t'en sortir avec du vba via excel. Ce n'est pas spécialement ma tasse de thé mais bon...
Je crois que tu dois pouvoir extraire jointure + table source + table cible avec les éléments suivants, en faisant une boucle et par la suite, filtre par ce que tu veux dans ton fichier excel.

Code :

1
2
3
4
Identification des jointures par : UniversBO.Joins
identification de la TABLE source par : Item.FirstTable
identification de la TABLE cible par : Item.SecondTable
identification du code de la jointure par : Item.Expression

Avec ca, tu dois pouvoir faire une boucle qui va t'extraire tes jointures dans un fichier excel. La définition de jointure devrait suffire normalement.
Et pour injecter ces jointures dans ton autres univers, tu peux utiliser la commande :

Code :

UniversBO.Joins.ADD

Si tu as des questions, j'essaierais d'y répondre un peu plus en détails si j'y arrive (et si la méthode te convient)

Bon courage

EDIT : Apparemment, la méthode ne te convient pas des masses

[bastoonet]

Je vais quand même fouiller le VBA pendant 15 min....si je vois que je m'en sort pas j'arrete..

J'ai déja extrait les jointure avec la macro d'extraction EXCEL globale...Il me reste qu'à les importer maintenant..

[Julien59]

Code :

1
2
3
4
5
Do While Cells(TaLigne,TaColonne).Value <> ""
TaJointure= Cells(TaLigne,TaColonne).Value
UniversBO.Joins.ADD TaJointure
TaLigne = TaLigne + 1
Loop

Ca devrait passer ca je pense..

[bastoonet]

Je bloque sur une erreur "cannot set non regular expression" quand j'arrive sur

UniversBO.Joins.ADD Jointure

=> avec la variable jointure contenant "PAYS.ID= (@Prompt('Choix du n°pays :', 'N', 'liste\Pays', 'mono',constrained))"


=> Je viens de faire le test avec une jointure classique du type table.champs=table2.champs2 et ça fonctionne...
C'est mon @Prompt que me gène, là ça va être plus dur de contourner le pb !

=> j'ai fait un second test avec une jointure du type matable.champs=1 , et ça plante également, donc ce qui semble le géner ce sont les autojointures...il réclame 2 tables..

une idée ?

[Julien59]

Pour le coup, je ne vois pas trop comment on pourrait le bluffer.
Je n'avais jamais testé avec des autojointures, je ne pensais pas qu'il serait géné...

[datacell33]

Bonjour,

Je ne pense pas qu'on doit utiliser la collections JOINS.
Je fouille dans le modèle objet de Designer et je vous tiens au courant !

[datacell33]

Je ne sais pas si c'est très clair, mais tu as la doc officielle du SDK ici
http://devlibrary.businessobjects.co...dk_com_omd.pdf

Ce que j'essaierais :

1/ sur ton univers existant contenant les @PROMPT, tu dois essayer de les récuperer dans un fichier Excel. Pour cela, à priori :

Code :

1
2
3
4
5
FOR Each MaClasse IN UniversBO.Classes
  FOR Each MaCondition IN MaClasse.PredefinedConditions
    Msgbox MaCondition.Name
  Next
Next

Essaie peut-être la propriété "Where" de l'objet MaCondition (n'oublie pas l'explorateur d'objet F2 sous VBA ça aide !!)

Tiens nous au courant, car chez moi, ça me renvoie une erreur ActiveX alors que je suis bien sur un filtre qui contient un @PROMPT dans mon univers...

[Julien59]

Ca ne correspondra pas à l'autojointure qu'attend bastoonet je pense.
Ici, tu es simplement dans la clause Where de l'objet, alors que bastoonet souhaite vraiment avec une autojointure qui se retrouvera dans la liste des jointures.
Le JOINS correspond bien aux jointures, mais comme le dit bastoonet, il attend une table source et une table cible.
A approfondir...

[datacell33]

OK.
Je suis vraiment pas un expert BO (j'ai du en faire 6 mois au max)
Les seules fois que j'ai vu des fonctions @PROMPT, c'était dans des filtres. L'objet PredefinedConditions correspond effectivement aux filtres.

C'est comme ça que j'avais fait pour restreindre les choix de mes utilisateurs.