select
  ADDROBJECT.NAME,
  ADDROBJECT.ID,
  ADDROBJECT.ID as masterid2,
  ADDROBJECT.PARENTID,
  ADDROBJECT.KINDID,
  ADDROBJECT.ELEMENTID,
  LONGSTRREPLACE(ADDRKIND.FORMAT, '%s%', ADDROBJECT.NAME),
  LONGSTRREPLACE(ADDRKIND.FORMAT, '%s%', ADDROBJECT.NAME) as text
from ADDROBJECT
inner join ADDRKIND
  on ADDROBJECT.KINDID = ADDRKIND.ID
where ADDROBJECT.PARENTID=:masterid AND
      (ADDROBJECT.RECVALID IS NULL OR ADDROBJECT.RECVALID <> '51') AND
      ADDROBJECT.KLADRCODE IS NOT NULL
order by ADDROBJECT.NAME

select
  ADDROBJECT.NAME,
  ADDROBJECT.ID,
  ADDROBJECT.ID as masterid2,
  ADDROBJECT.PARENTID,
  ADDROBJECT.KINDID,
  ADDROBJECT.ELEMENTID,
  LONGSTRREPLACE(ADDRKIND.FORMAT, '%s%', ADDROBJECT.NAME),
  LONGSTRREPLACE(ADDRKIND.FORMAT, '%s%', ADDROBJECT.NAME) as text
from ADDROBJECT
inner join ADDRKIND
  on ADDROBJECT.KINDID = ADDRKIND.ID
where (ADDROBJECT.RECVALID IS NULL OR ADDROBJECT.RECVALID <> '51') AND
      (select * from GETPARENTCODE(ADDROBJECT.kladrcode)) =
      (select SUBSTRING(a.kladrcode FROM 1 FOR 11)
       from addrobject a
       where a.id=:masterid)
order by text asc

begin
  strlength = CHAR_LENGTH(KLADRCODE);
  if (strlength = 17) then begin
    PARENTCODE = SUBSTRING(:KLADRCODE FROM 1 FOR 11);
  end else begin
    PARTPARENTCODE = SUBSTRING(:KLADRCODE FROM 3 FOR 3);
    if (PARTPARENTCODE NOT LIKE '000') then begin
      PARENTCODE = (SUBSTRING(:KLADRCODE FROM 1 FOR 2)) || '000000000';
    end

    PARTPARENTCODE = SUBSTRING(:KLADRCODE FROM 6 FOR 3);
    if (PARTPARENTCODE NOT LIKE '000') then begin
      PARENTCODE = (SUBSTRING(:KLADRCODE FROM 1 FOR 5)) || '000000';
    end

    PARTPARENTCODE = SUBSTRING(:KLADRCODE FROM 9 FOR 3);
    if (PARTPARENTCODE NOT LIKE '000') then begin
      PARENTCODE = (SUBSTRING(:KLADRCODE FROM 1 FOR 8)) || '000';
    end
  end

  SUSPEND;
end

(select * from GETPARENTCODE(ADDROBJECT.kladrcode)) =
  (select SUBSTRING(a.kladrcode FROM 1 FOR 11)
   from addrobject a
   where a.id=:masterid)

parentcode =
  (select SUBSTRING(a.kladrcode FROM 1 FOR 11)
   from addrobject a
   where a.id=:masterid)

UPDATE ADDROBJECT SET parentcode = GETPARENTCODE(kladrcode)