Combobox avec demande de création lorsque entrée inexistante

**Berrehal** · 06/09/2017, 14h47

Bonjour forum

J'ai une combobox qui porte le nom du client elle est relie a une fiche de donne (client) elle marche trée bien mais se que je vue quand je saisi un nom de client qui n'existe pas ille me demande de le crée et il mouver le fenêtre fiche client pour le crée
Merci davance

**Yusep** · 06/09/2017, 14h55

Bonjour
Pas si fort svp.
Vous donnez la reponse dans la question.
Traduisez en WL avec l'autoformation.
En premier lieu Hlitrecherche.

Invité · 06/09/2017, 15h47

Bonjour, cette question a été posée un grand nombre de fois, vous allez vitre trouver votre bonheur en lançant une recherche

**Berrehal** · 06/09/2017, 15h57

merciiiii je v voir

J'ai pas trouvé ??? Je tapes quoi sur la recherche

**Yusep** · 06/09/2017, 16h46

https://doc.pcsoft.fr/fr-FR/?3044050&name=HLitRecherche

**tbc92** · 06/09/2017, 17h05

Comment faites vous déjà dans le cas général ?

**Berrehal** · 06/09/2017, 17h13

J'ai pas compris le code

J'ai une combo (nom client) et elle est en saisi elle est relie au base de donne client

Si vous pouvez me passe le code que je doit mettre sur la combo

Si nom client existe danc passe

Si non n'existe pas il me pose la question "voulez vous crée le client ?" Oui ou non
Si oui il mouvre la fenetre nome (fen_fiche_client)

**serendib** · 06/09/2017, 17h49

@Berrehal
T'es une synthèse toi !

Prends donc le temps de faire le cours d'autoformation.
Ca t'évitera de perdre du temps sur des trucs simples,
et de nous crier aux yeux.

Au pire, montre nous le code que tu as pondu !
Il y a de bonnes âmes sur ce forum.

**Yusep** · 06/09/2017, 20h33

Lu dans l'aide :

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
// Recherche du premier enregistrement 
// pour lequel le nom du CLIENT est DUPOND
HLitRecherche(CLIENT, NOM, "DUPOND")
SI HTrouve() ALORS
       // SI NOM CLIENT EXISTE DANC PASSE
Trace("Client DUPOND trouvé")
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)
           Ouvre(FEN_FICHE_CLIENT)
     FIN
    Trace("Client DUPOND non trouvé")
FIN

https://doc.pcsoft.fr/fr-FR/?3021005&name=OuiNon
https://doc.pcsoft.fr/fr-FR/?3038035&name=Ouvre

Vous l'aviez écrit en Français. Il suffisait de lire l'aide.
M'enfin

**Berrehal** · 07/09/2017, 09h08

merci mai quand Écris un nom de client il m'ouvre la fenêtre mais il m'ouvre le fenêtre du premier client la fiche elle déjà rempli

Invité · 07/09/2017, 09h14

difficile de vous aider si vous ne nous aidez pas, montrez nous votre code afin de mieux comprendre ce que vous avez fait

**Yusep** · 07/09/2017, 10h14

Hraz

**Berrehal** · 07/09/2017, 10h16

sortie de combo_client

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
 
// 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
	Trace("Client  trouvé")
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)
		Ouvre(FEN_Fiche_Client)
	FIN
	Trace("Client  non trouvé")
FIN

Nom : combo client.png
Affichages : 275
Taille : 37,7 Ko

Nom : fen of.png
Affichages : 277
Taille : 34,1 Ko

Nom : analise.png
Affichages : 201
Taille : 21,9 Ko

**Voroltinquo** · 07/09/2017, 11h24

Salut, le problème doit venir du code d'initialisation de ta fenêtre FEN_CLient.
La plupart de champs de ta fenêtre sont liées aux données de ta table CLIENT.

1 Dans ta déclaration globale

Code :

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

1
2
3
4
 
//gsModeOuverture peut avoir les valeurs suivantes "Création", "Modification"
//nID correspond à l'ID Client dont l'enregistrement devra être consulté ou modifié 
PROCEDURE FEN_Client(gsModeOuverture="Création",nID=0)

2 Dans le code de fin d'initialisation

Code :

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

1
2
3
4
5
6
7
8
9
10
 
SELON gsModeOuverture
    CAS "Création"
        HRAZ(CLIENT)
        //Traitement de l'affichage
    CAS "Modification"
        HLitRecherche(CLIENT,NumClient,nID)
        //Traitement de l'affichage
FIN
FichierVersEcran()

3 Utilisation de FEN_Client
Pour créer un nouvel enregistrement :
Soit :
-Ouvre(FEN_CLIENT,"Création), conseillé pour voir le mode d'ouverture
-Ouvre(FEN_CLIENT)
Pour consulter des données :
Ouvre (FEN_Client,"Modification",x) //Où x correspond à l’identifiant du client à lire ou à modifier

4 Remarque concernant ton analyse
A priori, ta table CLIENT comprend 2 clés primaires.
C'est un choix, discutable certes, mais c'est le tien.
Le problème est que NomClient ne peux pas être clé primaire pour la bonne et simple raison que tu peux avoir 2 clients avec le nom "Dupond"

Invité · 07/09/2017, 11h37

J'aurais plutôt adopter cette signature:

Code :

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

PROCEDURE FEN_Client(nID=0)

De ce fait, nID=0 signifie qu'on est en création, sinon, en modification

**Voroltinquo** · 07/09/2017, 11h42

Aussi.
J'opte pour ce choix pour une question de relecture.
En fin de journée,"Création" ou "Modification" est plus simple à voir que Ouvre(FEN_Client,x)

**Berrehal** · 07/09/2017, 11h46

j'ai rectifier un peu le code
la (fen_fiche_client) s'ouvre et vide pour le crée normal.
mais le problème quand je j'ai crée le nouveau client et valider
la valeur elle n'est pas renvoyer sur la combo et il me dit que elle n'ai pas crée.
si je quitte la fenêtre et je je l’ouvre une autre foi je trouve le client crée danc je croi qu'il fau 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)
		FichierVersEcran()
 
	FIN
FIN

**tbc92** · 07/09/2017, 11h58

Ce que je te conseille, c'est :
1. Crée un nouveau projet.
2. Dans ce nouveau projet, associe l'analyse que tu as faite.
3. Utilises le RAD pour créer l'application. Windev va faire par lui-même tout ce que tu demandes depuis plusieurs messages.

Habituellement, je déconseille fortement d'utiliser le RAD, mais dans certains cas, ça semble être la seule solution.

Invité · 07/09/2017, 11h58

@Voroltinquo : ça se comprend, mais faire un selon pour faire une comparaison avec des chaines est chose que j'évite de faire pour des raisons de casse / orthographe, à la limite, passer par des énumérations peut tout aussi bien faire l'affaire.

@Berrehal : qu'avez vous comme code dans l'écran FEN_Fiche_Client ?

**Berrehal** · 07/09/2017, 12h05

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

Nom : fen client.png
Affichages : 276
Taille : 21,0 Ko

Combobox avec demande de création lorsque entrée inexistante [WD20]

WinDev

Discussions similaires

Partager

Partager