| 
 
	
		| Предыдущая тема :: Следующая тема |  
		| Автор | Сообщение |  
		| брат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' 
 встречаются только у просроченных кредитов
 |  |  
		|  |  
		|  |  
  
	| 
 
 | Вы не можете начинать темы Вы не можете отвечать на сообщения
 Вы не можете редактировать свои сообщения
 Вы не можете удалять свои сообщения
 Вы не можете голосовать в опросах
 
 |  |