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

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

- حساب تاريخ انتهاء الإعتماد = تاريخ فتح الإعتماد + مدة الصلاحية قد تكون ( باليوم او الشهر او السنه )

- حالة الاعتماد ... عند انشاء السجل = "قائم"


تريد تغيير حالة الاعتماد الى "منتهي"

- من خلال تشغيل برنامج محدد يعمل حسب الطلب... للتأكد من تاريخ الانتهاء مقارنة بتاريخ الفترة ( من تاريخ ... الى تاريخ )
او
- من خلال تشغيل برنامج batch يعمل كل صباح مثلا ... للتأكد من تاريخ انتهاء الإعتماد مقارنة بتاريخ يوم التشغيل

هل هذه هى الفكرة المطلوب تنفيذها

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

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

أخي العزيز على حسب انا ما فهمت الموضوع بسيط ...

على فرض اعتبرنا تاريخ البدء هو Begin_Date وتاريخ الانتهاء End_Date

والصلاحية فرضناها Validity_Date وحالة الاعتماد هي Case_Type

ولو قرضنا تاريخ اليوم Today_Date وفرضنا أسم البلوك Test .

اول شيئ كما نعلم عند طرح تاريخ من تاريخ يخرج الناتج رقم وهو عدد الايام

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

ونضع الناتج في خانة مدة الصلاحية .

وبعد ذلك نقوم بطرح تاريخ بدء الصلاحية من تاريخ اليوم ونضع الناتج في متغير

طبعا هذا الناتج عبارة عند رقم وهو عدد أيام .

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

فأذا كان ناتج الفرق بين تاريخ اليوم وتاريخ البدء اكبر من مدة الصلاحية يقوم

بتحويل حالة الاعتماد الى الانتهاء ,,,,,,


اولا نقوم بكتابة هذا الكود على الحقل الخاص بـــ تاريخ أنتهاء الاعتماد للحساب مدة الصلاحية .

طبعاً على ترجير KEY-NEXT-ITEM

:Text.Validity_Date:=('End_Date','dd/mm/yyyy') -To_Date('Begin_Date','dd/mm/yyyy');

بعذ ذلك نكتب ترجير على مستوى البلوك وهو POST-QUERY ونكتب داخله ,,,,

Declare
V_Date Number;
begin
Select To_Date('Today_Date','dd/mm/yyyy') -To_Date('Begin_Date','dd/mm/yyyy')
Into V_Date
From Table_Name;

If  V_Date > Validity_Date Then
:Test.Case_Type := End_Case;
End If;
End;

طبعا هذه طريقة من عدة طرق .

أرجوا ان اكون اوصلت الفكرة لك بشكل صحيح .

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