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

السلام عليكم ورحمة الله تعالى وبركاته
الأساتذة الكرام
أريد كيفية تحويل الأرقام إلى حروف في تقرير كريستال ريبورت كما يكون في شكل فاتورة مثلا
شكرا لكم

تم بحمد الله وعونه حل هذه المسألة
وحنى تعم الفائدة لجميع الإخوان أردت أن أضع الحل هما

في الجانب الأيسر لنافذة الكريستال ريبورت تجد تبويب Field Explorer تختار منه Fields Formula، ومنها تختار New
تظهر أمامك نافذة تنسخ في الجانب السفلي المماثل للـ Text Editor هذا الكود
نتيجة هذا الكود هي باللغة الفرنسية

PHP كود :

stringVar array t;  

 
StringVar Libelle1; 
 
StringVar Libelle2; 
 
t:=split(totext({@TotHT},2,'',','),','); 
Libelle1:=towords (tonumber(replace(t[1],' ','')),0);
Libelle1:=UpperCase(Left(Libelle1,1)) + Lowercase(Right(Libelle1,Length(Libelle1)-1));
Libelle2:=towords (tonumber(replace(t[1],' ','')),0) ;
Libelle2:=UpperCase(Left(Libelle2,1)) + Lowercase(Right(Libelle2,Length(Libelle2)-1));
Libelle2:=Libelle2 + ' Euros ' +  ' et ' & towords (tonumber(t[2]),0);
if tonumber(t[2]) =0 then 
     " " & (Libelle1 &  " Dinars. ")
 
else 
     " " & (Libelle2) & " centimes. " 

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

djelloul

djelloul