زيادة مبلغ إيقاف الخصم الشهري الى مبلغ القرض

[كريمو2]

السلام عليكم

شكرا لك أخي على التعب من أجل المساعدة

رجاءا أخي جعفر إتباع المرفقات بالتدقيق حتى يتسنى لك معرفة الباقي Remaining

الملف

11.6.FrmDiscountReport.rar

صورة للإستعلام ومشكلته

ملف أكسل

إقتطاع.rar

 

 

[كريمو2]

تم فتح موضوع جديد

http://www.officena.net/ib/index.php?showtopic=61639

[jjafferr]

وعليكم السلام 

 

تفضل 

 

المجاميع تعتمد على الشهر المختار في FrmDiscountReport ، فعلى اساسه تظهر النتائج ،

لذا تأكد بأنك تضغط على زر سداد الاقتطاع لك شهر على حدة.

 

هناك الان استعلامان ، qry_Loans_Step1 ، والذي قد تستفيد منه انت لاحقا ، لأنه لكل قرض بصفة مستقلة ،

والاستعلام المهم هو qry_Loans_Step2 والذي يأخذ نتائجه من الاستعلام الاول qry_Loans_Step1.

 

هذا مجرد استعلام يعطي النتائج الصحيحة ، لذا لا تهتم بالحقول الزيادة التي به ،

حيث انك عندما تعمل التقرير ، فضع فيه بصمتك النهائية 

 

واعتقد اننا بهذا الملف المرفق قد اقفلنا الموضوع ، اي موضوع Remaining ، بحلته الجديدة 

 

 

جعفر

11.6.FrmDiscountReport.mdb.zip

تم تعديل مايو 26, 2015 بواسطه jjafferr

[كريمو2]

شكرا والف شكرا استاذي وأخي العزيز جعفر

فعلا هو المطلوب

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

لي طلبين :

الطلب الأول : بخصوص الزر "سدد مبالغ شهر الاقتطاعات " رأيته يعمل كل شهر وليس بكبسة واحدة يقوم بالتوزيع , هذا خوفي منه ربما انساه الا يمكن ان نضعه أول مايفتتح به النموذج "FrmDiscountReport" حتى يتم تذكيري به دوما وابدا او ضف لهذه الدالة لكل تقوم بالتوزيع مرة واحدة دون اللجوء الى "سدد مبالغ شهر الاقتطاعات "

Private Sub cmd_make_Payment_Click()
On Error Resume Next

    DoCmd.OpenForm "frm_Loans", , , "[Loan_ID] = " & Me.FrmCridi_sub.Form.ID & " And [Loan_Type]='Cridi'"
End Sub

الطلب الثاني : في الإستعلام "qry_Loans_Step2" كيف لي ان اجعل المربعات الحسابية التي ليست بها مبالغ تساوي 0.00 عندما لاتكون بها مبالغ مالية .

ملاحظة : الإقتطاع الشهري في الإستعلام : Cridi1 و Elec1 ام Cridi_Payments1 و Elec_Payments1

لأني صراحة وجدت المبالغ مثماثلة خلال كل شهر

واخير تقبل تحياتي القلبية الخالصة

[jjafferr]

حياك الله 

 

1.

انت قلت:

 

ملاحظة  : Other  لا يحسب مع الباقي للمبالغ المدفوعة ابدا

 

 

 

وعليه ، تم إلغائه من tbl_Loans ، والان تقول:

 

 

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

 

 

 

لا تنسى ان الطريقة الجديدة هي توثيق كل اقتطاع/دفع في الجدول tbl_Loans ، والطريقة تعطينا مرونة وتوثيق تام لكل دفعة ولكل شهر ، وكل ما علينا عمله لاحقا ، ان نعمل استعلام للشئ الذي نريده ، وعليه نحصل على النتائج.

 

اذا اردت اخيرا ان تضيف Loan_Other مرة ثانية في الجدول tbl_Loans ، فاقترح ان تجعل الزر "سدد مبالغ الاقتطاعات" يقوم بادخال هذه المبالغ ايضا ، فقط عندما يكون للأشهر التي تريد (مارس و؟ ) ، وإدخال المبلغ.

 

 

2.

 الطلب الأول : بخصوص الزر "سدد مبالغ شهر الاقتطاعات " رأيته يعمل كل شهر وليس بكبسة واحدة يقوم بالتوزيع

 

 

 

أعتقد ان الافضل ان تجعله على حدث تحميل النموذج FrmDiscountReport ،

 

 

3.

الطلب الثاني : في الإستعلام "qry_Loans_Step2" كيف لي ان اجعل المربعات الحسابية التي ليست بها مبالغ تساوي 0.00 عندما لاتكون بها مبالغ مالية

 

 

 

 

بإستخدام الدالة NZ مثلا.

 

 

4.

ملاحظة : الإقتطاع الشهري في الإستعلام : Cridi1 و Elec1 ام Cridi_Payments1 و Elec_Payments1

لأني صراحة وجدت المبالغ مثماثلة خلال كل شهر

 

 

 

انت في سؤالك السابق طلبت حذف Cridi و Elec من الاستعلام ، فهما قيمة كل قرض شهري ، والذي يدخله البرنامج من النماذج الفرعية لـ  Cridi و Elec ،

اما الاقتطاع/الدفع فهو Payments ،

والسبب ان الرقمين متماثلين ، لأنك تدفع نفس مبلغ القرض الشهري ،

ولكنك اذا دفعت مبلغ أكبر للقرض لذلك الشهر ، فسترى الفرق 

 

 

جعفر

[jjafferr]

حياك الله 

 

1.

انت قلت:

 

ملاحظة  : Other  لا يحسب مع الباقي للمبالغ المدفوعة ابدا

 

 

 

وعليه ، تم إلغائه من tbl_Loans ، والان تقول:

 

 

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

 

 

 

لا تنسى ان الطريقة الجديدة هي توثيق كل اقتطاع/دفع في الجدول tbl_Loans ، والطريقة تعطينا مرونة وتوثيق تام لكل دفعة ولكل شهر ، وكل ما علينا عمله لاحقا ، ان نعمل استعلام للشئ الذي نريده ، وعليه نحصل على النتائج.

 

اذا اردت اخيرا ان تضيف Loan_Other مرة ثانية في الجدول tbl_Loans ، فاقترح ان تجعل الزر "سدد مبالغ الاقتطاعات" يقوم بادخال هذه المبالغ ايضا ، فقط عندما يكون للأشهر التي تريد (مارس و؟ ) ، وإدخال المبلغ.

 

 

 

 

كيف التعامل مع هذه الدفعات؟

لمن؟

كم؟

وتفاصيل اخرى!!

 

 

جعفر

[كريمو2]

حياك الله 

1.

انت قلت:

ملاحظة  : Other  لا يحسب مع الباقي للمبالغ المدفوعة ابدا

 

وعليه ، تم إلغائه من tbl_Loans ، والان تقول:

 

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

 

لا تنسى ان الطريقة الجديدة هي توثيق كل اقتطاع/دفع في الجدول tbl_Loans ، والطريقة تعطينا مرونة وتوثيق تام لكل دفعة ولكل شهر ، وكل ما علينا عمله لاحقا ، ان نعمل استعلام للشئ الذي نريده ، وعليه نحصل على النتائج.

اذا اردت اخيرا ان تضيف Loan_Other مرة ثانية في الجدول tbl_Loans ، فاقترح ان تجعل الزر "سدد مبالغ الاقتطاعات" يقوم بادخال هذه المبالغ ايضا ، فقط عندما يكون للأشهر التي تريد (مارس و؟ ) ، وإدخال المبلغ.

 

كيف التعامل مع هذه الدفعات؟

لمن؟

كم؟

وتفاصيل اخرى!!

جعفر

 

حياك الله أخي جعفر

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

بخصوص هذا الحقل Loan_Other فهو عبارة عن مبلغ مشاركة يتم خصمه للعامل خلال شهري مارس وجويلية من كل سنة

فهو اصلا موجود في الجدول OtherDiscount ولكن بإسم OtheDiscount

وله إستعلام QUp مرتبط بجدول tmp

والنمادج هي : frmUp و FrmMocharaka

طريقة العمل :

خلال شهر مارس مثلا

أدخل على الفورم frmUp

ونكتب مبلغ المشاركة

يظهر ميساج ينبئك بتثبيت التاريخ والملاحظة

نعمل ok في كلا الميساجين

ثم نعمل تعميم

من خلال هذا النموذج نفتح نموذج المشاركة

ونرى انه تمت تعميم المشاركة لكل العمال

وبعدها ندخل على فورم الإقتطاعات FrmDiscountReport

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

نلاحظ كما بالإستعلام qry_Loans_Step1

صراحة الإستعلام qry_Loans_Step2 الذي هو الأساس في البرنامج لم ينفتح عن طريق الفورم FrmDiscountReport عند دخول مبالغ المشاركة

للتذكير : مبلغ المشاركة يدخل في مجموع الإقتطاعات :

Other_Payments1 + Elec_Payments1 + Elec_Payments1

ولا يدخل ضمن الباقي Remaining

لديك المرفق وجرب وحاول تصحيح الخطأ

مع العلم أنه يجب إضافة Loan_Other الى كل المعادلات

اما رؤية المبالغ وأشهر الإقتطاع بالجدول tbl_Loans فقد تمت كتابتها يدويا

11.7.FrmDiscountReport.rar

 

وأخيرا تقبل تحياتي القلبية الخالصة

تم تعديل مايو 27, 2015 بواسطه كريمو2

[jjafferr]

السلام عليكم

 

بخصوص هذا الحقل Loan_Other فهو عبارة عن مبلغ مشاركة يتم خصمه للعامل خلال شهري مارس وجويلية من كل سنة

فهو اصلا موجود في الجدول OtherDiscount ولكن بإسم OtheDiscount

وله إستعلام QUp مرتبط بجدول tmp

والنمادج هي : frmUp و FrmMocharaka

طريقة العمل :

خلال شهر مارس مثلا

أدخل على الفورم frmUp

ونكتب مبلغ المشاركة

يظهر ميساج ينبئك بتثبيت التاريخ والملاحظة

نعمل ok في كلا الميساجين

ثم نعمل تعميم

من خلال هذا النموذج نفتح نموذج المشاركة

ونرى انه تمت تعميم المشاركة لكل العمال

 

 

 

 

انا لم التفت لهذه الخطوات ، فهي لا ضرورة لها للعمل بالطريقة الجديدة ،

 

ملاحظة مهمة ، لقد تم العمل على اساس اقتراحاتي في المشاركة رقم 80.

 

 

وكذلك لم التفت الى التقرير او اي من استعلاماتك ، فعملي كان فقط على الكائنات التي تم مناقشتها سابقا فقط.

 

الجدول tbl_Loans بدون اصفار ، وهو واضح بهذه الطريقة ، وانما تم اضافة الامر NZ للاستعلام qr_Loans_Step2 ، كما تم حذف الحقل الذي انت ادخلت عليه الشرط ، فلا داعي له ، لأن الطريقة الجديدة تجلب السجلات الصحيحة فقط.

 

 

صراحة الإستعلام qry_Loans_Step2 الذي هو الأساس في البرنامج لم ينفتح عن طريق الفورم FrmDiscountReport عند دخول مبالغ المشاركة

 

 

لم افهم ؟؟

والذي جربته هو عند فتح النموذج واختيار التاريخ ، يفتح الاستعلام بدون مشاكل.

 

لا يجب ادخال اي بيانات يدويا في الجدول tbl_Loans ، فالكود يقوم بعمل الازم ،

والشئ الوحيد الذي تعمله عن طريق frm_Loans ، هو دفع اقتطاع لـ Cridi او Elec لمبالغ غير القسط الشهري (يعني اذا اراد موظف دفع مبلغ اكبر لذلك الشهر مثلا).

 

ومساهمة شهري 3 و 7 تتم في هذين الشهرين فقط ، فاذا اردت التجربة ، فيجب ان تغير تاريخ كمبيوترك لشهر 3 مثلا ، فسترى عند فتح النموذج FrmDiscountReport ، انه تم ادخال المبالغ في الجدول tbl_Loans.

 

رجاء تجربة ما عملناه ببيانات حقيقة ، ومادام الموضوع طازج في بالي ،

فانا على سفر قريب جدا ، وانت تعرف ان سفراتي طويلة ولا ادخل الانترنت غالبا 

 

 

جعفر

11.7.FrmDiscountReport.mdb.zip

[كريمو2]

أخي جعفر

حياك الله

لقت قمت بتجربة البرنامج على البرنامج الذي هو بحوزتي صراحة ماشاء الله ربي يبارك فيك ويحفظك

بقيت شوية أخطاء أتمنى ان تدركها وتصححها وهي :

01 - مشكلة السالب في الباقي كما في الصورة

 

 

وهذه السالب نتج عندما تمت إضافة كل القروض الذي اخذها الموظف من سنوات سابقة ظهر الباقي بالسالب

 

02 عند الدخول على فورم FrmDiscountReport خلال شهر مارس او جويلية يوزع المبلغ على كل العمال وهذا لا احبذه اريد ان يتم التوزيع حسب التصفية مثلا يتم توزيع المبالغ الا :

detach = موظف او منتدب او متعاقد كامل او متعاقد جزئي او عون نظافة

فقط اما الباقية فلا

وشكرا

وأخير إذا قمت بالسفر نسئل الله ان يردك سالما غانما محبته ورضاه

 

11.7.FrmDiscountReport.rar

تم تعديل مايو 28, 2015 بواسطه كريمو2

[jjafferr]

تفضل 

 

هاي للرقم 2 

 

بس تأكد اني ما قلبت المطلوب !!

وانا عملت الدفع لهؤلاء فقط:

myCriteria = "[detach]='موظف'"
        myCriteria = myCriteria & " Or [detach]='منتدب'"
        myCriteria = myCriteria & " Or [detach]='متعاقد كامل'"
        myCriteria = myCriteria & " Or [detach]='متعاقد جزئي'"
        myCriteria = myCriteria & " Or [detach]='عون نظافة'"
        

فاذا كان المقصود بدون هؤلاء ، فغير الاسطر الى

myCriteria = "[detach]<>'موظف'"
        myCriteria = myCriteria & " Or [detach]<>'منتدب'"
        myCriteria = myCriteria & " Or [detach]<>'متعاقد كامل'"
        myCriteria = myCriteria & " Or [detach]<>'متعاقد جزئي'"
        myCriteria = myCriteria & " Or [detach]<>'عون نظافة'"
        

بالنسبة الى رقم 1 ، ماذا تريدني ان افعل لعلاج المشكلة؟

 

 

جعفر

 

11.8.FrmDiscountReport.mdb.zip

[كريمو2]

بالنسبة الى رقم 1 ، ماذا تريدني ان افعل لعلاج المشكلة؟

شكرا لك اخي جعفر

اولا أتمنى انك فهمت المشكلة .

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

مثلا :

نلاحظ لامشكلة عند اي عامل لديه قرض واحد فقط سوى ساري الإقتطاع  او منتهي الإقتطاع الكود يعمل عادي وصحيح 100 بالمئة

اما بالنسبة للعامل الذي لديه اكثر من قرض كمثالنا كريمو2  الذي استفاد من :

01- القرض 2 الذي إستفاد منه بمبلغ 20.000.00 وانتهى خلال شهر ديسمبر 2013

02- القرض 3 الذي إستفاد منه بمبلغ 30.000.00 وانتهى خلال شهر نوفمبر 2014

هاذان المبلغان لازم عمل كود يعدمها ويبقى الباقي 0.00 

03- القرض 4 الذي إستفاد منه  بمبلغ 40.000.00 وينتهي خلال شهر نوفمبر 2015 القادم

وهذا الأخير عادي وصحيح في الإقتطاع والباقي ولكن مندمج مع القرضين  01 و 02 وهذه المشكلة

وحلها في الوحدة النمطية

اتمنى انك فهمت الفكرة

[jjafferr]

 

بالنسبة الى رقم 1 ، ماذا تريدني ان افعل لعلاج المشكلة؟

 

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

 

هاذان المبلغان لازم عمل كود يعدمها ويبقى الباقي 0.00 

 

 

وحلها في الوحدة النمطية

 

 

 

السلام عليكم أخي كريمو 

 

الهدف من الطريقة الجديدة هي الاعتماد على بيانات الجدول tbl_Loans بدون تدخل الكود ، وإلا رجعنا الى نفس المشكلة السابقة ، وهي حل كل معضلة بالكود!!

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

 

هناك حلين يدوران في بالي:

1. ان لا نهتم ببيانات الجدولين Cridi و Elec السابقة ، وانما العملية الحسابية تبدأ من ادخالك بيانات جديدة في هذين الجدولين (طبعا عن طريق النماذج الخاصة بهم) ، وبهذه الطريقة تدخل البيانات في الجدول tbl_Loans ، وتبدأ عملية الحساب ,

2. ان نرى جميع البيانات في الجدولين Cridi و Elec ، ونُدخل بياناتهم (هذه العملية سنقوم بها لمرة واحدة فقط عن طريق كود) في الجدول tbl_Loans ، ومنها سيتم استخدام الجدول tbl_Loans بالطريقة الطبيعية.

 

بالنسبة لي ، انا أفضل الطريقة الاولى ، ولكن محاسبياً ، اذا لم يكن مقبولا ، فسنعمل على الخيار الثاني 

 

 

جعفر

[كريمو2]

وعليكم السلام أخي جعفر

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

وشكرا لك

[jjafferr]

وعليكم السلام أخي كريمو 

 

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

وان لا تدفع قيمة الاقساط مقدما لكل الاقساط !!

وإلا فما فائدة البرنامج !!

ميزة البرنامج انك تستطيع عن طريق FrmDiscountReport ان تختار اي شهر شئت (طبعا من الاشهر السابقة) ، وسيعطيك البرنامج كم كانت السلفة وكم تم الدفع و... ،

واخبرتك ، ان الدفع الشهري هو توثيق بان قيمة القسط قد تم سدادها في ذلك الشهر (او قد تم سداد مبلغ اكبر مقدما).

 

 

جعفر

11.8.FrmDiscountReport.mdb.zip

[كريمو2]

شكرا لك استاذي واخي جعفر

بالعكس وجدت التعديل هو المطلوب حقا واتوماتيكيا

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

وان لا تدفع قيمة الاقساط مقدما لكل الاقساط !!

وإلا فما فائدة البرنامج !!

ميزة البرنامج انك تستطيع عن طريق FrmDiscountReport ان تختار اي شهر شئت (طبعا من الاشهر السابقة) ، وسيعطيك البرنامج كم كانت السلفة وكم تم الدفع و... ،

واخبرتك ، ان الدفع الشهري هو توثيق بان قيمة القسط قد تم سدادها في ذلك الشهر (او قد تم سداد مبلغ اكبر مقدما).))

 

نسخت الوحدة النمطية fAdd_Observations  و FrmDiscountReport  و qry_Loans_OLD  و qry_Loans_Step1  و qry_Loans_Step2  و qry_Loans_Step21

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

تم تعديل مايو 30, 2015 بواسطه كريمو2

[jjafferr]

حياك الله 

 

التعديل فقط في الوحدة النمطية Count_Remaining والتي هي جزء من الوحدة النمطية الام fAdd_Observations:

Function Count_Remaining(P, ID_Emp As Integer, ID_Loan As Integer, T As String) As Currency
'On Error Resume Next

    'P = Payment month
    'ID_Loan = Loan ID
    'a = amount of Loan
    'S = Sum of payments
    'T = Cridi or Elec
    
    'we need to know how much is the Loan, from tables Cridi and ElectroMeng
    'and SUM the paid, from tbl_Loans, to the date specified in FrmDiscountReport
    
    If T = "Cridi" Then

        a = DSum("[Loan_Cridi]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And [Loan_ID]=" & ID_Loan)
        S = DSum("[Payment_Made_Cridi]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And [Loan_ID]=" & ID_Loan & " And [Payment_Month]<=#" & P & "#")

        'Debug.Print "C " & vbTab & "Emp=" & ID_Emp & vbTab & " Loan=" & ID_Loan & vbTab & " S=" & S & vbTab & " a=" & a
    ElseIf T = "Elec" Then

        a = DSum("[Loan_Elec]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And [Loan_ID]=" & ID_Loan)
        S = DSum("[Payment_Made_Elec]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And [Loan_ID]=" & ID_Loan & " And [Payment_Month]<=#" & P & "#")
        
        'Debug.Print "E " & vbTab & "Emp=" & ID_Emp & vbTab & " Loan=" & ID_Loan & vbTab & " S=" & S & vbTab & " a=" & a
    End If

    'the same Record in the Query contains both Cridi and Elect,
    'whereas tbl_Loans Records, contain either one of them,
    'thus, when ID_Loan value does not exist in tbl_Loans, just return a Zero to the query
    If IsNull(a) Then
        Count_Remaining = 0
        
    Else
        Count_Remaining = a - Nz(S, 0)
    
    End If
    
End Function 

ويمكنك حذف qry_Loans_OLD و qry_Loans_Step21 

 

 

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

وان لا تدفع قيمة الاقساط مقدما لكل الاقساط !!

 

 

اللي حصل هو:

انا كلما عدلت على الوحدة النمطية ، لم تتغير القيمة في الاستعلام 

الى ان اضطررت النظر في تفاصيل مجاميع الوحدة النمطية ، بإضافة الامر Debug.print (سترى الامر بالكامل في الوحدة النمطية) ، وهنا اكتشفت بأنك قد ادخلت مبالغ سداد القروض لجميع الاشهر ،

يعني نحن في شهرMay 2015 وعليه سداد القرض يجب ان يكون الى هذا التاريخ ، وسجل الشهر التالي June 2015 يجب ان يكون فاضي ، حيث انك لم تستقطع هذا المبلغ من الموظف بعد .

وانا في المرفقات السابقة ، كنت أحذف استقطاعات جميع التواريخ التالية لشهرنا May 2015 ، ولكنك الظاهر لم تلاحظ ذلك ، وفي كل مرة ترسل لي الجدول بالمعلومات الخطأ 

 

المرفق يوضح هذا:

 

 

جعفر

[كريمو2]

الى ان اضطررت النظر في تفاصيل مجاميع الوحدة النمطية ، بإضافة الامر Debug.print (سترى الامر بالكامل في الوحدة النمطية) ، وهنا اكتشفت بأنك قد ادخلت مبالغ سداد القروض لجميع الاشهر ،

يعني نحن في شهرMay 2015 وعليه سداد القرض يجب ان يكون الى هذا التاريخ ، وسجل الشهر التالي June 2015 يجب ان يكون فاضي ، حيث انك لم تستقطع هذا المبلغ من الموظف بعد .

وانا في المرفقات السابقة ، كنت أحذف استقطاعات جميع التواريخ التالية لشهرنا May 2015 ، ولكنك الظاهر لم تلاحظ ذلك ، وفي كل مرة ترسل لي الجدول بالمعلومات الخطأ 

 

المرفق يوضح هذا:

11.8.Clipboard01.jpg

 

السلام عليكم

فهمت فكرتك استاذ ولكن في رائك اذا كان لديك اكثر من 100 عامل ولديهم قروض فكيف ندخل على كل منهم وتدخل الإقتطاع كل شهر اليس عمل متعب

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

لاعلينا استاذ المهم انا البرنامج يعمل عندي حاليا زي الفل وبإستقطعات مستفبلية وهذا هو المطلوب

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

والآن لديا هذا الإستعلام جربت كل الطرق بأن لا يظهر    TheSum = 0 في الإستعلام وفي التقرير الذي مصدره الإستعلام  qry_Loans_Step1 ولكن لم أفلح ثم عملت تصفية في التقرير كذالك لم اوفق

SELECT qry_Loans_Step1.EmployeeID, Employee.[Nom et Prénom], Employee.detach, qry_Loans_Step1.Month_Year, Sum(Nz([Cridi],0)) AS Cridi1, Sum(Nz([Elec],0)) AS Elec1, Sum(Nz([Cridi_Payments],0)) AS Cridi_Payments1, Sum(Nz([Elec_Payments],0)) AS Elec_Payments1, Sum(Nz([Remaining_Cridi],0)) AS Remaining_Cridi1, Sum(Nz([Remaining_Elec],0)) AS Remaining_Elec1, Sum(Nz([Loan_Other],0)) AS Loan_Other1, Sum([Remaining_Elec]+[Remaining_Cridi]) AS Remaining, Nz([Cridi_Payments1],0)+Nz([Elec_Payments1],0)+Nz([Loan_Other1],0) AS TheSum
FROM qry_Loans_Step1 INNER JOIN Employee ON qry_Loans_Step1.EmployeeID = Employee.EmployeeID
GROUP BY qry_Loans_Step1.EmployeeID, Employee.[Nom et Prénom], Employee.detach, qry_Loans_Step1.Month_Year;

وشكرا لك استاذ

ادامك الله مساعدا لأخوانك

[jjafferr]

السلام عليكم أخي كريمو 

 

الظاهر من ردك انك غير راض عن لهجتي في مشاركتي السابقة !!

ولكن اسمح لي ان اوضح لك شئ ، الظاهر انك لم تلاحظه ، وهو عملية السداد/الاستقطاع التلقائي لجميع الموظفين ، سواء Cridi  او Elect  او Others للشهر الذي تكون فيه (شهر الكمبيوتر) ، وذلك عند فتحك النموذج FrmDiscountReport ، وبدون اي تدخل منك (جرب ، غيّر شهر الكمبيوتر الى الشهر التالي ، ثم افتح النموذج FrmDiscountReport وسترى قصدي).

 

اذا لم تكن منتبها لهذا الموضوع ، فما عساي ان افعل !!

 

تفضل ، هذا ما دار بيننا حول هذه النتقطة:

 

1. فهمت فكرتك استاذ ولكن في رائك اذا كان لديك اكثر من 100 عامل ولديهم قروض فكيف ندخل على كل منهم وتدخل الإقتطاع كل شهر اليس عمل متعب

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

 

 

 

 

الموضوع يرجع الى مشاركتي رقم 73 في طريقة ادخال مبالع الدفع/الاستقطاع لكل موظف على حدة:

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

 

 

 

في المشاركة رقم 74 ، انت قلت:

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

تصور إذا كان لديك اكثر من 100 عامل فكيف تتم العملية يدويا

 

 

 

وانا رددت عليك في المشاركة رقم 75:

نعم نستطيع ان نعمل زر لدفع قروض الشهر ، في النموذج FrmDiscountReport للشهر الذي تم اختياره لإستقطاعات الشهر.

الزر هو "سدد مبالغ شهر الاقتطاعات"

 

 

 

وفي مشاركتي رقم 78 عملت الزر يقوم بعملية الدفع لجميع الموظفين دفعة واحدة:

المجاميع تعتمد على الشهر المختار في FrmDiscountReport ، فعلى اساسه تظهر النتائج ،

لذا تأكد بأنك تضغط على زر سداد الاقتطاع لك شهر على حدة.

 

 

 

في مشاركتك رقم 79 ، وبعد تجربتك لزر الدفع/الاستقطاع ، قلت:

الطلب الأول : بخصوص الزر "سدد مبالغ شهر الاقتطاعات " رأيته يعمل كل شهر وليس بكبسة واحدة يقوم بالتوزيع , هذا خوفي منه ربما انساه الا يمكن ان نضعه أول مايفتتح به النموذج "FrmDiscountReport" حتى يتم تذكيري به دوما وابدا او ضف لهذه الدالة لكل تقوم بالتوزيع مرة واحدة دون اللجوء الى "سدد مبالغ شهر الاقتطاعات "

 

 

 

وفي مشاركتي رقم 80 ، وافقتك الرأي وقلت:

أعتقد ان الافضل ان تجعله على حدث تحميل النموذج FrmDiscountReport ،

 

 

 

وفي مشاركتي رقم 83 قلت:

ملاحظة مهمة ، لقد تم العمل على اساس اقتراحاتي في المشاركة رقم 80.
......

لا يجب ادخال اي بيانات يدويا في الجدول tbl_Loans ، فالكود يقوم بعمل الازم ،

والشئ الوحيد الذي تعمله عن طريق frm_Loans ، هو دفع اقتطاع لـ Cridi او Elec لمبالغ غير القسط الشهري (يعني اذا اراد موظف دفع مبلغ اكبر لذلك الشهر مثلا).

 

ومساهمة شهري 3 و 7 تتم في هذين الشهرين فقط ، فاذا اردت التجربة ، فيجب ان تغير تاريخ كمبيوترك لشهر 3 مثلا ، فسترى عند فتح النموذج FrmDiscountReport ، انه تم ادخال المبالغ في الجدول tbl_Loans.

 

 

 

 

 

لاعلينا استاذ المهم انا البرنامج يعمل عندي حاليا زي الفل وبإستقطعات مستفبلية وهذا هو المطلوب

 

 

 

الحمدلله 

 

 

جعفر

[كريمو2]

الظاهر من ردك انك غير راض عن لهجتي في مشاركتي السابقة !!

ولكن اسمح لي ان اوضح لك شئ ، الظاهر انك لم تلاحظه ، وهو عملية السداد/الاستقطاع التلقائي لجميع الموظفين ، سواء Cridi  او Elect  او Others للشهر الذي تكون فيه (شهر الكمبيوتر) ، وذلك عند فتحك النموذج FrmDiscountReport ، وبدون اي تدخل منك (جرب ، غيّر شهر الكمبيوتر الى الشهر التالي ، ثم افتح النموذج FrmDiscountReport وسترى قصدي).

 

اذا لم تكن منتبها لهذا الموضوع ، فما عساي ان افعل !!

جعفر

سامحني اخي لم انتبه لها حقا والحق معك صدقني كنت أظن ان الميساج الذي يظهر إستقطاع المشاركة بالرغم انا طلبته خلال شهري 03 و 07 اي اختلط الأمر علي 

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

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

نقبل تحياتي القلبية 

اخوك المتأسف الطاهر

تم تعديل مايو 30, 2015 بواسطه كريمو2

[jjafferr]

السلام عليكم أخي الطاهر 

 

الحمدلله ان الأمور مضت على خير 

 

رجاء لا تضع اي شروط او معايير في الاستعلام ،

 

 

فالاستعلام مصمم ان لا يعطيك سجلات فارغة ، وانما السجلات التي بها مبالغ فقط ،

لهذا ، فانت غير محتاج لإضافة شرط او معيار لتحقق ان لايكون   TheSum = 0 ، لأنها لن تكون صفر للأشهر التي بها مبالغ مسددة ، ولكنها ستكون صفر اذا اخترت تاريخ التقرير يكون أكبر من الشهر الحالي (اي الشهر الذي لم نسدد فيه القرض بعد).

 

 

جعفر

 

 

[كريمو2]

الحمدلله ان الأمور مضت على خير 

رجاء لا تضع اي شروط او معايير في الاستعلام ،

11.8.Clipboard02.jpg

 

فالاستعلام مصمم ان لا يعطيك سجلات فارغة ، وانما السجلات التي بها مبالغ فقط ،

لهذا ، فانت غير محتاج لإضافة شرط او معيار لتحقق ان لايكون   TheSum = 0 ، لأنها لن تكون صفر للأشهر التي بها مبالغ مسددة ، ولكنها ستكون صفر اذا اخترت تاريخ التقرير يكون أكبر من الشهر الحالي (اي الشهر الذي لم نسدد فيه القرض بعد).

 

وعليكم السلام اخي جعفر

شكرا على طيبة قلبك وسعة صدرك

شكرا لأنك ساعدتني كثير

شكرا على الإهتمام بموضوعي

نعم نزعت المعايير وعملت التصفية TheSum >0 في التقرير  والحمد لله لم يظهر الباقي 0.00

والآن مازال لديا طلب وهو بخصوص الأعوان المتعاقدين وهم "عون نظافة - متعاقد كامل - متعاقد جزئي" أظن انك لاحظت التاريخ في التقريرين rptDiscount و rptDiscountDetail انه دائما ينقص شهر 

مثلا الأن نحن خلال شهر ماي 2015 هذا عند detach يساوي موظف و منتدب

اما الفئات الثلاثة السابقة فيكون لديهم أفريل 2015

ليس المشكلة في إنقاص الشهر في التقريرين ولكن

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

الصورة توضح

رأي ان نعمل استعلام خاص بهم ينقص دائما شهر فقط

تم تعديل مايو 31, 2015 بواسطه كريمو2

[jjafferr]

وعليكم السلام 

 

وعملت المعايير في التقارير

 

 

 

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

"فالاستعلام مصمم ان لا يعطيك سجلات فارغة ، وانما السجلات التي بها مبالغ فقط ،"

 

في محاولاتي السابقة ، كل عملي كان في الاستعلام ولم اتطرق الى التقارير ، لذا ، فانا لم ارها اصلا 

 

الآن وقد تم الانتهاء من السؤال الاصلي لهذا الموضوع ، اقترح ان تقفل هذا الموضوع وان تعمل سؤال جديد ، لأن الموضوع مختلف 

 

 

جعفر