Создание наследника EDT через Х++

[mit]

указанным по ссылке belugin способом можно создать только стринговые EDT. Т.о. для каждого типа EDT необходимо написать свой метод, в котором при вставке в UtilIdElements нужно заполнить контейнер нужными свойствами.
Предлагаю свой вариант. Думаю, он проще.

PHP код:

static void Job1(Args _args)
{
UtilIdElements   uie;
XInfo            XInfo = new XInfo();
TreeNode         TNode;
TreeNode         DNode;
name             name = "MyInt";
int              id;
;

select maxof(id) from uie where uie.recordType == UtilElementType::ExtendedType && uie.utilLevel  == XInfo.currentAOLayer();
id =    uie.id;
id++;
select uie where uie.recordType == UtilElementType::ExtendedType && uie.name == "Integer";

uie.id = id;
uie.utilLevel  = XInfo.currentAOLayer( );
uie.recordType = UtilElementType::ExtendedType;
uie.name       = name;

uie.insert();
DNode = TreeNode::findNode("Data Dictionary\\\\Extended Data Types");
DNode.AOTrefresh();

TNode = TreeNode::findNode("Data Dictionary\\\\Extended Data Types\\\\"+name);
TNode.sysUtilDelete();
TNode.AOTsetProperties(setProperty(TNode.AOTgetProperties(), "Label"         , "Label" ));
TNode.AOTsetProperties(setProperty(TNode.AOTgetProperties(), "HelpText"      , "HelpText" ));
TNode.AOTsetProperties(setProperty(TNode.AOTgetProperties(), "DisplayLength" , "Auto" ));
TNode.AOTsetProperties(setProperty(TNode.AOTgetProperties(), "Alignment"     , "Auto" ));
TNode.AOTsetProperties(setProperty(TNode.AOTgetProperties(), "Extends"       , "Extends" ));

TNode.AOTsave();
DNode.AOTnewWindow();
TNode.AOTnewWindow();
} 


ps забыл что форум питается слешами :-)