Hi,   You can add a "Data acces rule" to the Diagram metaclass. This data access rule must then be linked to one or more profile and to a macro.   The macro must return 0 or 1 whether you want to allow write access or not (in your case based on the "nature" attribute of the diagram).     Regards,   Gregory ... View more

Hi,   First you need to create the message flow and connect the sender and receiver using the standard MEGA API. Then add the message flow to the diagram by calling the "megaobjectinsert" method on the drawing object (the sender and receiver must be in the diagram already). This method returns a DrawingItem object that you can use to position the object nicely in your drawing.     Set myFlow = getcollection("message flow").create myflow.getcollection("Source Element").add getobjectfromid("~16ixex(JNzp5[Management System] ") myflow.getCollection("Target Element").add getobjectfromid("~Azr9AZ2KN5X6[Customer] ") Set mydiagram = getobjectfromid("~v5oxSz(JNH0T[Application Environment Diagram] ") set mydrawing = mydiagram.drawing("RW") Set flowdrawingitem = mydrawing.megaobjectinsert(myflow) 'removing all points except both ends to make the line straight set parentdrawingitem = flowdrawingitem.ItemProperty("ParentDrawingItem") set flowpoints = parentdrawingitem.ItemProperty("DrwLine_Points") For i = 1 to flowpoints.count - 2     flowpoints.removepoint(1) Next parentdrawingitem.ItemProperty("DrwLine_Points") = flowpoints mydrawing.flush mydiagram.open   Gregory ... View more

It looks like there is a conflict bacause of the "drawing" variable name. Here is a new version       q = "Select [Diagram] Where nature ""BPMNFLOWCHART"""     Set cDiags = getselection(q, "Short name", -1)     For each oDiag in cDiags         set mydrawing = oDiag.drawing("RW")         mydrawing.resetshapes         mydrawing.flush     Next ... View more

Hi ACE,   You can only use MegaApplication when the MEGA Windows application is not running. As an alternative you can use MegaCurrentSession to access the current session when MEGA is open:   MegaRoot myRoot = new MegaCurrentSession().getRoot(""); Gregory   ... View more

Hi Colruyt Team,   Using Java will not make a big difference in terms of performance because the VB Script and Java APIs are based on the same internal API.   Here are a few things you can look at to make your code run faster: - most of the time using collections instead of queries to retrieve objects is faster (it can make a big difference) - check whether you are using identifiers when accessing metattributes, links and objects - make sure to release megaobject and megacollection objects when they are no longer in use   also the technical article "All about starting with APIs" contains a lot of information on how to use the API effectively   Best regards   Gregory ... View more

Hi,   You need to use "internalvalue" in place of "value" in your test expression:   [If="internalvalue=S"]     Best regards,   Gregory ... View more

Hi   In your environment folder you have a .emq or .emo file for each repositoy (depending if you use SQL Server or Oracle). These files contain the encrypted information used to connect to the DB server:   [SQL SERVER CONFIG] ServerName=¦¢+-408F6D0A94589102F74A3BA0488DE944 UserLogin=¦¢+-6D74F6C6E9B6E19F644368A100469619 UserPassword=¦¢+-3BA30D86E7CE65AA74128E4B9341981B   Best regards, Gregory ... View more

Hi mgObject.Getcollection("Owned Element") returns objects of the abstract metaclass "BPMN Owned Element". You can filter this result to retain only sequence flow objects: Megacollection mgColelction = mgObject.getCollection(BusinessProcess.MAE_OwnedElement).Filter("~jsV6VsHL7vJ0[Sequence Flow] ");   Best regards   Gregory ... View more

Hi,   Here is a short example:   using System; using System.Collections; using System.Linq; using System.Text; using MegaMapp; namespace ConsoleApplication1 {     class Program {         static void Main(string[] args) {             MegaApplication mapp = new MegaApplication();             MegaEnvironment myenv = mapp.Environments()["c:\\clients\\XXXXX\\YYYYY"]; //Environment path             myenv.CurrentAdministrator = "mega"; //User name             myenv.CurrentPassword = "";             // User password             foreach(MegaDatabase mydb in myenv.Databases()) {                 if (mydb.Name == "ZZZZZ") { //Repository name                     MegaRoot myroot = mydb.Open();                     Console.WriteLine("There are {0} organizational processes.", myroot.get_GetCollection("Organizational process").Count);                     myroot = null;                 }             }             string s = Console.ReadLine();             myenv = null;             mapp = null;         }     } } ... View more

I dont know any way to know if a diagram is open but you can hide a path in a diagram with the API:   For each di In drawing.DrawingItems   If di.DrawClassName = "ModeDrwPath" Then     di.ItemProperty("UserHidden") = True   End If Next ... View more

Hi,   To create an empty collection, you could this:   Set emptyCollection = oMegaRoot.GetSelection("")   Also to find an object by its HexaIdabs :   Set myObject = oMegaRoot.getObjectFromId("D57DF6B951E89AA0") If myObject.Exists Then    'found Else   'not found End If   Gregory   ... View more

Here is an example :   Function hookCellContent (oRoot, oAnalysis, omoColumObject, omcRowObject, bFound, sStandardCellContent) If bFound Then Dim omoEntity, omoApplication Set omoEntity = omcRowObject.Item(1) Set omoApplication = omoEntity.GetCollection("CRUD Element").Item(omoColumObject) hookCellContent = omoApplication.GetProp("CRUD Value") Else hookCellContent = sStandardCellContent End If End Function  You may need to adapt it to your problem.   Gregory ... View more