اتمنى ان يعجبكم

FAKAT01.fmb

الأخ الكريم السلام عليكم ورحمة الله وبركاته

اقدم لك التحية على هذا العمل الرائع جدا

لكن هناك ملاحظة وهي اذا كان الرقم مثلا 6.5 يكون التفقيط
سته جنيه خمسه قرش
بدون حرف واو بينهما
أمل منك تعديل المديول ولك خالص الشكر
اخوك احمد

شكرا اخى فى الله على تعقيبك و اننى سافكر فى حل هذا الموضوع

مشكور وما قصرت

السلام عليكم
شكرا جدا على التفقيطة
هل من الممكن ان اجد تفقيطة بالانجليزية
لانى اطبع فاتورة بالانجليزية و احتاجها

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

تفقيط باللغه الانجليزيه

create or replace
    function spell_number( p_number in number )
  return varchar2
 as
       type myArray is table of varchar2(255);
     l_str    myArray := myArray( '',
                             ' thousand ', ' million ',
                           ' billion ', ' trillion ',
                            ' quadrillion ', ' quintillion ',
                             ' sextillion ', ' septillion ',
                            ' octillion ', ' nonillion ',
                            ' decillion ', ' undecillion ',
                             ' duodecillion ' );
     l_num varchar2(50) default trunc( p_number );
     l_return varchar2(4000);
  begin
      for i in 1 .. l_str.count
    loop
         exit when l_num is null;

         if ( substr(l_num, length(l_num)-2, 3) <> 0 )
         then
             l_return := to_char(
                             to_date(
                             substr(l_num, length(l_num)-2, 3),
                                'J' ),
                         'Jsp' ) || l_str(i) || l_return;
         end if;
         l_num := substr( l_num, 1, length(l_num)-3 );
      end loop;
         if to_char( p_number ) like '%.%'
     then
         l_num := substr( p_number, instr( p_number, '.' )+1 );
         if l_num > 0
         then
              l_return := l_return || ' point';
             for i in 1 .. length (l_num)
              loop
                exit when l_num is null;
                 if substr( l_num, 1, 1 ) = '0'
                 then
                     l_return := l_return || ' zero';
                 else
                     l_return := l_return
                    || ' '
                     || to_char(
                            to_date(
                            substr( l_num, 1, 1),
                              'j' ),
                        'jsp' );
                  end if;
                 l_num := substr( l_num, 2 );
             end loop;
         end if;
     end if;
     return l_return;
  end spell_number;
/

SQL> select spell_number (111234567890.123) spell_number  from dual;

SPELL_NUMBER
--------------------------------------------------------------------------------
One Hundred Eleven billion Two Hundred Thirty-Four million Five Hundred Sixty-Se
ven thousand Eight Hundred Ninety point one two three

جزاك الله خيرا
سوف اجرب ال مديول

مشكوررررررررررررررررررررررر

تسلم إيديك ..

MERCIIII
gazak ALLAH kol kheir

thanks alot for your great help

بسم الله الرحمن الرحيم
مشكور يا بشمهندس tarek_fathi على الموضوع بس كل ما اضغط على الفورمة بتاعتك علشان انزلها

الخطأ هو:

عفوا بعض الملفات المطلوبة غير موجودة حاليا ,إذا كنت تريد قراءة الموضوع فمن المحتمل قد تم حذفه أو نقله لمنتدى آخر. الرجاء الرجوع للخلف ومعاودة المحاولة

ارجوا اعادة فحص الملفات او اعادة رفعها

-------------------------
Amgad

مشكور الكود شغال 100 %

وافقكم الله .. والله المستعان

بسم الله الرحمن الرحيم

أخواني الكرام انا جربت الكود وجزاكم الله خير - ولكن يطبع التفقيط الإنجليزي فقط - هل من طريقة تمكنني من التفقيط داخل  Oracle e-business suit    وبالريال السعودي - جزاكم الله خير