Hello lionel
thanks for your help, it worked.
I am running in another question with those attribute updates, perhaps you can also help.
Assume i have Processes on 5 Levels over Aggregate / Component Relationships. Now i have an attribute "Prozesslandkarte-Bereich" with 3 Enumerations in a dropdown - "Kern-Prozess", "Steuerungs-Prozess", "Support-Prozess".
Now i would like to edit this attribute on Level 1 and the selected value should be handed down to all Processes connected via "Component" Association. I tried this with something similar to your solution:
'MegaContext(Fields,Types)
'Uses(Components)
'Option Explicit
Function AttCtl_GetDefaultKind() As String
AttCtl_GetDefaultKind = "Edit"
End Function
Function AttCtl_Update(Context As MegaUpdateToolContext,Status As Integer,ErrorMessage As String) As Boolean
Dim strTMP
Dim myProcess
Set myProcess = Context.MegaObject
colComp1 = myProcess.getCollection("Komponente")
for each itemComp1 in colComp1
itemComp1.setProp "Prozesslandkarte-Bereich",strTMP
colComp2 = itemComp1.getCollection("Komponente")
for each itemComp2 in colComp2
itemComp2.setProp "Prozesslandkarte-Bereich",strTMP
colComp3 = itemComp3.getCollection("Komponente")
for each itemComp3 in colComp3
itemComp3.setProp "Prozesslandkarte-Bereich",strTMP
colComp4 = itemComp3.getCollection("Komponente")
for each itemComp4 in colComp4
itemComp4.setProp "Prozesslandkarte-Bereich",strTMP
colComp5 = itemComp4.getCollection("Komponente")
for each itemComp5 in colComp5
itemComp5.setProp "Prozesslandkarte-Bereich",strTMP
next
next
next
next
next
End Function
if i attach this to the MetaAttribute, the dropdown gets lost.
For all other Levels the attribute is read-only. I already managed to do this via Metatest & Condition in the Property Page configuration.
Can you or someone else help me with this problem?
Thanks
Tobias
Hello Tobias,
I had quite a hard time trying to understand what you wanted to do.
In short, you have 2 specific MetaAttributes and when one of these is modified, you want the name of your process to be modified (the new name being the concatenation of the two attributes)
First of all, at least one of these two attributes should have it's _AtIndex at "Unique" (if not, you will have to manage the fact that 2 processes may have the same name...) :
Then, since you want the name of your process to be updated each time one of these 2 metaAttributes is modified, you must create 2 macros (one for each metaAttributes) linked to the metaAttributes by the MetaAttributeUpdateTool link.
Example for the Geschäftsprozess-ID attribute :
Then, you have to code your macro this way :
'MegaContext(Fields,Types)
'Uses(Components)
Option Explicit
Function AttCtl_GetDefaultKind() As String
AttCtl_GetDefaultKind = "Edit"
End Function
Function AttCtl_Update(Context As MegaUpdateToolContext,Status As Integer,ErrorMessage As String) As Boolean
Dim strTMP
Dim myProcess
strTMP = Context.EditText 'This correspond to the attribute you are modifying
Set myProcess = Context.MegaObject
If Trim(strTMP) <> "" Then 'The name will be modified only if the "unique" attribute is not empty
myProcess.SetProp "nom court", strTMP & myProcess.getProp("Geschäftsprozess-Name")
End If
End Function
Create the same macro for your "Geschäftsprozess-Name" attribute :
'MegaContext(Fields,Types)
'Uses(Components)
Option Explicit
Function AttCtl_GetDefaultKind() As String
AttCtl_GetDefaultKind = "Edit"
End Function
Function AttCtl_Update(Context As MegaUpdateToolContext,Status As Integer,ErrorMessage As String) As Boolean
Dim strTMP
Dim myProcess
strTMP = Context.EditText 'This correspond to the attribute you are modifying
Set myProcess = Context.MegaObject
If Trim(myProcess.getProp("Geschäftsprozess-ID")) <> "" Then 'The "unique" attribute must not be empty
myProcess.SetProp "nom court", myProcess.getProp("Geschäftsprozess-ID") & strTmp
End If
End Function
Well, I hope that helps 🙂
Lionel
