Discussion :

[Xsara 167 cv]

Bonjour à tous,

Dans un projet j'ai un HModifie qui ne fonctionne pas et je ne comprends pas pourquoi !? Plusieurs HModifie sont dans le projet et celui-là ne veut rien savoir...

Quelqu'un saurait pourquoi ? Voici mon code.

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
HCréationSiInexistant(F_Adresses)

HLitPremier(Facture)
SI HTrouve() ALORS
	TANTQUE PAS HEnDehors(Facture)
		//	Test de l'adresse de facturation déjà enregistrée
		//	On lit le dossier correspondant dans le fichier dossier
		HLitRecherche(Dossier,IDDossier,Facture.IDDossier)
		SI HTrouve ALORS
			SI SansEspace(Dossier.FactureAdresseDestinataire) = "" ET SansEspace(Dossier.FactureAdresseRue) = "" ALORS
				//	L'adresse est écrite dans la fiche client uniquement
				HLitRecherche(Clients, IDClient, Dossier.IDClient)
				SI HTrouve(Clients) ALORS
					F_Adresses.FactureAdresseDestinataire = Clients.LibClient
					F_Adresses.FactureAdresseRue = Clients.Adresse
					F_Adresses.FactureAdresseCP = Clients.CodePostal
					F_Adresses.FactureAdresseVille = Clients.Ville
					HAjoute(F_Adresses)
				FIN
			SINON
				//	L'adresse est écrite dans le fichier dossier
				F_Adresses.FactureAdresseDestinataire = Dossier.FactureAdresseDestinataire
				F_Adresses.FactureAdresseRue = Dossier.FactureAdresseRue
				F_Adresses.FactureAdresseCP = Dossier.FactureAdresseCP
				F_Adresses.FactureAdresseVille = Dossier.FactureAdresseVille
				HAjoute(F_Adresses)
			FIN		
			Facture.IDF_Adresses = F_Adresses.IDF_Adresses
			HModifie(Facture)		
                  FIN
		HLitSuivant(Facture)
	FIN
FIN

Facture.IDF_Adresses reste toujours à 0.

Merci de votre aide.

Christian.

[mail.spam]

bonjour,

il faudrais tester si les HAjoute(F_Adresses) fonctionne correctement,
puis trace la valeur de F_Adresses.IDF_Adresses
Ensuite teste si HModifie ne rencontre pas d'erreur et affiche l'erreur

[leonidas34]

Premièrement, il faut prendre l'habitude d'utiliser HTrouve() en spécifiant le fichier concerné, cela peut permettre d'éviter des confusions.
Donc tu dois avoir Htrouve(Facture) puis HTrouve(Dossier).

Ensuite, ton premier Htrouve() ne se référe à rien car il n'y a pas eu de recherche ni de filtre auparavant, seulement un positionnement.
Donc la boucle n'est jamais parcourue car Htrouve() renvoie faux.

[Xsara 167 cv]

Bonjour,

Merci à vous deux pour vos réponses.

Pour mail.spam j'ai vérifié tout ça déjà et aucun soucis. Ni de HAjoute, ni d'erreur.

Pour leonidas34 je vais changer le HTrouve() en rajoutant le nom du fichier et je vous tiens au courant.

[Xsara 167 cv]

Même en modifiant HTrouve() avec HTrouve(Facture), cela ne change rien.

[leonidas34]

Je me suis trompé, hlitPremier modifie htrouve()

[nanox]

Après le HAjoute(F_Adresses), l'enregistrement ajouté devient l'enregistrement en cours.

Or F_Adresses.IDF_Adresses n'a pas été renseigné avant le Hajoute() et sa valeur par defaut doit etre 0.

[Xsara 167 cv]

Bonjour Nanox,

La valeur de F_Adresses.IDF_Adresses n'est pas à 0.

Après le HAjoute(F_Adresses) je suis même allé jusqu'à mettre en code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
HLitDernier(F_Adresses)
SI HTrouve(F_Adresses) ALORS
	Facture.IDF_Adresses = F_Adresses.IDF_Adresses
	HModifie(Facture)
	SI ErreurDétectée ALORS
		Info("Impossible de modifier 'enregistrement"+RC+HErreurInfo())
		RETOUR
	FIN
FIN

Mais cela ne change rien.

[Nicolas_Jeanneau]

Bonjour,

peux-tu essayer de mettre une valeur fixe (genre l'id de ta première adresse de la table) pour voir si c'est l'affectation qui déconne ou la valeur par défaut qui reste tout le temps ...

Autre possibilité, ce champ fait partie de la clef unique de la table et ne peux donc pas être changé !

à bientôt,

Nicolas

[tatayo]

Bonjour,
Quelle est la valeur renvoyée par hmodifie ?
Si tu mets un point d'arrêt sur l'affectation, et que tu traces pas à pas le code, quelle est la valeur de F_Adresses.IDF_Adresses ?

Tatayo.

[Xsara 167 cv]

Bonjour,

peux-tu essayer de mettre une valeur fixe (genre l'id de ta première adresse de la table) pour voir si c'est l'affectation qui déconne ou la valeur par défaut qui reste tout le temps ...

Autre possibilité, ce champ fait partie de la clef unique de la table et ne peux donc pas être changé !

à bientôt,

Nicolas

Bonjour Nicolas,

J'ai mis la valeur 1 : facture.IDF_Adresses = 1 et le fichier facture ne prends toujours pas la valeur... Donc ce n'est pas la valeur par défaut qui reste.

Le champ n'est pas une clé unique du fichier. C'est une clé avec doublons.

[Xsara 167 cv]

Bonjour,
Quelle est la valeur renvoyée par hmodifie ?
Si tu mets un point d'arrêt sur l'affectation, et que tu traces pas à pas le code, quelle est la valeur de F_Adresses.IDF_Adresses ?

Tatayo.

Bonjour Tatayo,

hmodifie = vrai
HNumEnr = 1 puis 2, puis 3, etc....
HEnDehors = faux
HTrouve = vrai
HErreur = 0

[tatayo]

Quelle est la valeur de F_Adresses.IDF_Adresses lors de l'execution pas à pas ?

Tatayo.

[Nicolas_Jeanneau]

Bonjour Nicolas,

J'ai mis la valeur 1 : facture.IDF_Adresses = 1 et le fichier facture ne prends toujours pas la valeur... Donc ce n'est pas la valeur par défaut qui reste.

Le champ n'est pas une clé unique du fichier. C'est une clé avec doublons.

Ce que je voulais savoir, c'est si la valeur rentrée en constante (ici la valeur 1) était bien enregistrée avec le HModifie ! Est-ce que c'est le cas ?

Nicolas

[Xsara 167 cv]

Quelle est la valeur de F_Adresses.IDF_Adresses lors de l'execution pas à pas ?

Tatayo.

1 puis 2 puis 3 puis 4, etc... L'incrémentation et l'enregistrement de F_Adresses se fait bien. Et F_Adresses.IDF_Adresses a les bonnes valeurs...

[Xsara 167 cv]

Ce que je voulais savoir, c'est si la valeur rentrée en constante (ici la valeur 1) était bien enregistrée avec le HModifie ! Est-ce que c'est le cas ?

Nicolas

Pardon je me suis mal exprimé. Non valeur non enregistrée avec le HModifie.

[leonidas34]

Quelle valeur renvoie le hmodifie ?

Il est possible qu'un verrou ait été posé sur un enregistrement.

[Xsara 167 cv]

Valeurs du HModifie :

hmodifie = vrai
HNumEnr = 1 puis 2, puis 3, etc....
HEnDehors = faux
HTrouve = vrai
HErreur = 0

Voili voilou

[tatayo]

Est-ce que tu as un trigger sur la table ?
Quelle est la valeur de Facture.IDF_Adresses juste après le hModifie ?
Est-ce que tu as encadré le tout par une transaction ?

Tatayo.

[Nicolas_Jeanneau]

Regardes le format du champ qui a mon avis ne doit pas être un numérique ... !