أرجو من حضراتكم تصحيح فانكشن التفقيط لان عندى تقرير بيطلع فيه التفقيط بالشكل الاتى

(638.64)

وتفقيطها هى (ستمائة وثمانية وثلاثون جنيه و64 قرشاً لاغير)

والمشكله فى ال 64 قرشا موجوده بالارقام داخل التفقيط وانا عايزها باللغه العربيه

ياريت بعد أذنكم التعديل على الفانكشن ده علشان تظبط معايا

وارجو سرعة الرد للضروره

create or replace

FUNCTION ee (oo number) return varchar2 IS

x number;

PIASTER1 varchar2(20);

PIAST1 varchar2(90);

PIASTER number;

PIAST varchar2(90);

BOX1 varchar2(200);

BOX2 varchar2(200);

BOX3 varchar2(200);

BOX4 varchar2(200);

BOX5 varchar2(200);

NEM varchar2(200);

TONLY varchar2(200);

t number;

HUNDRED varchar2(900);

TENS varchar2(900);

UNITS varchar2(900);

ONLY1 varchar2(900);

N number;

a varchar2(900);

l varchar2(30);

p varchar2(30);

l1 varchar2(30);



number1 number;

number11 varchar2(20);

BEGIN

number1 :=oo - mod(oo,1);

if nvl(number1,0)=0 then

tonly:=' '||OO*100|| ' قرشاً ';

return(tonly);

else

L :=to_char(number1);

a :=substr(NUMBER1,1);

BOX1:='واحــد اثنيـن ثـلاثة اربعـة خمســة ســـتة ســبعة ثمانية تســعة ';

BOX2:='عشـرون ثلاثون أربعون خمسـون سـتـون سـبعون ثمانون تسـعون ';

BOX3:='مــــائه مـائتـان ثلاثمائه اربعمائه خمسـمائة سـتمـائه سـبعمائه ثمانمائه تسـعمائة ';

BOX4:='احد عــشــــرة اثنى عـشــر ثلاثة عشـر اربعة عشـر خمسـة عشـر ســتة عشـر سـبعة عشـر ثمانية عشـر تسـعة عشـر';

BOX4:='عــشــــرة أحد عـشــر أثنى عشــر ثلاثة عشـر اربعة عشـر خمسـة عشـر ســتة عشـر سـبعة عشـر ثمانية عشر تسـعة عشـر ';

NEM:='';

TONLY:='';

p:='0000000000'||to_char(NUMBER1);

a:=substr('0000000000'||to_char(NUMBER1),length(p)-8);

dbms_output.put_line(a||'a');

T:=3;

WHILE T>0 loop

NEM:=SUBSTR(a,(3-T)*3+1,3);

HUNDRED:='';

TENS:='';

UNITS:='';

only1:='';

N:=to_number(substr(NEM,1,1));

dbms_output.put_line(n);

IF N>0 then

HUNDRED:=SUBSTR(BOX3,(N-1)*9+1,9);

END IF;

IF SUBSTR(NEM,2,1)='1' then

N:=to_number(substr(NEM,length(nem),1));

TENS:=SUBSTR(BOX4,N*11+1,11);

ELSE

N:=to_number(SUBSTR(NEM,2,1));

IF N>1 then

TENS:=SUBSTR(BOX2,(N-2)*7+1,7);

END IF;

N:= to_number(substr(NEM,length(nem),1));

IF N>0 then

UNITS:=SUBSTR(BOX1,(N-1)*7+1,7);

END IF;

END IF;

IF LENgth(UNITS)>0 AND LENgth(TENS)>0 then

TENS:=UNITS||'و '||TENS;

ELSE

TENS:=UNITS||TENS;

END IF;

IF LENgth(HUNDRED)>0 AND LENgth(TENS)>0 then

only1:=HUNDRED||'و '||TENS;

ELSE

only1:=HUNDRED||TENS;

END IF;

IF T=3 AND to_number(NEM)>0 then

TONLY:=only1||'مليون ';

END IF;

IF T=2 AND to_number(NEM)>0 then

IF to_number(NEM)=1 then

only1:='الف ';

END IF;

IF to_number(NEM)=2 then

only1:='الفان ';

END IF;

IF to_number(NEM)>2 AND to_number(NEM)<11 then

only1:=only1||'آلاف ';

END IF;

IF to_number(NEM)>=11 then

only1:=only1||'الف ';

END IF;

IF LENgth(TONLY)>0 then

TONLY:=TONLY||'و '||only1;

ELSE

TONLY:=TONLY||only1;

END IF;

END IF;

IF T=1 AND to_number(NEM)>0 then

IF LENgth(TONLY)>0 then

TONLY:=TONLY||'و '||only1;

ELSE

TONLY:=TONLY||only1;

END IF;

END IF;

T:=T-1;

END loop;

IF to_number(NUMBER1)>=4 AND to_number(NUMBER1)<=10 then

TONLY:=TONLY||' جنيهات ';

ELSE

TONLY:=TONLY||' جنية ';

END IF;

IF LENgth(PIAST)>0 then

TONLY:=TONLY||PIAST;

END IF;

tonly :=tonly||' و';

--return(TONLY);

end if;



x :=mod(oo,1);

number11 :=mod(oo,1)*100;

if length(number11)=1 then

number11:='0'||number11;



end if;

l1:=number11;



if length(l1) =1 then l1:=l1||'0'; end if;

if NVL(length(l1),0) =0 then l1:='00'; end if;

PIASTER1:=l1;

PIAST1:=to_number(PIASTER1)||'قرشاً ';

IF to_number(PIASTER1)<11 then

PIAST1:=to_number(PIASTER1)||' قروش';

if piaster1 = 1 then piast1:=' قرشا '; end if;

if piaster1 = 2 then piast1:=' قرشان '; end if;

END IF;

IF PIASTER1<1 then

PIAST:='0 قرشاً';

END IF;



if piaster1 = 0 then

return(substr(tonly,1,length(tonly)-3)||' لاغير ،،،');else

return(tonly||''||piast1||' لاغير ،،،');

end if;

END;



--------------------------------------------------------------------------

 

تم تعديل 7 مايو 20178 سنة بواسطة oracle9

أرجو من حضراتكم الرد ضرورى لان عملى متوقف عليها

وجزاكم الله كل خير

متهيألى في 2 جاهزين هنا في المنتدى, ابحث عنهم.

عمل تفقيط الارقام الى حروف

http://www.araboug.org/ib/index.php?showtopic=4901

متشكر جدا ليكم

فعلاً بحثت ولاقيتها وظبطت معايا

لكم جزيل الشكر