21-03-2016, 07:45 PM
(26-02-2016, 10:07 AM)bassem_43اعتذر للغياب المفاجئابن الخطأ في هذا الكودالكود يعمل بشكل جيد الا انه اذا تجاوذ المبلغ 9 ارقام يعطيني خطأبمعنىإذا كان المبلغ يساوي 9.250.300,21 يعمل بشكل جيدوادا كان المبلغ يساوي 92.503.002,12 لايعمل بشكل جيدهذا هو الكود كتب :كود :tMnt1 := ExtractNumberInString(formatfloat('0.00',TB1.fieldvalues['MT_NET'])); tMtn1 := format('%.13d',[strtoint(tMnt1)]); Memo1.Add('*00000000'+format('%.10d',[strtoint(TB1.FieldValues['Cpte_Tr'])])+ TB1.FieldValues['Cle']+tMtn1+ format('%.7d',[strtoint(TB1.FieldValues['Effectif'])])+ TB1.FieldValues['MOIS']+TB1.FieldValues['ANNEE']+' '+'0');