Powerd911 – Numéro #1 au Canada

Positionnement de la clef primaire dans le haut de la liste des colonnes affichées

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

 

Laisser un commentaire

Contacter nous
300 characters left