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