Осторожно. RecordSortedList учитывает регистр символов

[Logger]

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

// pkoz, 20.01.2009
static void testRegistSensitive(Args _args)
{
    RecordSortedList    cacheInventSum;
    InventSum           InventSum;
    boolean             testSameRegistr;
    boolean             testLowerRegistr;

    boolean             testSameRegistrMap;
    boolean             testLowerRegistrMap;

    boolean             testSameRegistrMapCon;
    boolean             testLowerRegistrMapCon;

    map                 map;
    str                 key;

    container           conKey;

    str getKey(str  _param1, str _param2)
    {
        return strFMT("%1;%2;", _param1, _param2);
    }

    container getConKey(str  _param1, str _param2)
    {
        return [_param1, _param2];
    }

    void initInventSum()
    {
        ;
        InventSum = null;
        InventSum.ItemId      = "1234";
        InventSum.InventDimId = "DIM1234";
        InventSum.PostedQty   = 10;

    }
    ;
    initInventSum();
    cacheInventSum = new RecordSortedList(TableNum(InventSum));
    cacheInventSum.sortOrder(FieldNum(InventSum,itemId),FieldNum(InventSum,inventDimId));
    cacheInventSum.ins(InventSum);
    testSameRegistr = cacheInventSum.find(InventSum);

    InventSum.InventDimId = strLwr(InventSum.InventDimId);
    testLowerRegistr = cacheInventSum.find(InventSum);

    info(strFMT("RSL %1; %2", testSameRegistr, testLowerRegistr));
    if (!testLowerRegistr)
        error("CaseSensitive RSL !!!");

    //////////////////

    map = New Map (types::String, types::Record);
    initInventSum();
    key = getKey(InventSum.ItemId, InventSum.InventDimId);
    map.insert(key, InventSum);


    testSameRegistrMap = map.exists(key);

    key = getKey(InventSum.ItemId, strLwr(InventSum.InventDimId));
    testLowerRegistrMap = map.exists(key);

    info(strFMT("Map StrinKey %1; %2", testSameRegistrMap, testLowerRegistrMap));
    if (!testLowerRegistrMap)
        error("CaseSensitive Map StrinKey !!!");

    //////////////////

    map = New Map (types::Container, types::Record);
    initInventSum();
    conKey = getConKey(InventSum.ItemId, InventSum.InventDimId);
    map.insert(conkey, InventSum);


    testSameRegistrMapCon = map.exists(Conkey);

    Conkey = getConKey(InventSum.ItemId, strLwr(InventSum.InventDimId));
    testLowerRegistrMapcon = map.exists(conkey);

    info(strFMT("Map ContainerKey %1; %2", testSameRegistrMapCon, testLowerRegistrMapCon));
    if (!testLowerRegistrMapCon)
        error("CaseSensitive Map ContainerKey !!!");

}

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

P.S. Ax 3.0 KR3 SP5 Oracle

[gl00mie]

Цитата:

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

Обнаружил неприятную особенность RecordSortedList. При сравнении строковых значений при поиске по ключу, сравнение учитывает регистр символов
P.S. Ax 3.0 KR3 SP5 Oracle

Проверил щас на ядре 3.0.1951.7669 (afaik последнем доступном для 3-ки) - косяк с RecordSortedList воспроизводится А в той же 4-ке (4.0.2501.116) уже не воспроизводится, видимо, втихоря поправили.

[ZVV]

да, действительно, и ведь об этом нигде не написано...

Ещё интересный момент с регистром - это когда делаешь запрос с группировкой в Аксапте на Оракле - запрос строится с использованием nls_lower() и соответсвенно в результате поля группировки в резултСете все в lower-case. Не всегда приятно, но особо ничего с этим не поделаешь.
На Сиквеле такого, естественно, нет...

[gl00mie]

Оказалось, что "исправление втихоря" в 4-ке было связано с переходом на Unicode. В общем, метод find() ищет строки, используя итератор и передавая ему ссылку на функцию сравнения записей; та же, в свою очередь, перво-наперво сравнивает коды компаний двух записей, а потом пробегается по полям, используемым для сортировки, и сравнивает их значения с помощью некой функции _DBICompare().
Данная функция предназначена для сравнения уникальных ключей, составленных из значений различных примитивных типов (строковые, BCD, целочисленные, даты, etc). В основном это используется, я так понял, на DataSource'ах, при переиндексации таблиц через DictTable.reindex() и xCompany.reindex(), а также в RecordSortedList, в UtilElements, возможно, и во временных таблицах. Так вот, при условии, что в текущей локали не используется какая-нить многобайтовая кодировка и база не инициализирована для использования Unicode'а, для строковых значений эта функция в 3-ке тупо использует функцию strncmp() со всеми вытекающими... В 4-ке же используется CompareStringW() из kernel32.dll с флагами NORM_IGNORECASE | NORM_IGNOREKANATYPE | NORM_IGNOREWIDTH, поэтому и работает все, как положено.

[Gustav]

Цитата:

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

P.S. Ax 3.0 KR3 SP5 Oracle

Цитата:

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

когда делаешь запрос с группировкой в Аксапте на Оракле - запрос строится с использованием nls_lower() и соответсвенно в результате поля группировки в резултСете все в lower-case.

Так, а вот ораклистость базы не может ли быть причиной такому понижению регистра? Может, ядро при обработке RecordSortedList втихаря ныряет в какую-нибудь по ходу создаваемую служебную временную таблицу (не ISAM-файл, а именно CREATE GLOBAL TEMPORARY в СУБД)?

Пусть скажут свое слово "троешники"-SQL-серверщики! У них воспроизводится?

[oip]

Цитата:

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

Пусть скажут свое слово "троешники"-SQL-серверщики! У них воспроизводится?

Да.

[ZVV]

Цитата:

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

Пусть скажут свое слово "троешники"-SQL-серверщики! У них воспроизводится?

Не, это ещё вчера проверил на сиквеле - тоже самое...
Это проблема самого СортЛиста.

[kashperuk]

gl00ime, а откуда такая подробная информация о том, как именно работает find()?

[gl00mie]

Цитата:

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

а откуда такая подробная информация о том, как именно работает find()?

Мнэ... скажем так, результаты инвазивной хирургии

[Logger]

Цитата:

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

В основном это используется, я так понял, на DataSource'ах, при переиндексации таблиц через DictTable.reindex() и xCompany.reindex(), а также в RecordSortedList, в UtilElements, возможно, и во временных таблицах.

Стрёмно как-то.
Получается это может вылезти не только в RecordSortedList.