Проблема в следующем:
2 клиента. Если на 1 выполняется 2 процедура, а на 2, через некоторое время 1(:ipPR один и тот же) то выдается ошибка. о незавершённости транзакции. Если значение :ipPR разное проблем нет.


Текст 1 процедуры
DECLARE VARIABLE FAMIL VARCHAR(20);
DECLARE VARIABLE NAM VARCHAR(20);
DECLARE VARIABLE OTC VARCHAR(20);
DECLARE VARIABLE STAT VARCHAR(20);
DECLARE VARIABLE OTD VARCHAR(20);
begin
begin
select fam,name,ot,status,otdel from users
where pr=:ipPR
into :famil,:nam,:otc,:stat,:otd;
insert into log (pr,fam,name,ot,status,otdel,sys_date,date_in)
values (:ipPR,:famil,:nam,:otc,:stat,:otd,:ipDate,:ipDate);
update users
set IN_OUT = "1"
where PR = :ipPR;

end
suspend;
end

Текст 2 процедуры
DECLARE VARIABLE FAMIL VARCHAR(20);
DECLARE VARIABLE NAM VARCHAR(20);
DECLARE VARIABLE OTC VARCHAR(20);
DECLARE VARIABLE STAT VARCHAR(20);
DECLARE VARIABLE OTD VARCHAR(20);
begin
begin
select fam,name,ot,status,otdel from users
where pr=:ipPR
into :famil,:nam,:otc,:stat,:otd;
insert into log (pr,fam,name,ot,status,otdel,sys_date,date_out)
values (:ipPR,:famil,:nam,:otc,:stat,:otd,:ipDate,:ipDate);
update users
set IN_OUT = "0"
where PR = :ipPR;
end
suspend;
end

После вызова процедуры добавил
IBTransaction.Commit

Все пошло.