set term^;
CREATE PROCEDURE GET_DCL_WAY(DCL_ID INTEGER,DCL_BRN INTEGER)
RETURNS(ID INTEGER,ID_BRN INTEGER,NAME VARCHAR( 1024 ),ARTICLE VARCHAR( 80 ))
AS
  declare variable NAME_PRNT varchar( 80 );
  declare variable ART_PRNT varchar( 80 );
BEGIN
  for select DCL.ID,DCL.ID_BRN,DCL.NAME,cast(DCL.ID as varchar( 20 ))
      from DEV_CLASSIF DCL
      where DCL.ID_PRNT=:DCL_ID and DCL.ID_PRNT_BRN=:DCL_BRN
      into ID,ID_BRN,NAME,ARTICLE
  do
  begin
    if (not exists(select ID from DEV_CLASSIF where ID_PRNT=:ID and ID_PRNT_BRN=:ID_BRN))
    then
    begin
      suspend;
    end else
    begin
      NAME_PRNT=NAME;
      ART_PRNT=ARTICLE;
      for select DCLW.ID,DCLW.ID_BRN,DCLW.NAME,cast(DCLW.ID as varchar( 20 ))
          from GET_DCL_WAY(:ID,:ID_BRN) DCLW
          into ID,ID_BRN,NAME,ARTICLE
      do
      begin
        NAME=NAME_PRNT||' > '||NAME;
        ARTICLE=ART_PRNT||'.'||ARTICLE;
        ID=DCL_ID;
        ID_BRN=DCL_BRN;
        suspend;
      end
    end
  end
end
^

CREATE TABLE  "DEV_CLASSIF"  
(
   "ID" 	INTEGER NOT NULL,
   "ID_BRN" 	INTEGER NOT NULL,
   "ID_PRNT" 	INTEGER NOT NULL,
   "ID_PRNT_BRN" 	INTEGER NOT NULL,
   "NAME" 	VARCHAR( 80 ) CHARACTER SET WIN1251,
 PRIMARY KEY ( "ID" ,  "ID_BRN" )
);