execute block
returns(ID_ABON integer,ID_CATEGORY integer, DATE_NATH date, DATE_KON date, status integer,PRIM varchar(200),DATE_VVOD date, KOD_OP integer, STAT_COMMENT integer,
N_CATEGORY varchar(100), ADRES varchar(100),N_COMMENT varchar(100), NOM_ABON varchar(15),KOL_JIL integer, kol_lg integer, DATE_DOST date, NAIM_SS varchar(100))
as
begin
--Обнуляем
ID_ABON = 0; ID_CATEGORY=0;DATE_NATH=null;DATE_KON=null;status=0; PRIM='';DATE_VVOD=null;KOD_OP=0; STAT_COMMENT=0;N_CATEGORY=''; ADRES=''; N_COMMENT='';NOM_ABON='';
KOL_JIL=0;kol_lg=0;DATE_DOST=null;NAIM_SS='';


--Что выбрать
select  g.id_abon, g.id_category, g.date_nath, g.date_kon, g.status, g.prim, g.date_vvod, g.kod_op, g.stat_comment, s.naim,
(select p.adres from bal_pc_adres(g.id_abon) p), k.naim_kod, sa.nom_abon, sa.kol_jil, sa.kol_lg,
(select max(z.date_dost) from bal_pr_zajvka z where z.id_abon=g.id_abon and coalesce(z.pr_ned,0)=0), bs.naim

--Откуда выбрать
from bal_gurnal_sop g
inner join spr_sop s on (s.id=g.id_category)
inner join bal_spr_abon sa on (sa.id=g.id_abon)
inner join sp_punkt sp on (sp.kod_punkt=sa.kod_punkt)
left outer join bal_spr_ss bs on (bs.kod=sp.kod_ss)
left outer join klsfct k on (k.kod=77) and k.kod_hc=g.stat_comment

--where g.id_abon = 19   когда задаешь к примеру данное условие(гарантированно будет 1 уникальное поле) отрабатывает без проблем

--Присваиваем
into :ID_ABON,:ID_CATEGORY,:DATE_NATH,:DATE_KON,:status,:PRIM,:DATE_VVOD,:KOD_OP,:STAT_COMMENT,:n_category,:ADRES,:N_COMMENT,:NOM_ABON,
:KOL_JIL,:kol_lg,:DATE_DOST,:NAIM_SS;
suspend;

end

FOR SELECT ... FROM ... INTO .... 
  DO SUSPEND;