Pièce jointe 309950
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 PROCEDURE FEN_Fiche_Client() // Affichage des enregistrements FichierVersEcran() // Valeur de retour par défaut MaFenêtre..ValeurRenvoyée = Faux
Pièce jointe 309950
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 PROCEDURE FEN_Fiche_Client() // Affichage des enregistrements FichierVersEcran() // Valeur de retour par défaut MaFenêtre..ValeurRenvoyée = Faux
Pièce jointe 309950
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 PROCEDURE FEN_Fiche_Client() // Affichage des enregistrements FichierVersEcran() // Valeur de retour par défaut MaFenêtre..ValeurRenvoyée = Faux
j'ai régler mon problème mais un autre problème et apparu
adresse elle né pas rafraîchie.
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 // Recherche du premier enregistrement // pour lequel le nom du CLIENT est DUPOND HLitRecherche(CLIENT, NumClient,COMBO_CLIENT) SI HTrouve() ALORS // SI NOM CLIENT EXISTE DANC PASSE SAI_LIEU = CLIENT.ADresseCLIENT SINON // SI NON N'EXISTE PAS IL ME POSE LA QUESTION "VOULEZ VOUS CRÉE LE CLIENT ?" OUI OU NON SI OuiNon("VOULEZ VOUS CRÉE LE CLIENT ?") = Oui ALORS // SI OUI IL MOUVRE LA FENETRE NOME (FEN_FICHE_CLIENT) HRAZ(CLIENT) Ouvre(FEN_Fiche_Client) EcranVersFichier() FIN FIN // Rafraichit le contenu de la combo CLIENT ListeAffiche(COMBO_CLIENT, taCourantPremier)
Dans la suite, on va supposer que la fenêtre sur laquelle on travaille s'appelle FEN_Facturation
1) Dans FEN_Client
Il faut renvoyer les données concernant le client créé.
Dans ton code de fermeture il faut ajouter
Avec éventuellement les test qui vont biens si aucune fiche n'a été crée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 MoiMême..ValeurRenvoyée=CLIENT.NumClient
2) Dans FEN_Facturation
On va récupérer le client sur lequel on travaille
Dans le code qui te pose problème, à priori "Sortie de combo" on va modifier le code
Le 2° HLitRecherche me parait redondant, mais l'idée est là.
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 nClientCréé est entier //Client que l'on vient de créer HLitRecherche(CLIENT, NumClient,COMBO_CLIENT) SI PAS HTrouve() ALORS //Le client n'existe pas // SI NON N'EXISTE PAS IL ME POSE LA QUESTION "VOULEZ VOUS CRÉE LE CLIENT ?" OUI OU NON SI OuiNon("VOULEZ VOUS CRÉER LE CLIENT ?") = Oui ALORS // SI OUI IL MOUVRE LA FENETRE NOME (FEN_FICHE_CLIENT) HRAZ(CLIENT) nCLientCréé=Ouvre(FEN_Fiche_Client)//On récupère le client créé. La valeur a été renvoyée via MoiMême..ValeurRenvoyée dans le code de fermeture de FEN_CLIENT COMBO_CLIENT=nClientCréé HLitRecherche(CLIENT, NumClient,COMBO_CLIENT) FIN FIN SAI_LIEU=CLIENT.AdresseClient
L'utilisation de nClientCréé est facultative. Elle n'est là que por un but pédagogique.
On aurait pu écrire directement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 COMBO_CLIENT=Ouvre(FEN_Fiche_Client)
Il y a peut-être plus simple, mais ça tourne.
Quand tout a échoué utilisez l'option RTFM
le problème quand Ecrire un nom de client inexistant il m'ouvre la fen_fiche_client
je remplis je ferme mais il ne revoie pas les donner sur la combo ??? le premier code que jai ecri oui mai le deusieme non ??
Nous étions dans la combo. Il est logique qu'il y ai un problème avec mon code en effet.
Il devient :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 HLitRecherche(CLIENT, NumClient,COMBO_CLIENT) SI PAS HTrouve() ALORS //Le client n'existe pas // SI NON N'EXISTE PAS IL ME POSE LA QUESTION "VOULEZ VOUS CRÉE LE CLIENT ?" OUI OU NON SI OuiNon("VOULEZ VOUS CRÉER LE CLIENT ?") = Oui ALORS // SI OUI IL MOUVRE LA FENETRE NOME (FEN_FICHE_CLIENT) Ouvre(FEN_Fiche_Client) ListeAffiche(MoiMeme,taCourantPremier) FIN FIN SAI_LIEU=CLIENT.AdresseClient
Il y a peut-être plus simple, mais ça tourne.
Quand tout a échoué utilisez l'option RTFM
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager