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 |