[أبو فلان]

سلام عليكم
هل من حل لطباعة الارقام بالعربي في الكريستال ريبورت

[amgad525]

http://vb4arb.com/vb/thread-8250.html

[أبو فلان]

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

---

الحمدالله تم حل المشكلة بعمل فاكنشن

PHP كود :

stringVar StrArb := ToText({T_RKSH.T56},"0");
StrArb := Replace (StrArb ,"0" , "٠" );
StrArb := Replace (StrArb ,"1" ,"١" );
StrArb := Replace (StrArb ,"2" ,"٢" );
StrArb := Replace (StrArb ,"3" ,"٣" );
StrArb := Replace (StrArb ,"4" ,"٤" );
StrArb := Replace (StrArb ,"5" ,"٥" );
StrArb := Replace (StrArb ,"6" ,"٦" );
StrArb := Replace (StrArb ,"7" ,"٧" );
StrArb := Replace (StrArb ,"8" ,"٨" );
StrArb := Replace (StrArb ,"9" ,"٩" ); 


[amgad525]

   

   

   

[أبو فلان]

كم يمتلك هذا المنتدى من عمالقه في بحثي بقوقل لم اجد حلول إلا هنا


وهذا حل بتغيير الخط من الاخ العزابي
http://vb4arb.com/vb/thread-1261.html

---

شكرا لك اخي amgad525 كم انا فخور بمثلك !!

---

إذا كان الكائن نصي غير مرتبط به حقل معين فلا ينفع معه إلا تغيير الخط

---

يبدو أن الخيارات تختلف لدي ولديك !!

[amgad525]

(20-05-16, 11:08 PM)أبو فلان كتب : إذا كان الكائن نصي غير مرتبط به حقل معين فلا ينفع معه إلا تغيير الخط

   

   

   

   

PHP كود :

Dim s As String
s = ToText({?para})

s = Replace(s,"0",ChrW(1632))
s = Replace(s,"1",ChrW(1633))
s = Replace(s,"2",ChrW(1634))
s = Replace(s,"3",ChrW(1635))
s = Replace(s,"4",ChrW(1636))
s = Replace(s,"5",ChrW(1637))
s = Replace(s,"6",ChrW(1638))
s = Replace(s,"7",ChrW(1639))
s = Replace(s,"8",ChrW(1640))
s = Replace(s,"9",ChrW(1641))

formula = s 


[أبو فلان]

جميل ما شاء الله
ولاكن لماذا يطلب قيمة عن استعراض التقرير شاهد المرفق

وهل يقبل الرموز مثلا / - * & % إذا كانت بينها ارقام

[أبو فلان]

عملت لها فورملا ومشى الحال البارميتر احيانا ما تمشي مع الرموز

شكرا amgad525

):