Ces quelques lignes de code en Visual Basic permettent de déplacer automatiquement la clé primaire de chacune des tables dans le haut de la liste des colonnes qui sont affichées.
Compatible avec PowerDesigner/PowerAMC 16.5
'* Nom du fichier : CP_PREMIERE.vbs '* Définition : Permet de déplacer automatiquement la clef primaire de chacune des tables dans le haut de la liste des colonnes '* qui sont affichées '* Modèle: Modèle physique pour la génération '* Objets: Table, Colonne '* Auteur: Benoît Le Nabec '* URL : http://www.Powerd911.guru '* Créé: 2015-01-01 '* Version: 1.0 '********************************************************************** Dim M, S, T, C, primPos, currPos Set M = ActiveModel Set S = M.CreateSelection() If not S is Nothing Then S.AddObjects M, PdPDM.Cls_Table, False, True ' Permet d'énumérer toute les tables du modèle incluant celles sous les packages For Each T in S.Objects ' Pour chaque table currPos = 0 primPos = 0 For Each C in T.Columns ' Pour chaque colonne If C.Primary Then If currPos = primPos Then primPos = currPos Else output "Déplacement de la colonne " + T.Name + "." + C.Name + " de la position " + CStr(currPos) + " vers " + CStr(primPos) T.Columns.Move primPos, currPos primPos = primPos + 1 End If End If CurrPos = CurrPos+1 Next Set C = Nothing Next Set T = Nothing S.Delete Set S = Nothing End If