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

Version imprimable

05/04/2006, 10h37
Karim.1

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

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
05/04/2006, 11h10
SheikYerbouti

Citation:

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

Question : comment sélectionnez-vous les lignes ?
05/04/2006, 11h23
Karim.1

C'est l'utilisateur qui sélectionne les lignes avec CTRL ou SHIFT + Souris
05/04/2006, 11h28
plaineR

OK, mais dans le code vous devez bien flaggé les lignes sélectionnées, non ?
05/04/2006, 11h29
SheikYerbouti

J'entends bien, mais quel est le code derrière ? un champs caché qui est valorisé ?
05/04/2006, 11h37
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.
05/04/2006, 11h49
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

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);

10/04/2006, 17h45
plaineR

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