begin
insert into spr(KOD, DATM, EW, MP )
select tree.id, dat.id, ew_id.id, mp_id.id
from tree , dat , ew_id , mp_id
where tree.id =:in_kod and dat.datm =:in_datm and ew_id.ew = :in_ew
and mp_id.mp=:in_mp ;
insert into spr(cwp,cwf,spf,spp,te_id,note_id)
values (:in_cwp,:in_cwf,:in_spf, :in_spp, :in_te_id, :in_note_id);
end

одной строкой сделать вставку в одну таблицу)))

В IB Expert не работает это

В этой процедуре не вносятся значения в переменные и результат вставки ))
никакой вставки не происходит в таблицу

CREATE PROCEDURE NEW_PROCEDURE (
IN_KOD INTEGER,
IN_CWP INTEGER,
IN_SPP INTEGER,
IN_CWF INTEGER,
IN_SPF INTEGER,
IN_DATM VARCHAR(20),
IN_EW VARCHAR(256),
IN_TE_ID VARCHAR(20),
IN_MP VARCHAR(10),
IN_NOTE_ID VARCHAR(256))
AS
DECLARE VARIABLE DATM_TMP VARCHAR(20);
DECLARE VARIABLE EW_TMP VARCHAR(256);
DECLARE VARIABLE MP_TMP VARCHAR(10);
DECLARE VARIABLE KOD_TMP INTEGER;
begin
for select tree.id, dat.id, ew_id.id, mp_id.id
from tree, dat , ew_id , mp_id
where tree.id =:in_kod and dat.datm =:in_datm and ew_id.ew = :in_ew
and mp_id.mp=:in_mp
into:kod_tmp, :datm_tmp, :ew_tmp, :mp_tmp
do
insert into spr(KOD, DATM, ew, mp, cwp, cwf, spf, spp, te_id, note_id)
values (:kod_tmp, :datm_tmp, :ew_tmp, :mp_tmp, :in_cwp,:in_cwf,:in_spf, :in_spp, :in_te_id, :in_note_id);
end

Процедура заработала