[Template]

AttGroup=Group(Bar),Pos(Top)

FObjGroup=Group(Bar),Pos(Bottom),Name(Following objects)

ExprGroup=Group(Bar),Pos(Middle),Name(ExpressionBody)

FObj=Map(Following objects)

TypeAtt=Item(Condition Type),In(AttGroup)

FObjList=Item(Following objects),Contains(FObj),In(FObjGroup),Control(ListView),Title(No) ExpressionAtt=Item(ExpressionBody),In(ExprGroup),Control(Text),Title(No)

[Page]

MinWidth = <width>

MinHeight = <height>

<width> and <height> are specified in DialogUnits.

<Name> = Condition(<Bool-Expression>)

 

<Name> = ConditionFrom(<MapName>[:{True|False}],<Bool-Expression>)

 

[Page]

NoGroupOrder = 1

<Name> = Group(<Aspect>)[,Pos(<Position>)][,Name(<Field>)][,At(<column>[,<line>])]

[,Size(<width>,<height>)][{,HiddenOn(<ConditionName>)|,DisabledOn(<ConditionName>)}]

[,Initially(<ConditionName>)]

<Name> = Map(<Field>){,Root(Yes)|,Cookie(<Field>)|,Child(<Field>)}

[,Visibility(<Visibility>)][,Advisor(Yes)][,Pilot(<ItemName>)]

<Field> : field referencing a MEGA object

obj.GetCollection("<Field>").Item(1)

obj.GetCollection("<MapField>").Item("<ChildField>")

obj.GetCollection("<Field>").getRoot

<Name> = Item(<Field>)[,From(<MapName>)][,Duplicate(Yes)]

[,{Contains|Remoting}(<MapName>)]
[,In(<GroupName>)]
[,Control(<ControlName>)]
[,At(<left>[,<top>])][,Size(<width>,<height>)][,MaxSize(<width>,<height>)]

[,VClip(<VClipMode>)][,HClip(<HClipMode>)]
[,Visibility(<Visibility>)][,Name(<NameField>)]

[,Title(<TitlePos>)][,At(<left>,<top>)][,Size(<width>,<height>)]
[,Param(<Param>)]

[,{HiddenOn|DisabledOn}(<ConditionName>)]

[,Mandatory(<ConditionName>)]

[,XRef(True)]

MyParam = Parameter(Long Parameter, with (Parenthesis) and « specials chars[>)

MyAtt = Attribute(…) …,Param(@myParam)

<Inclusion> = IncludeProfile(<ObjField>)[,DefaultOf(<InclusionName>)]

[,From(<MapName>)][,In(<GroupName>)]

[,Origin({FromLeg|Service|Object|ServiceList|Value|Macro})]

[,Text(<TxtField>)][,Paragraph(<PrgName>)]

Function InvokeOnObject(

obj As MegaObject,

idText,

Page as MegaPropertyPageStandard) As String

myObject.PropertiesDialog [option]{[,option]}

myObject.PropertiesDialog "ApplyMode=Continue;Title=my caption"

myObject.PropertiesDialog "ApplyMode=Continue" , "Title=my caption"

Set oList = oObject.PropertiesDialog([option]{[,option]}[,] "Description")

Search(sourceID, "MapID", mapID)

Search(sourceID, "AnyMap")

ItemNameMain>SubItemName

[Dialog] CommandHandler=<MacroID> 

Sub On_ctlName_ntfName(Page as MegaPropertyPageStandard)

Sub OnCommand(Page as MegaPropertyPageStandard,ntf as Integer,ctl as Integer)

Sub PropertyPage_Initialization(Page as MegaPropertyPageStandard)

Function CheckPropertyPage(Page as MegaPropertyPageStandard) As String

Function OnPropertyPageApply(Page as MegaPropertyPageStandard) As String

Sub PropertyPage_OnDesktopCommand(Page as MegaPropertyPageStandard, JSONCommand As String)

Function AttCtl_GetDefaultKind() As String 

Function AttCtl_GetKind(Context As MegaUpdateToolContext) As String 

<ControlName>{:<option>}{,<option>}

Function AttCtl_SetText(Context,editText) As Boolean

Function AttCtl_SetDefaultText(Context,editText) As Boolean

Function AttCtl_UpdateText(Context,editText) As Boolean

Functon AttCtl_UpdateCheck(Context,Status,ErrorMessage) as Boolean

Function AttCtl_Update(Context,Status,ErrorMessage) as Boolean

Function AttCtl_FillCombo(Context,ComboListColl) as Integer

Function AttCtl_FillCombo(oContext As MegaUpdateToolContext,oFillCollection As MegaCollection) As Integer

  Dim oOrgUnit

  for each oOrgUnit in oContext.MegaObject.GetRoot.GetCollection("OrgUnit")

    Dim oAdded

    Set oAdded = oFillCollection.Create(oOrgUnit.GetID)  ' assignment of absolute identifier of org-unit to value created.

    oAdded.GUIName = oOrgUnit.ShortName

    oAdded.InternalName = oActeur.MegaField()  ' warning, internal value should not exceed 20 characters… We can put simple counter in this case since in the case of an object the internal value is not used

  Next

  AttCtl_FillCombo = 2

End Function

 

Function AttCtl_ImplementsMetaCommand(Context) As String(or Integer)

Function AttCtl_GetMenuObject(Context,Indice,Name As String) As MegaObject

Function AttCtl_GetAccelerators(Context)

Function AttCtl_AcceleratorInvoke(Context,cmd) as Boolean

Function AttCtl_OnPush(Context) as Integer

Function AttCtl_OnCommand(Context,ntfCode,item) as Boolean

Set myToolkit = myRoot.CurrentEnvironment.Site.Toolkit

CheckValue = myToolkit.JSONStringSearch("{" & AttCtl.Data & "}", "check")

Sub Generate(obj As MegaObject, ctx As MegaObject,data As String,strout As String)

Sub GenerateStream(obj As MegaObject,ctx As GenerationContext,data As String,stream)

function onContainerCmd(prm,attctl)

"applyMacro":"<MacroID>"

Function InvokeOnObject(object,idText,Page)

external.ContextObject("PageContext").SetData(result.data)

//Language:javascript

function InvokeOnObject(obj,device,param){

  obj.getRoot().print(param);

  var vparam = eval("(" +param + ")");

  obj.getRoot().print(vparam.applyMacro);

  for(var i = 0; i < vparam.applyParameter.length; i++) {

    var itemObj = vparam.applyParameter[i];

    obj.getRoot().print("ID=" + itemObj.id + ", VALUE=" + itemObj.value + ", FORMAT = "+ itemObj.format);

    obj.SetProp(itemObj.id, itemObj.value , itemObj.format);

  }

}

<hmtl>

<head>

<script language='javascript'>

function onContainerCmd(prm,attctl) {

var fieldVal1 = document.forms[0]['input1'].value;

var fieldVal2 = document.forms[0]['input2'].value;

var result = {'reload': 'true','errorMessage':'null','data':

{'applyMacro':'#MACROID#','applyParameter':

[{'id':'~MtUi79B5iyF0[Cardinal]','format':'','value':fieldVal1}

,{'id':'~Z20000000D60[Short Name]','format':'','value':fieldVal2}

]}};

  if(attctl==='')

external.ContextObject(""PageContext"").SetData(result.data);

  alert('test:'+prm+':'+attctl);

return result;

}

</script>

</head>

<body>

<form>

<table border='0' align='CENTER'>

<tr><td><b>Cardinal :</b></td><td><input id='input1' type='text'

value='"#CARDINAL#"' /></td></tr>

<tr><td><b>Short Name :</b></td><td><input id='input2' type='text'

value='"#SHORTNAME#"'/></td></tr>

</table>

</form>

</body>

</html>"

 

treeParam = Parameter({"metalist":"OEb0XL0zF93Q","checkbox":true})

testTree = Item(~ulSYFlOK1XB0[Objects]),Control(MetaTree),Param(@treeParam)

{ "id": "<idcol>", "format": "<format>" , "image":bool , "name":name };

{ "id" : "<idLine>", "image": "<image>", "<columnid>": "<value>" … }

Extracol = Item(PropID),From(contentMap),Param(Extra)

oListItem.GetProp(«<PropID>»)

Param(Cookie{,BasedOn=BaseId}{,IsTrigger=n},DataSource=DSId{,DSOptions})

DSOptions that can be: From:CollectionId

Path:ObjectPath

Macro:MacroId InitString

 

Dim cDataSource as MegaCollection

Set cDataSource = oRootObject.GetCollection("<DSId>")

'this example relates to a simple DataSource, that is without <DSOptions>

 

Dim oDataSourceObject

Set oDataSourceObject = cDataSource.Item(oLineObject.GetID)

If oDataSourceObject.Exists Then

if "<BaseId>" = "" Then

sColumn = oDataSourceObject.GetProp("<ColumnId>")

Else

sColumn = oDataSourceObject.GetProp("<BaseId>")

End If

Else

sColumn = "" ' No reference to object in DataSource, column not specified

End If

Dim cDataSource as MegaCollection

Set oInter = oRootObject.GetCollection("<CollectionID>").Item(1)

If oInter.Exists then

Set cDataSource = oInter.GetCollection("<DSId>")

Else

Set cDataSource = Nothing ' in this case DataSource is not defined

End If

Set oInter = oRoot.GetObjectFromPath ("<ObjectPath>")

If oInter.Exists then

Set cDataSource = oInter.GetCollection("<DSId>")

Else

Set cDataSource = Nothing ' in this case DataSource is not defined

End If

Function GetStandardCollection( MegaObject as MegaObject,

RetType as Variant,

InitString as String) as MegaCollection

[ListViewExport]

   <ExportName>=Item(<ButtonID>),Param(<extraParameter>),Name(<Name>),Picture=<PictureID>,Method=<MethodID>

Param(PushButton{,OnSelection}{,CheckFlags}

{,Picture=PicId}{,Method=MacroId}

{,ReplaceStandard[<ButtonName>]}{,OverloadStandard[<ButtonName>]})

Param(AlternateSelection{,Picture=<PicId>}{combinateOptions}{plugin})

ColFilter=NoDefColumn|StandardColumn|AssocColumn|None 

PlugIn<macroID{:InitString}>

Function GetStandardCollection( MegaObject as MegaObject,

RetType as Variant,

InitString as String) as MegaCollection

PlugIn<BridgeCollection:MainMAEID,SecondaryMAEID>

[ListViewDefault]

MultiSelection=1

{

"content":[

{"id":"f10000000b20","classId":"O20000000Y10","image":"~gYNHjd5mzKQ1","210000000900":"Commentaire"},

{"id":"f20000000b60","classId":"O20000000Y10","image":"~gYNHjd5mzKQ1","210000000900":"Journal"}],

"hdr": {

"firstLine":0,"lineCount":2,"total":2,"noEmpty":true,

"columns":[{"id":"210000000900"},{"id":"Q10000000f10"},{"id":"S20000000n50"}}],

"sortCriteria":[{"id":"210000000900"}]

}

}

SubPageItem=Item(<MetaClassID>),From(SubPageMap),Param(<PageID>,Default)