توزيع المناوبة على العناصر

[Tarekfathallah]

السلام عليكم بحاجة الى مساعدة عاجلة 

توزيع المناوبة على العناصر كما هو موضح في الجدول 

جدول المناوبة حديث.xlsx

[Tarekfathallah]

صباح الخير برجاء من يستطيع المساعدة ان يتكرم عليي او يدلني على بداية الطريق 

[husamwahab]

عليكم السلام والرحمة

تفضل التعديل ارجو ان يكون طلبك

ملاحظة : الكود يراعي يومي السبت والاحد فقط كعطل رسمية اما بقية العطل فيجب تحديدها وبعد معرفة كفاءة الكود يتم تعديل الكود على اساسها

 

Reorder.rar

[Tarekfathallah]

السلام عليك اخ حسام وهاب رائع سلمت يداك 

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

وشكرا لك يا غالي

[Tarekfathallah]

اخي حسام وهاب مرفق جدول للخدمة 

ما اريده هو كل يوم خدمة عادي 3 عناصر  اثنين في حقل مناوبة دائرة وواحد في حقل احتياط بيروت اما في ايام السبت والاحد والاعياد اريد عنصر في حقل مناوبة دائرة وعنصر في احتياط بيروت 

بشرط في الايام العادية ان يكون المناوبين على جدول الخدمة وليسوا استراحة دورية 

وشرط آخر وهو الاهم العدل والمساواة في ايام السبت والاحد والاعطال 

واذا كان ممكن تعديل اسم مناوب بدل آخر في حال الضرورة ( مرض ) المناوب 

جدول خدمة حديث .xlsx

لو سمحت للمساعدة العاجلة أدامك الله لأنني لا اريد أن أظلم احد في المناوبة 

[husamwahab]

انا بالخدمة استاذ Tarekfathallah

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

 محتاج اعرف الفترة الزمنية للتوزيع 

عدد الوجبات المناوبة واسماء المناوبين لكل وجبة

فترات الدوام والاستراحة لكل وجبة

تحديد العطل الرسمية خلال الفترة الزمنية عدا عطلتي السبت والاحد بطبيعة الحال

[Tarekfathallah]

السلام عليك اخي حسام وهاب تمام هذا ما اريده ومرفق جدول الاكسيل يوضح ما اريده تماما 

الاهم انني لا اريد ظلم شخص بالدوام اكثر من غيره من ناحية الدوام العادي او الاعطال او الاعياد 

[husamwahab]

عليكم السلام استاذي العزيز

عدد الوجبات المناوبة واسماء المناوبين لكل وجبة 

فترات الدوام والاستراحة لكل وجبة

غير واضحة 

[د.كاف يار]

في ١٧‏/٤‏/٢٠٢١ at 18:13, husamwahab said:

عليكم السلام والرحمة

تفضل التعديل ارجو ان يكون طلبك

ملاحظة : الكود يراعي يومي السبت والاحد فقط كعطل رسمية اما بقية العطل فيجب تحديدها وبعد معرفة كفاءة الكود يتم تعديل الكود على اساسها

 

Reorder.rar 59.25 kB · 10 downloads

انت لست خبير فقط بل استاذ و رئيس قسم

ماشاء الله تبارك الرحمن شغل احترافي الى أبعد الحدود

[Tarekfathallah]

السلام عليك اخ حسام وهاب وعذرا للتأخير 

طلبي موجود في ورقة الاكسيل وقد شرحت ما أريد اذا كان باستطاعتك مساعدتي اكون شاكرا لك 

الشيت جدول جديد 

جدول المناوبة حديث.xlsx

[Tarekfathallah]

لقد حاولت ان اجرب تجربة فوصلت الى هذه النتيجة

New Microsoft Access Database.accdb

[husamwahab]

استاذي العزيز د.كاف يار

شهادة اعتز بها رغم اني اقل من ذلك بكثير وما انا سوى تلميذ بمدرستكم 

 

استاذي العزيز Tarekfathallah 

انا بخدمتك  

[wael_rafat]

استاذنا الجميل @husamwahab  مثال رائع استاذنا

ولو امكن شرح الكود حتى استطيع تطبيق الفكرة على امور اخرى على سبيل المثال ( اختيار عدد العناصر - اختيار فئات معينة من العناصر - التغاطي عن ايام العطل ...... الخ

كل الشكر والتقدير استاذنا الغالي ...

[husamwahab]

استاذي العزيز wael_rafat 

شكرا لك وانا بالخدمة والشرح سيكون اختيار ثلاثة عناصر لكل يوم عدا يومي السبت والاحد فيتم اختيار عنصرين

Num = 1

بما انه عدد الايام اكبر بكثر من عدد العناصر لذا نضع عداد لمعرفة عدد العناصر التي تم اختيارها ونخبر الكود بالعودة للعنصر الاول عند انتهاء عدد العناصر والذي سيتبين لاحقا

For j = 1 To XCount2

هذا عداد لعدد الايام 

If Weekday(Rs2!XDate, 7) > 2 Then
    k = 3
  Else
    k = 2
  End If

هذا الكود لاختبار اليوم هل هو عطلة ام لا اذا كان عطلة يختار عنصرين واذا لا يختار ثلاثة

فالكود اعلاه يعيد اليوم الى رقم فاذا كان واحد فاليوم هو السبت واذا اثنين فاليوم هو الاحد وهكذا

For i = 1 To k
    Rs2.Edit
    Rs2(i) = Rs!XNo
    Rs2.Update

هذا الكود خاص باختيار  العناصر لكل يوم والتي تم تحديد عددها سابقا   

Num = Num + 1
    If Num > XCount Then
      Rs.MoveFirst
      Num = 1
    Else
      Rs.MoveNext
    End If

هذا الكود هو الذي سيختبر هل تم شمول جميع العناصر والعودة للعنصر الاول من جديد ام لا 

فالسطر الاول يزيد واحد في كل مرة يتم اختيار عنصر ويجري الاختبار هل تم الوصول لاخر عنصر اما لا 

اذا لا سيستمر العداد ويختار العنصر التالي واذا نعم سيختار العنصر الاول ويعيد العداد الى حالته الاولى ليستمر العد من جديد

وتستمر العملية لحين انتهاء عدد الايام او الفترة الزمنية المطلوبة

 

بالنسبة لتحديد عدد العناصر من مجموعة معينة او تحديد ايام عطل غير يومي السبت والاحد 

الافضل وضع مربع اختيار لاختيار العناصر والعطل  كما هو الحال في المرفق الاخير لاستاذ Tarekfathallah

 

وعذرا للتقصير والاطالة

[Tarekfathallah]

السلام عليك اخي حسام ممكن تطبقلي اياه على القاعدة الاخيرة يلي ارسلتها لك بحيث اريد كل يوم عمل عنصرين مناوبة في الدائرة والسبت والاحد والاعياد عنصر واحد فقط 

وهل ممكن في الحالات الطارئة اضافة عنصر ثالث للمناوبة 

واكون ممنون لك وشاكر فضلك اخي 

وسؤال هل ستتاثر البيانات اذا تم اي تعديل في عدد المناوبين 

اي بمعنى آخر هل سيتغير ترتيب الخدمة المناوبة على ما سبق اذا زدت المناوبين 

ما اريده هو قاعدة بيانات ثابته التغيير يكون على الايام المقبلة فقط وليس على الايام السابقة 

وكيف يمكنني استخراج تقرير لمدة اسبوع كما في المرفق الاسبق الاكسيل 

شاكرا فضلك اطلت عليك 

[husamwahab]

عليكم السلام والرحمة

انا بالخدمة استاذي العزيز

تفضل هذا التعديل 

ملاحظة : التعديل يراعي العطل  واجازات المناوبين لكن لا يراعي اضافة عنصر او حذفه

هي ممكنة لكتها اكثر تعقيد وان شاء  الله ساحاول بها وساخبرك اذا وصلت لنتيجة

وعذرا للتقصير

Reorder2.rar

[Tarekfathallah]

اخي العزيز حسام وهاب ادامك الله تمام و أضفت بع اذنك خانة في الفورم لتحديد نوع العطلة 

اريد تعديل من بعد اذنك في جدول tblName  في حقل ShiftOK عندما يكون TRUE   يكون خاضع لخدمة الدوام وعندما يكون FALSE  لا يكون خاضع للدوام يعني مستثنى من الدوام 

وطلب آخر في نفس الجدول يوجد الرقمين  49 و 50   يعملون في الشيفت 3 خدمتهم 3 ايام خدمة 3 ايام استراحة مهما كان يوجد اعطال او اعياد 

وهل يمكنني في حال حصل لأحد منهم مرض ان احضر كل يوم بديلا عنه من العناصر التي تعمل بشرط ان يكون خدمة 

لو سمحت سأرفق لك الملف بعد ما ادخلت المعلومات عليه

وهل يمكنني اسخراج تقرير مثل المرفق في الاكسيل 

Reorder3.rar

جدول المناوبة حديث.xlsx

تم تعديل أبريل 20, 2021 بواسطه Tarekfathallah
اضافة جدول اكسيل

[husamwahab]

تفضل التعديل استاذي العزيز

ملاحظة : الكود طويل جدا لكن  يفي بالغرض وان شاء الله ساحاول اختصاره ان امكن

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

ReorderOk.rar

[Tarekfathallah]

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

[Tarekfathallah]

اخ حسام تسلم ايديك عمل رائع ايديك بتتلف بحرير 

لو سمحت تشرحلي ما هو عمل الجدول tbloff بالتفصيل وكيفية عدم تكرار الاسم مناوب في الاعطال والاعياد وكيفية حفظه كما هو اما التعديلات تتم على المرحلة التالية

[Tarekfathallah]

اخي  حسام معلش اتعبتك معي ممكن انا اضع يدويا الاسمين في الشيفت الثالث اي جمييل نعيم وجمال بمعدل ٣ خدمة ٣ استراحة او حسب طبيعة العملواذا كان الحقل فارغ يحضر شخص من الذين على الخدمة مكانه يعني انا احدد الاسمين جميل وجمال وطبيعة عملهم واذا لم احدد يجلب لي اسم من الذين عندهم خدمة 

وشكرا لك 

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

[husamwahab]

3 hours ago, Tarekfathallah said:

لو سمحت تشرحلي ما هو عمل الجدول tbloff

جدول ايجازات العناصر او اعفاء العنصر من المناوبة لسبب من الاسباب 

نكتب تاريخ الاعفاء من المناوبة ورقم الموظف

ملاحظة : الاعفاء هنا مؤقت وليس دائمي كما في جدول الاسماء

 

2 hours ago, Tarekfathallah said:

انا احدد الاسمين جميل وجمال وطبيعة عملهم واذا لم احدد يجلب لي اسم من الذين عندهم خدمة

بالنسبة للوجبة الثالثة (جميل وجمال) التحديد وعدم التحديد لا يغير شي لانه تم تحديد هذين العنصرين للوجبة الثالثة

واذا اردت اعفاء احدهم مؤقتا لسبب ما فيتم التعامل معهم كبقية العناصر اي يتم كتابة تاريخ الاعفاء ورقم الموظف في جدول الاجازات

 

3 hours ago, Tarekfathallah said:

وكيفية عدم تكرار الاسم مناوب في الاعطال والاعياد

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

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

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

وعذرا للتقصير والاطالة 

[Tarekfathallah]

السلام عليك اخي حسام اتعبتك معي 

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

 

واذا استطعت بطريقة عدم تكرا اسم المناوب في الاعطال والاعياد اريده ان يقسم على العناصر المناوبة بالتساوي لكي لا اظلم شخص ان يكون مناوب لعدة مرات في الاعياد والاعطال دون سواه 

لو سمحت وسامحني مجددا لأنني اتعبتك 

ولو سمحت الطريقة التي سأقوم بحفظ البيانات فيها بحيث انني لو طلب جدول من شهرين او اكثر استطيع طباعته دون التعديلات التي ممكن قد تكون طرأت على الاحداث القادمة 

أي اذا مناوب كنت قد وضعته على الجدول وناوب ثم بعد فترة اسبوع اعطيته اعفاء لمدة شهر من المناوبة كيف يمكنني ان استخرج هذه البيانات 

وطريقة طباعة الجدول كما مبين في الاكسيل المرفق 

ReorderOk.rar

[Tarekfathallah]

السلام عليك اخ حسام وهاب وآسف للازعاج ممكن تكمل مساعدتك لي لو سمحت وتطبق لي التعديلات 

بانتظار ردك وشكرا جزيلا لك

[Tarekfathallah]

استاذ حسام اسعد الله صباحك لا زلت بانتظار مساعدنك العاجلة للضرورة وشكرا لك