vClé est une chaine
vclé=HConstruitValClé(Client,clé_Nom_prénom,nom,Prénom,ville)
HLitRecherchepremier(Client,clé_Nom_prénom,vclé)
si h.trouve ALORS
erreur("Le client "+client.NOM+" "+client.Prénom+" demeurant à "+ville+rc+"existe déjà sous le numéro "+client.IDClient+rc+"Eviter de créer 2 fois le même client.")
sinon
client.IDClient=Numéro_de_Client1
fin
gclFiche:Validation()
vClé est une chaine
vclé=HConstruitValClé(Client,clé_Nom_prénom,nom,Prénom,ville)
HLitRecherchepremier(Client,clé_Nom_prénom,vclé)
si h.trouve ALORS
erreur("Le client "+client.NOM+" "+client.Prénom+" demeurant à "+ville+rc+"existe déjà sous le numéro "+client.IDClient+rc+"Eviter de créer 2 fois le même client.")
sinon
On affiche les données de l'enregistrement Trouvé
FichierVersEcran()
//On passe en mode Modif
sModeOuverture = "Modif"
fin
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=5092&post_id=21023