مشكلة التفقيط بعدد 99 مليون

بتاريخ: 19 فبراير 201115 سنة

السلام عليكم ورحمة الله اخواني عندي دالة التفقيط ولكن المشكلة اذا كان المبلغ كبير فوق 99 مليون يقراه بشكل خاطى فارجوا من كان عنده دالة ارفاقة حيث ان محتاج لها ضروري ولكم جزيل واليكم الداله الموجود عندي لمن يستطيع التعديل عليه

 FUNCTION FU_TAFKEET  (N   NUMBER) RETURN VARCHAR2 IS
type tafkeet_table is table of varchar2(15)
index by binary_integer;
 one	tafkeet_table;
 hund	tafkeet_table;

   n_ch	varchar2(8);
   n1		number(2);
   n2		number(2);
   n3		number(2);
   n4		number(2);
   n5		number(2);
   n6		number(3,3);
   ch 		varchar2(200);
   ch1		varchar2(20);
   ch2		varchar2(20);
   ch3		varchar2(20);
   ch4		varchar2(20);
   ch5		varchar2(20);
   ch6		varchar2(5);
   ch1_1	varchar2(14);
   ch3_3	varchar2(14);
   ch5_5	varchar2(19);
   and1	varchar2(2);
   and2	varchar2(2);
   and3	varchar2(2);
   and4	varchar2(2);
   and5	varchar2(2);
   fils	varchar2(5):= 'åááå';
   only	varchar2(10):= 'áÇÛíÑ';
   dinar	varchar2(7):= 'ÑíÇá';
   thousand	varchar2(5):= 'ÃáÝ';
   milion	varchar2(7);
 begin
 	
 	--      TABLE
 	one(0) := ' ';
 one(1) := 'æÇÍÏ ';
 one(2) := 'ÅËäÇä ';
 one(3) := 'ËáÇËÉ ';
 one(4) := 'ÃÑÈÚÉ ';
 one(5) := 'ÎãÓÉ ';
 one(6) := 'ÓÊÉ ';
 one(7) := 'ÓÈÚÉ ';
 one(8) := 'ËãÇäíÉ ';
 one(9) := 'ÊÓÚÉ ';
 one(10) := 'ÚÔÑÉ ';
 one(11) := 'ÃÍÏ ÚÔÑ';
 one(12) := 'ÅËäì ÚÔÑ';
 one(13) := 'ËáÇËÉ ÚÔÑ';
 one(14) := 'ÃÑÈÚÉ ÚÔÑ';
 one(15) := 'ÎãÓÉ ÚÔÑ';
 one(16) := 'ÓÊÉ ÚÔÑ';
 one(17) := 'ÓÈÚÉ ÚÔÑ';
 one(18) := 'ËãÇäíÉ ÚÔÑ';
 one(19) := 'ÊÓÚÉ ÚÔÑ';
 one(20) := 'ÚÔÑæä';
 one(21) := 'æÇÍÏ æÚÔÑæä';
 one(22) := 'ÅËäÇä æÚÔÑæä';
 one(23) := 'ËáÇËÉ æÚÔÑæä';
 one(24) := 'ÃÑÈÚÉ æÚÔÑæä';
 one(25) := 'ÎãÓÉ æÚÔÑæä';
 one(26) := 'ÓÊÉ æÚÔÑæä';
 one(27) := 'ÓÈÚÉ æÚÔÑæä';
 one(28) := 'ËãÇäíÉ æÚÔÑæä';
 one(29) := 'ÊÓÚÉ æÚÔÑæä';
 one(30) := 'ËáÇËæä';
 one(31) := 'æÇÍÏ æËáÇËæä';
 one(32) := 'ÅËäÇä æËáÇËæä';
 one(33) := 'ËáÇËÉ æËáÇËæä';
 one(34) := 'ÃÑÈÚÉ æËáÇËæä';
 one(35) := 'ÎãÓÉ æËáÇËæä';
 one(36) := 'ÓÊÉ æËáÇËæä';
 one(37) := 'ÓÈÚÉ æËáÇËæä';
 one(38) := 'ËãÇäíÉ æËáÇËæä';
 one(39) := 'ÊÓÚÉ æËáÇËæä';
 one(40) := 'ÃÑÈÚæä';
 one(41) := 'æÇÍÏ æÃÑÈÚæä';
 one(42) := 'ÅËäÇä æÃÑÈÚæä';
 one(43) := 'ËáÇËÉ æÃÑÈÚæä';
 one(44) := 'ÃÑÈÚÉ æÃÑÈÚæä';
 one(45) := 'ÎãÓÉ æÃÑÈÚæä';
 one(46) := 'ÓÊÉ æÃÑÈÚæä';
 one(47) := 'ÓÈÚÉ æÃÑÈÚæä';
 one(48) := 'ËãÇäíÉ æÃÑÈÚæä';
 one(49) := 'ÊÓÚÉ æÃÑÈÚæä';
 one(50) := 'ÎãÓæä';
 one(51) := 'æÇÍÏ æÎãÓæä';
 one(52) := 'ÅËäÇä æÎãÓæä';
 one(53) := 'ËáÇËÉ æÎãÓæä';
 one(54) := 'ÃÑÈÚÉ æÎãÓæä';
 one(55) := 'ÎãÓÉ æÎãÓæä';
 one(56) := 'ÓÊÉ æÎãÓæä';
 one(57) := 'ÓÈÚÉ æÎãÓæä';
 one(58) := 'ËãÇäíÉ æÎãÓæä';
 one(59) := 'ÊÓÚÉ æÎãÓæä';
 one(60) := 'ÓÊæä';
 one(61) := 'æÇÍÏ æÓÊæä';
 one(62) := 'ÅËäÇä æÓÊæä';
 one(63) := 'ËáÇËÉ æÓÊæä';
 one(64) := 'ÃÑÈÚÉ æÓÊæä';
 one(65) := 'ÎãÓÉ æÓÊæä';
 one(66) := 'ÓÊÉ æÓÊæä';
 one(67) := 'ÓÈÚÉ æÓÊæä';
 one(68) := 'ËãÇäíÉ æÓÊæä';
 one(69) := 'ÊÓÚÉ æÓÊæä';
 one(70) := 'ÓÈÚæä';
 one(71) := 'æÇÍÏ æÓÈÚæä';
 one(72) := 'ÅËäÇä æÓÈÚæä';
 one(73) := 'ËáÇËÉ æÓÈÚæä';
 one(74) := 'ÃÑÈÚÉ æÓÈÚæä';
 one(75) := 'ÎãÓÉ æÓÈÚæä';
 one(76) := 'ÓÊÉ æÓÈÚæä';
 one(77) := 'ÓÈÚÉ æÓÈÚæä';
 one(78) := 'ËãÇäíÉ æÓÈÚæä';
 one(79) := 'ÊÓÚÉ æÓÈÚæä';
 one(80) := 'ËãÇäæä';
 one(81) := 'æÇÍÏ æËãÇäæä';
 one(82) := 'ÅËäÇä æËãÇäæä';
 one(83) := 'ËáÇËÉ æËãÇäæä';
 one(84) := 'ÃÑÈÚÉ æËãÇäæä';
 one(85) := 'ÎãÓÉ æËãÇäæä';
 one(86) := 'ÓÊÉ æËãÇäæä';
 one(87) := 'ÓÈÚÉ æËãÇäæä';
 one(88) := 'ËãÇäíÉ æËãÇäæä';
 one(89) := 'ÊÓÚÉ æËãÇäæä';
 one(90) := 'ÊÓÚæä';
 one(91) := 'æÇÍÏ æÊÓÚæä';
 one(92) := 'ÅËäÇä æÊÓÚæä';
 one(93) := 'ËáÇËÉ æÊÓÚæä';
 one(94) := 'ÃÑÈÚÉ æÊÓÚæä';
 one(95) := 'ÎãÓÉ æÊÓÚæä';
 one(96) := 'ÓÊÉ æÊÓÚæä';
 one(97) := 'ÓÈÚÉ æÊÓÚæä';
 one(98) := 'ËãÇäíÉ æÊÓÚæä';
 one(99) := 'ÊÓÚÉ æÊÓÚæä';
 hund(0) := ' ';
 hund(1) := 'ãÇÆÉ';
 hund(2) := 'ãÇÆÊÇä';
 hund(3) := 'ËáÇËãÇÆÉ';
 hund(4) := 'ÃÑÈÚãÇÆÉ';
 hund(5) := 'ÎãÓãÇÆÉ';
 hund(6) := 'ÓÊãÇÆÉ';
 hund(7) := 'ÓÈÚãÇÆÉ';
 hund(8) := 'ËãÇäãÇÆÉ';
 hund(9) := 'ÊÓÚãÇÆÉ';
 	-----------
   n_ch := lpad(to_char(trunc(n)),8,'00000000');
   n1 := nvl(to_number(substr(n_ch,1,2)),0);
   n2 := nvl(to_number(substr(n_ch,3,1)),0);
   n3 := nvl(to_number(substr(n_ch,4,2)),0);
   n4 := nvl(to_number(substr(n_ch,6,1)),0);
   n5 := nvl(to_number(substr(n_ch,7,2)),0);
   n6 := nvl(mod(n,1),0);
   ch1 := one(n1);
   ch2 := hund(n2);
   ch3 := one(n3);
   ch4 := hund(n4);
   ch5 := one(n5);
   ch6 := lpad(rpad(to_char(n6*100),4,' '),5,' ');
   if (n1<>0) and (n2<>0 or n3<>0 or n4<>0 or n5<>0)	then and1 := ' æ'; end if;
   if (n2<>0) and (n3<>0 or n4<>0 or n5<>0)		then and2 := ' æ'; end if;
   if (n3<>0 or n2<>0) and (n4<>0 or n5<>0)		then and3 := ' æ'; end if;
   if (n4<>0) and (n5<>0)				then and4 := ' æ'; end if;
   if (trunc(n)<>0) and (n6<>0)	     	then and5 := ' æ'; end if;
   ch1_1 := ch1;
   ch3_3 := ch3;
   ch5_5 := ch5;
   if	nvl(n,0)=0	then	only := ' ';
			dinar := ' ';
			thousand := ' ';
   end if;
   if	(n6=0) 	then	fils := '';
			ch6 := '';
   end if;
   if	(n3=1) and (n2=0) 	then 	ch3_3 := '';
   elsif (n3=2) and (n2=0) 	then 	thousand := 'ÃáÝíä';
				ch3_3 := '';
   elsif (n3>=3) and (n3<=10)	then	thousand := 'ÃáÇÝ';
   end if;
   if (n3=0) and (n2=0) and (n4<>0 or n5<>0) then thousand := ''; end if;
   if (n3=0) then and2 := ''; end if;
   if (n1=0 and n2 =0 and n3=0 and n4=0) then
     if (n5=1)	then	ch5_5 := 'ÑíÇá '||ch5;
		thousand := '';
		dinar := '';
     elsif (n5=2)	then	ch5_5 := 'ÑíÇáÇíä';
		thousand := '';
		dinar := '';
     elsif (n5>=3) and (n5<=10) then 	ch5_5 := ch5 || 'ÑíÇá';
				thousand := '';
				dinar := '';
     end if;
   end if;
   if (n1=0 and n2 =0 and n3=0 and n4=0 and n5=0) then      
		thousand := '';
		dinar := '';
   end if;
   if 	(n1=1)	then 	milion := 'ãáíæä';
		ch1_1 := '';
   elsif (n1=2)	then 	milion := 'ãáíæäíä';
		ch1_1 := '';
   elsif (n1>=3) and (n1<=10) then milion := 'ãáÇííä';
   elsif (n1<>0)	then	milion := 'ãáíæä';
   end if;


   ch :=ch1_1||' '||milion||and1||ch2||and2||ch3_3||' '||thousand||and3||
 	ch4||and4||ch5_5||' '||dinar||and5||ch6||fils||' '||only;
   return(ch);

END;

اقتباس