[forms 9i] case à cocher : suppression multiple [Résolu]

[ramaro]

bonsoir à tous,

j'ai une liste d'enregistrements (data block ) basée avec quelques enregistrements affichées dans ma 'form'(number of record displayed) avec des cases à cocher à droite de chaque enregistrement où on peut effectuer une selection multiple et supprimer en même temps tous les enregistrements dont les cases à droite sont cochées.

merci

[SheikYerbouti]

Quelle est la question ?

[ramaro]

Comment faire une suppression multiple des enregistrements avec des cases à cocher?
Merci

[SheikYerbouti]

Et bien je suppose qui faut boucler sur tous les enregistrements et les supprimer lorsque cette case est cochée.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Begin
  First_record ;
  Loop
    IF :blk.case = 'O' Then -- coché
       delete_record ;
    Else
       IF :system.last_record <> 'TRUE' Then
          next_record ;
       Else
          exit ;
       End IF ;
   End IF ;
  End loop;
  First_record ;
End;