Re: Pb sur lecture de clécomposée
Posté par drcharly93 le 30/4/2007 17:27:12
Bonjour,
Vous ne fournissez pas tout le code nécessaire pour voir d'ou peut provenir l'érreur mais un bloc m'interpelle.
Citation :
1/ vous construisez la clé de recherche - Ok
2/ Vous positionnez le pointeur fichier sur le premier client correspondant aux critères - Ok
En mode RAD FicheSimple vous avez 2 modes différents sur une fiche
- "Création"
- "Modif"
Dans le bloc de déclaration de la fenêtre vous devriez avoir une ligne de la forme:
PROCEDURE FicheSimpleRAD(sModeOuverture="Création")
Je suppose que vous appelé votre fenêtre en mode "Création"
et bien vous pouvez dans le bouton Ok ajouter avant:
Nouveau code
Vous ne fournissez pas tout le code nécessaire pour voir d'ou peut provenir l'érreur mais un bloc m'interpelle.
Citation :
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
1/ vous construisez la clé de recherche - Ok
2/ Vous positionnez le pointeur fichier sur le premier client correspondant aux critères - Ok
En mode RAD FicheSimple vous avez 2 modes différents sur une fiche
- "Création"
- "Modif"
Dans le bloc de déclaration de la fenêtre vous devriez avoir une ligne de la forme:
PROCEDURE FicheSimpleRAD(sModeOuverture="Création")
Je suppose que vous appelé votre fenêtre en mode "Création"
et bien vous pouvez dans le bouton Ok ajouter avant:
gclFiche:Validation()
Nouveau code
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