Discussion :

[bestmoroco]

Salut à tous les développeurs,

Je suis en train de réaliser une application qui me permet de se connecté avec la base sage.
Dans mon logiciel j’ai une table qui permet d’ajouter une quantité d’un article et une autre colonne pour visualiser le stock réel de cette article, à mon code j’ai réalisé une condition qui me permet de coloré la quantité entré en rouge s’il est supérieur au stock réel et une autre condition pour ajouter les quantités à un bon de livraison si la quantité est coloré en noire (Inferieur au stock réel) et s’il est strictement supérieur à 0 sinon il va passer au ligne suivant.

Et voilà le code que j’ai met au bouton de validation.

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
Sablier(Vrai)
POUR i=1 A TableOccurrence(TAB)
	TableSelectPlus(TABL,i)
	NumArticle=TAB.Column1[i]
	// Création de l'OM ligne de document
	PautLigneCDEArticle = PautNVDocDevis>>FactoryDocumentLigne>>Create
	SI TAB. Column3[i]..Color=LightRed ET TAB.Column3[i]<0 ALORS
 
		i++
	SINON
		// Affectation de l'article, le deuxieme parametre est la quantité	PautLigneCDEArticle>>SetDefaultArticle(autGC>>FactoryArticle>>ReadReference(NumArticle),Column3)	
	FIN	
 
	// Ecriture de la ligne
 
	PautLigneCDEArticle>>WriteDefault
	Sablier(Faux)
FIN
Info("L'enregistrement est bien passé")

Merci pour votre temps.

[tatayo]

Bonjour,
Quelle est la question ?

Tatayo.

[zouzoukha]

La question :

Ai je bien fait?

[bestmoroco]

Bonjour,
Quelle est la question ?

Tatayo.

Salut,

Ma question c'est que si j'ai le nombre de quantite est inferieur ou egale a 0 je veux passer à la ligne suivante sinon ajouter l'enregistrement au stock et depuis mon code il ne prend pas en charge mon condition car un message d'erreur me parait (la quantite est superieur au stock).

voila le probleme.

J'ai ressayé avec ce code mais le meme probleme que le precedent.

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
Sablier(Vrai)
POUR i=1 A TableOccurrence(TAB)
	TableSelectPlus(TABL,i)
	NumArticle=TAB.Column1[i]
	// Création de l'OM ligne de document
	PautLigneCDEArticle = PautNVDocDevis>>FactoryDocumentLigne>>Create
	SI TAB. Column3[i]>TAB. Column4[i] OU TAB.Column3[i]=0 ALORS
 
		i++
	SINON
		// Affectation de l'article, le deuxieme parametre est la quantité	PautLigneCDEArticle>>SetDefaultArticle(autGC>>FactoryArticle>>ReadReference(NumArticle),Column3)	
	FIN	
 
	// Ecriture de la ligne
 
	PautLigneCDEArticle>>WriteDefault
	Sablier(Faux)
FIN
Info("L'enregistrement est bien passé")

[tatayo]

Est-ce normal que tu crées une ligne quoi qu'il arrive ?
La ligne 11 est en commentaire, est-ce voulu ?
Si tu mets un point d'arret et que traces ton code en pas à pas, que valent les colonnes 3 et 4 ?

Tatayo.

P.S. sablier(faux) doit sortir de la boucle...

[bestmoroco]

Salut,
Merci pour votre attention, j'ai reussi à rsoudre mon probléme et voila le code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
POUR i=1 A TableOccurrence(TAB)
	TableSelectPlus(TABL,i)
	NumArticle=TAB.Column1[i]
	// Création de l'OM ligne de document
	gpautPautLigneCDEArticle = gpautPautNVDocDevis>>FactoryDocumentLigne>>Create
	SI TAB.Column3[i]>TAB.Column4[i] OU TAB.Column4[i]=0 OU TAB.Column3[i]="" ALORS 		
		TableSelectPlus(TAB,(TableSelect(TAB)+1))
	SINON
		// Affectation de l'article, le deuxieme parametre est la quantité
		gpautPautLigneCDEArticle>>SetDefaultArticle(autGC>>FactoryArticle>>ReadReference(NumArticle),Column3)   
		// Ecriture de la ligne
		gpautPautLigneCDEArticle>>WriteDefault	
	FIN

Merci

[Hemgé]

Bonsoir,

[OUR i=1 A TableOccurrence(TAB)
TableSelectPlus(TABL,i)

Sans me prononcer sur le reste,

1. TAB est une constante prédéfinie de Windev et il est donc déconseillé de l'utiliser autrement que comme telle.
   
2. D'où vient le TABL ? Sans doute TAB avec une faute de frappe. Si votre code est réellement comme cela, il y a un problème à cet endroit.

Hemgé

[tatayo]

J'ajouterai que la ligne 7 ne sert à rien, et va provoquer une erreur si la dernière ligne de la table vérifie la condition de la ligne 6.
Je pense que la ligne 2 ne sert à rien non plus, vu que de toute façon les lignes sont accédées via leur numéro (i).

Tatayo.