AOTTableFieldList       AOTTableFieldList ,TableFieldNode;

    TableName               tableName    = "SML_InventTableExt";

    FieldName               newFieldName = "SML_StorageLifeType";

    Types                   newFieldType = Types::Integer;

    int                     newFieldLength = 30;

    str                     labelId = literalstr("@SML7726");

    str                     ExtendedDataType ="";

    ExtendedTypeId          ExtendedTypeId   = ExtendedTypeName2Id(ExtendedDataType);

    str                     EnumType    = "SML_DaysUnitType";

    TreeNode        tableNode ,fieldNode ;

    DictType        DictType;

    #AOT

    #Properties

    #ACT_DynamicReport

    ;

    tableNode = TreeNode::findNode(#TablesPath+'\\'+tableName) ;

    AOTTableFieldList = TreeNode::findNode(#TablesPath+'\\'+tableName+'\\'+#ACT_AOTFieldsNode);

    fieldNode = AOTTableFieldList.AOTfindChild( newFieldname);

    if( fieldNode != null)

        throw error(newFieldName + " allready exists in table " + tableName);

    if( ExtendedDataType  )

    {

        if( ! ExtendedTypeId)

            throw error( "ExtendedType type num error");

        DictType = new DictType(ExtendedTypeId);

        newFieldType = dictType.baseType();

    }

    else if (EnumType)

    {

        newFieldType = types::Enum;

    }

    switch(  newFieldType)

    {

                case Types::Date:

                    AOTTableFieldList.addDate( newFieldName);

                    break;

                case Types::Enum:

                    AOTTableFieldList.addEnum(newFieldName);

                    break;

                case Types::Guid:

                    AOTTableFieldList.addGuid(newFieldName);

                    break;

                case Types::Int64:

                    AOTTableFieldList.addInt64(newFieldName);

                    break;

                case Types::Integer:

                    AOTTableFieldList.addInteger(newFieldName);

                    break;

                case Types::Real:

                    AOTTableFieldList.addReal(newFieldName);

                    break;

                case Types::String:

                case Types::RString:

                case Types::VarString:

                    AOTTableFieldList.addString(newFieldName);

                    break;

                case Types::DateTime:

                    AOTTableFieldList.addTime(newFieldName);

                    break;

                case Types::Container:   // can add

                    continue;

    }

    TableFieldNode = AOTTableFieldList.AOTfindChild( newFieldName);

    if( newFieldType ==  types::String || newFieldType == Types::RString || newFieldType == Types::VarString )

        TableFieldNode.AOTsetProperty("StringSize", newFieldLength);

    if( labelId)

        TableFieldNode.AOTsetProperty("Label", labelId);

    if( ExtendedDataType)

        TableFieldNode.AOTsetProperty("ExtendedDataType", ExtendedDataType);

    if( EnumType)

        TableFieldNode.AOTsetProperty("EnumType", EnumType);

    tableNode.AOTcompile(1);

    tableNode.AOTsave();

    info("successed add field " + newfieldname);