Глобальный баг с использование SEQ_DOCUMENT
Нельзя использовать этот генератор, меняю на SEQ_EXT_INPUT_HEADER.
Заменил частично, процедуры для pfr, setnegative.
Добавил проверку генератора, так как программа сбербанка не использует генератор, а использует max(id)+1
Ups