Bonjour à tous,
Je travaille avec DevSuite 10g et XP. Actuellement, je developpe une application sous Forms.
J'ai un ITEM qui recoit une valeur d'une LOV.
Avec le menu par defaut, je procéde comme suit pour executer mon application:
J'ai enlevé le menu par defaut. J'ai introduit du code dans le TRIGGER KEY-LISTVAL pour produire la meme demarche (ci-dessus), mais ca ne marche pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 1- Enter Query (menu) 2- Sélectionne une valeur de la LOV 3- Execute Query (menu)
Je ne vois pas comment procéder pour avoir une exécution sans passer par le menu.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 BEGIN ENTER_QUERY; v_choix := Show_Lov('LOV_1'); IF NOT v_choix THEN Set_Alert_Property( 'ALERT_1', ALERT_MESSAGE_TEXT, 'Vous n''avez pas selectionner un code !' ) ; v_Alert := Show_Alert( 'ALERT_1' ) ; Bell; ABORT_QUERY; RAISE Form_Trigger_Failure; ELSE SET_BLOCK_PROPERTY('Block_1', DEFAULT_WHERE, ':champ_1 := Condition'); EXECUTE_QUERY; END IF; END;
Merci d'avance de votre aide.
Partager