how to create running clock in oracle forms 6i

[subashsavji]

pls. send the proper step by step coding.

[smartali4u]

in new_form_instance on form level

 
DECLARE 
CurrTime TIMER; 
OneSec CONSTANT NUMBER := 1000; 
BEGIN 
CurrTime := CREATE_TIMER('CURRTIME',OneSec,REPEAT); 
END; 
 
 
in when_timer_expired  on form level
 
DECLARE 
ExpTimer VARCHAR2(40) := Get_Application_Property(TIMER_NAME); 
vTime Varchar2(30) := :SYSTEM.CURRENT_DATETIME; 
BEGIN 
 
IF ExpTimer = 'CURRTIME' THEN 
 
:yourblockname.clock := SUBSTR(vTime, instr(vTime,' ')+1); 
 
END IF; 
END; 
 

hope it will be work

ALI

[subashsavji]

in new_form_instance on form level

DECLARE
CurrTime TIMER;
OneSec CONSTANT NUMBER := 1000;
BEGIN
CurrTime := CREATE_TIMER('CURRTIME',OneSec,REPEAT);
END;


in when_timer_expired on form level

DECLARE
ExpTimer VARCHAR2(40) := Get_Application_Property(TIMER_NAME);
vTime Varchar2(30) := :SYSTEM.CURRENT_DATETIME;
BEGIN

IF ExpTimer = 'CURRTIME' THEN

:yourblockname.clock := SUBSTR(vTime, instr(vTime,' ')+1);

END IF;
END;



hope it will be work

ALI

Thank you.............................

[amitpatel66]

Duplicate post by smartali4u is deleted

[maneeshkumar]

:yourblockname.clock := SUBSTR(vTime, instr(vTime,' ')+1);

giving an error if I put :yourblock.fieldname
then it works properly