10:52 AM |الساعة الآن   
 
العودة ملتقى الموظف الجزائرى  :: 

منتدى التكنولوجيا والاعلام الالى

 :: 

برامج من صنع الاعضاء






أهلا وسهلا بك إلى ملتقى الموظف الجزائرى.
أهلا وسهلا بك زائرنا الكريم، إذا كانت هذه زيارتك الأولى للمنتدى، فيرجى التكرم بزيارة صفحة التعليمـــات، بالضغط هنا.كما يشرفنا أن تقوم بالتسجيل بالضغط هنا إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.

الرئيسيةالمنشوراتالبوابةبحـثس .و .جدخولالتسجيل
اعلان هام للمسجلين الجدد :بمجرد التسجيل يتم إرسال كود التفعيل إلى حسابك .. أي الإيميل الذي وضعته عند التسجيل بالمنتدى ... إذهب إلى علبة البريد فإذا لم تجده في الرسائل الواردة حاول أن تبحث عنه في صندوق بريد الغير مرغوب فيه SPAM



طلب كيفية تحويل من RIP إلى CCP


شاطر
 #1  
الإثنين 02 فبراير 2015, 11:11
avatar
 
 
 
ذكر
الاقامة : algerien
المشاركات : 15
نقاط : 23
تاريخ التسجيل : 03/09/2010
العمل : administrative
افتراضيطلب كيفية تحويل من RIP إلى CCP

السلام عليكم ورحمت الله وبركاته 
أطلب من اخواني شرح لي كيفية تحويل مفتاح RIP غلى CCP 
مثال :
RIP 4178451 مفتاح 54  


 #2  
الإثنين 02 فبراير 2015, 14:54
avatar
 
 
 
ذكر
الاقامة : الجزائر
المشاركات : 147
نقاط : 147
تاريخ التسجيل : 01/03/2013
العمل : قطاع خاص
افتراضيرد: طلب كيفية تحويل من RIP إلى CCP

إتصل ببريد الجزائر تجد الإجابة



 #3  
الإثنين 02 فبراير 2015, 21:57
avatar
 
 
 
ذكر
الاقامة : المسيلة
المشاركات : 184
نقاط : 263
تاريخ التسجيل : 15/02/2011
العمل : الخدمات الجامعية
افتراضيرد: طلب كيفية تحويل من RIP إلى CCP

ابعثلي الايميل ارسلك برنامج يعطيك حساب rip و ؤ cle


 #4  
الثلاثاء 03 فبراير 2015, 09:07
avatar
 
 
 
ذكر
الاقامة : الجلفة
المشاركات : 290
نقاط : 319
تاريخ التسجيل : 26/04/2011
العمل : موظف
افتراضيرد: طلب كيفية تحويل من RIP إلى CCP

هذا برنامج مقطعي  في الاكسل vb يحسب مفتاحccp و مفتاح rip بدلالة رقم الحساب:
Public Function cle_ccp(y)
x = y + 10000000000#
 a13 = 13 * Mid(x, 2, 1)
 a12 = 12 * Mid(x, 3, 1)
 a11 = 11 * Mid(x, 4, 1)
 a10 = 10 * Mid(x, 5, 1)
 a9 = 9 * Mid(x, 6, 1)
 a8 = 8 * Mid(x, 7, 1)
 a7 = 7 * Mid(x, 8, 1)
 a6 = 6 * Mid(x, 9, 1)
 a5 = 5 * Mid(x, 10, 1)
 a4 = 4 * Mid(x, 11, 1)
b = a13 + a12 + a11 + a10 + a9 + a8 + a7 + a6 + a5 + a4
 
c = b Mod 100
 
If c < 10 Then k = "0" & c Else k = c
cle_ccp = k


End Function
Public Function rip_ccp(y)
x1 = y * 100#
 x = x1 Mod 97
' MOD CCP MOD 99999000000000000= 85=w

 w = 85
 If (x + w) > 97 Then c = (x + w) - 97 Else c = (x + w)

 d = 97 - c
 If d < 10 Then k = "0" & d Else k = d

rip_ccp = k



End Function


 #5  
الجمعة 06 فبراير 2015, 11:34
avatar
 
 
 
ذكر
الاقامة : algerie
المشاركات : 386
نقاط : 441
تاريخ التسجيل : 08/09/2010
العمل : موظف
المزاج المزاج : non fumeur
افتراضيرد: طلب كيفية تحويل من RIP إلى CCP

ما فهمنا والوا ياجماعة


 #6  
السبت 07 فبراير 2015, 22:48
avatar
 
 
 
ذكر
الاقامة : algerie
المشاركات : 602
نقاط : 891
تاريخ التسجيل : 18/08/2010
العمر : 45
العمل : Gestion de paie
المزاج المزاج : Algerien
افتراضيرد: طلب كيفية تحويل من RIP إلى CCP

merci pour le vba GLAZHARI
CE FICHIER EXCEL COMME EXEMPLE
FICHIER EXCEL


 #7  
الأربعاء 18 فبراير 2015, 09:36
avatar
 
 
 
ذكر
الاقامة : algerien
المشاركات : 15
نقاط : 23
تاريخ التسجيل : 03/09/2010
العمل : administrative
افتراضيرد: طلب كيفية تحويل من RIP إلى CCP

شكر على الإفادة ياجماعة بارك الله فيكم


 #8  
الأربعاء 18 فبراير 2015, 09:42
avatar
 
 
 
ذكر
الاقامة : algerien
المشاركات : 15
نقاط : 23
تاريخ التسجيل : 03/09/2010
العمل : administrative
افتراضيرد: طلب كيفية تحويل من RIP إلى CCP

أخي  [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] أريد شرح مفصل وإن امكن بالصور كيفية وضع هذه الدالة مشكور 


 #9  
الأربعاء 18 فبراير 2015, 09:45
avatar
 
 
 
ذكر
الاقامة : algerien
المشاركات : 15
نقاط : 23
تاريخ التسجيل : 03/09/2010
العمل : administrative
افتراضيرد: طلب كيفية تحويل من RIP إلى CCP

الملف classeur محمي برقم سري إن أمكن الرقم من فضلك


 #10  
الأربعاء 18 فبراير 2015, 20:50
avatar
 
 
 
ذكر
الاقامة : algerie
المشاركات : 602
نقاط : 891
تاريخ التسجيل : 18/08/2010
العمر : 45
العمل : Gestion de paie
المزاج المزاج : Algerien
افتراضيرد: طلب كيفية تحويل من RIP إلى CCP

salam
regarder [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



 #11  
الأربعاء 18 فبراير 2015, 21:33
avatar
مشرف منتدى الأجور و التعويضات
مشرف منتدى الأجور و التعويضات
 
ذكر
الاقامة : Batna
المشاركات : 2643
نقاط : 3194
تاريخ التسجيل : 01/02/2012
العمل : Agent de Bureau Administratif Territorial
المزاج المزاج : الحمد لله على كل شيء
افتراضيرد: طلب كيفية تحويل من RIP إلى CCP

بارك الله فيكم جميعا


 #12  
الأربعاء 04 مارس 2015, 11:44
avatar
 
 
 
ذكر
الاقامة : algerien
المشاركات : 15
نقاط : 23
تاريخ التسجيل : 03/09/2010
العمل : administrative
افتراضيرد: طلب كيفية تحويل من RIP إلى CCP

ألف شكر الاخوة الافاضل


 #13  
الجمعة 20 مارس 2015, 14:11
avatar
 
 
 
ذكر
الاقامة : ورقلة
المشاركات : 77
نقاط : 97
تاريخ التسجيل : 14/04/2011
العمر : 54
العمل : متصرف بلدي
افتراضيرد: طلب كيفية تحويل من RIP إلى CCP

بارك الله فيك يا أخ glazhari

إجابة الأخ glazhari كانت بلغة البرمجة سأحاول أن أترجمها لكم
باللغة التي يفهمها الجميع أي العربية.



1- الحساب الجاري بدون مفتاح × 100
2- نقسم ناتج العملية رقم (1) على 97 و نحتفض بالباقي
3- نظيف العدد 85 إلى الباقي الناتج عن العملية رقم (2) 
   ثم ننظر إذا كان الناتج أقل من 97 نحتفض به أما إذا كان أكثر 
   من 97 فننقص منه العدد 97 و نحتفض بالباقي
4- نأخذ العدد 97 و ننقص منه ناتج العملية رقم (3) و الناتج هو رقم RIP 

ملاحظة : إذا كان الناتج النهائي أقل من 10 فنضيف له (0) على اليسار.


مثلا:

1) 4178451 × 100 = 417845100
2) (417845100/97) = 4307681 و الباقي 43
3) 58 + 43 = 101 و بما أنه أكثر من 97 فننقص منه 97 يبقى 4
4) 97 - 4 = 93 و هو رقم (RIP)

بالتوفيق للجميع


 #14  
الإثنين 23 مارس 2015, 22:55
avatar
 
 
 
ذكر
الاقامة : المسيلة
المشاركات : 184
نقاط : 263
تاريخ التسجيل : 15/02/2011
العمل : الخدمات الجامعية
افتراضيرد: طلب كيفية تحويل من RIP إلى CCP

لي برنامج بدلفي مع كود سورس يحسب cle و rip و لكنى لا استطيع تحميله على المنتدى ارجو من اي عضو ان يرسل لي الايميل لارسل له البرنامج






 
الإشارات المرجعية


  
وما من كاتب إلا سيفنى . ويبقي الدهر ما كتبت يداه



تعليمات المشاركة
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى

BB code is متاحة
كود [IMG] متاحة
كود HTML متاحة