Discussion :

[Asphin]

Bonsoir chère tout le monde voici mon problème:
J'écris le code suivant pour la modification d'un Enregistrement dans le Fichier PAYS. Cependant, il s'exécute bien lorsque dans ma table mémoire il n'y à k'un seul enregistrement, mais lorsqu'il y'à deux la modification affecte tous les deux enregistrements.

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
HLitRecherche(REGION,Pays_id,REGION.Pays_id)
TANTQUE HTrouve()
	HModifie(REGION)
	HLitSuivant(REGION,IDREGION)
FIN
 
HLitRecherche(pays,Pays_id,pays.Pays_id)
SI  HTrouve() ALORS
	pays.Pays_code=SAI_Code_Pays
	pays.Pays_codetel=SAI_Code_Tel
	pays.Pays_description=SAI_description
	pays.Pays_nom=SAI_pays
	pays.Pays_statut=Choix
	HModifie(pays)
	Info("Modification effectuée avec succès")
	FIN

Voici la structure des fichiers PAYS ET REGION:

PAYS(ID_Pays auto;Code;Code_Tel;Nom;Statut;Description)
REGION(ID_Regionauto;Nom;Statut;Description;ID_Pays#)

[tatayo]

Bonjour,
A quoi sert la première boucle ? Tu parcours le fichier région, n'y fait aucune affectation et lance un hModifie()... J'ai d'ailleurs un doute sur cette boucle.
ensuite je ne vois pas trop comment ton code peux modifier plusieurs pays, sans aucune boucle sur ce fichier.
Mon premier conseil est de placer un point d'arrêt sur la première ligne, et de suivre le code pas à pas pour bien comprendre ce qu'il se passe.

Tatayo.

[tbc92]

Il y a d'autres choses bizarres dans ce code.

Code :

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

1
2
 
HLitRecherche(REGION,Pays_id,REGION.Pays_id)

C'est le region.Pays_id à la fin qui me tracasse.

Region.Pays_id, c'est l'Identifiant Pays de la structure région. Autrement dit, ça me semble être l'identifiant pays du dernier enregistrement lu dans le fichier REGION.

Donc on va relire la même ligne que la dernière ligne lue dans ce fichier région ?

Par ailleurs ( c'est peut-être le même bug), tu parles d'une table mémoire. Habituellement, les noms des champs tables sont de la forme TAB_REGION ou TAB_PAYS. Ce n'est pas une obligation, mais ça aide bien à lire le code. Ici,tu parles d'une table mémoire, mais je ne vois pas du tout où cette table mémoire intervient.

[Ry_Yo]

En plus des remarques des autres utililsateurs, attention, en Windev il existe 2 syntaxes pour rechercher :

HLitRecherche() et HLitRecherchePremier()...

Le comportement des 2 est différents. Je vous laisse vous référez aux aides respectives de ces fonctions.

Cordialement.

[Asphin]

Il y a d'autres choses bizarres dans ce code.

Code :

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

1
2
 
HLitRecherche(REGION,Pays_id,REGION.Pays_id)

C'est le region.Pays_id à la fin qui me tracasse.

Region.Pays_id, c'est l'Identifiant Pays de la structure région. Autrement dit, ça me semble être l'identifiant pays du dernier enregistrement lu dans le fichier REGION.

Donc on va relire la même ligne que la dernière ligne lue dans ce fichier région ?

Par ailleurs ( c'est peut-être le même bug), tu parles d'une table mémoire. Habituellement, les noms des champs tables sont de la forme TAB_REGION ou TAB_PAYS. Ce n'est pas une obligation, mais ça aide bien à lire le code. Ici,tu parles d'une table mémoire, mais je ne vois pas du tout où cette table mémoire intervient.

Bonsoir expert, je ne sais pas si je n'arrive pâs mieux à exposer mon code et mes termes paraissent très confus.
En effet, le fichiers des Pays me permet d'enregistrer tous les pays et chaque pays peut avoir plusieurs Régions. Lorsque je dois effectuer une modification sur un Pays automatiquement celle-ci doit se repercuter sur le fichier des Regions.
Raison du Parcours dans le fichier Des Regions. Lorsque ce parcours est terminé la modification s'effectue sur le Pays conçerné.
Et l'utilisateur devra constater cette modification au niveau des tables, à savoir Tab_Pays et Tab_Region.

[tbc92]

Bonsoir expert, je ne sais pas si je n'arrive pâs mieux à exposer mon code et mes termes paraissent très confus.
En effet, le fichiers des Pays me permet d'enregistrer tous les pays et chaque pays peut avoir plusieurs Régions. Lorsque je dois effectuer une modification sur un Pays automatiquement celle-ci doit se repercuter sur le fichier des Regions.
Raison du Parcours dans le fichier Des Regions. Lorsque ce parcours est terminé la modification s'effectue sur le Pays conçerné.
Et l'utilisateur devra constater cette modification au niveau des tables, à savoir Tab_Pays et Tab_Region.

Bonsoir programmeur, le besoin est clair. Mais le code est confus.

Normalement, la table TAb_pays devrait intervenir quelque part dans le code. Ou alors je n'ai rien compris au besoin.

[Asphin]

Bonsoir programmeur, le besoin est clair. Mais le code est confus.

Normalement, la table TAb_pays devrait intervenir quelque part dans le code. Ou alors je n'ai rien compris au besoin.

Expert je commente 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
//Lire dans le fichier Region vérifier l'ensemble des Regions ayant le pays à modifier afin de modifier le fichier région
HLitRecherche(REGION,Pays_id,REGION.Pays_id)
TANTQUE HTrouve()
	HModifie(REGION)
	HLitSuivant(REGION,IDREGION)
FIN

// lire et modifier le Pays conçerné après l'avoir trouver.
HLitRecherche(pays,Pays_id,pays.Pays_id)
SI  HTrouve() ALORS
	pays.Pays_code=SAI_Code_Pays
	pays.Pays_codetel=SAI_Code_Tel
	pays.Pays_description=SAI_description
	pays.Pays_nom=SAI_pays
	pays.Pays_statut=Choix
	HModifie(pays)
	Info("Modification effectuée avec succès")
	FIN

dans la prise de focus de la fenêtre j'inserre le code suivant pour charger ma Tab_Pays

Code :

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

1
2
3
4
TableSupprimeTout(TABLE_Pays)
POUR TOUT pays 
	TableAjouteLigne(TABLE_Pays,pays.Pays_id,pays.Pays_nom,pays.Pays_code,pays.Pays_codetel,pays.Pays_description,pays.Pays_statut,pays.Pays_id)
FIN