Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
брат666 Участник со стажем
Вступление в Клуб: 20.02.2014
|
Пн Мар 03, 2014 15:32  гашение кредита |
|
Полезность: Нет оценки
|
всем привет, помогите плз исправить скрипт :данные выводится только по просроченным кредитам.а надо что оба данные показались.(и не просроченные)
Код: | function fact_date1(p_cred ref [PR_CRED],p_date DATE) return number is
v_sum1 summa;
begin
v_sum1 :=0;
for (select s(s.summa :sum1)
in p_cred.LIST_PAY where p_date<s.DATE and s.oper.code in ('GASHEN_ZADOLJ_KR','PEREN_ZADOLJ_KR')
)
loop
v_sum1:=v_sum1+s.sum1;
debug_pipe('!oh v_sum1 = ' || v_sum1, 0);
end loop;
return v_sum1;
end;
function fact_date2(p_cred ref [PR_CRED],p_date DATE ) return number is
v_sum2 summa;
begin
v_sum2:=0;
for (select s(s.summa : sum2)
in p_cred.[LIST_PAY] where p_date<s.date and s.oper.code in ('VYNOS_ZADOLJ_KR')
)
loop
v_sum2:=v_sum2 + s.sum2;
debug_pipe('!oh v_sum2 = ' || v_sum2, 0);
end loop;
return v_sum2;
end;
function FACT_DATE (p_cred ref [PR_CRED],p_date DATE) return DATE is
diff number;
begin
for (select s(s.date : date1 )
in p_cred.[LIST_PAY] where p_date<s.date and s.oper.code in ('GASHEN_ZADOLJ_KR','PEREN_ZADOLJ_KR','VYNOS_ZADOLJ_KR')
)
loop
diff:=fact_date1(p_cred,p_date)-fact_date2(p_cred,p_date);
if diff>=0 then
return s.date1;
else return p_date;
end if;
debug_pipe('!oh s.date1 = ' || s.date1, 0);
end loop;
return null;
end; |
|
|
 |
prog Эксперт
Вступление в Клуб: 03.03.2008
|
Ср Мар 05, 2014 11:50   |
|
Полезность: 1
|
может у вас виды задолженности GASHEN_ZADOLJ_KR','PEREN_ZADOLJ_KR'
встречаются только у просроченных кредитов |
|
 |
|
|
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
|
|