Многоуровневый справочник

[AndSoft]

Недавно я убил немного времени чтобы создать многоуровневый справочник в Аксапта. Причем решение работает на MsSQL2000 и не используется рекурсия.
В группе дерева отображаются как элементы самой группы так и элементы вложенной подветви.Что у меня получилось можно посмотреть на вложенном скрин шоте. Если что обращайтесь.

[belugin]

кстати про controlMethodOverloadObject.

можно ли использовать более одного обхекта обработчика одновременно (у меня не получилось)

[Lucky13]

Цитата:

Сообщение от belugin

кстати про controlMethodOverloadObject.

можно ли использовать более одного обхекта обработчика одновременно (у меня не получилось)

controlMethodOverloadObject это метод класса FormRun, поэтому у каждого его наследника может быть свой обработчик. Я делал у нескольких форм разные обработчики. Что касается моего классификатора, то если у формы уже был обработчик controlMethodOverloadObject, а я заменяю его своим, то естейственно первый обработчик действовать не будет. Я не нашел в Аксапте форм, которые используют controlMethodOverloadObject, поэтому это не существенно.

[Maxim Gorbunov]

Цитата:

Сообщение от Lucky13

Я не нашел в Аксапте форм, которые используют controlMethodOverloadObject, поэтому это не существенно.

SysDataAreaVirtual, например. Правда в ней вряд ли классификатор Ваш будет использоваться.

[Lucky13]

Цитата:

Сообщение от Maxim Gorbunov

SysDataAreaVirtual, например. Правда в ней вряд ли классификатор Ваш будет использоваться.

А как Вы определили, что на этой форме используется controlMethodOverloadObject? В ней нет вызовов this.controlMethodOverloadObject().

[Maxim Gorbunov]

\Forms\SysDataAreaVirtual

class FormRun extends ObjectRun
{
    // ...
    SysListPanelRelationTable   listPanel1;
    // ...
}

void init()
{
    // ...
    listPanel1 = sysListPanelRelationTable::newForm(element, ... );
    // ....
}

\Classes\SysListPanelRelationTable

static SysListPanelRelationTable newForm(FormRun formRun, ... )
{
    // ...
    SysListPanelRelationTable SysListPanel = SysListPanelRelationTable::construct();
    // ...
    SysListPanel.parmFormRun(formRun);
    // ...
    SysListPanel.build();
    // ...
}

\Classes\SysListPanel

protected void build()
{
    // ...
    formRun.controlMethodOverload(true);

    if (!formRun.controlMethodOverloadObject())
        formRun.controlMethodOverloadObject(this);
    // ...
}

Короче говоря, не только в формах надо было искать, но и в классах. Этот метод используется как минимум во всех формах, где есть контрол следующего вида:

То есть два списка, в одном из которых перечислены выбранные элементы, а в другом - оставшиеся.

[Lucky13]

Вы правы. Я не увидел, где formRun передается в класс. Оказывается вместо него element, что одно и тоже

listPanel1 = sysListPanelRelationTable::newForm(element, ... );

Мой классификатор встраивается только на формы, где есть хотя бы один источник и есть Tab с вкладкой Overview (Обзор), поэтому даже если пользователь захочте использовать классификатор на выше указанной форме, то ничего не изменится.

[Lucky13]

Внимание!!! Проект содержит системный класс SysSetupFormRun. Будьте внимательны при импорте.

Краткое руководство по настройке классификатора:
1. Указать список форм, на которых будет использоваться классификатор на форме AbstractClassSetup.
2. Создать уровни классификатора на форме AbstractClassTree. Для этого необходимо выбрать форму, на вкладке обзор создать корневой уровень классификатора, а затем добавить остальные уровни на вкладке дерево.
3. Указать какие записи принадлежат каким классам, нажав кнопку "Открыть" на форме AbstractClassTree. После этого выделить требуемые записи и нажать кнопку "Добавить".
4. Чтобы выводилась информация о том, каким уровням пренадлежит запись необходимо в метод active источника добавить следующий код: (например, для InventTable)

AbstractClass::loadItemClassName(element.design().controlName('AbstractClassList'), TableNum(InventTable), inventTable.RecId);

другого способа, к сожалению, пока не нашел.

Принимаются любые замечания и пожелания.
А также идеи по поводу того, как избавиться от последней модификации формы (добавление кода в метод active).

[slava09]

Попробовал загрузить в 4-ку
Отругалось:

Ошибка времени выполнения: В SysSetupFormRun (Объект), не найден исполнимый код метода "new".

Трассировка стека

(C)\Classes\SysSetupFormRun\new
(C)\Classes\SysSetupFormRun\construct - line 13
(C)\Classes\ClassFactory\formRunClassOnClient - line 5
(C)\Classes\ClassFactory\FormRunClass - line 3
(C)\Classes\HelpGenerator\showURL
(C)\Forms\SysInfologBrowser\Methods\executeAction - line 20

[Lucky13]

Не факт что в 4-ке класс SysSetupFormRun остался таким же как в 3.0. Если Вы просто загрузили проект, то возможны ошибки. Лучше взять код, добавленный мной в метод init данного класса (он отмечен) и добавить его в аналогичный метод в 4-ке. Ну и соответственно объявить все недостающие переменные. Если Вы именно так и сделали, то даже не знаю что посоветовать. Метод new не изменялся, менялся только init. В какой строке выдается ошибка?

[slava09]

Мне нехватает следующих функций:

1. strdelRight;
2. strleftpos;

Можно их выложить?

С SysSetupFormRun разобрался.
Еще проблемы с методом Icon: не может найти идентификатор ресурса: 827. Пока подставил 0.

[Lucky13]

Цитата:

Сообщение от slava09

Мне нехватает следующих функций:

1. strdelRight;
2. strleftpos;

Можно их выложить?

С SysSetupFormRun разобрался.
Еще проблемы с методом Icon: не может найти идентификатор ресурса: 827. Пока подставил 0.

Это самодельные функции, они у меня в Global. Настолько к ним привык, что уже путаю со стандартными. Вот некоторые из них, в том числе и те что нужны в этом проекте.

static str strdelright(str s, int cnt)
{
    return strdel(s, strlen(s)-cnt+1, cnt);
}
static str strdelleft(str s, int cnt)
{
    return strdel(s, 1, cnt);
}
static int strLeftPos(str s, str ss)
{
    return strfind(s, ss, 1, strlen(s));
}
static int strRightPos(str s, str ss)
{
    int len = strlen(s);
    ;
    return strfind(s, ss, len, -len);
}
static str strRight(str s, int p)
{
    return substr(s, strlen(s)-p+1, p);
}
static str strMid(str s, int p1, int p2)
{
    return substr(s, p1, p2-p1+1);
}
static str strLeft(str s, int p)
{
    return substr(s, 1, p);
}

С иконкой наверное проблема 4-ки. Используются только стандартные иконки

[slava09]

Спасибо. Помогло.
Теперь при добавлении записи в иерархию матюкается так:

Сообщение (12:56:13)
Невозможно создать запись в Ссылки абстрактного классификатора (AbstractClassReference).
Запись уже существует.

[Lucky13]

Цитата:

Сообщение от slava09

Спасибо. Помогло.
Теперь при добавлении записи в иерархию матюкается так:

Сообщение (12:56:13)
Невозможно создать запись в Ссылки абстрактного классификатора (AbstractClassReference).
Запись уже существует.

Наверное эта запись уже добавлена в данный класс. Это ошибка. Выложил hotfix

[slava09]

Теперь при выборе элемента дерева (у меня это в справочнике номенклатур) ругается таким образом:

Сообщение (15:02:56)
Недопустимая комбинация поля/поля ссылки.

[Lucky13]

А какое у Вас получилось название класса в дереве, который Вы выбираете?
Попробуйте импортировать вложенный файл, если не поможет может проблема в RecId? Я слышал что в 4-ке recID по другому считается.

[slava09]

Помогло. А что делают кнопки "Вверх", "Вниз"?

[Lucky13]

Цитата:

Сообщение от slava09

Помогло. А что делают кнопки "Вверх", "Вниз"?

Перемещают выделенный класс на уровень вверх или вниз, изменяя при этом код уровня.

[slava09]

Глючновато работает. Какие-то непонятные вещи делает...

[Lucky13]

Цитата:

Сообщение от slava09

Глючновато работает. Какие-то непонятные вещи делает...

Если Вы про кнопки Вверх/вниз, то они действительно немного глючные. Этот функционал добавлен недавно и я еще пока не до конца понимаю как все это должно работать. Изначальная задача - добавить возможность изменять порядок классов в дереве, но коды уровня должны сохранять первоначальный порядок.