Discussion :

[Whaouu]

Bonjour à tous,

Voila, j'ai un probléme de doublon lors du remplissage d'un fichier à partir d'une table mémoire.

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
// Mise à jour de la base Clients
POUR i=1 A TableOccurrence(Table_Client_Import)
 
	TableSelectPlus(Table_Client_Import,i)
 
	Client.Code_Client = Table_Client_Import.Code_Client
	Client.Nom_Titulaire = Table_Client_Import.Nom_Titulaire
   ....
 
	// Recherche l'enregistrement
	HLitRecherchePremier ( Client, Code_Client, Table_Client_Import.Code_Client)
 
	SI HTrouve () ALORS
		HModifie (Client)
	SINON
		HAjoute(Client)
	FIN
FIN

Si je n'utilise pas la fonction HLitRecherchePremier et donc que je me contente d'un HAjoute(Client) tout fonctionne. Dans le cas contraire par moments il me détecte un doublon (meme avec le fichier client vide au départ) au moment de l'importation.

Il y a sûrement une meilleure façon de régler de l'ajout ou la mise à jour d'un fichier au moment de l'importation, mais je débute en WinDev.

Par avance merci pour toute réponse.

[hegros]

Code_Client est une clé unique ?

Code :

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

Table_Client_Import.Code_Client[i]

???

[Whaouu]

Bonjour hegros,

Oui Code_Client est une clé unique et justement c'est sur cette clé que j'ai le probléme de doublon.

[hegros]

En fait quand tu enregistres un client avec comme Code_Client =1 ( HAjoute) par exemple, tu ne peux après enregistrer encore un client avec comme Code_Client égal à 1

Pareil pour HModifie. Tu ne peux pas par exemple faire :

Code :

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

1
2
3
 
Client.Code_Client =1
HModifie(Client)

Si il existe déja un Client avec un Code_Client égal à 1.

Puisqu'il s'agit d'une clé unique.
Tu vois ce que je veux dire ?

[Whaouu]

Je ne comprend pas trop ta réponse, mais mon exemple manque surement d'explication.

Le champ Code_Client se remplis via la table mémoire elle même remplie via l'importation d'un fichier texte.

Le champ Table_Client_Import.Code_Client ne contiens pas de doublon.

Dailleur si je fait juste un HAjoute(Client) sans HLitRecherchePremier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
// Mise à jour de la base Clients 
POUR i=1 A TableOccurrence(Table_Client_Import) 
 
   TableSelectPlus(Table_Client_Import,i) 
 
   Client.Code_Client = Table_Client_Import.Code_Client 
   Client.Nom_Titulaire = Table_Client_Import.Nom_Titulaire 
   .... 
 
    HAjoute(Client) 
FIN

Dans ce cas je n'ai pas de probléme, mais je ne gère pas le cas des mises a jour d'un enregistrement.

[hegros]

Il faut que tu sois sur que lorsque tu fais un HModifie que la valeur que tu mettras dans l'enregistrement Code_Client que tu souhaites modifier n'existe pas dans un autre enregistrement.

Un doublon c'est typiquement cela.

Je ne vois pas d'autres explication

[Whaouu]

Avant tout merci pour tes réponses. Je suis sure que je n'ai pas de doublons dans le fichier, d'ailleurs dans le cas d'un Hajoute sans Hlitrecherchepremier sa fonctionne (évidement le fichier Client est vide au départ dans ce cas-là). C'est bien la preuve que les données sont correctes au départ non ?

On dirait que la fonction Hlitrecherchepremier perturbe l'ordre de lecture de la table d'importation (Table_client_import) ce qui ne me paraît pas logique.

[Whaouu]

Je me réponds, j'ai eu un peux plus d'éclaircissements sur cette fonction.

Je ne pensai pas que la commande Hlitrecherchepremier modifier l'affection de mes variables. Maintenant que j'ai modifié mon code en ce sens tout fonctionne parfaitement.

J'ai déclaré une fonction locale pour l'affection de mes variables et j'ai modifié le code de cette façon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Mise à jour de la base Clients
POUR i=1 A TableOccurrence(Table_Client_Import)
 
 TableSelectPlus(Table_Client_Import,i)
 
 // Recherche l'enregistrement
 SI HLitRecherchePremier( Client, Code_Client, Table_Client_Import.Code_Client) ALORS
  Charge_Fiche_Client() 
  HModifie(Client)
 SINON
  Charge_Fiche_Client()
  HAjoute(Client)
 FIN
FIN