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

[waleedtot]

اريد عمل تفقيط الارقام (نقود) الى حروف فى الايصالات مثلا
11 الى احدى عشر فقط لاغير

[Osama Soliman]

الليك اخى الكريم الدالة المطلوب

arabic_spell_out.doc

[waleedtot]

Osama Soliman

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

[islamic_lion]

السلام عليكم
أشكرك أخي أسامة
ولكن أعتقد ان هناك طريقة أحسن من هذة وان ئشاء الله سأفكر فيها ولكن بعد الامتحان
لان هذة الطريقة طويلة جدان واري الاستعانة بجداول للتخزين الارقام
والله اعلم

[AL-KHIRBASH06]

مشكور أخ اسامة على هذا الجد الرائع

[administrator_g]

الطريقة سهلة

واحنا بنستخدمها فى تقارير مشابهة

والخطوات كالآتى:

1- تقوم بخلق FUNCTION على الداتاباس اسمها TAFKIT مثلا وده من خلال(EM) أو أى طريقة أنت تستخدمها .

 

2- من داخل الداتا موديل داخل التقارير تخلق FORMULA COLUMN وتقوم بعملية استدعاء الFUNCTIONاللى سبق وخلقناها كالآتى:

function v_textFormula return Char is

begin

if :currency_code = 'EGP' THEN

; ((return(tafkit(:AMOUNT

ELSE

;(( return(tafkit2(:AMOUNT

END IF

end;

بحيث أنه AMOUNT:عبارة عن الرقم اللى حياخده يفقطه وانا عملاه فى التقرير بيقراه من جوه التقرير

 

3- ثم من داخل التقارير (REPORT BUILDER) نقوم بعمل ال(FIELD) داخل الLAYOUT

 

لحد كده تمام؟؟؟

دلوقتى بقى خد الFUNCTION عملتلها أتاش مع الرد

 

 

 

آخر ملاحظة::

حتخلق فانكشن تانية اسمها TAFKIT2مثلا نفس الفانكشن بس حنضيف دولار بدل جنيه وسنت بدل قروش ( فى حالة التعامل داخل التقرير بعملة غير المصرى)

TAFKIT.txt