إنتقال للمحتوى

  • تسجيل الدخول عبر الفيس بوك تسجيل الدخول عبر تويتر Log In with LinkedIn Log In with Google      تسجيل دخول    
  • إنشاء حساب

صورة
* * * * * 2 صوت

اجمل كود للتفقيط الى العربي


41 رد (ردود) على هذا الموضوع

#16 jadquraan

jadquraan

    عضو نشط

  • الأعضــاء
  • 250 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 07 October 2009 - 05:19 PM

احسنت اخي يوجد خطأ في الفئة 3000 ولغاية 10000

ولتصحيح الخطأ يرجى استبدال


If nNum>=3000 and nNum<=10000 Then
vReturn := SubStr( vReturn,1,(INSTR( vReturn,'ألاف' )-1) )||
'ألف'||
SubStr( vReturn, (INSTR( vReturn, 'ألف')+3), Length( vReturn ) );
End If;


بهذا الكود

If nNum>=3000 and nNum<=19999 Then
vreturn:= replace(vReturn,'ألف','آلاف') ;
End If;



إذا أعجبك قولي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين والمسلمات ما تقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..


اخوكم جاد القرعان
الأردن- الطفيلة
مبرمج نظم
جامعة الطفيلة التقنية
vb6,vb.net,aspx with ajax,oracle 10g (sql,plsql,forms,reports) ,
oracle database administrator(DBA)
oracle application server administrator
web application administrator
jadquraan@yahoo.com
jadquraan@ttu.edu.jo
00962777935393

CV


#17 mmsalman87

mmsalman87

    عضو مميز

  • الأعضــاء
  • 1,689 مشاركة
  • الاسم الأول:Maher
  • اسم العائلة:Salman
  • البـلـد: Country Flag
  • المنصب الحالي:Senior Oracle HCM SaaS Pre Sale Consultant

تاريخ المشاركة 07 October 2009 - 05:51 PM

ممكن ان تضع لنا الكود بعد التعديل وشكرا لك

                                                                                             

                                                                                                                  Maher Salman

• Oracle Fusion Human Capital Management 11g Human Resources Certified Implementation Specialist 

Taleo (TEE): Onboarding Administration Ed 3 LVC, Oracle University.

• Taleo (TBE): Recruit Essentials Ed 4.1 LVC, Oracle University.

• Oracle Fusion HCM Implementation, Oracle University.

• Oracle Certified Professional Developer (OCP) - Oracle Forms: Build Internet Applications.

• Oracle Certified Associate Developer (OCA).

• Oracle E-Business Suite R12 Human Capital Management Certified Implementation Specialist (HCM)

                                                                                                                                        
                                                                                                           http://learnoracle.net                                                                                                                

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

أهم مواضيعي ( Oracle Developer )

- برنامج حفظ الكودات - My Codes

- كيفية عمل نظام متعدد اللغات

- انشاء شاشة دخول وتغيير كلمة السر والتحكم بالمستخدمين

- Import And Export On Toad

- التحكم في النظام من خلال الملف Formsweb.cfg

​- Advanced Dynamic List

- توليد ارقام وحروف عشوائية 

 

 

أهم مواضيعي ( Oracle HRMS)

 

Using Special Value set in oracle hrms 


#18 jadquraan

jadquraan

    عضو نشط

  • الأعضــاء
  • 250 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 07 October 2009 - 06:04 PM

ولا يهمك هي الكود

بعد التعديل

CREATE OR REPLACE  Function Digits3_Word( nNum Number ) Return Varchar2 IS
vReturn Varchar2(500) := NULL;
Digit3 Number := 0;
i1 Number := 0;
j1 Number := 0;
k1 Number := 0;
nInNum Number := 0;
vTemp Varchar2(50) := NULL;
Type Digit1Array is table of Varchar2(50);
Type Digit2Array is table of Varchar2(50);
Type Digit3Array is table of Varchar2(50);
--
Digit1Str Digit1Array := Digit1Array('واحد',
'إثنان',
'ثلاثة',
'أربعة',
'خمسة',
'ستة',
'سبعة',
'ثمانية',
'تسعة',
'عشرة',
'إحدى عشرة',
'إثنا عشر',
'ثلاثة عشر',
'أربعة عشر',
'خمسة عشر',
'ستة عشر',
'سبعة عشر',
'ثمانية عشر',
'تسعة عشر'
);
Digit2Str Digit2Array := Digit2Array('',
'عشرون',
'ثلاثون',
'أربعون',
'خمسون',
'ستون',
'سبعون',
'ثمانون',
'تسعون'
);
Digit3Str Digit3Array := Digit3Array('مائة',
'مائتان',
'ثلاث مائة',
'أربع مائة',
'خمس مائة',
'ست مائة',
'سبع مائة',
'ثمان مائة',
'تسعة مائة'
);
Begin nInNum := nNum;
If nInNum>999 Then
nInNum := 0;
End If;
vTemp := LPAD( To_Char( nInNum ), 3, 0 );
Digit3 := To_Number( SubStr( vTemp, 1, 1 ) );
If Digit3>0 Then
vReturn := Digit3Str( Digit3 );
End If;
i1 := To_Number( SubStr( vTemp, 2, 2 ) );
j1 := To_Number( SubStr( vTemp, 2, 1 ) );
k1 := To_Number( SubStr( vTemp, 3, 1 ) );
If Digit3>0 AND (j1>0 OR k1>0) Then
vReturn := vReturn||' و';
End If;
If i1>0 and i1<20 Then
vReturn := vReturn||Digit1Str(i1);
End If;
If j1>=2 Then
If k1>0 Then
vReturn := vReturn||Digit1Str(k1)||' و';
End If;
vReturn := vReturn||Digit2Str(j1);
End If;
If nInNum=0 Then
vReturn := 'صفر';
End If;
Return vReturn;
End Digits3_Word;



CREATE OR REPLACE  Function Tafqeet( nNum Number, vIntegerCurrency Varchar2 := 'دينار', vDecimalCurrency Varchar2 := null ) Return Varchar2 IS
vReturn Varchar2(1000);
nInNum Number := 0;
nInteger Number := 0;
nDecimal Number := 0;
nDecimal_V varchar2(10) :=null;
vChar Varchar2(100);
vTemp Number := 0;
Type NamesArray is table of Varchar2(500);
NameStr NamesArray := NamesArray ( '',
'ألف',
'مليون',
'مليار',
'تريليون',
'فريليون',
'سرسليون',
'تسرسليون',
'فيمتون'
);
Begin nInNum := ABS( nNum );
nInteger := Trunc( nInNum );
nDecimal := nInNum - nInteger;
nDecimal_V:=substr(to_char(nDecimal,'9D9999'),4,3);
vChar := To_Char( nInteger );
For I in 1..NameStr.Count Loop
If vChar is NULL Then
Exit;
End If;
vTemp := To_Number( SubStr( vChar, (Length( vChar )-2), 3) );
If vTemp>0 Then
vReturn := Digits3_Word( vTemp )||' '||NameStr( I )||' و'||vReturn;
End If;
vChar := SubStr( vChar, 1, ( Length( vChar )-3 ) );
End Loop;
vReturn := SubStr( vReturn, 1, ( Length( vReturn )-1 ) );
vReturn := LTrim(RTrim(vReturn));
If nNum>=1000 and nNum<2000 Then
vReturn := SubStr( vReturn, 5, Length( vReturn ) );
End If;
If nNum>=2000 and nNum<3000 Then
vReturn := ' ألفان '||SubStr( vReturn, 11, Length( vReturn ) );
End If;
If nNum>=3000 and nNum<=19999 Then
/* vReturn := SubStr( vReturn,1,(INSTR( vReturn,' ألاف' )-1) )||
' ألف'||
SubStr( vReturn, (INSTR( vReturn, ' ألف')+3), Length( vReturn ) );
*/
vreturn:= replace(vReturn,'ألف','آلاف') ;
End If;
vReturn := LTrim(RTrim(vReturn));
If nDecimal>0 Then
if vDecimalCurrency is null then
vReturn := vReturn||' '||vIntegerCurrency||' و فلـــ '|| nDecimal_v || ' ــس' || ' فقط لا غير';
else
vReturn := vReturn||' '||vIntegerCurrency||' و '|| nDecimal_v || ' ' || vDecimalCurrency || ' فقط لا غير';
end if;
Else
vReturn := vReturn||' '||vIntegerCurrency || ' فقط لا غير';
End If;
If nInteger>0 Then
vReturn := vReturn;
ElsIf nInteger=0 and nDecimal>0 Then

if vDecimalCurrency is null then
vReturn:=nDecimal;
vReturn := 'فلــ '|| nDecimal_v || ' ــس ' || ' فقط لا غير' ;
else
vReturn := nDecimal_v || ' ' || vDecimalCurrency || 'فقط لا غير' ;

end if;
else

vReturn:='صفر '||vIntegerCurrency || ' فقط لا غير';

End If;
Return (LTrim(RTrim(vReturn)));
End Tafqeet;



ايضا الكود في المرفقات

ملفات مرفقة

  • ملف مرفق  Tafqeet.txt   6.11كيلو   137 عدد مرات التحميل

تم التعديل بواسطة jadquraan, 07 October 2009 - 06:09 PM.



إذا أعجبك قولي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين والمسلمات ما تقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..


اخوكم جاد القرعان
الأردن- الطفيلة
مبرمج نظم
جامعة الطفيلة التقنية
vb6,vb.net,aspx with ajax,oracle 10g (sql,plsql,forms,reports) ,
oracle database administrator(DBA)
oracle application server administrator
web application administrator
jadquraan@yahoo.com
jadquraan@ttu.edu.jo
00962777935393

CV


#19 mmsalman87

mmsalman87

    عضو مميز

  • الأعضــاء
  • 1,689 مشاركة
  • الاسم الأول:Maher
  • اسم العائلة:Salman
  • البـلـد: Country Flag
  • المنصب الحالي:Senior Oracle HCM SaaS Pre Sale Consultant

تاريخ المشاركة 07 October 2009 - 06:38 PM

مشكور يا حبيب

                                                                                             

                                                                                                                  Maher Salman

• Oracle Fusion Human Capital Management 11g Human Resources Certified Implementation Specialist 

Taleo (TEE): Onboarding Administration Ed 3 LVC, Oracle University.

• Taleo (TBE): Recruit Essentials Ed 4.1 LVC, Oracle University.

• Oracle Fusion HCM Implementation, Oracle University.

• Oracle Certified Professional Developer (OCP) - Oracle Forms: Build Internet Applications.

• Oracle Certified Associate Developer (OCA).

• Oracle E-Business Suite R12 Human Capital Management Certified Implementation Specialist (HCM)

                                                                                                                                        
                                                                                                           http://learnoracle.net                                                                                                                

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

أهم مواضيعي ( Oracle Developer )

- برنامج حفظ الكودات - My Codes

- كيفية عمل نظام متعدد اللغات

- انشاء شاشة دخول وتغيير كلمة السر والتحكم بالمستخدمين

- Import And Export On Toad

- التحكم في النظام من خلال الملف Formsweb.cfg

​- Advanced Dynamic List

- توليد ارقام وحروف عشوائية 

 

 

أهم مواضيعي ( Oracle HRMS)

 

Using Special Value set in oracle hrms 


#20 colla

colla

    عضو نشط

  • الأعضــاء
  • 245 مشاركة

تاريخ المشاركة 12 October 2009 - 09:41 AM

مجهود ممتاز جدا جدا

وربنا يوفقك

على المرء ان يسعى وليس عليه ادراك النجاح


صورة


#21 ANAS-ORA

ANAS-ORA

    مشترك

  • الأعضــاء
  • 131 مشاركة

تاريخ المشاركة 12 October 2009 - 11:44 AM

تسلم ايديك و تسلم الطفيلة ....
Anas Jamal
Oracel Devloper
OCP SooN
Doha - Qatar
[B][COLOR=red]

#22 jadquraan

jadquraan

    عضو نشط

  • الأعضــاء
  • 250 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 16 October 2009 - 10:26 PM

تسلم يا الغالي


إذا أعجبك قولي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين والمسلمات ما تقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..


اخوكم جاد القرعان
الأردن- الطفيلة
مبرمج نظم
جامعة الطفيلة التقنية
vb6,vb.net,aspx with ajax,oracle 10g (sql,plsql,forms,reports) ,
oracle database administrator(DBA)
oracle application server administrator
web application administrator
jadquraan@yahoo.com
jadquraan@ttu.edu.jo
00962777935393

CV


#23 eman_abdalla78

eman_abdalla78

    عضو

  • الأعضــاء
  • 5 مشاركة

تاريخ المشاركة 03 April 2010 - 11:08 PM

اشكرك على هذا الإبداع

#24 shar120032002

shar120032002

    عضو

  • الأعضــاء
  • 42 مشاركة
  • الاهتمامات:تحدي الصعوبات

تاريخ المشاركة 01 June 2010 - 10:10 PM

أين يحرر الكود ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
إقرأ وربك الأكرم* الذي علم بالقلم*علم الإسان مالم يعلم*

#25 Ahmed_diab1983

Ahmed_diab1983

    مشترك

  • الأعضــاء
  • 144 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 02 June 2010 - 01:39 AM

شكرا عمل جميل والله ، ربنا يوفقك لما فية الخير للاسلام والمسلمين
إن الضربات التى لاتقصم ظهرك ................. تقويه .


Eng / Ahmed Diab - Computer Science B.C


Oracle Developer - Instructor



(علمت ان رزقى لن يأخذه غيرى فأطمئن قلبى)


#26 امير101

امير101

    عضو نشط

  • الأعضــاء
  • 216 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 02 June 2010 - 02:15 AM

كيف يتم تنفيذها في التقرير
امير مائة وواحـد


رب رجل بمئة
ورب رجل بالف

فهل تحلم ان تكون بواحد ام بمائة ام بالف رجل؟؟؟

#27 shar120032002

shar120032002

    عضو

  • الأعضــاء
  • 42 مشاركة
  • الاهتمامات:تحدي الصعوبات

تاريخ المشاركة 02 June 2010 - 05:12 PM

عمل ممتاز لو تقولو لنا أين نحرره ؟ ولاتسخروا من سؤالي فجوابي (قاتل الله الجهل)
إقرأ وربك الأكرم* الذي علم بالقلم*علم الإسان مالم يعلم*

#28 shar120032002

shar120032002

    عضو

  • الأعضــاء
  • 42 مشاركة
  • الاهتمامات:تحدي الصعوبات

تاريخ المشاركة 03 June 2010 - 12:24 AM

عمل ممتاز لو تقولو لنا أين نحرره ؟ ولاتسخروا من سؤالي فجوابي (قاتل الله الجهل)

يرحمكم الله لاتبخلوا أين الرد
إقرأ وربك الأكرم* الذي علم بالقلم*علم الإسان مالم يعلم*

#29 shar120032002

shar120032002

    عضو

  • الأعضــاء
  • 42 مشاركة
  • الاهتمامات:تحدي الصعوبات

تاريخ المشاركة 03 June 2010 - 12:31 AM

مشكور إخي الكريم تحاوبكم
باقي تخبرني أين يحرر الكود؟؟
ولو فيها غلاسة
ما عليش كمل جميلك !!اصبرو علينا رجاءاً
بارك الله فيك وحرسك بعين عنايته
إقرأ وربك الأكرم* الذي علم بالقلم*علم الإسان مالم يعلم*

#30 shar120032002

shar120032002

    عضو

  • الأعضــاء
  • 42 مشاركة
  • الاهتمامات:تحدي الصعوبات

تاريخ المشاركة 03 June 2010 - 12:42 AM

نفذناه في sql وجاءتنا الرسالة التالية

تحذير: تم تكوين وظيفة مع أخطاء ترجمة كنا قبل لحظات نسأل أين نحرره
والان من أين نستدعيه؟
بجاه المنتدى الكريم لاتبخلو وتحياتي للجميع
أنا في الإنتظار.
إقرأ وربك الأكرم* الذي علم بالقلم*علم الإسان مالم يعلم*