указанным по ссылке
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 забыл что форум питается слешами :-)