Как принудительно создать блокировку?

[miklenew]

Цитата:

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

Обычно блокировки приводят к ожиданиям, как вы написали выше. Deadlock — это конфликт, т.е. когда ожидание ни к чему не приведет.

Так вот она ждёт и сообщение о блокировке не появляется.
Может я мало ждал?
Щас попробую подольше подождать.

[glibs]

Цитата:

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

Так вот она ждёт и сообщение о блокировке не появляется.
Может я мало ждал?
Щас попробую подольше подождать.

Ждать не стоит. Аксапта отслеживает только deadlock-и. В состоянии обычной блокировки она может висеть сколь угодно долго. Ничего при этом она не говорит. И не скажет.

[miklenew]

Цитата:

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

Ждать не стоит. Аксапта отслеживает только deadlock-и. В состоянии обычной блокировки она может висеть сколь угодно долго. Ничего при этом она не говорит. И не скажет.

Да. Сходил поел. Система ждала пока я пообедаю.
Пришёл снял с остановки.
И нормально система проапдейтила и удалила запись.
Т.е. от времени это не зависит.
Тогда вернёмся к первому сообщению "Может у кого есть какие идеи, как принудительно создать блокировку".

[Logger]

Цитата:

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

Тогда вернёмся к первому сообщению "Может у кого есть какие идеи, как принудительно создать блокировку".

Если вы про deadlock - то легко.
Создаем в таблице две записи.
2 джоба.

1-й джоб:
1. ttsBegin;
2. Блокировка 1-й записи forupdate
3. breakpoint
4. Блокировка 2-й записи forupdate

2-й джоб:
1. ttsBegin;
2. Блокировка 2-й записи forupdate
3. breakpoint
4. Блокировка 1-й записи forupdate

Запускаем с одной сессии первый джоб, со второй сессии - второй.

Она оба остановятся на п.3
после этого давим F5 в обоих отладчиках и получаем deadlock

Правда исключение в аксапте может возникнуть не сразу - зависит от настроек БД

[miklenew]

Спасибо.
То что нужно.
Вот джобы. Может кому пригодяться.

static void Job1(Args _args)
{
    Table2 table;
;
    ttsbegin;
    select forupdate table
        where table.Field1 == '1';

    breakPoint;
    table.update();

    select forupdate table
        where table.Field1 == '2';

    ttscommit;
}

static void Job2(Args _args)
{
    Table2 table;
;
    ttsbegin;
    select forupdate table 
        where table.Field1 == '2';

    breakPoint;
    table.update();

    select forupdate table
        where table.Field1 == '1';

    ttscommit;
}