[djelloul]

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

في الجانب الأيسر لنافذة الكريستال ريبورت تجد تبويب  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. "