Доступ к исходным текстам Аксапты

[Андре]

Добрый день.

Вот решил поделиться с человечеством.

Данный Job заполняет таблицу dem_tst_.... имеющую вид (Class, Method, Code) соответствующей информацией.
Ничего особенного, но для ачинающих может оказаться полезным. Сразу предупреждаю, что job будет работать
долго, поэтому запускайте лучше на ночь.

Вот собствено сам код Job'а:

PHP код:

static void dem_tst_Job(Args _args)
{
    dem_tst_CodeArchiv codeArchiv;
    TreeNode treeNode;                  
    TreeNode methodNode;
    xInfo xinfo = new xInfo();
    int i;
    str source;
    ;
    treeNode = xinfo.rootNode();
    treeNode = treeNode.AOTfindChild("Classes");
    treeNode = treeNode.AOTfirstChild();

    while (treeNode)
//    for (i=1; i<10; i++)
    {
       print treeNode.treeNodeName();

       methodNode = treeNode.AOTfirstChild();
       while (methodNode)
       {
          print "   -- " + methodNode.treeNodeName();
          source = methodNode.getSource();
          print source;

          codeArchiv.cls = treeNode.treeNodeName();
          codeArchiv.mthd = methodNode.treeNodeName();
          codeArchiv.code = source;
          codeArchiv.insert();

          methodNode = methodNode.nextSibling();
       }

       treeNode = treeNode.nextSibling();
    }

    pause;
} 


Также прилагаю проект, в котором находится сам job, и таблица, которую он заполняет.

Возможные применения:

1. Например построение диаграммы классов(например в Rational Rose). Я думаю теперь это не составит труда.
2. Система контроля версий. Тут уж все зависит от правил, принятых у вас на работе. Мне лично здорово не хватает в Аксапте системы контроля версий. Да, заблокировать объект я могу. А посмотреть предыдущую версию данного класса ? А конкретного метода ? А показать различие между этими двумя версиями ? А откатить класс к предыдущей версии ? А конкретный метод ?

Как одно из решений - слегка модифицируем job, дабы он сохранял тексты классов не в БД, а в текстовом файле(а еще лучше файлах), полученные файлы закачиваем в SourceSafe(или кому, что больше нравится).