create or replace procedure karag(id_period1 in integer,p_kar_cv in out vanketa.kar_data.kar_cur_typ) is
begin
[b] open p_kar_cv For[/b]
select
t.id_predpr_passport id_pred,
t.id_spr_pokaz pokaz,
t.summa znac,
t.id_spr_period period ,
pokaz.pr_fact_prognoz pfact
from
monitor.anketa_znach t,
monitor.spr_pokaz pokaz
where
t.id_spr_pokaz=pokaz.id
And t.id_spr_pokaz in (64,86,1098,1103,1107,1111,1113,1115,1119,1121,1125,1131,65,87,1099,1104,1108,1112,1114,1116,1120,1122,1126,1132)
And (t.id_spr_period = id_period1)
Order by pfact, id_pred,period;
end karag; |