Bonjour,
Je suis en train de développer un écran qui contient un bloc de données. j'essaie d'alimenter ce bloc avec des données extraites d'un curseur.
La raquete du curseur s'exécute parfaitement. mais l'élément du bloc de données n'affiche que le dernier record du curseur.
Comment faire pour que ce bloc affiche toute la liste?

voici le code que j'exécute dans le déclencheur WHEN-NEW-RECORD-INSTANCE:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
declare
	ctrl_labe VARCHAR2(100);
	ctrl_code number(10,2);
	ret number;
	cursor ctrl_cur is
		select CON_CODE, CON_LABE from control
		where con_inte='N' and con_pmgr='N' and con_ptyp='O';
 
begin
	if(:pty_code is null and :pty_iden is null) then
	   for ctrl_cur_row in ctrl_cur loop
		EXIT WHEN ctrl_cur%NOTFOUND;
		--PROD_TYPE_CONT_ACTI_ONLINE
		:PROD_TYPE_CONT_ACTI_ONLINE.CONTROL.CON_LABE := ctrl_cur_row.con_labe;
		:PROD_TYPE_CONT_ACTI_ONLINE.ACTION_LIST := 'Decline';
		:PROD_TYPE_CONT_ACTI_ONLINE.ACTION_LIST_ON := 'Decline';
		:PROD_TYPE_CONT_ACTI_ONLINE.ACTION_LIST2_ON 	:= 'Decline';
 
	:PROD_TYPE_CONT_ACTI_ONLINE.PTC_CON_CODE := ctrl_cur_row.con_code;
		:PROD_TYPE_CONT_ACTI_ONLINE.PTC_ACT_CODE := 2;
		:PROD_TYPE_CONT_ACTI_ONLINE.PTC_ACT_VIP1_CODE := 2;
		:PROD_TYPE_CONT_ACTI_ONLINE.PTC_ACT_VIP2_CODE := 2;
 
	end loop;
	end if;
 
	exception when others then
		ret := msgbox(sqlcode || ' ' || sqlerrm);
 
	end;