用程序动态增加扩展类型(ExtendedDataType)

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;

}