+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : حساب مفتاح ccp (/showthread.php?tid=10812)
الصفحات:
1
2
RE: حساب مفتاح ccp - larbiparadox - 05-05-2020
(05-05-2020, 05:59 PM)sofiane201 كتب : هذا ما اتبعته, لكن النتيجة غير صحيحة.
ضع المحاولة لتصحيحها
RE: حساب مفتاح ccp - sofiane201 - 05-05-2020
(05-05-2020, 07:09 PM)larbiparadox كتب :لا حاجة لذلك, ما فعلته هو استخدام الدالة مع رقم حساب لكن النتيجة لم تطابق المفتاح.(05-05-2020, 05:59 PM)sofiane201 كتب : هذا ما اتبعته, لكن النتيجة غير صحيحة.
ضع المحاولة لتصحيحها
RE: حساب مفتاح ccp - larbiparadox - 05-05-2020
ملاحظة هامة : هذه الدالة تعطي الحساب لشيك القديم ، اما الان فالطريقة تغيرت ، هي نفسها حساب المفتاح لحسابات البنوك ، بالنسبة للبنبك يسمى RIB و للحساب الجاري يسمى RIP و وللخزينة RIT
RIP (Relevé d'Identité Postale) :
RE: حساب مفتاح ccp - onexite - 05-05-2020
(05-05-2020, 08:57 PM)larbiparadox كتب : ملاحظة هامة : هذه الدالة تعطي الحساب لشيك القديم ، اما الان فالطريقة تغيرت ، هي نفسها حساب المفتاح لحسابات البنوك ، بالنسبة للبنبك يسمى RIB و للحساب الجاري يسمى RIP و وللخزينة RITتم ادراج طريقة حساب Rip في المشاركة الاولى
RIP (Relevé d'Identité Postale) :
يمكن اضافة 00799999 بعدها 10 ارقام الخاصة بالحساب وبعدها المفتاح RIP
PHP كود :
function CleCcpRip(Str: string): Word;
begin
result := 97 - ((((StrToInt(Str) mod 97) * 3 mod 97) + 85) mod 97);
end;
RE: حساب مفتاح ccp - larbiparadox - 05-05-2020
(05-05-2020, 09:19 PM)onexite كتب :(05-05-2020, 08:57 PM)larbiparadox كتب : ملاحظة هامة : هذه الدالة تعطي الحساب لشيك القديم ، اما الان فالطريقة تغيرت ، هي نفسها حساب المفتاح لحسابات البنوك ، بالنسبة للبنبك يسمى RIB و للحساب الجاري يسمى RIP و وللخزينة RITتم ادراج طريقة حساب Rip في المشاركة الاولى
RIP (Relevé d'Identité Postale) :
يمكن اضافة 00799999 بعدها 10 ارقام الخاصة بالحساب وبعدها المفتاح RIP
PHP كود :function CleCcpRip(Str: string): Word;
begin
result := 97 - ((((StrToInt(Str) mod 97) * 3 mod 97) + 85) mod 97);
end;
هذه الطريقة تعمل فقط مع RIP ، طريقة اخرى تعمل مع الجميع حتى حسابات البنوك معروفة معتمدة لجميع بنوك العالم اقصد وطنيا 20 رقم
لا تختلف على كثيرا على RIP ، سأضع لاحقا
![[صورة: 814281423.png]](https://www10.0zz0.com/2020/05/06/00/814281423.png)
![[صورة: 233128747.png]](https://www10.0zz0.com/2020/05/06/00/233128747.png)
RE: حساب مفتاح ccp - bouh25 - 06-05-2020
صح رمضانكم و ربي يتقبل الصيام و القيام
الاخ larbiparadox اطلعت على موضوع لك حول تصدير الاجور لملف txt الرجاء اذا كان ممكن اعادة رفعه وشكرا
RE: حساب مفتاح ccp - sofiane201 - 06-05-2020
(05-05-2020, 09:19 PM)onexite كتب : يمكن اضافة 00799999 بعدها 10 ارقام الخاصة بالحساب وبعدها المفتاح RIP
PHP كود :function CleCcpRip(Str: string): Word;
begin
result := 97 - ((((StrToInt(Str) mod 97) * 3 mod 97) + 85) mod 97);
end;
شكرا هذه نجحت معي