Probleme de redondance

**beauregard12** · 19/01/2016, 11h57

j’ai un code permetant de creer les clients dans mon projet,le probleme est que le nom d’un client est creer plusieur fois et pourtant dans mon code j’ai mis un controle pour eviter la redondance, voici mon code, puis avoir quelque idees ? merci d’avance.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
		IF SAI_Nom="" THEN
			Info("Merci de préciser le Nom")
			RepriseSaisie(SAI_Nom)
		END
 
		IF SAI_Adress="" THEN
			Info("Merci de préciser l'adresse")
			RepriseSaisie(SAI_Adress)		
		END
		IF SAI_Mail="" THEN
			Info("Merci de préciser le Mail")
			RepriseSaisie(SAI_Mail)		
		END
 
		IF SAI_Telephone="" THEN
			Info("Merci de préciser le numero de Telephone ")
			RepriseSaisie(SAI_Telephone)	
		END
		sMonNom1=SansEspace(SAI_Nom)
 
		bMaboo=Vrai
 
		HLitRecherche(Client,IDClient,sMonNom1)
		IF HTrouve(Client)=Vrai THEN
			sMonNom2=SansEspace(Client.NomClient)
			IF sMonNom1~=sMonNom2 THEN
				Info("Ce Client existe déja dans la Base de données") 
				RepriseSaisie(SAI_Nom)
			END
 
		END
 
		IF bMaboo=Vrai THEN
			//création du Client
 
			HRAZ(Client)
			Client.CodeClient=SAI_Code
			Client.TypeClient=COMBO_Type_Client..ValeurAffichée
			Client.RaisonSociale=SAI_Société
			Client.NomClient=SAI_Nom
			Client.Adresse=SAI_Adress
			Client.Mail=SAI_Mail
			Client.Telephone=SAI_Telephone
			HAjoute(Client)
 
 
			Ferme 
		FIN
	END

**Lo²** · 19/01/2016, 12h08

Bonjour,

Tu fais un HLitRecherche(..) du nom client en comparant avec l'ID, c'est peut-être le problème ?

**beauregard12** · 19/01/2016, 12h27

Envoyé par Lo²

Bonjour,

Tu fais un HLitRecherche(..) du nom client en comparant avec l'ID, c'est peut-être le problème ?

lorsque j’ai un hlitrecherche avec une clé de parcours il me donne le même résultat, en faisant la trace, htrouve renvoi vrai, il trouve bien le nom recherche et au niveau de la comparaison

Code :

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

1
2
3
4
5
sMonNom2=SansEspace(Client.NomClient)
			IF sMonNom1~=sMonNom2 THEN
				Info("Ce Client existe déja dans la Base de données") 
				RepriseSaisie(SAI_Nom)
			END

il ne se passe rien,

**dsr57** · 19/01/2016, 12h39

Bonjour,

Je pense que Lo2 tu m'es sur la piste...
Tu recherches en comparant IDClient avec la variable snom1
Ensuite tu initalises snom2 avec la rubrique NomClient
et tu testes une egalité faible entre snom1 et snom2, cela me parait normal que le test ne fonctionne pas

**tatayo** · 19/01/2016, 16h10

Bonjour,
En dehors des problèmes de recherche déjà relevés dans ce code, il me semble curieux d'empêcher la saisie de deux clients ayant le même nom.
Comment fais-tu avec les homonymes ? Il doit exister en France un grand nombre de Martin, Dupont...Même le couple nom/Prénom n'est pas discriminant.

Tatayo.

**serendib** · 19/01/2016, 16h49

En effet, je rejoins Tatayo.

D'autant qu'on oblige dans son appli à saisir un Mail et un n° de tél. (assez contraignant d'ailleurs, les deux ensemble)

Dans ce cas il faut tester même nom ET Même mail ET même Tél.
Ainsi c'est cohérent.
Sinon ....

**beauregard12** · 20/01/2016, 10h06

Merci, a vous pour suggestion,

**beauregard12** · 20/01/2016, 10h21

voila mon code en totalite,

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
 bMaboo est un booléen=Faux
sMonNom est une chaîne=""
sMonNom1 est une chaîne=""
sMonNom2 est une chaîne=""
 
IF COMBO_Type_Client..ValeurAffichée="" THEN
	Info("Merci de préciser le type de client")
	RepriseSaisie(COMBO_Type_Client)
ELSE IF COMBO_Type_Client..ValeurAffichée~="SOCIETE" THEN
 
	IF SAI_Société="" THEN
		Info("Merci de préciser la Société")
		RepriseSaisie(SAI_Société)		
	END
	IF SAI_Nom="" THEN
		Info("Merci de préciser le Nom")
		RepriseSaisie(SAI_Nom)
	END
 
	IF SAI_Adress="" THEN
		Info("Merci de préciser l'adresse")
		RepriseSaisie(SAI_Adress)		
	END
	IF SAI_Mail="" THEN
		Info("Merci de préciser le Mail")
		RepriseSaisie(SAI_Mail)		
	END
 
	IF SAI_Telephone="" THEN
		Info("Merci de préciser le numero de Telephone ")
		RepriseSaisie(SAI_Telephone)	
	END
	sMonNom=SansEspace(SAI_Société)
 
 
		HLitRecherche(Client,RaisonSociale,sMonNom)
		IF HTrouve(Client)=Vrai THEN
			sMonNom2=SansEspace(Client.RaisonSociale)
 
			IF sMonNom~=sMonNom2 THEN
				Info("Ce Client existe déja dans la Base de données")
				RepriseSaisie(SAI_Société)
			END
 
		END
		bMaboo=Vrai
 
		IF bMaboo=Vrai THEN
			//création du Client
 
			HRAZ(Client)
			Client.CodeClient=SAI_Code
			Client.TypeClient=COMBO_Type_Client..ValeurAffichée
			Client.RaisonSociale=SAI_Société
			Client.NomClient=SAI_Nom
			Client.Adresse=SAI_Adress
			Client.Mail=SAI_Mail
			Client.Telephone=SAI_Telephone
			HAjoute(Client)
 
			Ferme 
		FIN
	ELSE
		IF SAI_Nom="" THEN
			Info("Merci de préciser le Nom")
			RepriseSaisie(SAI_Nom)
		END
 
		IF SAI_Adress="" THEN
			Info("Merci de préciser l'adresse")
			RepriseSaisie(SAI_Adress)		
		END
		IF SAI_Mail="" THEN
			Info("Merci de préciser le Mail")
			RepriseSaisie(SAI_Mail)		
		END
 
		IF SAI_Telephone="" THEN
			Info("Merci de préciser le numero de Telephone ")
			RepriseSaisie(SAI_Telephone)	
		END
		sMonNom1=SansEspace(SAI_Nom)
 
		bMaboo=Vrai
 
		HLitRecherche(Client,IDClient,sMonNom1)
		IF HTrouve(Client)=Vrai THEN
			sMonNom2=SansEspace(Client.NomClient)
			IF sMonNom1~=sMonNom2 THEN
				Info("Ce Client existe déja dans la Base de données") 
				RepriseSaisie(SAI_Nom)
			END
 
		END
 
		IF bMaboo=Vrai THEN
			//création du Client
 
			HRAZ(Client)
			Client.CodeClient=SAI_Code
			Client.TypeClient=COMBO_Type_Client..ValeurAffichée
			Client.RaisonSociale=SAI_Société
			Client.NomClient=SAI_Nom
			Client.Adresse=SAI_Adress
			Client.Mail=SAI_Mail
			Client.Telephone=SAI_Telephone
			HAjoute(Client)
 
 
			Ferme 
		FIN
	END

**tatayo** · 20/01/2016, 10h37

Sauf que... ta recherche n'est toujours pas bonne.
En gros, si l'utilisateur saisi Dupont dans le nom, tu cherches un client dont l'ID est Dupont, et ensuite tu compares le nom de ce client avec ce qui est saisi. Tout faux, comme te l'a indiqué Lo². Si tu cherches un nom, la recherche doit porter sur le nom.
Ensuite tu ne fais la recherche que sur le nom, donc tu ne peux pas avoir 2 clients avec le même nom. C'est dommage, vu le nombre d'homonyme existants.. Mais ça aussi on te l'a déjà indiqué.

Tatayo.

P.S. rendre la saisie de l'email et du téléphone obligatoire, c'est aussi très limite. Quid des clients sans email (et oui, ça existe toujours), sur liste rouge...

**beauregard12** · 20/01/2016, 10h48

Envoyé par tatayo

Sauf que... ta recherche n'est toujours pas bonne.
En gros, si l'utilisateur saisi Dupont dans le nom, tu cherches un client dont l'ID est Dupont, et ensuite tu compares le nom de ce client avec ce qui est saisi. Tout faux, comme te l'a indiqué Lo². Si tu cherches un nom, la recherche doit porter sur le nom.
Ensuite tu ne fais la recherche que sur le nom, donc tu ne peux pas avoir 2 clients avec le même nom. C'est dommage, vu le nombre d'homonyme existants.. Mais ça aussi on te l'a déjà indiqué.

Tatayo.

P.S. rendre la saisie de l'email et du téléphone obligatoire, c'est aussi très limite. Quid des clients sans email (et oui, ça existe toujours), sur liste rouge...

Un grand merci, a tous sa marche, a la place de idclient j’ai remplacer le nomclient, , pour les homonyne vous avez raison, alors j’ai mis le code suivant:

Code :

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

if ouinon("ce client existe dejas","voulez-vous l’ajouter"

,

**tatayo** · 20/01/2016, 11h23

Sauf que... le client n'existe peut-être pas encore, vu que tu ne compares que le nom !
Si ton utilisateur saisi Martin Jean dans le 75, et que tu trouves un Martin Eric dans le 38, tu vas lui dire que le client existe déjà, alors que les deux n'ont rien en commun, à part leur patronyme.
Donc encore une fois non, comparaison du nom seul ne suffit pas.

Tatayo.

**Hemgé** · 20/01/2016, 11h31

Bonjour,

Je trouve cette discussion assez affligeante en ce sens qu'une fois de plus, alors que des intervenants ont mis le doigt sur LE problème, l'auteur du fil et donc le demandeur n'en tient pas compte.

@ beauregard12

Vous devez absolument relire la doc sur les instructions de base HF et faire quelques exercices pour en 'saisir' intuitivement le fonctionnement.
Je n'utilise pas HF, mais faire une recherche avec une clé XYZ sur l'identifiant automatique, c'est vraiment grave et ne pas réagir correctement quand on vous le signale ...
Je suppose que vous retombiez toujours sur le premier (et éventuellement le seul) enregistrement de votre fichier. A tester.

Pour le reste, est-il nécessaire d'alerter votre opérateur si un second Dupond apparaît dans la base ?
Si oui, alors faites le travail pour lui et faites le convenablement, càd ne vous contentez pas des suggestions que l'on vous fait ici mais potassez le "dédoublonnage".
Et n'interpellez l'opérateur que quand il est quasi certain qu'il s'agit d'un 'doublon'.

Pour info, en France, avec une population de 66,6 millions d'individus fin 2015, le patronyme le plus fréquent est "Martin" avec une estimation de 236.000 occurrences.
Vous êtes au Congo-Brazzaville, ce qui implique vraisemblablement d'autres statistiques en matière de fréquence des patronymes ainsi que d'autres pratiques de regroupement familial qu'en Europe, et influera donc sur les paramètres à mettre en œuvre pour le dédoublonnage.
On peut imaginer plusieurs frères et sœurs ou parents et enfants adultes partageant la même adresse, la même ligne téléphonique fixe etc, ce qui n'est déjà pas rare dans nos campagnes ou notamment en Espagne où les enfants continuaient à vivre sous le toit parental au-delà de l'âge de 30 ans, même en ayant un travail.
Cela s'est accentué et s'est étendu aux pays européens touchés par la crise, où des enfants reviennent vivre sous le toit parental suite à un licenciement.

Enfin, il y a encore du travail à faire sur votre code : toute une partie existe en double, ce qui sera source de problème à l'avenir lors de la maintenance et suppose maintenant deux fois plus de tests.
Par exemple, tous les tests sur les saisies identiques pourraient être regroupés en une seule séquence de code. De même pour le HAjoute.

Puisque le problème d'origine est résolu, vous devriez cocher la case ad-hoc pour passer la discussion en "Résolu".

Bon travail

Hemgé

**beauregard12** · 20/01/2016, 11h36

Merci pour vos conseil,

Probleme de redondance [WD18]

WinDev

Discussions similaires

Partager

Partager