MagistrAnatol
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Вот моя процедура,немного покоцанная
SET TERM ^ ;
CREATE OR ALTER PROCEDURE NACHICLENIE (
kvartal integer,
god integer)
returns (
kolvo integer)
as
declare variable
....
begin
kolvo=1;
for select a.NAME Grupa_Name,a.kod_grypu,(select first 1 proc from proc_grypu where (a.grupa_master_id=grupa_master_id) and (data<:DATA_PROVEDENNYA) order by data desc) ,b.NAME Obekt_Name,b.DATA_VVODA,b.PERV_CTOIM,b.CROK_AMORT,b.NARAHOVANO,b.OCTATOCHNA_CTOIM,b.STATUS,b.CTAN_AMORT_MASTER_ID from grupa a left join ctan_amort b
on a.grupa_master_id=b.grupa_master_id
where (b.name is not null) and (b.OCTATOCHNA_CTOIM<>0) and (data_vvoda<:DATA_PROVEDENNYA) and (not data in (select data from dvig_amort where data=:data_provedennya and b.CTAN_AMORT_MASTER_ID=CTAN_AMORT_MASTER_ID))
into :Grupa_Name,:kod_grypu,:proc,:Obekt_Name,:DATA_VVODA,:PERV_CTOIM,:CROK_AMORT,:NARAHOVANO,:OCTATOCHNA_CTOIM,:STATUS,:CTAN_AMORT_MASTER_ID do begin
.....
insert into ....
suspend;
kolvo=kolvo+1;
Я хочу на клиенте увидеть измининие kolvo - сделать прогресс бар
end
end
|
?