delphi4arab منتديات دلفي للعرب - حساب الاجر القاعدي في الوظيف

تحية طيبة وبعد

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

لكل عمل يوجد صنف مثلا :

مهندس دولة 13
تقني سامي 10

وتوجد درجة وهي تكتسب بسنوات الخبرة / كل 3 سنوات بدرجة تقريبا في حدود 12 درجة

لكل عمل نقطة استدلالية
لكل درجة نقطة استدلاية مقابلة وهي متعلقة بالصنف ولتمثيل هذه النقط يجب جدول

لو نريد حساب النقطة لمهندس دولة نعلم انه مصنف في 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; 

السلام عليكم ورحمة الله
بوركت اخي onexite ربمنا نجرب ونعاودك Smile

(04-05-2020, 08:20 PM)mobile كتب : [ -> ]السلام عليكم ورحمة الله
بوركت اخي onexite ربمنا نجرب ونعاودك

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

الدالة

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 )    ); 

النتيجة

بارك الله فيك لماذا لا يكون برنامج جماعي للإجور

(05-05-2020, 04:23 PM)ALG2009 كتب : [ -> ]بارك الله فيك لماذا لا يكون برنامج جماعي للإجور

الامر بسيط اضف بعض المنح وهي نسب مؤوية من الاجر القاغدي
واحسب المنح العائلية وهي متعلقة بالحالة العائلية
وعند الانتهاء تطبق الاقتطاعات
------------------------------------------------------------

(05-05-2020, 09:37 PM)onexite كتب : [ -> ]الامر بسيط اضف بعض المنح وهي نسب مؤوية من الاجر القاغدي
واحسب المنح العائلية وهي متعلقة بالحالة العائلية
وعند الانتهاء تطبق الاقتطاعات
------------------------------------------------------------

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

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

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

لحساب المخلفات نحسب الفرق بين (الاجر بالدرجة القديمة وبعدها بالدرجة الحالية) و نضربه في عدد الاشهر

بارك الله فيك وتقبل الله صيامكم