CftClub.ru

[Alkov]

Как узнать запущены ли на данном экземпляре какие-н простые операции, естественно другими пользователями. Вопрос возник потому что если просто поднята форма объект ещё не блокирован. В списке сессий вижу только операцию, а id экземпляра -нет.

[molokov]

Если запускается любая простая операция, она сразу устанавливает блокировку, на него, можете проверить, зайдите в два навигатора, в одном запустите простую операцию на каком-нибудь объекте, и в другом попробуйте на нем же запустить другую операцию, увидите сообщения что оно занято, другим. Можно узнать занять ли сейчас данный id кем либо вот так:
в коде переменной p_object присвоить ID блокированного экземпляра.

declare

retb boolean;

a varchar2(300);

p_object varchar2(300);

p_subject varchar2(300);

l_info varchar2(300);

l_time date;

l_user varchar2(300);

u_ses varchar2(300);

os_user varchar2(300);

ora_user varchar2(300);

username varchar2(300);

u_info varchar2(300);

begin

a := lock_info.open();

p_object := '12990682067';

p_subject := 'FORM';

retb := lock_info.get_info( p_object,

p_subject,

l_info,

l_time,

l_user,

u_ses,

os_user,

ora_user,

username,

u_info,

1

);

if retb = true then

a := '1';

else

a := '0';

end if;

dbms_output.put_line('retb:' || a ||

' ora_user:' || ora_user || ' username:' || username || ' сессия: ' || u_ses || ' AUDSID: ' || l_user || ' процесс: ' || l_info);

lock_info.close();

end;

[devor]

[Alkov]

2devor
я же написал что блокировки(в таблице) не происходит...эти способы не годятся.

2molokov
одна операция простая вторая групповая, вот именно групповой и нужно узнать о работе с экземпляром, спасибо за lock_info.get_info попробую, в принципе понятно было что надо работать с ЦФТ-шным блокировщиком...

[devor]

[Alkov]

2 devor

Блокировка есть только на уровне блокировщика ЦФТ, на уровне таблицы её нет, пока не нажмут на форме OK.

Если сделать такую групповую То прагмы не будет.
begin
-- проверим что клиенты не блокированы.
for cl in ::[CLIENT] all where cl in (тут id)
lock nowait
loop
cl%lock;
rtl.lock_object(cl);
debug_pipe('Нет блокировки для ='||cl,0);
end loop;
exception when rtl.CANNOT_LOCK then
pragma error('клиент заблокирован! );
end;

[devor]

[Alexsey]

Если запущена форма, то можно глянуть FRM_LOCKS. Данная табличка показывает на каком объекте запущена форма и каким пользователем.
_________________
всегда есть как минимум 2 выхода

[Alkov]

Да сделал , уже как предлагали выше через retb := lock_info.get_info( p_object,...) - всё работает, правда если запустят просто операцию просмотра думаю тоже будет показывать, а не хотелось бы.
проверил rtl.check_lock -тож работает. Всем спасибо!