Discussion :

[killua86]

bonjour tt le monde

j'ai crée un bloc de données (de type tabulaire) d'une table :employé(numero,nom,...), et j'ai défini la colonne 'numero' comme une case à cocher
comment procéder pour 'supprimer' les employés cochés avec un bouton "supprimer"

merci d'avance

[McM]

Tu parcoures sur ton block, et quand la ligne est cochée, tu fais un delete_record.
Attention, il y a un piège : quand tu fais un delete_record, le curseur passe sur la ligne suivante (donc faut pas faire de next_record dans ce cas)

Exemple simplifié (reste à gérer le changement de record sur le delete_record et le fait de supprimer le dernier enregistrement.

Code :

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

1
2
3
4
5
6
7
8
GO_BLOCK('mon_block');
First_Record;
LOOP
 IF checkbox_checked('mon_block.ck') THEN DELETE_RECORD; 
 END IF;
EXIT WHEN :system.last_record = 'TRUE';
NEXT_RECORD;
END LOOP;

[SheikYerbouti]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
GO_BLOCK('mon_block');
First_Record;
LOOP
   IF checkbox_checked('mon_block.ck') THEN DELETE_RECORD; 
   Else
      If  :system.last_record <> 'TRUE' Then
         Next_Record ;
      End if ;
   END IF;
   EXIT WHEN :system.last_record = 'TRUE';
END LOOP;

[McM]

Marche pas si les 2 dernières lignes sont cochées : Le delete record de l'avant dernière ligne passe à la dernière ligne, et tu sors.

Voici un code que j'avais fait (mais qui faisait d'autres calculs donc plus compliqué : Il ne fallait surtout pas revérifier une ligne, d'où le test sur la variable i)

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
FIRST_RECORD;
 
LOOP
	i := :SYSTEM.cursor_record;
 
IF NOT checkbox_checked('block2.ck')
THEN
 
  EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
  NEXT_RECORD;
 
-- Sinon, on delete la ligne			
ELSE
  DELETE_RECORD;	
  IF :SYSTEM.cursor_record < i THEN EXIT; END IF;
  IF :SYSTEM.LAST_RECORD = 'TRUE' AND NOT checkbox_checked('block2.ck')
  THEN EXIT;
  END IF;
END IF;
 
END LOOP;

[SheikYerbouti]

Le NEXT_RECORD n'est fait que si l'on ne DELETE pas, donc ça doit fonctionner dans tous les cas.

[McM]

Bein, non, j'ai testé justement

imagine 2 lignes cochées

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
GO_BLOCK('mon_block');
First_Record;
-- ligne1
LOOP
   IF checkbox_checked('mon_block.ck') THEN DELETE_RECORD; 
-- Ligne1 supprimée, le curseur passe à la ligne 2
 
 Else
-- On n'y passe pas
      If  :system.last_record <> 'TRUE' Then
         Next_Record ;
      End if ;
   END IF;
-- On sort, car on est sur la dernière ligne (ligne2 qui est devenue ligne1)
   EXIT WHEN :system.last_record = 'TRUE';
END LOOP;

Résultat il reste une ligne à l'écran (la ligne2) et elle est cochée.