/*Исправляет код объектов у всех устройств*/

SET TERM ^ ;

create PROCEDURE TEMP_CORR_OBJ_FORDVC
as
declare variable obj integer;
declare variable pdvc integer;
declare variable pobj integer;
declare variable dvc integer;
begin
  for select
    code_device_list, code_object, parent_device_code
    from device_list D
    into dvc, obj, pdvc
    do
    begin
      pobj = null;
      select first 1 code_object from device_list P
      where P.code_device_list = :pdvc
      into POBJ;
      if(pobj is not null and pobj <> obj) then
      begin
        update device_list set code_object = :pobj
        where code_device_list = :dvc;
      end
    end
end
^

SET TERM ; ^