Discussion :

[StephCoul]

Okay, ce que je propose, c'est de délier le champ de saisi (mettre la liaison à aucun)

ensuite tu remplace le "SAI_conditionnement" (qui existait dans le code que j'avais déjà envoyé) par "conditionnement" puisque c'est ça le nom de ton champ de saisi

[anakinsqt]

Bonjour,
Je remercie toutes les personnes qui ont pris le temps de m'aider avec amabilité. Par contre pour le modérateur et deux autres personnes qui n'ont fait que me faire comprendre que j'étais nul, il n'en ai pas de même.
Mon problème est résolu avec une autre aide, voici le code au cas où d'autres personnes seraient dans l'impasse.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
// Recherche du Conditionnement du Produit
HLitRecherchePremier(Produit,IDProduit,MoiMême)
 
//Si on le trouve, on récupère le Conditionnement du Produit	
	SI HTrouve() ALORS Conditionnement=Produit.Conditionnement
 
// Recherche du Prix du Produit
HLitRecherchePremier(Produit,IDProduit,MoiMême)
 
// Si on le trouve; on récupère le Prix du Produit	
	SI HTrouve() ALORS Prix=Produit.Prix

Bonne journée

[tbc92]

Parmi les bonnes pratiques de développement, il y en a une qui dit que les champs de saisie devraient tous s'appeler SAI_ suivi de quelque chose.

Un des avantages, c'est que ça simplifie la communication entre informaticiens : on voit une variable dont le nom commence par SAI_ .. on sait qu'il s'agit d'un champ de saisie. Si c'est un nom qui commence par tb, c'est un table ou un tableau. C'est très utile.
C'est quasiment le premier chapitre de l'autoformation. Soit on fait l'effort de lire l'autoformation, et après on avance vite, on ne pose pas des question inutiles. Soit on ne fait pas cet effort, et après, chaque mini-besoin devient un truc insurmontable qui demande des semaines au lieu de demander 3 minutes.

Point n°2 : Un champ de saisie est soit alimenté par programmation, soit relié à une rubrique de fichier. Si tu as un champ de saisie qui est relié à une rubrique de fichier, et que tu le remplis par programmation (ce que tu es en train de faire d'après la dernière copie d'écran), c'est qu'il y a un gros problème.

[Yusep]

Le code que vous avez mis comme solution vous avait été proposé ici.
Il faut lire attentivement les réponses données.
Ce code est la base même de Windev. L'aide vous explique clairement comment utiliser ces commandes du Wlangage.
La solution vous a convenue quand dans un autre forum on vous a envoyé un projet avec la solution.
Apprenez une lesson de cette expérience :
Il faut essayer de comprendre comment fonctionne Windev. Bien que tout soit en Français, il faut faire l'effort de comprendre les instructions.
Bon courage pour la suite.

[tbc92]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
// Recherche du Conditionnement du Produit
HLitRecherchePremier(Produit,IDProduit,MoiMême)
 
//Si on le trouve, on récupère le Conditionnement du Produit	
	SI HTrouve() ALORS Conditionnement=Produit.Conditionnement
 
// Recherche du Prix du Produit
HLitRecherchePremier(Produit,IDProduit,MoiMême)
 
// Si on le trouve; on récupère le Prix du Produit	
	SI HTrouve() ALORS Prix=Produit.Prix

Le code ci-dessus est un exemple de code très mal fait.

La première amélioration à apporter , c'est de faire ça :

Code :

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

1
2
3
4
5
6
7
8
// Recherche du Conditionnement du Produit
HLitRecherchePremier(Produit,IDProduit,MoiMême)
 
//Si on le trouve, on récupère le Conditionnement et le prix du Produit	
SI HTrouve() ALORS
             Conditionnement=Produit.Conditionnement
             Prix=Produit.Prix
FIN

Le programme va aller 2 fois plus vite. Ce n'est pas vraiment sensible côté 'temps de réponse', mais ça veut aussi dire qu'on va saturer le réseau 2 fois moins que dans le 1er cas. Et même si les problèmes de performance sont secondaires, faire la même opération 2 fois de suite alors qu'une fois ça suffit, ça n'a pas d'intérêt.

La 2ème amélioration à apporter, c'est de traiter les cas d'erreur. Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
// Recherche du Conditionnement du Produit
HLitRecherchePremier(Produit,IDProduit,MoiMême)
//Si on le trouve, on récupère le Conditionnement et le prix du Produit	
SI HTrouve() ALORS
             Conditionnement=Produit.Conditionnement
             Prix=Produit.Prix
SINON
             Conditionnement = ""
             Prix = 0
             Erreur ( "Erreur, IDProduit non retrouvé", IDProduit , herreurinfo())
FIN

Sans cette gestion, en cas d'erreur, l'utilisateur va voir une information qui ne correspond pas au produit qu'il a sélectionné, et il n'en saura rien.

[anakinsqt]

Bonjour,
Merci pour cette amélioration, cependant j'ai un autre petit souci. Le prix saisi dans ma fiche Entrée Stock renvoie 0,00 € dans ma table Entré Stock. Ce qui est bizarre c'est que cela fonctionne très bien pour la Sortie stock
Pouvez-vous une dernière fois m'aider.
Merci beaucoup

[Voroltinquo]

Je suppose que tu n'as pas modifié ton analyse.