/*уст объект в договоре по названию объекта*/
update CONTRACTS
set COMPANY_NAME =
(
  select first 1 OBJECT_NAME from defence_object
  where defence_object.CODE_CONTRACT = CONTRACTS.CODE_CONTRACT
)
where client_type > 0;