حساب الاجر القاعدي في الوظيف
#1
تحية طيبة وبعد

حساب الرواتب في الوظيف الهمومي يعتمد على الاجر القاعدي وهو الاساس لحساب المنح والخبرة المهنية

لكل عمل يوجد صنف مثلا :
  • مهندس دولة 13
  • تقني سامي 10
وتوجد درجة وهي تكتسب بسنوات الخبرة / كل 3 سنوات بدرجة تقريبا في حدود 12 درجة
  • لكل عمل نقطة استدلالية
  •  لكل درجة نقطة استدلاية مقابلة وهي متعلقة بالصنف ولتمثيل هذه النقط يجب جدول

[صورة: attachment.php?aid=4241]
لو نريد حساب النقطة لمهندس دولة نعلم انه مصنف في 13 اذن النقطة الستدلالية 578 ولديه خبرة مثلا درجة 4 وتساوي النقطة الاستدلالية 116
ولحساب الاجر القاعدي = 578 * 45 دج = 26010 دج
والخبرة المهنية = 116 * 45 دج = 5220 دج
والناتج الاجر الاساسي = 26010 + 5220 = 31230 دج



PHP كود :
const
  gri_new : array[1..10, 1..15] of Word =
  (
    ( 0,  0, 0,  1,  2,  3,  4,  5,  6,  7 ,  8,  9,  10 ,  11 ,  12),
    ( 7, 348, 0, 17, 35,  52,  70,  87, 104, 122, 139, 157, 174 , 191 , 209 ),
    (10, 453, 0, 23, 45,  68,  91, 113, 136, 159, 181, 204, 227 , 249 , 272 ),
    (11, 498, 0, 25, 50,  75, 100, 125, 149, 174, 199, 224, 249 , 274 , 299 ),
    (12, 537, 0, 27, 54,  81, 109, 134, 161, 188, 215, 242, 269 , 295 , 322 ),
    (13, 578, 0, 29, 58,  87, 116, 145, 173, 202, 231, 260, 289 , 318 , 347 ),
    (14, 621, 0, 31, 62,  93, 124, 155, 186, 217, 248, 279, 311 , 342 , 373 ),
    (15, 666, 0, 33, 67, 100, 133, 167, 200, 233, 266, 300, 333 , 366 , 400 ),
    (16, 713, 0, 36, 71, 107, 143, 178, 214, 220, 285, 321, 357 , 392 , 428 ),
    (17, 762, 0, 38, 76, 114, 152, 191, 229, 267, 305 ,343, 381 , 419 , 457 )
  ); 


ولحساب الاجر القاعدي نستخرج النقطة ونضربها في 45 دج

والناتج base اجر قاعدي

iep خبرة مهنية





PHP كود :
var i,_ech,_catg:Word;
_base, _iep,:Single;
begin

_ech
:=StrToInt(edt1.Text);
_catg:=StrToInt(edt2.Text);


for 
I := 1 to 10 do
  if _catg=gri_new[i,1] then
  begin
  _base
:=(gri_new[i,2]*45);
  _iep:=(gri_new[i,_ech+3]*45);
  Break;
  end; 


الملفات المرفقة
.jpg   الخبرة المهنية.jpg (الحجم : 79.91 ك ب / التحميلات : 187)
[-] كل من 4 users say قال شكرا ل onexite على المشاركة المفيدة
  • mobile, taha moh, larbiparadox, العيد1403
الرد
#2
السلام عليكم ورحمة الله
بوركت اخي onexite ربمنا نجرب ونعاودك Smile
لأستهلنّ الصعب أو أدرك المنى    فما انقادت الآمال إلاّ لصابر
الرد
#3
(04-05-2020, 08:20 PM)mobile كتب : السلام عليكم ورحمة الله
بوركت اخي onexite ربمنا نجرب ونعاودك Smile
هو اساس حساب الرواتب ، بقية المنح تعتمد على الاجر القاعدي
الرد
#4
الدالة

PHP كود :
function Salaire_base(const _ech,_catg:string ): integer;

var 
i:Word;
_base, _iep:integer;

const
  gri_new : array[1..10, 1..15] of Word =
  (
    ( 0,  0, 0,  1,  2,  3,  4,  5,  6,  7 ,  8,  9,  10 ,  11 ,  12),
    ( 7, 348, 0, 17, 35,  52,  70,  87, 104, 122, 139, 157, 174 , 191 , 209 ),
    (10, 453, 0, 23, 45,  68,  91, 113, 136, 159, 181, 204, 227 , 249 , 272 ),
    (11, 498, 0, 25, 50,  75, 100, 125, 149, 174, 199, 224, 249 , 274 , 299 ),
    (12, 537, 0, 27, 54,  81, 109, 134, 161, 188, 215, 242, 269 , 295 , 322 ),
    (13, 578, 0, 29, 58,  87, 116, 145, 173, 202, 231, 260, 289 , 318 , 347 ),
    (14, 621, 0, 31, 62,  93, 124, 155, 186, 217, 248, 279, 311 , 342 , 373 ),
    (15, 666, 0, 33, 67, 100, 133, 167, 200, 233, 266, 300, 333 , 366 , 400 ),
    (16, 713, 0, 36, 71, 107, 143, 178, 214, 220, 285, 321, 357 , 392 , 428 ),
    (17, 762, 0, 38, 76, 114, 152, 191, 229, 267, 305 ,343, 381 , 419 , 457 )
  );

begin


for I := 1 to 10 do begin

  
if _catg=IntToStr(gri_new[i,1]) then
  begin
  _base
:=(gri_new[i,2]*45);

  _iep:=(gri_new[i, StrToInt(_ech)   +3]*45);

Result :=  _base + _iep;

  Break;
  end;

end;

end; 

إستدعاء

PHP كود :
edit3.Text := FormatFloat('#,##0.00', Salaire_base(edit1.Text,edit2.Text )    ); 

النتيجة

[صورة: 556887155.png]


الملفات المرفقة
.rar   Calcul Salaire de base.rar (الحجم : 169.71 ك ب / التحميلات : 122)
[-] كل من 3 users say قال شكرا ل larbiparadox على المشاركة المفيدة
  • onexite, العيد1403, mha3
الرد
#5
بارك الله فيك لماذا لا يكون برنامج جماعي للإجور
[-] كل من 1 user says قال شكرا ل ALG2009 على المشاركة المفيدة
  • onexite
الرد
#6
(05-05-2020, 04:23 PM)ALG2009 كتب : بارك الله فيك لماذا لا يكون برنامج جماعي للإجور
الامر بسيط اضف بعض المنح وهي نسب مؤوية من الاجر القاغدي
واحسب المنح العائلية وهي متعلقة بالحالة العائلية
وعند الانتهاء تطبق الاقتطاعات
------------------------------------------------------------
[-] كل من 1 user says قال شكرا ل onexite على المشاركة المفيدة
  • ALG2009
الرد
#7
(05-05-2020, 09:37 PM)onexite كتب : الامر بسيط اضف بعض المنح وهي نسب مؤوية من الاجر القاغدي
واحسب المنح العائلية وهي متعلقة بالحالة العائلية
وعند الانتهاء تطبق الاقتطاعات
------------------------------------------------------------

أعرف أنه برنامج  سهل البرمجة ولكن المشكل في كيفية حساب المخلفات (مخلفات الدرجة مثلا) كيف يتم ذلك هل هناك كود
الرد
#8
(06-05-2020, 12:38 PM)ALG2009 كتب :
(05-05-2020, 09:37 PM)onexite كتب : الامر بسيط اضف بعض المنح وهي نسب مؤوية من الاجر القاغدي
واحسب المنح العائلية وهي متعلقة بالحالة العائلية
وعند الانتهاء تطبق الاقتطاعات
------------------------------------------------------------

أعرف أنه برنامج  سهل البرمجة ولكن المشكل في كيفية حساب المخلفات (مخلفات الدرجة مثلا) كيف يتم ذلك هل هناك كود
لحساب المخلفات نحسب الفرق بين (الاجر بالدرجة القديمة وبعدها بالدرجة الحالية) و نضربه في عدد الاشهر
الرد
#9
بارك الله فيك وتقبل الله صيامكم
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم