Bonjours,
J’ai un enregistrement Opération contient le rubrique numéro de l’opération j’ai affiché cet enregistrement dans une table et Je veux quand je supprime une opération depuis la table toutes les opérations après l’opération supprimé décale (je veux modifier uniquement les numéros des opérations)
Exemple : par exemple j’ai dans la table d’Opération les opérations de numéro (le numéro est un clé unique) suivant : 1 , 2, 3, 4, 5, 6….
Je veux quand je supprime l’opération numéro 2 toutes les opérations qui suit cette opération décale comme ça :
1 , 2, 3, 4, 5, 6 (je supprime l’opération 2)->1,2, 3, 4, 5 (c-à-d après a partir de l’opération 2 je soustrait1 c-à-d : (3-1), (4-1), (5-1), (6-1) )
1 , 2, 3, 4, 5, 6 (je supprime l’opération 1) -> 1,2, 3, 4, 5
1 , 2, 3, 4, 5, 6 (je supprime l’opération 6) -> 1,2, 3, 4, 5
Ma question est comment je peux faire ça dans windev j’ai essayé avec le code suivant ms ça ne marche plus quelqu’un peut me donner une idée svpppppp
Le code que j’ai implémenté :
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46 SI TableSelect(TABLE_Opérations) = -1 ALORS RETOUR //1 : &Supprimer //2 : &Ne pas supprimer SELON Dialogue("") // &Supprimer CAS 1 //je récupère le numéro de l'enregistrement en cours dans une table fichier. RecNumEnr est un entier RecNumEnr = TableNumEnr(TABLE_Opérations) // requète pour récupérer le numéro de l'opération sélectionner dans la table sText_NumOpREQ1 est une chaîne = ChaîneConstruit(" SELECT Opérations.Numéro FROM Opérations WHERE Opérations.IDOpérations= ( %1)", RecNumEnr) sdNumOpREQ1 est une Source de Données HEx_NumOpREQ1, sRecNumOp est une chaîne HEx_NumOpREQ1=HExécuteRequêteSQL(sdNumOpREQ1, sText_NumOpREQ1) sRecNumOp=Opérations.Numéro //le numéro de l'opération sélectionner dans la table nIntiger est un entier nIntiger=sRecNumOp // je Supprime l'enregistrement Opérations à partir de la table TableSupprime(TABLE_Opérations) // je soustrait 1 pour toutes les numéro des opérations qui suit l'opération supprimé i est un entier POUR i = RecNumEnr+1 _A_ HNbEnr(Opérations) -1 HLit(Opérations, i) nIntiger=nIntiger -1 Opérations.Numéro=nIntiger HModifie(Opérations) TableAffiche(TABLE_Opérations, taCourantPremier) FIN //Info(ResNumEnr, " " ,sRecNumOp) // Positionnement sur l'enregistrement courant // &Ne pas supprimer CAS 2 FIN
Partager