create procedure ABON_INFO_KASSA24 (
    I_ABON varchar(20))
returns (
    ABON_NUM integer,
    ABON_FAM varchar(30),
    ABON_IM varchar(20),
    ABON_OT varchar(30),
    SALDO_K numeric(15,2))
as
declare variable P_CUR_PERIOD integer;
declare variable END_DATA date;
declare variable OPLATA numeric(15,2);
declare variable PERIOD integer;
begin
select period_id from cur_period where id = 1
into :p_cur_period;

select END_D from periodi where id = :p_cur_period
into :end_data ;

abon_num = :i_abon ;

select ABON_FAM,ABON_IM,ABON_OT,SALDO_K  from abon_vedomost(:i_abon,:p_cur_period)
    where  abon_id is not null
    into :abon_fam,:abon_im,:abon_ot,:saldo_k ;

for select abon_oplata.oplata from abon_oplata
where (abon_oplata.data > :end_data) and (abon_oplata.abon = :i_abon)
into :oplata
do begin
    saldo_k = :saldo_k - :oplata ;
end

suspend;

end

select ABON_FAM,ABON_IM,ABON_OT,SALDO_K  from abon_vedomost(:i_abon,:p_cur_period)
    where  abon_id is not null
    into :abon_fam,:abon_im,:abon_ot,:saldo_k ;

for select abon_oplata.oplata from abon_oplata
where (abon_oplata.data > :end_data) and (abon_oplata.abon = :i_abon)
into :oplata
do begin
    saldo_k = :saldo_k - :oplata ;
end