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

لمعرفة ال ITEM إذا كانت NULL ام لا

كتبت في الزناد التالي

WHEN-VALIDATE-RECORD

الكود التالي

DECLARE
V_ALERT_ID 		ALERT;
V_ALERT_SHOW 	NUMBER;
V_TITLE VARCHAR2(100):='Mail handling';
BEGIN V_ALERT_ID := find_alert('ALERT_EMPLOYEES');
	  	SET_ALERT_PROPERTY(V_ALERT_ID,TITLE,V_TITLE);
	  	set_alert_button_property(V_ALERT_ID,ALERT_BUTTON1,LABEL,'OK');
	  	set_alert_button_property(V_ALERT_ID,ALERT_BUTTON2,LABEL,NULL);


IF :EMPLOYEES1.FIRST_NAME IS NULL THEN
		SET_ALERT_PROPERTY(V_ALERT_ID,ALERT_MESSAGE_TEXT,' PLEASE ENTER FIRST NAME ');
		V_ALERT_SHOW:=SHOW_ALERT(V_ALERT_ID);	
		RAISE FORM_TRIGGER_FAILURE;
END IF;


IF 		:EMPLOYEES1.LAST_NAME IS NULL THEN
			SET_ALERT_PROPERTY(V_ALERT_ID,ALERT_MESSAGE_TEXT,' PLEASE ENTER LAST NAME ');
			V_ALERT_SHOW:=SHOW_ALERT(V_ALERT_ID);	
			RAISE FORM_TRIGGER_FAILURE;
END IF;
		

	IF 	:EMPLOYEES1.HIRE_DATE IS NULL THEN
			SET_ALERT_PROPERTY(V_ALERT_ID,ALERT_MESSAGE_TEXT,' PLEASE ENTER HIRE DATE ');
			V_ALERT_SHOW:=SHOW_ALERT(V_ALERT_ID);	
			RAISE FORM_TRIGGER_FAILURE;
END IF;	

END;

الزناد يعمل تمام

ولكن أرغب في الذهاب إلى ال ITEM الموجود به الخطأ بعد إظهار الرسالة حتى يتسنى للمستخدم التصحيح
جربت الكود التالي

GO_ITEM ('EMPLOYEES1.FIRST_NAME);

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

وتزويدي بكود لجعل ال ITEM لا يقبل إلا تاريخ و شكرا

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

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

لمعرفة ال ITEM إذا كانت NULL ام لا

كتبت في الزناد التالي

WHEN-VALIDATE-RECORD

الكود التالي

DECLARE
V_ALERT_ID 		ALERT;
V_ALERT_SHOW 	NUMBER;
V_TITLE VARCHAR2(100):='Mail handling';
BEGIN V_ALERT_ID := find_alert('ALERT_EMPLOYEES');
	  	SET_ALERT_PROPERTY(V_ALERT_ID,TITLE,V_TITLE);
	  	set_alert_button_property(V_ALERT_ID,ALERT_BUTTON1,LABEL,'OK');
	  	set_alert_button_property(V_ALERT_ID,ALERT_BUTTON2,LABEL,NULL);


IF :EMPLOYEES1.FIRST_NAME IS NULL THEN
		SET_ALERT_PROPERTY(V_ALERT_ID,ALERT_MESSAGE_TEXT,' PLEASE ENTER FIRST NAME ');
		V_ALERT_SHOW:=SHOW_ALERT(V_ALERT_ID);	
		RAISE FORM_TRIGGER_FAILURE;
END IF;


IF 		:EMPLOYEES1.LAST_NAME IS NULL THEN
			SET_ALERT_PROPERTY(V_ALERT_ID,ALERT_MESSAGE_TEXT,' PLEASE ENTER LAST NAME ');
			V_ALERT_SHOW:=SHOW_ALERT(V_ALERT_ID);	
			RAISE FORM_TRIGGER_FAILURE;
END IF;
		

	IF 	:EMPLOYEES1.HIRE_DATE IS NULL THEN
			SET_ALERT_PROPERTY(V_ALERT_ID,ALERT_MESSAGE_TEXT,' PLEASE ENTER HIRE DATE ');
			V_ALERT_SHOW:=SHOW_ALERT(V_ALERT_ID);	
			RAISE FORM_TRIGGER_FAILURE;
END IF;	

END;

الزناد يعمل تمام

ولكن أرغب في الذهاب إلى ال ITEM الموجود به الخطأ بعد إظهار الرسالة حتى يتسنى للمستخدم التصحيح
جربت الكود التالي

GO_ITEM ('EMPLOYEES1.FIRST_NAME);

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

وتزويدي بكود لجعل ال ITEM لا يقبل إلا تاريخ و شكرا

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

برجاء المساعدة عاجل يا اخوان

USE WHEN VALIDATE ITEM ITES MORE BETTER
AND WILL NOT MAKE YOU MOVE OUTSIDE THE ITEMS
UNTILL VALIDATE

بص هو ادامك حل من الاتنين
يا أما تفصل الكود ، يعني الفيلديشن يكون على كل الايتم .....
يا أما تعمل تيمر وتحط فيه الفليدشن ده ( الكود اللي حضرتك كاتبه )
وتكتب براحتك GO_ITEM

وطبعا الكود بتاع WHEN VALIDATE RECODE هيتغير
وهيكون عبارة عن CREATE_TIMER

لو فيه حاجة مش واضحة ياريت تقولي
تقبل تحياتي