Discussion :

[T1929D]

bonjour à tous,

j'ai une table ' table_article' lien avec la table 'article' dans ma base, avec une requête , je peux afficher la date de dernière commande d'un article, mais je peux pas les enregistrer dans ma base, j'ai besoin de votre aide , merci d'avance

voici mes code dans 'fin initialisation de table table_article'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
nBligne est un entier = TableOccurrence(TABLE_Article)
i est un entier
sRefarticle est une chaîne
POUR i =1 A nBligne
	sRefarticle = TABLE_Article[i].COL_Ref_article
	SI HExécuteRequête(REQ_chercherdatederniercommande,hRequêteDéfaut,sRefarticle)= Vrai ALORS
		HLitPremier(REQ_chercherdatederniercommande)
		TABLE_Article[i].COL_Date_dern_cde = Max(REQ_chercherdatederniercommande.date_commande)
		Article.date_dern_cde = TABLE_Article[i].COL_Date_dern_cde
 
	FIN
FIN
HModifie(Article)

[michel.souris]

Bon je vais te répondre.... mais j'irais pas te débugger ton programme comme tu semble le demander à chaque fois...

Déjà je pense que tout ce que je vais te dire te serais apparu de façon évidente en passant au débugueur !!!

Donc :

Ton hModifie() en dehors de la boucle... tu vas mettre à jour que le dernier enregistrement, je suppose que ce n'est pas ce que tu veux.

Ensuite je comprends pas bien pourquoi tu mets un max() mais il n'y a qu'une valeur dedans donc c'est inutile... du moins j'en vois pas l'intérêt puisque c'est ta requête qui est sensé te renvoyer la dernière date.

Enfin, et là on entre dans le subjectif, mais je trouve pas normal que l'init d'une interface aille modifier des données.

[Atsibat]

Bonjour,

+++ pour Michel sur ses trois ponts ( on ne peut pas donner trois avis positifs )
avec une dernière erreur TRES GRAVE !!!
dans ton code :

Code :

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

1
2
3
HLitPremier(REQ_chercherdatederniercommande)
		TABLE_Article[i].COL_Date_dern_cde = Max(REQ_chercherdatederniercommande.date_commande)
		Article.date_dern_cde = TABLE_Article[i].COL_Date_dern_cde

tu ne parcours jamais ton fichier de donnée Article, uniquement ta requête.
(le curseur sur "Article.FIC" ne bouge jamais)
le Hmodifie ne changera rien même si il est dans la boucle...

[michel.souris]

Ah ouais j'avais même pas vu le Article pas ouvert ! c'est pourtant énorme....

[T1929D]

merci pour votre réponse , merci pour vos idées, j'ai modifié mes codes

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
 
nBligne est un entier = TableOccurrence(TABLE_Article)
i est un entier
sRefarticle est une chaîne
dernierdate est une Date
POUR i =1 A nBligne
	sRefarticle = TABLE_Article[i].COL_Ref_article
	SI HExécuteRequête(REQ_chercherdatederniercommande,hRequêteDéfaut,sRefarticle)= Vrai ALORS
		HLitPremier(REQ_chercherdatederniercommande)
		TABLE_Article[i].COL_Date_dern_cde = Max(REQ_chercherdatederniercommande.date_commande)
	FIN
	dernierdate = TABLE_Article[i].COL_Date_dern_cde
	HLitRecherchePremier(Article,ref_article,sRefarticle)
	SI HTrouve(Article) = Vrai ALORS
		Article.date_dern_cde = dernierdate
	FIN
	HModifie(Article)
FIN

maintenant ça marche, merci encore à vous deux pour vos réponses , merci

[Atsibat]

Bonjour,

juste pour info dans le code

Code :

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

1
2
3
HLitRecherchePremier(Article,ref_article,sRefarticle)
	SI HTrouve(Article) = Vrai ALORS
		Article.date_dern_cde = dernierdate

le Htrouve est inutile car comme le dit le nom de la méthode dans HlitrecherchePremier il y a "lit" et "recherche" donc ce code suffit :

Code :

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

1
2
SI HLitRecherchePremier(Article,ref_article,sRefarticle) ALORS
		Article.date_dern_cde = dernierdate

Bon dev

[Luckyben]

Pour chipoter, ce bloc :

Code :

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

1
2
3
4
5
6
 
dernierdate = TABLE_Article[i].COL_Date_dern_cde
SI HLitRecherchePremier(Article,ref_article,sRefarticle) ALORS
	Article.date_dern_cde = dernierdate
FIN
HModifie(Article)

devrait être logiquement dans la condition :

Code :

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

1
2
 
SI HExécuteRequête(REQ_chercherdatederniercommande,hRequêteDéfaut,sRefarticle)= Vrai ALORS

car il faut s'assurer que ta requête ait bien été exécutée au moment où tu mets à jour ton fichier Article (via lecture du retour de la requête).

[T1929D]

merci beaucoup, vous conseils sont très utiles pour un débutant comme moi, merci beaucoup !