create trigger XXX_TR_CNTR_BEFORE_I_U before insert, update on XXX_CONTRACTS
referencing new as N old as O
for each row
begin
 declare cntrID Integer;
 if ((select CNTR_ID from XXX_CONTRACTS C1 where (C1.CNTR_TYPE = 1) and
                                                (C1.SBJ_ID_INS = N.SBJ_ID_INS) and (C1.SBJ_ID_CUS = N.SBJ_ID_CUS) and
                                                (C1.CNTR_ACTIV is Not null)) <> N.CNTR_ID) and (N.CNTR_TYPE = 1)
   then raiserror 23002 'XXX SERVER ERROR: В силе может быть только один договор xxx со xxx
 end if;
 
 if (N.CNTR_ID_PR is not null) then

   if N.CNTR_ID_PR = N.CNTR_ID
     then raiserror 23003 'XXX SERVER ERROR: Договор не может быть первичным для самого себя'
   end if;

   set cntrID = N.CNTR_ID_PR;
   while (cntrID <> 0) loop
     set cntrID = (select first(C2.CNTR_ID_PR) from XXX_CONTRACTS C2 where C2.CNTR_ID = cntrID);
     if (cntrID = N.CNTR_ID)
       then raiserror 23005 'XXX SERVER ERROR: Кольцевая связь первичных и подчиненных договоров'
     end if;
   end loop;

   if (select max(C2.CNTR_START_DATE) from XXX_CONTRACTS C2 where C2.CNTR_ID = N.CNTR_ID_PR) > N.CNTR_START_DATE
     then raiserror 23006 'XXX SERVER ERROR: Подчиненный договор не может быть подписан ранее первичного'
   end if;

 end if;

 if (select min(C2.CNTR_START_DATE) from XXX_CONTRACTS C2 where C2.CNTR_ID_PR = N.CNTR_ID) < N.CNTR_START_DATE
   then raiserror 23007 'XXX SERVER ERROR: В наличии подчиненные договоры, подписанные ранее настоящего'
 end if;

 if (N.CNTR_END_DATE is not Null) and (N.CNTR_END_DATE < N.CNTR_START_DATE)
   then raiserror 23009 'XXX SERVER ERROR: Дата подписания не может превышать дату окончания'
 end if;
end;