static void AddExtendedDataTtyp(Args _args)
{
UtilIdElements uie;
XInfo XInfo = new XInfo();
TreeNode TNode;
TreeNode DNode;
str Extname='MyExt';
str Props =
"PROPERTIES/n" +
" Name #AXUStr35/n" +
" Label #/n" +
" HelpText #/n" +
" FormHelp #/n" +
" ArrayLength #1/n" +
" DisplayLength #Auto/n" +
" ConfigurationKey #/n" +
" ButtonImage #Arrow/n" +
" Extends #/n" +
" DisplayHeight #Auto/n" +
" StringSize #35/n" +
" Adjustment #Left/n" +
" Alignment #Auto/n" +
" ChangeCase #Auto/n" +
"ENDPROPERTIES/n";
;
select maxof(id) from uie where uie.recordType ==
UtilElementType::ExtendedType && uie.utilLevel == XInfo.currentAOLayer();
uie.id++;
uie.utilLevel = XInfo.currentAOLayer( );
uie.recordType = UtilElementType::ExtendedType;
uie.name =Extname ;
uie.insert();
DNode = TreeNode::findNode("Data Dictionary//Extended Data Types");
DNode.AOTrefresh();
TNode = TreeNode::findNode("Data Dictionary//Extended Data Types//"+Extname);
TNode.sysUtilDelete();
TNode.AOTsetProperties(Props);
TNode.AOTsave();
pause;
}