FUNCTION Valid_date (p_string IN VARCHAR2, 
                     p_format IN VARCHAR2 DEFAULT 'dd/mm/yyyy') 
RETURN DATE 
IS 
  v_return DATE; 
  k        VARCHAR2(200) := 'use date'; 
  al       ALERT; 
  alrt     PLS_INTEGER; 
BEGIN 
    al := Find_alert('TEST_DATE'); 

    IF NOT Id_null(al) THEN 
      Set_alert_property(al, title, 'use dates'); 

      Set_alert_property(al, alert_message_text, 'fuse date'); 
    -- alrt :=show_alert('TEST_CHAR'); 
    ELSE 
      Message('alert is null'); 

      Message('alert is null'); 

      RAISE form_trigger_failure; 
    END IF; 

    v_return := To_date(p_string, p_format); 

    RETURN v_return; 
EXCEPTION 
  WHEN OTHERS THEN 
             alrt := Show_alert('TEST_DATE'); 
             RAISE form_trigger_failure; 
END valid_date; 

 PROCEDURE ptunel (a VARCHAR2 )
IS
  --k varchar2(30):='user number';
  al ALERT;
  alrt PLS_INTEGER;
  --show_alert('TEST_NUMBER');
  -- alrt :=show_alert('TEST_CHAR');
BEGIN
  al:=Find_alert('TEST_NUMBER');
  IF NOT Id_null(al) THEN
    Set_alert_property(al,title,'use number');
    Set_alert_property(al,alert_message_text,'enter the number');
    -- alrt :=show_alert('TEST_CHAR');
  ELSE
    Message('alert is null ');
    Message('alert is null ');
    RAISE form_trigger_failure;
  END IF;
  FOR i IN 1..Length(a)
  LOOP
    IF NOT
      (
        (
          Ascii(Substr(a,i,1))>=48
        )
        AND
        (
          Ascii(Substr(a,i,1))<=57
        )
      )
      THEN
      alrt:=Show_alert('TEST_NUMBER');
    END IF;
  END LOOP;
END ptunel ;
chat conversation
END 

when-new-forms-instance

Begin
   :Parameter.prev_len := Null;
   
End;

when-timer-expired

Declare
   curr_len Number;
   timer_str TIMER;
   chr_to_asc Number;
   entered_val char;
   
Begin
	
	 	   curr_len := Length(:enter_num);
	 	   
	 	   If curr_len > :Parameter.prev_len or curr_len = 1 Then
	 	        Select substr(:enter_num,-1,1) into entered_val from dual;
	 	        Select ascii(entered_val) into chr_to_asc from dual;
	 	        
	 	        If chr_to_asc Not Between 48 and 57 Then
	 	   	          If Show_Alert('ALR') = Alert_Button1 Then
	 	   	          	   Null;
	 	   	          End If;	   
	                :enter_num := Substr(:enter_num,1,length(:enter_num)-1);
	 	        End If;	    
	 	        
	 	   End If;
	 	   
	     :Parameter.prev_len := curr_len;
	     timer_str := Create_Timer('timer_textitm_num', 50, No_Repeat);
	 	   
End;	 

TRIGGERS

PRE-TEXT-ITEM

Declare
	timer_str TIMER;

Begin
	
	 timer_str := Find_Timer('timer_textitm_num');
	 If Id_Null(timer_str) Then
	     timer_str := Create_Timer('timer_textitm_num', 50, No_Repeat);
	 End If;    
	 
End;	 

TRIGGER

POST-TEXT-ITEM

Begin
	 Delete_Timer('timer_textitm_num');
End;