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

[Ahmed_J]

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

الرجاء اولا  تدقيق ربط الجداول لو سمحتم

لدي ملف مرفق عبارة عن فاتورة بيع فقط وعند البيع بالتقسيط (الآجل) يقوم الزبون بدفع جزء من مجموع مبلغ الفاتورة

ويبقى علية مبلغ سواء بالدينار او بالدولار 

المطلوب:  طريقة تسديد المبلغ المتبقي او جزء منه  

test.rar

[Eng.Qassim]

وعليكم السلام استاذ احمد

جرب هذه المحاولة المتواضعة

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

 

testQ.rar

[Ahmed_J]

السلام عليكم استاذ قاسم @Eng.Qassim 

عاشت ايدك

عملك حلو وبسيط ومرتب للغاية

الله يبارك فيك وشكرا لمتابعتك لي

لكن احتاج  ان بيانات تنزل وتسجل في جدول التسديد لو امكن ذلك  (لان في تقرير نهائي يظهر للزبون كل التسديدات والديون بكل تاريخ)

ويكون جدول التسديد كالاتي

1- الباقي بالدولار والباقي بالدينار ياتي من جدول راس الفاتورة

2- مبلغ التسديد بالدولار ومبلغ التسديد بالدينار من جدول التسديد

3- الدين الباقي بالولار والدين الباقي بالدينار في جدول التسديد

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

(المبلغ الباقي بالدولار او الدينار من راس الفاتورة - التسديد بالدولار او الدينار = الدين النهائي  بالدولار او الدينار على الزبون)

ويكون هذا كله في نموذج

الله يجعلها في ميزان حسناتك 

تحياتي لك

تم تعديل أبريل 3, 2022 بواسطه Ahmed_J

[Eng.Qassim]

رغم اني مع تبسيط راس الفاتورة ..لكن حسب طلبك انظر للمثال

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

 

testQ.rar

[Ahmed_J]

السلام عليكم 

استاذ قاسم  شلونك ان شاء الله بالف خير (عاشت ايدك)

آسف على كثرة طلباتي  لكن الحاجة يا استاذ

قمت بالتعديل على الملف المرفق بعد التعديل الاخير   وهو مثل ماريده بالضبط

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

مثلا قمت بتسديد مبلغ (49) دولار يقوم بالتحديث بصورة صحيحة  وبالسجل الصحيح لكن الدين بالدولار يضعة بالسجل

الذي قبلة  وليس بنفس السجل كما في الصورة  ولا اعرف السبب؟

تحياتي للجميع

testQ-2.rar

تم تعديل أبريل 6, 2022 بواسطه Ahmed_J

[د.كاف يار]

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

 

 

testQ-2.zip

تم تعديل أبريل 6, 2022 بواسطه د.كاف يار

[Eng.Qassim]

عذرا استاذ احمد ..لم انتبه لسؤالك فانت تعلم ان شهر رمضان له حق علينا ولقلة تواجدي

وقد اكفانا استاذنا الغالي @د.كاف يارجزاه الله خير الجزاء

 

[Ahmed_J]

السلام عليكم 

رمضان كريم

العقو منك اخي واستاذي @Eng.Qassim انت صاحب فضل كبير علي  بارك الله فيك

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

بارك الله فيك

1- لكن تحدث مشكلة ( عند عمل فاتورة جديدة  في النموذج  (Invoice)  وعند وضع مبلغ التسديد (الواصل بالدولار او الواصل بالدينار)

عند اختيار اسم الزبون من form1)  من القائمة المنسدلة  يقوم استعلام التحديث بتصفير   ماتم تسديدة  من المبالغ

في جدول رأس الفاتورة عند عمل الفاتورة اول مرة

تحياتي للجميع

تم تعديل أبريل 6, 2022 بواسطه Ahmed_J

[د.كاف يار]

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

 

Database1.zip

[Ahmed_J]

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

شكرا لك كثيرا

بارك الله فيك تسلم ايك 

تم التعديل على الملف بما يناسب عملي  

يبقى سؤال واحد فقط  حول الكود التالي (في حالة كان مبلغ التسديد بالدولار  او الدينار  لماذا هو (>)  اصغر من الباقي بالدولار او الدينار )

المفروض اكبر  ( <)  من الباقي بالدولار او الدينار  حتى تظهر الرسالة ويلغى الامر ولا هي لغة الكيبورد عندك  ؟ لم افهم بصراحة 

شكرا لك

تحياتي للجميع

If Me.Form.Controls("مبلغ التسديد بالدولار").Value < Me.DOL Then
    MsgBox "مبلغ التسديد بالدولار اكبر من مبلغ الدين", vbCritical + vbMsgBoxRight, "تنبيه"
    Exit Sub
End If

If Me.Form.Controls("مبلغ التسديد بالدينار").Value < Me.DIN Then
    MsgBox "مبلغ التسديد بالدينار اكبر من مبلغ الدين", vbCritical + vbMsgBoxRight, "تنبيه"
    Exit Sub
End If

 

تم تعديل أبريل 7, 2022 بواسطه Ahmed_J

[Eng.Qassim]

اعكس الاشارات كما في مثالي السابق

[Ahmed_J]

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

نعم انا اعرف ذلك

لكنني كنت اسال فقط