Hello guys,
I was currently learning and working on the EA business processes using EA tool (9.1 version.) I had some old diagrams and when I created new ones, some got created with 1.1 BPMN and some by BPMN 2.0 version of business processes.
If you are familiar with the notation, you will know that the notations of all three are different in terms of representation and the properties that can be set. I prefer 2.0 version.
Now, in order to set all to 2.0, it is not direct. So setting up a procedure for all of you who might need it in case you end you in this situations.
Assume that you have 1.0, 1.1 and 2.0 variations of the diagrams and you want all to be in 2.0 version, follow the below procedure:
- Run Migration Utility to Migrate all 1.0 to 1.1 version of BPMN
- Run Migration Utility to Migrate all 1.1 to 2.0 version of BPMN
For your reference attaching the reference to script from “http://www.sparxsystems.com/”
Migrate BPMN 1.0 to 1.1
Sub MigrateElement (sGUID, lngPackageID) Dim proj as EA.Project set proj = Repository.GetProjectInterface proj.MigrateToBPMN11 sGUID, “BPMN” ‘refresh the model If lngPackageID<>0 Then Repository.RefreshModelView (lngPackageID) End If End Sub Sub MigrateSelectedItem Dim selType Dim selElement as EA.Element Dim selPackage as EA.Package
selType = GetTreeSelectedItemType If selType = 4 Then ‘means Element set selElement = GetTreeSelectedObject MigrateElement selElement.ElementGUID, selElement.PackageID MsgBox “Complete”,0,”BPMN 1.1 Migration” ElseIf selType = 5 Then ‘means Package set selPackage = GetTreeSelectedObject MigrateElement selPackage.PackageGUID, selPackage.PackageID MsgBox “Complete”,0,”BPMN 1.1 Migration” Else MsgBox “Select a Package or Element in the Project Browser to initiate migration”,0,”BPMN 1.1 Migration” End If End Sub Sub Main MigrateSelectedItem End Sub
Main |
Migrate BPMN 1.1 to 2.0
Sub MigrateElement (sGUID, lngPackageID) Dim proj as EA.Project set proj = Repository.GetProjectInterface proj.Migrate sGUID, “BPMN1.1”, “BPMN2.0” ‘refresh the model If lngPackageID<>0 Then Repository.RefreshModelView (lngPackageID) End If End Sub
Sub MigrateSelectedItem Dim selType Dim selElement as EA.Element Dim selPackage as EA.Package selType = GetTreeSelectedItemType If selType = 4 Then ‘means Element set selElement = GetTreeSelectedObject MigrateElement selElement.ElementGUID, selElement.PackageID MsgBox “Element Migration Completed”,0,”BPMN 2.0 Migration” ElseIf selType = 5 Then ‘means Package set selPackage = GetTreeSelectedObject MigrateElement selPackage.PackageGUID, selPackage.PackageID MsgBox “Package Migration Completed”,0,”BPMN 2.0 Migration” Else MsgBox “Select a Package or Element in the Project Browser to initiate migration”,0,”BPMN 2.0 Migration” End If End Sub Sub Main MigrateSelectedItem End Sub Main |
This can be done using navigating to scripting tab and adding these two scripts. To execute the scripts, select a package and run the script subsequently.