Invalid insert or update value(s): object columns are constrained

[BarakudaX777]

Возникла проблема с выполнением запроса на вставку.

Invalid insert or update value(s): object columns are
constrained - no 2 table rows can have duplicate column values.
violation of PRIMARY or UNIQUE KEY constraint "INTEG_79" on table "PENI".

Имеется справочник договоров(DOGOVOR) и таблица в которой хранится ставка рефинансирования(PENI), необходимо в таблицу Peny вставить все договора, дату ставки и саму ставку.
Структура таблицы пени элементарна. Два ключевых поля №договора и дата.
Делаю в IBExpert. Код процедуры приведу ниже:

Код:

begin
v_start = 1;
v_end =29598;
  for select
    distinct dog_no from dogovor d
    where d.arxiv <> 'Y' and d.tmp_int between :v_start and :v_end
    into :dn
  do begin
    DELETE from peni where dog_no = :dn and data = '14.09.2012';
    insert into peni(dog_no, data, peni) values(:dn, '14.09.2012', 0.02750);
  end
end

Непойму вообще почему она возникает, ведь мы удаляем с таблицы записи если они уже были внесены и вносим их снова!
Или пробовал проверять и вставлять только если нет такой записи, та же ошибка. В чем может быть проблема?

begin
v_start = 1;
v_end =29598;
  for select
    distinct dog_no from dogovor d
    where d.arxiv <> 'Y' and d.tmp_int between :v_start and :v_end
    into :dn
  do begin
    select count(*) from peni where dog_no = :dn and data = '14.09.2012'  into :countz;
    if (countz < 1) then
     begin
     insert into peni
       (dog_no, data, peni)
     values
       (:dn, '14.09.2012', 0.02750);
     end
  end
end

[Stilet]

Непойму вообще

А ты попробуй убери вставку, и после отработки процедуры посмотри так ли все хорошо удаляется

[BarakudaX777]

constraint "INTEG_79"
Составной первичный ключ dog_no,Data

Пробую щас без удаления а чисто со вставкой полей, которых в базе нет. если заремировать код на вставку и поставить счетчик, то пишет что в условие вошло 8054 записи договоров

Я вот никак не пойму как может происходить дублирование ключа, если я явно проверяю есть ли он в базе и если его нет то вставляю:

 select count(*) from peni where dog_no = :dn and data = '14.09.2012'  into :countz;
    if (countz < 1) then

эта процедурка для программы Барс, нужно все договора перелопатить и изменить для них ставку рефинансирования. логически вроде все правильно а вот в чем проблема то!
Сейчас вместо параметров попробую явно указывать на номер договора какого нибудь.
А кстати как можно в IBExpert отлаживать, чтобы видеть какие договора попали в выборку? хотябы на каком именно договоре ошибка возникла

Хотел проследить на каком договоре ошибка, использовал так

        WHEN ANY DO BEGIN
	   errdn=:dn;
	END

Показался номер договора где ошибка, и не остановилось как в случае без обработчика ошибок а пошло дальше и все успешно добавилось. может кому понадобится, можете попробовать