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

Contacter nous
300 characters left