Oracle Forms- 'FND_MESSAGE' вопрос

Question

Я создал один POPUP в формах Oracle (Пользовательские ФАПЧ - Oracle EBS R12)

fnd_message.set_name ('XX', 'CASCADE_SHIPPING_METHOD'); 
 
     -- fnd_message.show; 
 
     n_button_selection := 
 
      fnd_message.question ('Yes', 
 
            'No', 
 
            '', 
 
            1, 
 
            2, 
 
            3); 
 
    
 
    
 
IF n_button_selection = 1 
 
     THEN 
 
      Procedure1(); 
 
     ELSIF n_button_selection = 2 
 
     THEN 
 
      Procedure2(); 
 
     ELSE 
 
      NULL; 
 
     END IF;

Этот код работает отлично, Но, если ЗАКРЫТЬ Пользователь форму (щелкнув по значку «X»), то выполняется условие ELSIF и вызывается процедура2. Я ожидаю, что управление будет ELSE и ничего не делать. Просьба помочь.

Я изменил код, как

fnd_message.set_name ('XX', 'CASCADE_SHIPPING_METHOD'); 
 
     
 
     n_button_selection := 
 
      fnd_message.question ('Yes', 
 
            'No', 
 
            'Cancel', 
 
            1, 
 
            2, 
 
            3); 
 

 
     --If user select "Yes" option to cascade, then enter inside if and call the proc to cascade 
 

 
     IF n_button_selection = 1 
 
     THEN 
 
      MESSAGE('Pressed Yes-For Lines Cascading'); 
 
      shipping_method (l_header_id, 
 
          ship_method, 
 
          'Lines'); 
 
     ELSIF n_button_selection = 2 
 
     THEN 
 
     MESSAGE('Pressed No-For Header Cascading'); 
 
      shipping_method (l_header_id, 
 
           ship_method, 
 
           'Header'); 
 
     ELSE 
 
      \t MESSAGE('Inside ELSE Condition'); 
 
      NULL; 
 
     END IF;

, но по-прежнему Если закрыть форму управления Переход к Кнопка выбора 2, который ELSIF.

Answer 1

Попробуйте это:

fnd_message.set_name ('XX', 'CASCADE_SHIPPING_METHOD'); 
     -- fnd_message.show; 
     n_button_selection := 
      fnd_message.question ('Yes', 
            'No', 
            'Cancle', 
            1, 
            3); 


IF n_button_selection = 1 
     THEN 
      Procedure1(); 
     ELSIF n_button_selection = 2 
     THEN 
      Procedure2(); 
     ELSE 
      NULL; 
     END IF;