Powerd911 – Numéro #1 au Canada

Trouver les parents du Flux de séquence ayant pour nom “Flux 1”

Dim path, modl

‘ Si vous utilisez PowerDesigner modifier l’extension “.mpm” pour “.bpm”

path = EvaluateNamedPath(“%_EXAMPLES%BPMN20.mpm”)

Set modl = openmodel(path)

if not modl is nothing then

Dim found, last

set last = nothing

‘ Recherche de façon récursive tous les objets de type “Sequence Flow” avec le code=”Flux_1″

‘ Si vous utilisez PowerDesigner chercher “Flow_1” au lieu de “Flux_1”

set found = modl.FindChildByCode(“Flux_1”, Cls_Flow, “Sequence Flow”, last)

while (not found is nothing)

output “Trouvé un lien entre l’objet parent ” & cstr(found.Parent) & ” et l’objet enfant Flux_1″

set last = found

set found = modl.FindChildByCode(“Flux_1”, Cls_Flow, “Sequence Flow”, last)

wend

end if

 

 

 

Laisser un commentaire