انشاء timer

وجدت طريقة لانشاء timer اظن انها قد تكون مفيدة للبعض لذا قررت ان انشره هنا

اولا : بعد انشاء form نقوم بانشاء trigger على مستوى form

و هم :

(1) when-new-form-instance ونكتب بداخله الكود التالي

DECLARE 

T TIMER;

BEGIN 

T :CREATE_TIMER ('TIMER1',1000,REPORT);

END;

(2) when-timer-expired و نكتب بداخله الكود التالي

 

DECLARE

tm_name VARCHAR2(40);

BEGIN

tm_name := Get_Application_Property(TIMER_NAME);

IF tm_name = 'TIMER1' THEN

:emp.t:=to_char(sysdate,'hh12:mi:ss');

END IF;

END;

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