(05-02-2016, 09:06 PM)bassem_43 كتب :(05-02-2016, 05:21 PM)medreg كتب : بارك الله فيكم وجاري التجريبوفيك بركة اخي
وجمعة مباركة وتقبل الله منا ومنكم صالح الاعمال
وافينا بالنتائج
اظنك تحاول برمجة برنامج اجرة الموظفين بشكل ملف نصي بعدها يحرق على CD ؟؟
فعلا يا احي لدي لرنامج للأجور واود ادراج تحوبل كشف الدفع البريدي الى ملف نصي
وعملت هذه المحاولة لكن لازالت ناقصة من ناحية قبول الملف النصي من طرف البرنامج الذي
سارفعه في قسم برامج من صنع الأعضاء لصاحبه (larbi_paradox)
وهذه هي محاولتي
[attachment=3148]
وسأوافيك بالمحتوى المطلوب بالكامل بعد قليل
وجزاكم الله عنا كل خير
(03-02-2016, 12:06 PM)bassem_43 كتب :(31-01-2016, 07:26 PM)medreg كتب :السلام عليكم(26-01-2016, 07:58 PM)B.M.AbdelAziZ كتب :أخي عبدالعزيزكود :tCpt := format('%.10d',[strtoint(Table1.FieldValues['Compte'])]);
إذا كان الحقل من نوع FLOAT
وفي الملف النصي يجب ان يحتوي على 13 حرفا
اي لنفترض ان القيمة الموجودة في قاعدة البيانات بهذا الشكل : 25.345,32
في الملف النصي تكون بهذا الشكل : 0000002534532
كبف يكون الكود المتعلق بهذا السطر
وبارك الله فيكم
استخدم دالة تقوم بحدف الفاصلة من العدد 25.345,32 وتحويلها الى 2534532 بشكل string
بعدها استخدم طريقة الاستاد عبد العزيز
tCpt := format('%.13d',[strtoint(Table1.FieldValues['Compte'])]);
ساوافيك بالدالة ان لم تستطع كتابتها فيما بعد
بالتوفيق
(06-02-2016, 10:16 AM)medreg كتب :(05-02-2016, 09:06 PM)bassem_43 كتب :(05-02-2016, 05:21 PM)medreg كتب : بارك الله فيكم وجاري التجريبوفيك بركة اخي
وجمعة مباركة وتقبل الله منا ومنكم صالح الاعمال
وافينا بالنتائج
اظنك تحاول برمجة برنامج اجرة الموظفين بشكل ملف نصي بعدها يحرق على CD ؟؟
فعلا يا احي لدي لرنامج للأجور واود ادراج تحوبل كشف الدفع البريدي الى ملف نصي
وعملت هذه المحاولة لكن لازالت ناقصة من ناحية قبول الملف النصي من طرف البرنامج الذي
سارفعه في قسم برامج من صنع الأعضاء لصاحبه (larbi_paradox)
وهذه هي محاولتي
وسأوافيك بالمحتوى المطلوب بالكامل بعد قليل
وهذا ما يجب ان يحتويه البرنامج المقصود انجازه
[attachment=3149]
وجزاكم الله عنا كل خير


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)