تحية طيبة وبعد
حساب الرواتب في الوظيف الهمومي يعتمد على الاجر القاعدي وهو الاساس لحساب المنح والخبرة المهنية
لكل عمل يوجد صنف مثلا :
![[صورة: attachment.php?aid=4241]](https://delphi4arab.net/forum/attachment.php?aid=4241)
لو نريد حساب النقطة لمهندس دولة نعلم انه مصنف في 13 اذن النقطة الستدلالية 578 ولديه خبرة مثلا درجة 4 وتساوي النقطة الاستدلالية 116
ولحساب الاجر القاعدي = 578 * 45 دج = 26010 دج
والخبرة المهنية = 116 * 45 دج = 5220 دج
والناتج الاجر الاساسي = 26010 + 5220 = 31230 دج
ولحساب الاجر القاعدي نستخرج النقطة ونضربها في 45 دج
والناتج base اجر قاعدي
iep خبرة مهنية
حساب الرواتب في الوظيف الهمومي يعتمد على الاجر القاعدي وهو الاساس لحساب المنح والخبرة المهنية
لكل عمل يوجد صنف مثلا :
- مهندس دولة 13
- تقني سامي 10
- لكل عمل نقطة استدلالية
- لكل درجة نقطة استدلاية مقابلة وهي متعلقة بالصنف ولتمثيل هذه النقط يجب جدول
لو نريد حساب النقطة لمهندس دولة نعلم انه مصنف في 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;


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