arbec.txtarbec.txt بســــــــــــــــــــم الله الرحمان الرحيم
أوجه عناية السادى الاعضاء والسادة المشـــرفين إلى هذا الكود الذى يحول لارقام إلى حروف بالغة العربية
وهذا هام جدآ لمن يريد التعامل معه

[ecod]
function CF_2Formula return Char is
A VARCHAR(15); -- 1 ¿¿¿
B VARCHAR(15); -- 2 ¿¿¿
C VARCHAR(15); -- 3 ¿¿¿¿¿
D VARCHAR(15); -- 4 ¿¿¿¿¿
E VARCHAR(15); -- 5 ¿¿¿¿¿
F VARCHAR(15); -- 6 ¿¿¿¿¿
Ver1 VARCHAR(20); -- .1 ¿¿¿¿¿
Ver2 VARCHAR(20); -- .2 ¿¿¿¿¿
Po NUMBER(2):=INSTR(:SUM_SUM_NET_TOTAL,'.');
X NUMBER(9):=:SUM_SUM_NET_TOTAL;
Len NUMBER(2);

BEGIN

IF Po>0 THEN X:=SUBSTR(:SUM_SUM_NET_TOTAL,1,po-1); END IF;
Len:=LENGTH(X);

FOR I IN reverse 1..LEN LOOP
IF I=LEN THEN A:=SUBSTR(x,I,1); A:=d1(A);
ELSIF I=LEN-1 THEN B:=SUBSTR(x,I,1); B:=d2(;
ELSIF I=LEN-2 THEN C:=SUBSTR(x,I,1); if C='0' then C:=null; else C:=d1©||' ãÇÆÉ'; end if;--mat
ELSIF I=LEN-3 THEN D:=SUBSTR(x,I,1); D:=d1(D);
ELSIF I=LEN-4 THEN E:=SUBSTR(x,I,1); E:=d2(E);
ELSIF I=LEN-5 THEN F:=SUBSTR(x,I,1); if F='0' then F:=null; else F:=d1(F)||' ãÇÆÉ'; end if;--mat
END IF;
END LOOP;

if Len>3 then
if E is null and D is not null then D:=D||' ÃáÝ';--alaf
elsif D is null and E is not null then E:=E||' ÃáÝ';--alaf
elsif D is null and E is null then F:=F||' ÃáÝ';--alaf
else e:=e||' ÃáÝ ';--alaf
end if;
end if;

if C='æÇÍÏ ãÇÆÉ' then C:='ãÇÆÉ'; end if;--wahad mat--mat
if C='ÇËäíä ãÇÆÉ' then C:='ãÇÆÊíä';end if;--asnin mat--matin
if F='æÇÍÏ ÇÈÝ' then F:='ÇáÝ';end if;--wahad mat--mat
if F='ÇËäíä ÇáÝ' then F:='ÇáÝÇä';end if;--asnin mat--matin


if Po>0 then
Ver1:=SUBSTR(:SUM_SUM_NET_TOTAL,po+1,1); Ver1:=d2(Ver1);
Ver2:=SUBSTR(:SUM_SUM_NET_TOTAL,po+2,1); Ver2:=d1(Ver2);
--return ver2;
end if;


IF Ver2 IS NOT NULL THEN Ver2:=' æ '||Ver2; END IF; --and
IF Ver1 IS NOT NULL THEN Ver1:=' æ '||Ver1; END IF; --and

IF F IS NOT NULL THEN IF E IS NOT NULL OR D IS NOT NULL OR C IS NOT NULL OR B IS NOT NULL OR A IS NOT NULL THEN F:=F||' æ '; END IF; END IF; --and
IF E IS NOT NULL THEN IF C IS NOT NULL OR B IS NOT NULL OR A IS NOT NULL THEN E:=E||' æ '; END IF; END IF;--and
IF D IS NOT NULL THEN IF E IS NOT NULL OR C IS NOT NULL OR B IS NOT NULL OR A IS NOT NULL THEN D:=D||' æ '; END IF; END IF;--and
IF C IS NOT NULL THEN IF B IS NOT NULL OR A IS NOT NULL THEN C:=C||' æ '; END IF; END IF;--and
IF B IS NOT NULL THEN IF A IS NOT NULL THEN A:=A||' æ '; END IF; END IF; --and


if Ver1 is not null or Ver2 is not null then
return(F||D||E||C||A||B||' ÌäíåÇ '||ver2||ver1||' ÞÑÔÇ ') ;--bound--sent
else
return(F||D||E||C||A||B||' ÌäíÉ ');--pound
end if;

end;

 وهذا ملف مرفق به هذا الكود لمن يود تحميلة 
arbec.txt

الشكر لن يكفيك حقك
شكرا
ميجا

good ya man
keep it on

رضي الله عنك وارضاك
ومن النار وقاك
وللجنة دعاك
والفردوس مأواك
اللهم آمين

اشكر اخي :
لكن الدالة (d1(F غي معرف ماهي وكيف الحصول عليها
وشكرا

شكراً جزيلا ويعطيك العافية

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