Если я правильно понял вопрос, то отвечаю -
Есть таблица T_SKLAD в ней поля:

N_SKLAD, N_PARENTS, SKLAD (думаю смысл их понятен)

а вот процедура

CREATE PROCEDURE GET_TREE (
IN_SKLAD INTEGER
) RETURNS (
OUT_N_SKLAD INTEGER,
OUT_N_PARENTS INTEGER,
OUT_SKLAD VARCHAR(50)
) AS
DECLARE VARIABLE TMP1 INTEGER;
BEGIN
SELECT S.N_SKLAD,S.N_PARENTS,S.SKLAD
FROM T_SKLAD S
WHERE S.N_SKLAD=:IN_SKLAD
INTO :OUT_N_SKLAD, :OUT_N_PARENTS, :OUT_SKLAD;
SUSPEND;
FOR SELECT S.N_SKLAD FROM T_SKLAD S
WHERE S.N_PARENTS=:IN_SKLAD
ORDER BY SKLAD
INTO :TMP1
DO
FOR SELECT OUT_N_SKLAD,OUT_N_PARENTS,OUT_SKLAD FROM GET_TREE(:TMP1) INTO :OUT_N_SKLAD, :OUT_N_PARENTS, :OUT_SKLAD
DO
SUSPEND;
END

Поймёшь как она работает - и получишь сам всё, что тебе надо - успехов

А и вот выборка товаров, соответствующих дереву:

CREATE PROCEDURE GET_TOVAR_TREE (
IN_SKLAD INTEGER
) RETURNS (
N_TOVAR INTEGER,
KOD VARCHAR(10),
TOVAR VARCHAR(100),
OSTATOK DOUBLE PRECISION
) AS
DECLARE VARIABLE TMP1 INTEGER;
BEGIN
TMP1=:IN_SKLAD;
for select T.N_TOVAR,T.KOD,T.TOVAR,T.OSTATOK
FROM
(GET_TREE(:TMP1)
inner join T_TOVAR T on T.N_SKLAD=OUT_N_SKLAD)
order by T.KOD
INTO :N_TOVAR,:KOD,:TOVAR,:OSTATOK

do

SUSPEND;
END

естественно в таблице товаров есть поля N_TOVAR и N_SKLAD - смысл их понятен, а KOD TOVAR и OSTATOK несут смысловую нагрузку в соответствии с русской аббревиатурой.

Bye