عندي مشروع صيدلة صممتة بأوراكل دلوفوبر 6i أحتاج إلى كود يعمل لي رسالة بقرب أنتهاء الدواء بمدة شهر على الأقل



أرجو المساعدة

وجعلنا الله في الفردوس الأعلى

شباب أرجو الأهتمام
أنا منتظر الرد ضروريا لانه مشروع تخرج

اللسلام عليكم
الاخ الكريم
انت كل اللي هتعملي هتعمل

select count(*)
into  x
from medicine
where sysdate-expiredate <60

ولما ال x تبقي اكبر من 0 تطلع الرساله بتاعتك
بس كده
سلام

الأخ/ سمير
بالنظر إلى ما تريد فإن الرساله العاديه لاتصلح لأن حجمها 255 حرف فقط. وأنت تريد أن تظهر على الأقل إسم الدواء (ورقمه لو أردت) وعدد الأيام الباقيه له حتى تنتهي صلاحيته وذلك لكل دواء باقي له شهر أو أقل لإنتهاء الصلاحيه.

لذلك أقترح عليك أن تقوم بعمل text item وهو لا يكون ظاهراً إلا في حاله معينه وهي لإظهار الرساله التي تريدها ويكون حجمه 3000 حرف مثلاً! . ذلك لأن رسالتك ممكن أن تزيد عن 255 حرف لأنه ممكن أن يكون هناك أكثر من دواء سوف تنتهي صلاحيته. وهذا الحقل له مواصفات معينه . ثم تكتب الكود لعمل ما تريد في تريجر when_new_form_instance . ممكن أن تضع هذا الحقل على stacked canvas أو ببساطه تضعه على ال content canvas لديك وتحدد مساحه غير مستخدمه له. وكما قلت هذا الحقل يكون مخفياً بشكل إفتراضي إلا في حالة ظهور الرساله.

هانفترض أن لديك جدول بسيط كالآتي:

create table medicaments(MEDICAMENT_NAME varchar2(50), MEDICAMENT_EXPIRE_DATE date);

أولاً: قم بعمل text item وله مواصفات كالآتي وليكن إسمه item9
visible=no , enabled=no ,multi-line=yes ,Maximum Length=3000 ,database item=no ,insert allowed=no ,update allowed=no , delete allowed=no

كبر حجم الحقل على الكانفس حتى يكون حجمه مناسب لظهور الرساله.

أكتب هذا الكود على تريجر when_new_form_instance:

	declare
cursor cc is select * from medicaments;
warning varchar2(3000);
n number(10);
begin
for i in cc loop
	n:=i.MEDICAMENT_EXPIRE_DATE-sysdate;
	if n<=30 and n>0
		 then
		warning:=warning||'--'||
		' الدواء'||i.MEDICAMENT_NAME||'  باقي له '||n||'   حتى تنتهي صلاحيته ';
end if;
	end loop;
	if warning is not null
		then
		:item9:=warning;
		set_item_property('item9',visible,property_true);
		set_item_property('item9',enabled,property_true);
	end if;
end;

وهذا الملف به فورم لما تريد ولو في حاجه مش واضحه أرسل ردك:

New_Folder.zip

مشكور وجزاك الله خيراً وأنت الصرحه أنقذتني ...........


وأنا بجرب الطريقه هذه وأرد لك خبر .............

وشكراً لك

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

أنا رفعت الفورمه على هيئة ملف word.doc بعد ما تفتحه علي ال form builder لا تنسى أن تغير إمتداد الملف.
ولو لم يعمل هذا أيضأً حاول أن تطبق الخطوات التي كتبتها لك أعلاه وهاتنجح إن شاء الله وأنا متابع معاك..........

warning_message.doc

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

معلش أنا رفعتها لك مره تانيه مع عمل بعض التعديلات فيها ويارب تشتغل معاك لأنها زي ما إنت عاوز وأكتر!!!

New_Folder.zip

تسلم وما قصرت بس تشتغل معاي نفس الخطاء السابق

هل لأني مغير لغة Form إلى اللغة العربية ؟

وأنا أسف لاني أتعبت معاي

لأ هو مش مشكلة اللغه. والمفروض إن الفورم تفتح عادي وخصوصاً أنا لم أستخدم أي كلاس جافا وهو ده إللي بيعمل مشاكل . يمكن علشان أنا شغال على forms 10G R2 . لكن إللي ممكن تعمله إنك تفتح الفورم على forms 10G وبعدين تفهم الفورم تمام. وبعد كده تعمل نفس الطريقه على forms 6i. وربنا يوفقك......