Задача была следующая...
Есть N рабочих станций, которые лезут к таблице например T_CHEK. (Уникальное поле таблицы никогда не делай информационным!)
состав TABLE T_CHEK (
N_CHEK FIRST, - это integer not null - дается генератором в триггере
N_POKUP INTEGER, - это "покупатель" - выбирается юзером
DATA DATE NOT NULL, - это дата заказа - берется с сервера
NAZENKA DBLFLT, - это наценка / скидка выбирается юзером
CHEK INTEGER NOT NULL, - определяется нижеописанной процедурой
KOL_PRINT INTEGER, - заполняется после посылки на принтер
N_POLZOVATEL INTEGER, - определяет менеджера, принявшего заказ
DATA_IZGOT DATE, - дата изготовл. - выбирается юзером
IZGOTOVLEN CHAR(1), - это служебки
POLUCHEN CHAR(1), - это служебки
MEBEL CHAR(1) - это служебки не важно для понимания
)

В ней производится добавление новой записи и должен последовательно назначается номер "Заказа".

Для исключения повторов номеров, ибо порой пользователи одновременно
нажимали кнопки - используется индексация
CREATE UNIQUE ASCENDING INDEX CHEK_DATA ON T_CHEK (CHEK, DATA)
(каждый день нумерация заказов
начинается сначала! Поэтому присутствует Дата! Если дату убрать, то будет идти все подряд, но дата нужна как правило - через год наверняка нумерация начнется снова )

Далее для вставки используется процедура приблизительно такого типа
которая вызывается из приложения

CREATE PROCEDURE T_CHEK_INS (
IN_POLZOVATEL INTEGER, - это пользователь (его уникальный ID)
WORK_DATA DATE - Дата рабочая, кот. берется с сервера!
(а то поменяет на своем компе дату)
) AS
DECLARE VARIABLE MAX_N INTEGER;
DECLARE VARIABLE TMP1 DATE;
DECLARE VARIABLE TMP2 INTEGER;
BEGIN
TMP1=WORK_DATA;
TMP2=IN_POLZOVATEL;
select MAX(CHEK) from T_CHEK where DATA=:TMP1 INTO MAX_N;
if (:MAX_N is NULL) then MAX_N = 0;
INSERT INTO T_CHEK (DATA, CHEK, N_POLZOVATEL, DATA_IZGOT,MEBEL)
VALUES (:TMP1,(:MAX_N+1),:TMP2,:TMP1,'0');
END

with StoredProc_InsChek do //процедура добавления в приложении (без
покупателя)
begin
UnPrepare;
Prepare;
ParamByName('IN_POLZOVATEL').AsInteger:=F_Main.Query_PolzovatelN_POLZOVATEL.AsInteger;
ParamByName('WORK_DATA').AsDate:=F_Main.DateTimePicker3.Date;
ExecProc;
end;

Нет проблем с нумерацией даже когда одновременно работает 7 клиентов. (правда работаю через БДЕ пока, т.к. проекту под 5 лет и переделывать лом)
Поставлено условие, что новый заказ нельзя добавить, пока юзер не распечатал последний заказ, т.е. пока не утвердился документ, пошедший в работу. Но конечно если будет удален заказ из середины, то естественно будет пропуск номера, что тоже важно для контроля.

А вот документ пошел на печать, утвердился, т.е. в базе отметка после QuickReport->AfterPrint появилась, но в сетке потерялся... или глюкнул принтер. Как это дело учесть?