منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مشكلة في عدم ظهور الأرقام العربية وفي الكريستال ريبورت بالنسبة لـ spiceal Fileds مث
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته
إخواني عندي مشكلة في عدم ظهور الأرقام العربية وفي الكريستال ريبورت بالنسبة لـ spiceal Fileds  مثل Record Number أي أنها لاتظهر الا باللغة الإنجليزية وأريدها أن تظهر ياللغة العربية
الف شكر لكم
دمتم بود
وعليك السلام ورحمة الله وبركاته

يمكن عرض الارقام العربية ضمن تقارير كريستال ريبورت عن طريق  انشاء Formula تقوم بتحويل او استبدال الارقام الانجليزية بالعربية
وللقيام بهذا اضغط على زر CREATE FORMULA في نافذة برنامج كريستال ريبورت كما في الصورة



ثم ادخل اسم المعادلة
ثم استخدم الكود التالي لتحويل الارقام الى العربية


كود :
stringVar StrArb := ToText({ROTT.Aux_f_3});

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" ,"٩" );


ثم قم بحفظ التغييرات وجرب وان شاء الله يضبط

المصدر :

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

نفس السؤال على موقع الشركة
How do I display crystal report special fields in arabic?
شكرا جزيلا
ربنا يجازيك كل خير
(02-07-20, 12:43 PM)معاند الحظ كتب : [ -> ]وعليك السلام ورحمة الله وبركاته

يمكن عرض الارقام العربية ضمن تقارير كريستال ريبورت عن طريق  انشاء Formula تقوم بتحويل او استبدال الارقام الانجليزية بالعربية
وللقيام بهذا اضغط على زر CREATE FORMULA في نافذة برنامج كريستال ريبورت كما في الصورة



ثم ادخل اسم المعادلة
ثم استخدم الكود التالي لتحويل الارقام الى العربية


كود :
stringVar StrArb := ToText({ROTT.Aux_f_3});

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" ,"٩" );


ثم قم بحفظ التغييرات وجرب وان شاء الله يضبط

يعدي

نفس السؤال على موقع الشركة

مع جزيل الشكر والتقدير لشخصك الكريم بارك الله فيك 
دمت بود