Всем здравствуйте!
имеется такой код:
if is_prescription.time_prescription <> time('00:00:00') then
SELECT count() INTO :ll_count
FROM dba.prescriptions
WHERE pr_time = :is_prescription.time_prescription AND pr_date = :is_prescription.date_prescription AND pru_id = :is_prescription.id_doctor;
if ll_count > 0 then
MessageBox('Внимание!', 'По данным параметрам уже есть назначение.~nПовторите поиск назначения');
return -1;
end if
//проверка назначений
SELECT count() INTO :ll_count
FROM dba.results, dba.ak_list
WHERE dba.results.ak_list_id = dba.ak_list.ak_list_id AND dba.results.pr_time = :is_prescription.time_prescription AND dba.ak_list."date" = :is_prescription.date_prescription AND dba.results.pru_id = :is_prescription.id_doctor;
if ll_count > 0 then
MessageBox('Внимание!', 'По данным параметрам уже есть назначение.~nПовторите поиск назначения');
return -1;
end if
end if

SELECT max(pr_id) INTO :ll_pr_id
FROM dba.prescriptions;

if isNull(ll_pr_id) then ll_pr_id = 0;

ll_pr_id++

INSERT INTO dba.prescriptions(pr_id, pr_time, pr_date, pru_id, patient_family, patient_name, patient_middle, patient_birth, diag_in, patient_who_sent, patient_who_sent_num, plan, mp_id, phone)
VALUES(:ll_pr_id, :is_prescription.time_prescription, :is_prescription.date_prescription, :is_prescription.id_doctor, :is_prescription.family, :is_prescription.name, :is_prescription.middle, :is_prescription.birth, :is_prescription.diag_in, :is_prescription.who_sent, :is_prescription.who_sent_number, :is_prescription.plan, :is_prescription.id_procedure, :is_prescription.phone);

if SQLCA.SQLCode <> 0 then
MessageBox("Внимание!", "Ошибка назначения пациента на диагностику~n"+SQLCA.SQLErrText);
else
MessageBox('Информация', 'Назначение успешно сохранено');
Close(w_find_prescriptions);
end if

Собственно вопрос: как заблокировать таблицу или БД(Anywhere 9.0.1), чтобы пока выполняются операции от первого SELECT(проверка) до INSERT(вставка записи), другие пользователи не смогли добавить в таблицу строку(или изменить какую-то строку).

Dim2000,

хорошо, но тогда представим ситуацию. Делается запрос на проверку(SELECT), затем какой-то другой пользователь по этим данным делает insert. А мы еще раз делаем insert за этим. И выходит две дублирующие строки.

Dim2000,

не религия, а логика. Просто одинаковые строки могут быть.

Из условия ясно, что если time = 00:00, то таких одинаковых строк может много.

Dim2000,
там прямо в первой же строке написано условие. Я не прошу читать, а привел как пример. Вопрос же написал словами. И спросил про блокировку, а не как индексы и куда вставлять. Про это я давно сам подумал и поставил бы.

Ikir,

да вот и я так пытался, но билдер отказывается это делать.

Ikir,
я писал это в билдере, а он вообще не понимал что я хочу.

Локшин Марк,

я написал вот так: EXECUTE IMMEDIATE LOCK TABLE dba.prescriptions IN SHARE MODE.
Что не так?

Локшин Марк,

т.е. вот: EXECUTE IMMEDIATE 'LOCK TABLE dba.prescriptions IN EXCLUSIVE MODE'

и Code возвращает 0. Но блокировки не происходит.

PL99,

нет, не там.

maxATC,

вот именно, не пройдет. А должно проходить, когда time = 00:00. Или я мысль не могу уловить.