Discussion :

[brad1024]

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;

[SheikYerbouti]

Simple question : pourquoi ne pas simplement baser le bloc sur la table ?

[brad1024]

C'est fait un block détail dans une relation Maitre-Détail.
Et le block est basé.
Le problème est que les données que je veux afficher ne sont pas encore insérées dans la table en question. Elles sont extraites d'une autre table.

[plaineR]

Il manque un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

next_record;

[brad1024]

J'ai déjà essayé de rajouter "next_record;".
Malheureusement ça ne marche pas

[SheikYerbouti]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Loop
   ...
   If :system.record_status <> 'NEW' Then Create_Record; end if ;
   ...
End loop;