Clear_record

Question

Hi all
i have the following code in my post-record at the block level
DECLARE
    v_alert_button NUMBER;
    timer_id Timer;
  tm NUMBER(5) := 1;
BEGIN
   IF :global.record_status = 'CHANGED' THEN
        IF :global.exit_form ='NO' THEN 
           fnd_message.set_string('in record--'||:system.record_status);
           fnd_message.show();
          v_alert_button := SHOW_ALERT('UPDATE_RECORD'); -- "Do you want to update?"
      IF v_alert_button = ALERT_BUTTON2 THEN
            IF :system.record_status = 'INSERT' THEN
                 fnd_message.set_string('in insert--'||:system.record_status);
              fnd_message.show();
                 Clear_Record;
             fnd_message.set_string('after clear--'||:system.cursor_record);
              fnd_message.show();
            ELSE     
         :details.ITEM_NUMBER := GET_ITEM_PROPERTY(details.ITEM_NUMBER', DATABASE_VALUE);
         :details.DESCRIPTION := GET_ITEM_PROPERTY(details.DESCRIPTION', DATABASE_VALUE);
         :details.SN_FORMAT1 := GET_ITEM_PROPERTY(details.SN_FORMAT1', DATABASE_VALUE);
         :details.SN_FORMAT2 := GET_ITEM_PROPERTY(details.SN_FORMAT2', DATABASE_VALUE);
         :details.SN_FORMAT3 := GET_ITEM_PROPERTY(details.SN_FORMAT3', DATABASE_VALUE);
         Set_Record_Property( :SYSTEM.CURSOR_RECORD, 'details', STATUS, QUERY_STATUS);
         END IF;
         --RAISE FORM_TRIGGER_FAILURE;
      ELSIF v_alert_button = ALERT_BUTTON1 THEN
         timer_id := CREATE_TIMER('my_timer', tm, NO_REPEAT);
      END IF;
      :global.record_status := 'QUERY';
    END IF; 
   ELSE
      :global.record_status := 'QUERY';        
     end if;
END;     In the above code when i am inserting a new record and i navigate out of the record i fire an alert which asks whether the user wants to save his changes
if the user presses yes then the record is saved
if the user presses no then the record is not saved
but in case the user presses no the record should not be saved(which is working)
and also the record inserted should be cleared
which is what i am trying to do do from the above code
i have written a clear_record which seems that it is not working
Please help me
thanks
satish
Edited by: abcdxyz on Nov 18, 2010 11:54 AM

Answer 1

Hi,
     IF :system.record_status = 'INSERT' THEN
          fnd_message.set_string('in insert--'||:system.record_status);
     fnd_message.show();
          Clear_Record;As, you know that restricted built-in you can not be use in POST-RECORD trigger. So, create one more timer to perform the CLEAR_RECORD as below.
IF :system.record_status = 'INSERT' THEN
  fnd_message.set_string('in insert--'||:system.record_status);
  fnd_message.show();
  MyVariable:=CREATE_TIMER('MY_TIMER1',NO_REPEAT,10);
....and in WHEN-TIMER-EXPIRED use the code as below.
IF GET_APPLICATION_PROPERTY('TIMER_NAME')='MY_TIMER1' THEN
  CLEAR_RECORD;
ELSE  -- Here will work for the MY_TIMER
  -- Place the existing code here...
END IF;-Ammad