Абстрактный классификатор

[Viper]

Да но всегда можно изхитриться. Например привязать объект к нескольким классам.

Зато можно использовать более понятный код.

[jonin]

Установили Классификатор, но лезут ошибки такие-же как у Андре, по совету Alexey Smirnov закоментил строки, но теперь новые проблемы, при выборе в дереве класса в форме Управление запасами/Номенктлатура вылазит ошибка

Невозможно выбрать запись в таблице 'Картотека номенклатуры' ('InventTable')
Временные таблицы должны быть вложенными (inner), когда вы объединяете их оператором join с постоянными таблицами.

и информация

(C) [ 0: 47] \Jobs\
(C) [ 0: 2992] \Classes\HB_ACUtils\RunTableFilter
(C) [ 0: 130] \Classes\HB_ACUtils\TreeLookUp_selectionChanged
(C) [ 0: 85] \Classes\FormTreeControl\SelectionChanged

т.к. коментирование строк было в RunTableFilter, следовательно ошибка точно связана с коментированием

Как лечить ?

[VadimD]

Устранение очередного бага Абстрактного классификатора.
Описание бага:
Невозможность применения при наличии Ranges.
Причина:
В методе HB_ACUtils::RunTableFilter в случае отсутствия у Ranges value вместо '*'
вставляется пустая строка.
Один из путей ререшения:
добавить условие if(q.dataSourceNo(1).range(i).value()) на формирование строки QStr.
то есть вместо кода

PHP код:

    q = table_ds.queryRun().query();
    for (i=1; i <= q.dataSourceNo(1).rangeCount(); i++)
    {

        qbr = q.dataSourceNo(1).range(i);
        QStr += " && T." + fieldid2name(q.dataSourceNo(1).table(),qbr.field()) + " like '" + q.dataSourceNo(1).range(i).value() + "'";
    } 


вставить код

PHP код:

    q = table_ds.queryRun().query();
    for (i=1; i <= q.dataSourceNo(1).rangeCount(); i++)
    {
    //если поле пусто - НЕ ВЫВОДИТЬ!!!
        if(q.dataSourceNo(1).range(i).value())
        {
        qbr = q.dataSourceNo(1).range(i);
        QStr += " && T." + fieldid2name(q.dataSourceNo(1).table(),qbr.field()) + " like '" + q.dataSourceNo(1).range(i).value() + "'";
        }
    } 


[VadimD]

Устранение очередного недостатка работы абстрактного классификатора. При прокрутке фильтруемой таблицы
к последней строке фильтрация выключается. Для устранения необходимо в фильтруемой таблице переопределить метод

public int last()
{
int ret;
ret = super();

AC.RunTableFilter(true);

Return ret;

}

[VadimD]

Устранение очередного недостатка работы абстрактного классификатора. При изменении имени ключевого поля запись
исчезает из классификатора. Для устранения добавлен код в метод SysRecordInfo/renamePrimaryKey, изменяющий
ключевое поле и в таблице HB_AClassLinkTable:

void renamePrimaryKey()
{

HB_AClassLinkTable CLT;
HB_AClassLinkKeyValue _KeyValue;
...
;
...
//переименование ключевого поля в таблице HB_AClassLinkTable
_KeyValue = oldValue;
select firstonly * from CLT where CLT.KeyValue == _KeyValue;
if(CLT)
{
CLT.KeyValue = newValue;
CLT.update();
}

[Firestarter]

Установил я классификатор 1.1 на 3.0 sp1 и вылезло очень много ошибок при компиляции -- по беглому анализу мне показалось, что текущая версия расчитана на Аксапту 2.5? Возможно я ошибаюсь

У кого-нибудь был опыт внедрения на Аксапте 3.0? Возможно есть живой проектик...

[Camper]

Многоуважаемый All
еще один вопрос о классификаторе
Инструкции, представленные по установке и настройке - исчерпывающие, функционал потрясающий (отдельное спасибо автору), пользуемся около года, но есть одна проблемка, решить которую к сожалению самостоятельно не получается . На форме InventTable есть источники данных Purch, Invent, Sales (таблица InventTableModule). Эти источники связанны по InnerJoin с InventTable. При дезактивированном классификаторе записи в этих источниках ведут себя штатно, он стоит активировать классификатор, как источники начинает "клинить" т.е. они перестают обращать всякое внимание на курсор на InventTable.
если добавляем в метод \Forms\InventTable\Data Sources\InventTable\Methods\active код

PHP код:

...
/* Такое тоже не работает
    Purch_ds.query().dataSourceNo(2).addRange(fieldnum(InventTableModule, ItemId)).Value(inventTable.ItemId);
    Purch_ds.findValue(fieldName2id(TableName2id("InventTableModule"),"ItemId"),
          InventTableModule::find(inventTable.ItemId,ModuleInventPurchSales::Purch).ItemId);
с findRecord тоже самое.
*/
    info(inventTable.ItemId + " inventTable");
    info(Purch.ItemId  + " Purch");
    info(Invent.ItemId + " Invent");
    info(Sales.ItemId  + " Sales");
... 


и пощелкаем по классификатору, то получим такое сообщение:
НМ19601 inventTable
НМ00001 Purch
НМ00001 Invent
НМ00001 Sales
Как вариант, конечно, можно наделать edit методы на таблице inventTable, но уж очень не хочется
Заранее спасибо.

[Camper]

Видимо никто не знает ответ, интересно, кто нибудь вообще пользуется формой InventTable + Абстрактный классификатор

[maxsmirnov]

сами разработчики - точно пользовались
детали мне не известны

[Camper]

Все таки наверное не пользовались, так как в случае использования, датасорсы на таблице InventTableModule, связанные по InnerJoin с InventTable перестают отображать реальные данные.
На всякий случай, если вдруг кого нибудь заинтересует мое решение. я сделал методы на inventTable_ds подобные приведенному.

PHP код:

// метод подтягивает среднескладскую цену
edit Price inventPrice (boolean      _set,
                       InventTable  _inventTable,
                       Price        _price)
{
    InventTableModule   InventTableModule;
    Price               price;
    ;
    ttsbegin;
    InventTableModule  = InventTableModule::find( _inventTable.ItemId, ModuleInventPurchSales::Invent, _set);

    price = InventTableModule.Price;

    if (_set)
    {
        InventTableModule.Price = _price;
        InventTableModule.write();
        price = InventTableModule.Price;
    }
    ttscommit;
    return price;
} 


Затем перекроил немного форму, чтобы отображались данные не из
Purch, Invent и Sales.
кривовато, кропотливо, но работает.

[maxsmirnov]

пользовались, это 100% точные данные
просто на форуме выложена не последняя версия классификатора - он постоянно лечился от глюков и оптимизировался.
не относитесь к нему как к конечному продукту - он таковым не является.

[Camper]

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

[AKit_3]

PHP код:

//class HB_ACUtils
void TreeLookUp_selectionChanged ()
{
    int recID = this.TreeLookup().getSelection();
    ;

    if (recID > 0) curClassID = this.RecID2ClassID (recId);
    else curClassId = recId;

    this.RunTableFilter ();

    if (bShowGridList)
    {
//        tableLookupClass_ds.
        this.SelectedClassFilter();
        tableLookupClass_ds.executeQuery();
    }
}
class HB_ACUtils 


подчеркивает tableLookupClass_ds.executeQuery();
Выдается ошибка Класс FormControl не содержит эту функцию.
В чем может быть дело?