[Forms 6i] Detection des lignes sélectionnées [Résolu]

[Karim.1]

Bonjour,

Dans le module OM d'Oracle Application il existe une forme de prise de commande qui contient en particulier un block de ligne de commande.

Ce Data block (LINE) se base sur une vue standard oracle.

Je souhaite que l'utilisateur sélectionne qq lignes de ce block puis clique sur un menu instantanné (Bouton droit de la souris) pour lancer un traitement.

Mon traitement doit donc détecter parmi les lignes du block celles qui ont été sélectionnées (fond vert pour le thème de base).

Ma question :
Comment fait-on pour détecter les lignes sélectionnées.
Sachant que le Get_Group_Selection doit s'appuyer sur un Record Group (ce qui n'est pas le cas).

Merci de votre réponse

[SheikYerbouti]

Comment fait-on pour détecter les lignes sélectionnées

Question : comment sélectionnez-vous les lignes ?

[Karim.1]

C'est l'utilisateur qui sélectionne les lignes avec CTRL ou SHIFT + Souris

[plaineR]

OK, mais dans le code vous devez bien flaggé les lignes sélectionnées, non ?

[SheikYerbouti]

J'entends bien, mais quel est le code derrière ? un champs caché qui est valorisé ?

[Karim.1]

Au fait je dois prendre la main sur un ecran standard d'Oracle Appli, je ne trouve justement pas ou Oracle aurait mis un flag sur les lignes sélectionnées. C'était le but de ma question.

J'aurais aimé chercher sur des mots clé ou des habitudes de travail en fonction de votre réponse dans le code à tiroir d'Oracle.

On aurait pu pensé qu'il existe un évènement ou autre chose pour détecter la sélection d'une ligne.

[SheikYerbouti]

Hum...
Si ce type d'action peut être généralisé à tous les écrans, le traitement doit certainement être centralisé dans une librairie PL/SQL, appelé par un trigger When-Mouse-Doubleclick

[Karim.1]

Pour ceux que ça intéresse voici comment j'ai pu résoudre le pb :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
tmp_str      VARCHAR2(2000):='LINES --'; 
  the_val      NUMBER; 
	the_Rowcount NUMBER;
 
  V_Rec_Num    NUMBER;
  gc_id        GroupColumn; 
 
 
BEGIN 
 
	gc_id  := App_Multi.Get_Group_Col('LINE');
	the_Rowcount   := App_Multi.Get_Group_Count('LINE');
 
	FOR j IN 1..the_Rowcount Loop
	  V_Rec_Num := Get_Group_Number_Cell(gc_id,j);
	  Go_Record(V_Rec_Num);
	  IF get_item_instance_property('LINE.ORDERED_ITEM_DSP',V_Rec_Num,VISUAL_ATTRIBUTE) = 'SELECTED_DATA' THEN
	     tmp_str := tmp_str || ' - ' || :LINE.LINE_SHIPMENT_OPTION_NUMBER; 
	  End IF;	
	End Loop;
 
  Message(tmp_str, ACKNOWLEDGE);

[plaineR]

Merci de nous faire partager ta solution, cela pourra servir à quelqu'un à l'avenir