[Vadik]

вот, на коленке собрано

PHP код:

static void Job1(Args _args)
{
    Dictionary          dictionary = new Dictionary();
    DictTable           dictTable;
    DictField           dictField;
    DictType            dictType;
    int                 i, j;

    extendedTypeId parentTypeId(extendedTypeId _typeId)
    {
        DictType            parentType = new DictType(_typeId);
        ExtendedTypeId      parentId;
        ;

        while (parentType)
        {
            parentId = parentType.id();
            parentType = new DictType(parentType.extend());
        }

        return parentId;
    }

    ;

    for (i = 1; i <= dictionary.tableCnt(); i++)
    {
        dictTable = new DictTable(dictionary.tableCnt2Id(i));

        if (!dictTable.isTmp() && !dictTable.isSystemTable() && !dictTable.isView())
        {
            for (j = 1; j <= dictTable.fieldCnt(); j++)
            {
                dictField = new DictField(dictTable.id(), dictTable.fieldCnt2Id(j));
                if (!dictField.isSystem())
                {
                    if (dictField.baseType() == Types::String)
                    {
                        //if (parentTypeId(dictField.id()) == extendedtypenum(Num))

                        dictType = new DictType(dictField.typeId());

                        if (!dictType)
                            warning (strfmt("%1.%2 - поле без типа, неаккуратно как-то", dictTable.name(), dictField.name()));
                        else
                            if (dictType.stringRight())
                                info (strfmt("%1.%2 - выравнивание вправо", dictTable.name(), dictField.name()));
                    }
                }
            }
        }
    }
} 


все равно для себя давно собирался написать что-то подобное, не пропадать же добру