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