用代码创建扩展数据类型EDT

在Axapta中有两个类UtilElements和UtilIdElements,从Inside Microsoft Axapta4.0中的示例代码中,可以看到两者的应用.帮助文档一点记载都没有......
我们知道Axapta把AOT的信息以*.aod后缀文件方式存放在物理磁盘中.这两个类的功能就是可以让用户用SQL的方式查询AOT中的元素,UtilElementType这个枚举类型有很多AOT中结点的类型值,比如Form,Report等,下面的示例代码显示了查询Inventory相关的类.

static void TableAPI_FindInventoryClasses(Args _args)
UtilIdElements uie;

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 = "FarseerTest";

uie.insert();
加倒是加上去了,可是一点击这个新建的EDT旁边的加号,或者点右键,用英文说就是Axapta Crash了,晕死......
好在Axapta4.0的TreeNode增加了一个方法AOTaddExtendedDataType,估计是微软被吵得实在过意不去了,增加了这个方法来平息众怒,呵呵.

static server void AddEDT()
{
TreeNode TNode;
str strEDTName;
str strProperty;
;
//属性
strProperty = @"Properties
Label #Farseer Test
HelpText #Farseer Test
Extends #AccountName
EndProperties
";
strEDTName = "FarseerTest";
//找到EDT结点
TNode = TreeNode::findNode(@"Data Dictionary\Extended Data Types");
//不存在添加,存在报错.
if(!TNode.AOTfindChild(strEDTName))
{
TNode = TNode.AOTaddExtendedDataType(strEDTName,Types::String);
TNode.AOTsetProperties(strProperty);
Box::info("Successful!");
}
else
throw error(strFmt("The EDT %1 has been exist","Farseer"));
}