/*Вставляет кодировку для LARS*/

SET TERM ^ ;

CREATE PROCEDURE SET_TRANSLATION
AS
DECLARE VARIABLE CODE_DEVICE INTEGER;
begin

for select device_list.code_device_list from device_list, defence_object
  where device_list.code_object = defence_object.code_object
  and defence_object.code_object_code = 29
  and pult_number is not null
  into :code_device
  do
  begin
    insert into translation
    (
     code_device_list,
     physical_code,
     ev_number,
     code_type_event
    )
    values
    (
     :code_device,
     161,
     0,
     2401
    );
    insert into translation
    (
     code_device_list,
     physical_code,
     ev_number,
     code_type_event
    )
    values
    (
     :code_device,
     162,
     2,
     380
    );
    insert into translation
    (
     code_device_list,
     physical_code,
     ev_number,
     code_type_event
    )
    values
    (
     :code_device,
     163,
     3,
     380
    );
    insert into translation
    (
     code_device_list,
     physical_code,
     ev_number,
     code_type_event
    )
    values
    (
     :code_device,
     164,
     4,
     380
    );
    insert into translation
    (
     code_device_list,
     physical_code,
     ev_number,
     code_type_event
    )
    values
    (
     :code_device,
     165,
     0,
     1002
    );

    insert into translation
    (
     code_device_list,
     physical_code,
     ev_number,
     code_type_event
    )
    values
    (
     :code_device,
     177,
     0,
     401
    );
    insert into translation
    (
     code_device_list,
     physical_code,
     ev_number,
     code_type_event
    )
    values
    (
     :code_device,
     178,
     2,
     2380
    );
    insert into translation
    (
     code_device_list,
     physical_code,
     ev_number,
     code_type_event
    )
    values
    (
     :code_device,
     179,
     3,
     2380
    );
    insert into translation
    (
     code_device_list,
     physical_code,
     ev_number,
     code_type_event
    )
    values
    (
     :code_device,
     180,
     4,
     2380
    );
    insert into translation
    (
     code_device_list,
     physical_code,
     ev_number,
     code_type_event
    )
    values
    (
     :code_device,
     181,
     0,
     3002
    );
  end
  suspend;

end
^

SET TERM ; ^