TAREK ALHAMAD بتاريخ: 16 فبراير 2004 تقديم بلاغ مشاركة بتاريخ: 16 فبراير 2004 (معدل) هذا الكود منقول من منتديات الفريق العربى للبرمجة عن الاخ أرنب وهو كود التفقيط--------------------------------------------------------------------------------------بداية أريد أن اوضح ان هذا الكود يتم أنشائة على الداتابيز ومن الممكن ان يتم أنشائة من Procedure Builder ولكن الكود الموجود خاص بانشائة على sql plusوقد قمت باخذ نسخة(copy) من الكود المرفق وعلمت (past) على الداتابيز(sql plus)واعطانى ما يفيد بانه قد تم أنشاء ال(function) بنجاح وسؤالى هنا هو------------------1- كيف أستخدم هذا ال(function) على أى فورم فى مشروعى يكون بها حقل مثل(المرتبات, الاسعار, قيمة فاتورة, وهكذا) أى أذا أردت أن أعرضها فى (display item) بجانب الحقل الاساسى المعروض فيه سعر او مرتب وكذلك لو أردت أظهارها فى الحقل الرئيسى بدلا من الارقام2- كيف أنفذ هذا الكود على أ- sql plus ب- pl/sql ---->Procedure Builder 3- كيف أعرض كل ال(procedures ) و ال (functions) الموجودة على الداتابيز مثل عرض كل الجداول الموجودة على الداتابيزselect * from tab;desc table emp;------------------------------------------------------------------------------------------نص الموضوع كما جاء فى كلام الاخ أرنب---------------------------------------------أتمنى من الجميع الأستفادة من هذا الكود فلقد اجتهدت في عمله حتى يمكن استخدامة في جميع الامكان فهو يتعامل مع اربع باروميترات وهي الرقم و العملة و اسم جزء العمله و حالة إظهار الكسور واللغة فشكل الوظيفة على النحو التالي Num_ar( A,B,C,D,F)1 A = الرقم وهو من 123456789123456789- إلى 12345678912345679 B= اسم العملة ريال سعودي أو دينار او جنيه وإذا لم يتم وضعها سوف تأخذ قيمة ريال يمني C=اسم جزء العملة والقيمة الافتراضية قرش D= كيفية إظهار الكسور رقماُ او تفنيط ويأخذ المعامل 1 للتفنيط أو 0 للرقم والقيمة الافترصية 0 F= تمثل لغة الاخراج وحتى الآن تدعم لغتان العربية والانجليزية وإذا لم تضع تـأخذ ا لغة العربية أتمنى من الجميع تجربته وأخباري في حالة وجود مشاكل على الايميل [email protected] وأعتذر عن حجم الكود فلقد حاولة تصغيرة قدر الامكان ولكن جمع الكثير من الوظائف جعله يطول ولا تنسو دعوه صالحة لأخيكم تنفعه في يوم لا ينفع فيه مال ولا بنون -----------------------------------------------------------------------------------الكود------ create or replace function Num_ar (P_inp_num in NUmber,v_ce in varchar2 DEFAULT 'ريال يمني',v_de in varchar2 DEFAULT 'قرش',v_det in number DEFAULT 0,v_lan in varchar2 DEFAULT 'AR') return Varchar2 as -- Functions called : D3_To_Word L_Return Varchar2(1000); m Number := 0; V_inp_Num Number := 0; V_inp_Int Number := 0; V_inp_dec Number := 0; V_Char Varchar2(100); V_Temp Number := 0; Type LionArray is table of Varchar2(500); In_str LionArray := LionArray ( '', ' آلف ', ' مليون ' , ' مليار ' , ' ترليون ' ,' فرليون ' , ' سرسليون ' , ' تسرسليون ' , ' فيمتون ' ); -- ENGLSH VARIBLE eL_Return Varchar2(1000); em Number := 0; eV_inp_Num Number := 0; eV_inp_Int Number := 0; eV_inp_dec Number := 0; eV_Char Varchar2(100); eV_Temp Number := 0; Type eLionArray is table of Varchar2(500); eIn_str eLionArray := eLionArray ( '', 'Thousand ' , 'Million ' , 'Billion ' , 'Trillion ' , 'Quadrillion ' , 'Quintillion ' , 'Sextillion ' , 'Septillion ' , 'Octillion ' , 'Nonillion ' , 'Decillion ' , 'Undecillion ' , 'Duodecillion '); -- Function function D3_To_Wordar (P1_number in number) return varchar2 as -- Pass only three digits -- This function return word equivalent to its number -- Accepted values are 0 to 999 L1_Return2 varchar2(500) := NULL; n1 Number := 0; i1 Number := 0; j1 Number := 0; k1 Number := 0; V1_inp_Number Number := 0; V1_temp Varchar2(50) := NULL; type OneArray is table of varchar2(50); type TenArray is table of varchar2(50); type hanArray is table of varchar2(50); OneStr OneArray := OneArray('واحد', 'إثنان ', 'ثلاثة', 'أربعة', 'خمسة', 'ستة', 'سبعة', 'ثمانية', 'تسعة', 'عشرة', 'إحدىعشر', 'إثناعشر', 'ثلاثة عشر', 'أربعة عشر', 'خمسة عشر', 'ستة عشر', 'سبع عشر', 'ثمانية عشر', 'تسع عشر'); TenStr TenArray := TenArray('', 'عشرون', 'ثلاثون', 'أربعون' , 'خمسون', 'ستون', 'سبعون','ثمانون', 'تسعون'); hanStr hanArray := hanArray('مائة', 'مائتان', 'ثلاثمائة' , 'أربعمائة', 'خمسمائة', 'ستمائة','سبعمائة', 'ثمانمائة','تسعمائة'); BEGIN V1_inp_Number := P1_Number; if V1_inp_number > 999 then V1_inp_number := 0; end if; V1_temp := LPAD(to_char(V1_inp_number),3,0); -- Find Hundredth position n1 := to_number(substr(V1_temp,1,1)); if n1 > 0 then L1_Return2 := hanStr(n1); end if; i1 := to_number(substr(V1_temp,2,2)); j1 := to_number(substr(V1_temp,2,1)); k1 := to_number(substr(V1_temp,3,1)); if n1>0 AND (j1>0 OR k1>0) then L1_Return2 := L1_Return2 ||' و'; End if; if i1 > 0 and i1 < 20 then L1_Return2 :=L1_Return2 || OneStr(i1); END IF; if j1 >= 2 then if k1 > 0 then L1_Return2 := L1_Return2|| OneStr(k1)|| ' و'; end if; L1_Return2 := L1_Return2 || TenStr(j1); end if; if V1_inp_number=0 Then L1_Return2:='صفر'; End If; Return L1_Return2; END D3_To_Wordar; -- another function function Digits3_To_Word (P_number in number) return varchar2 as -- Pass only three digits -- This function return word equivalent to its number -- Accepted values are 0 to 999 -- L_Return2 varchar2(500) := NULL; i Number := 0; j Number := 0; k Number := 0; V_inp_Number Number := 0; V_temp Varchar2(50) := NULL; type OneArray is table of varchar2(50); type TenArray is table of varchar2(50); OneStr OneArray := OneArray('One ', 'Two ', 'Three ', 'Four ', 'Five ', 'Six ', 'Seven ', 'Eight ', 'Nine ', 'Ten ', 'Eleven ', 'Twelve ', 'Thirteen ', 'Fourteen ', 'Fifteen ', 'Sixteen ', 'Seventeen ', 'Eighteen ', 'Nineteen '); TenStr TenArray := TenArray('', 'Twenty ', 'Thirty ', 'Forty ' , 'Fifty ', 'Sixty ', 'Seventy ', 'Eighty ', 'Ninety '); BEGIN V_inp_Number := P_Number; if V_inp_number > 999 then V_inp_number := 0; end if; V_temp := LPAD(to_char(V_inp_number),3,0); -- Find Hundredth position i := to_number(substr(V_temp,1,1)); if i > 0 then L_Return2 := OneStr(i)||'Hundred '; end if; -- Find last 2 digits i := to_number(substr(V_temp,2,2)); j := to_number(substr(V_temp,2,1)); k := to_number(substr(V_temp,3,1)); if i > 0 and i < 20 then L_Return2 := L_Return2 || OneStr(i); end if; if j >= 2 then L_Return2 := L_Return2 || TenStr(j); if k > 0 then L_Return2 := L_Return2|| OneStr(k); end if; end if; Return L_Return2; END Digits3_To_Word; Begin IF v_lan ='AR' Then V_inp_Num := ABS(P_inp_Num); V_inp_Int := Trunc(V_inp_Num); V_inp_Dec := V_inp_Num - V_inp_Int; -- To abort to 100 if V_inp_Dec > 0 then V_inp_dec := V_inp_dec * 100; V_inp_Dec := to_number(substr(to_char(V_inp_Dec),1,2)); end if; V_char := to_char(V_inp_Int); for m in 1..In_Str.Count Loop Exit when V_char is NULL; V_Temp := To_Number(Substr(V_char,(Length(V_char)-2), 3)); if V_temp > 0 then L_Return := D3_To_WordAR(V_Temp) || In_str(m)||' و' || L_Return; end if; V_char := Substr(V_char,1,(Length(V_Char)-3)); End Loop; L_return :=Substr(L_return,1,(Length(L_return)-1)); IF P_inp_num>=1000 and P_inp_num<2000 Then L_return:=Substr(L_return,5,Length(L_return)); End if; IF P_inp_num>=2000 and P_inp_num<3000 Then L_return:='الفان'||Substr(L_return,11,Length(L_return)); End if; IF P_inp_num>=3000 and P_inp_num<=10000 Then L_return:=Substr(L_return,1,(INSTR(L_return,'آلف')-1)) || 'الآف' || Substr(L_return,(INSTR(L_return,'آلف')+3),Length(L_return)); End if; if v_det=1 then if V_inp_Dec > 0 then L_return := L_return ||v_ce||' و' || to_char(V_inp_Dec)||v_de; ELSE L_return := L_return ||' '||v_ce; end if; Else if V_inp_Dec > 0 then L_return := L_return ||v_ce||' و' ||D3_To_WordAR(V_inp_Dec)||' '||v_de; ELSE L_return := L_return ||' '||v_ce; end if; End if; if V_inp_Int > 0 then L_Return := L_Return; elsif V_inp_Int = 0 then L_return := '==='; end if; Return L_return; ELSE if P_inp_num < 0 then eV_inp_Num := (P_inp_Num * -1); else eV_inp_Num := P_inp_Num; end if; eV_inp_Int := Trunc(eV_inp_Num); eV_inp_Dec := eV_inp_Num - eV_inp_Int; if eV_inp_Dec > 0 then eV_inp_dec := eV_inp_dec * 100; eV_inp_Dec := to_number(substr(to_char(eV_inp_Dec),1,2)); end if; eV_char := to_char(eV_inp_Int); for em in 1..eIn_Str.Count Loop exit when eV_char is NULL; eV_Temp := To_Number(Substr(eV_char,(Length(eV_char)-2), 3)); if eV_temp > 0 then eL_Return := Digits3_To_Word(eV_Temp) || eIn_str(em) || eL_Return; end if; eV_char := Substr(V_char,1,(Length(eV_Char)-3)); End Loop; if eV_inp_Int > 0 then eL_Return := v_ce||' '||eL_Return ||' and '; elsif eV_inp_Int = 0 then eL_return := v_ce||' Zero and '; end if; -- Concatenate the word for decimal digits if v_det=1 then if eV_inp_Dec > 0 then eL_return := eL_return || Digits3_To_Word(eV_inp_Dec) ||' '||v_de; elsif eV_inp_Dec = 0 then eL_Return := eL_return ||' Zero '||v_de; End if; ELSE if eV_inp_Dec > 0 then eL_return := eL_return || to_char(eV_inp_Dec) ||' '||v_de; elsif eV_inp_Dec = 0 then eL_Return := eL_return ||' Zero '||v_de; End if; END if; Return eL_return; End IF; END Num_AR; / تم تعديل 17 فبراير 2004 بواسطة khaled اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
developer بتاريخ: 16 فبراير 2004 تقديم بلاغ مشاركة بتاريخ: 16 فبراير 2004 اخي الفاضل راجع الرابط التاليhttp://www.araboug.org/ib/index.php?sho...pic=22&hl=êيّ اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
salama11433 بتاريخ: 17 فبراير 2004 تقديم بلاغ مشاركة بتاريخ: 17 فبراير 2004 مشكور يا اخى اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
arab20002000 بتاريخ: 17 فبراير 2004 تقديم بلاغ مشاركة بتاريخ: 17 فبراير 2004 مشكور على الكود اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
khaled بتاريخ: 17 فبراير 2004 تقديم بلاغ مشاركة بتاريخ: 17 فبراير 2004 شكراً اخي على الكود اما بخصوص اسئلتك1- استخدام الـ function في الـform ؟في الـform قم باضافة display item وضعه في المكان المناسب ثم اعمل له الخصائص الاتية- calculation mode =formula- في الخاصية formula ضع اسم الفنكشن مثلاً num_ar ثم مرر له البارمترس - لا تنسى ان تغير الـdata type الى الـdata type المناسب حسب الـreturn value الخاص بالـfunction .2- استخدام الـfunction في الـsqlيكون كالتي select num_ra(73636) from dual 3-التعرف على الـfunctions او الـprocedures الموجوده في الـdatabase يكون باستخدام الـquery الاتي select object_name from user_objects where object_type IN ('FUNCTION','PROCEDURE') اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
TAREK ALHAMAD بتاريخ: 17 فبراير 2004 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 17 فبراير 2004 شكرا يا أســــــــــتاااااااااااااذ خالد على الردولكن لى أستفسارأذا كان ال(function) او ال(proc) على الداتا بيزوأردت ان أستخدمهم من خلال فورم بدون ان أضعهم على الفورمويكون أستخدامهم من خلال trigger وليكن هذا التريجر على مستوى الفورم وهو مثلاpost-insert or post_updateوليكن أسم ال(function) او ال(proc) -------> تفقيط (TAFKEET) فما هى الاعدادت المراد عملها أذا أردت أن أنفذ هذا ال (FUNCTION) على أكثر من حقل موجودين على أكثر من بلوك فى الفورمولنفترض اننى عندى فورم تحتوى على 2 بلوك1 - الموظفين(EMP) 2- المشتريات(ITEM)أريد ان تعمل ال(FUNCTION) على حقل المرتب فى بلوك الموظفين وكذلك على حقل البريس فى بلوك المشترياتمع العلم ان FUNCTION RETURN VARCHAR2وأسف على الاطالة اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
TAREK ALHAMAD بتاريخ: 18 فبراير 2004 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 18 فبراير 2004 يا أخوان حد يرد علىاذا كان function التفقيط على الداتابيزكيف أستخدمه فى display itemلقد عملت الاتى1-عملت display item واعطيتها الاسم calcu وغيرت الاتى فى خصائصة أ- database no ب- data type char لان الفنكشن ترجع حروف مع العلم أن اسم الفنكشن tafkeet وهى الفنكشن الذى وضعها الاخ الاستاذ عمر باعقيل ج- calculation mode formula د- ولكن لا أدرى ماذا اكتب فى formula هل أكتب أسم الفنكشن دوت اسم الحقل أم ماذا اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
TAREK ALHAMAD بتاريخ: 19 فبراير 2004 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 19 فبراير 2004 شكرا أخى developer على الرابط اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
khaled بتاريخ: 19 فبراير 2004 تقديم بلاغ مشاركة بتاريخ: 19 فبراير 2004 اخي ابو تركي خطواتك صحيحه مئه بالمئه 1-عملت display item واعطيتها الاسم calcu وغيرت الاتى فى خصائصةأ- database noب- data type char لان الفنكشن ترجع حروف مع العلم أن اسم الفنكشن tafkeet وهى الفنكشن الذى وضعها الاخ الاستاذ عمر باعقيلج- calculation mode formulaد- ولكن لا أدرى ماذا اكتب فى formula الان في الـformula فقط اكتب اسم الفنكشن ومرر له البارمترس مثلا اذا كان اسم الفنكشن هي TAFKEET واسم الحقل الذي به القيمه الرقمية sal , سوف تكون الفنكشن في الـformula كلاتيTAFKEET(:SAL) اما اذا كانت الفنكشن داخل PACKAGE اكتب اسم الPACKAGE ثم نقطه و اسم الFUNCTION ثم البارمتر اتمنى ان تكون وضحت الفكره . اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
TAREK ALHAMAD بتاريخ: 19 فبراير 2004 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 19 فبراير 2004 الله يعطيك العافية يا أستاذ خالد الف الف شكر ---- مشكور على سرعة الاستجابة اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
عبدالحميد النهدي بتاريخ: 23 مارس 2006 تقديم بلاغ مشاركة بتاريخ: 23 مارس 2006 شكرا جزيلا يا طارق الحماد وبارك الله فيك اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
AAHS2004 بتاريخ: 3 مارس 2007 تقديم بلاغ مشاركة بتاريخ: 3 مارس 2007 أخواني الكرام لقد طبقت دالة التفقيط بنجاح و لكن لدي مشكلة في طريقة تمثل البيانات داخل القاعدة عند تحميل أوراكل إعتمدت AR8MSWIN1256 و لكن عند الإستعراض البيانات المدخلة في القاعدة بواسطة النماذج أو صفحة الويب http://localhost/isqlplus تكون البيانات على هيئة علامات السؤال و لا أدري ما السببو الأفضع من ذلك عند إستخدام الـتوريد imp أو الـتصدير exp تتحول كل الكلمات العربية في دالة التفقيط إلى علامات سؤالأنا بحاجة ماسة إلى المساعدة لإكمال عملي اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
algadal بتاريخ: 2 يوليو 2007 تقديم بلاغ مشاركة بتاريخ: 2 يوليو 2007 اذا كان لدي حقلين واحد للجمع والاخر لاظهار نفس القيمة باستخدام دالة التفقيط من الحقل الاول ..كيف سيكون شكل الproc اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
MuhammadYassein بتاريخ: 10 يوليو 2007 تقديم بلاغ مشاركة بتاريخ: 10 يوليو 2007 جزاك الله خيرا ........................جزاك الله خيرا ........................جزاك الله خيرا ........................جزاك الله خيرا ........................جزاك الله خيرا ........................جزاك الله خيرا ........................ اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
tanto بتاريخ: 14 سبتمبر 2008 تقديم بلاغ مشاركة بتاريخ: 14 سبتمبر 2008 و الله أكثر من رائع اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Mogahed Nasr بتاريخ: 28 مارس 2015 تقديم بلاغ مشاركة بتاريخ: 28 مارس 2015 ممكن سؤال شباب إذا عايز أطبع المدخلات إيش اسوي عندي شاشة موجود فيها التاريخ و الاسم و الرقم قبل التحويل و الرقم بعد التحويل وعايز اطبع البيانات المدخلة فقط ؟؟؟؟ اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Recommended Posts
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.