Discussion :

[planeurbret]

Bonjour à tous,

Je suis confronté à un vrai problème impactant.

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
 
POUR nLigne = 1 _À_ TABLE_Contenus..Occurrence
	SI TABLE_Contenus[nLigne].COL_QtéSortie > 0 ALORS
		HLitRecherche(Stock, CodeBarre, TABLE_Contenus[nLigne].COL_CodeBarre)
 
				//Ajout de la sortie stock
				SortieStock.CodeArtCodeColoris 	= TABLE_Contenus[nLigne].COL_CodeARTColoris
				SortieStock.Code_article 		= Stock.Code_article
				SortieStock.CodeColoris 		= Stock.CodeColoris
				SortieStock.Crééle				= DateDuJour()+Gauche(Maintenant(),6)
				SortieStock.CrééPar				= G_User
				SortieStock.Quantite			= TABLE_Contenus[nLigne].COL_QtéSortie
				SortieStock.DateSortie			= DateSys()
				SortieStock.PrixSortiePMP		= TABLE_Contenus[nLigne].COL_PMP
				SortieStock.PrixSortiePxAchat	= TABLE_Contenus[nLigne].COL_DernierPXAchat
				SortieStock.CdeNum				= "SORTIES"
				SortieStock.Client				= "POSEURS"
				SortieStock.Motif				= "Sortie de stock - POSEURS"	
				HAjoute(SortieStock) 
				HLitRecherchePremier(Stock, CodeArtCodeColoris, SansEspace(TABLE_Contenus[nLigne].COL_CodeARTColoris))
				SI HTrouve(Stock) ALORS
					Stock.QteEnStock	= Stock.QteEnStock - TABLE_Contenus[nLigne].COL_QtéSortie
					Stock.QteSorties	= Stock.QteSorties + TABLE_Contenus[nLigne].COL_QtéSortie
					Stock.ModifiéLe		= DateDuJour() + Gauche(Maintenant(),6)
					Stock.ModifiéPar	= G_User//"TermCS40"
					HModifie(Stock)
					SI HErreur() ALORS
						Erreur("1127. Erreur lors d'accès à la table Stock")
						HSupprime(SortieStock)		// on vire la sortie de stock car la MAJ du stock a échoué
					FIN
				FIN
Fin
Fin

Et en fait, dans ce code, juste l'ajout dans sortiesStock est effectué. La modification ne se fait pas alors que l'article est bien présent...

Pouvez vous m'aider ?
J'ai essayé par une requete d'update, le résultat est le même.
Quand je passe en mode débug, cela fonctionne bien ...

Je suis un peu perdu en fait.

[planeurbret]

en fait, j'ai rajouté la foncton val() devant les deux lignes du tableau dans mes calculs

[frenchsting]

Un conseil : utilse HLitRecherchePremier plutôt que HLitRecherche. Avec ce dernier, tu risques d'avoir des surprises.

[planeurbret]

Un conseil : utilse HLitRecherchePremier plutôt que HLitRecherche. Avec ce dernier, tu risques d'avoir des surprises.

Merci de ton retour =)