DECLARE 
Li_Pantalla Pls_Integer; 
Lt_Reloj_Id Timer; 
BEGIN 

Li_Pantalla: = GET_WINDOW_PROPERTY (FORMS_MDI_WINDOW, WINDOW_HANDLE) 
WIN_API_SESSION.TIMEOUT_START_TIMER (Li_Pantalla) 
- Find watch, if you delete it. 
Lt_Reloj_Id: = Find_Timer ('TIEMPO_INACTIVIDAD'); 
IF NOT Id_Null (Lt_Reloj_Id) THEN 
DELETE_TIMER (Lt_Reloj_Id) 
END IF; 
- Create a watch and repeats every second starting from scratch. 
Lt_Reloj_Id: = Create_Timer ('TIEMPO_INACTIVIDAD', 1000, REPEAT); 
EXCEPTION 
WHEN OTHERS THEN 
NULL; 



END; 

DECLARE 
Lt_Reloj_Id Timer; 
Ln_Inactividad Number; 
Lv_Usuario VARCHAR2 (80); 
Lv_Clave VARCHAR2 (80); 
Lv_Base VARCHAR2 (80); 
Ln_Valida Number; 
Li_Pantalla Pls_integer; 

Begin 

Lt_Reloj_Id: = Find_Timer ('TIEMPO_INACTIVIDAD'); 
IF NOT Id_Null (Lt_Reloj_Id) THEN 


Ln_Inactividad: = Win_api_session.Timeout_Get_Inactive_Time; 


Ln_Inactividad IF> = 10 THEN Then 
MESSAGE ('The end of your session'); SYNCHRONIZE; 
LOGOUT; 
Win_API_Session.timeout_delete_timer; 
DELETE_TIMER (Lt_Reloj_Id) 

END IF; 
END IF; 

EXCEPTION 
WHEN OTHERS THEN 

EXIT_FORM (NO_VALIDATE) 

END;

MESSAGE ('The end of your session'); SYNCHRONIZE; 

MESSAGE ('The end of your session', ACKNOWLEDGE);