Отмена оприходования для накладной на отпуск

[n0where]

Доброе время суток.

Такой вопрос как запретить отмену через произвоственный алгоритм.
Делаю через pt.Binding = 1 (TRecAcc). Однако не отрабатывает. На оприходование данная конструкция работает.

Подскажите в чем проблема.

[Semi-bit]

Мы такие вещи триггерами делаем...

[n0where]

Как сделать триггером?

[oiko]

Ерунда триггером получиться, т.к. надо блокировать все таблицы участвующие в оприходовании при помощи какого-нибудь RiseApplicationError, либо возвращать все эти записи в исходное состояние (экран кстати не перерисуется).
Можно попробовать алгоритмом до удаления ордеров изменить настройку которая явно не даст удалить ордера (сделать ему закрытый период), а после удаления вернуть ее обратно - вдруг прокатит.
Лучше всего докомпиляцией блокировать по условию стандартное событие удаления ордеров cmValue5 вроде.

[n0where]

Т.о. получается что производственным алгоритмом проще всего.

[mwoland]

мб попробовать при закрытии производственного алгоритма послать событие cmcancel. у мну кое-где прокатывало.

Код: Выделить всё

Function RunInter( wflag:Word; Var pt:TRecAcc ) : Boolean; {
putcommand(cmCancel);
}
или 
RunInter := false;
или
Function DoneInter( Var pt:TRecAcc ) : Boolean; {
putcommand(cmCancel);DoneInter := false;
}
или
handleevent
cmdone: {
putcommand(cmCancel);
}
end;

[n0where]

Не катит.

[oiko]

Естественно не покатит - проще всего докомпиляция.