Manipulation d'objets dans une collection à l'aide de scripts

Dans l'exemple suivant, nous allons manipuler les objets dans une collection en créant des objets règles de gestion puis en les attachant à un objet classe. Pour cela, nous allons :

Créer des objets règles de gestion
Initialiser leurs attributs
Récupérer les premiers objets dans la collection des attributs de classe
Ajouter les règles créées au début et à la fin de la collection des règles associées
Déplacer une règle à la fin de la collection des règles associées
Oter une règle de la collection des règles associées

Exemple

If (not ExistingModel Is Nothing) and (not FoundClass Is Nothing) Then
   ' We are going to create business rule objects and attached them to the class
   ' Create first the business rule objects
   Dim Rule1, Rule2
   Set Rule1 = ExistingModel.BusinessRules.CreateNew()
   Set Rule2 = ExistingModel.BusinessRules.CreateNew()
   If (not Rule1 is Nothing) And (not Rule2 Is Nothing) Then
      output "Business Rule objects have been successfully created"
      ' Initialize rule attributes
      Rule1.SetNameAndCode "Mandatory Name", "mandatoryName"
      Rule1.ServerExpression = "The Name attribute cannot be empty"
      Rule2.SetNameAndCode "Unique Name", "uniqueName"
      Rule2.ServerExpression = "The Name attribute must be unique"
      ' Retrieve the first object in the class attributes collection
      Dim FirstAttr, AttrColl
      Set AttrColl = FoundClass.Attributes
      If not AttrColl is Nothing Then
         If not AttrColl.Count = 0 then
            Set FirstAttr = AttrColl.Item(0)
         End If
      End If
      Set AttrColl = Nothing
      If not FirstAttr is Nothing Then
         output "First class attribute successfully retrieved from collection"
         ' Add Rule1 at end of attached rules collection
         FirstAttr.AttachedRules.Add Rule1
         ' Add Rule2 at the beginning of attached rules collection
         FirstAttr.AttachedRules.Insert 0, Rule2
         ' Move Rule2 at end of collection
         FirstAttr.AttachedRules.Move 1, 0
         ' Remove Rule1 from collection
         FirstAttr.AttachedRules.RemoveAt 0
         Set FirstAttr = Nothing
      End If
   End If
  Set Rule1 = Nothing
   Set Rule2 = Nothing
End If