Discussion :

[Nicos77]

Bonjour,

Je suis un peu embêté sur une de mes fenêtre.
Voici le code

Déclaration Golbale

Code :

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

1
2
PROCEDURE MaFenêtre(Action)
sNumClient est une chaîne

Fin d'initialisation

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
SELON Action
 
	CAS "Consultation"
		GR_TousChampsClients..Visible=Faux
		SI sNumClient = "" ALORS // On a déjà un numéro de client, on repasse pas dans la recherche
			sNumClient = Ouvre(FEN_RechercheClient,"ConsultClient")
		FIN
 
		SI sNumClient ="" ALORS//On est sortis sans choisir de client ALORS
			//1 : Oui
			//2 : Non
			SELON Dialogue("Voulez-vous créer un client ?")
				// Oui
				CAS 1
					Action="Création"
					ExécuteTraitement(FEN_Client,trtInit)
 
				// Non
				CAS 2
					Ferme()
			FIN
		FIN
 
		HLitRecherchePremier(CLIENT,NumClient,sNumClient)
		SI HTrouve ALORS
			FichierVersEcran()
			LIB_TitreModification..Visible=Faux
			GR_TousChampsClients..Visible=Vrai
			GR_TousChampsClients..Etat=AffichageSeulement
		SINON
			Erreur("Client " + sNumClient + "inaccessible !")
		FIN
 
	CAS "Création"
 
 
 
FIN

On vois dans mon Dialogue que je change la valeur de "Action" et relance l'init de la fenêtre.
Le souci que j'ai c'est qu'une fois qu'il a refait tout l'init (en passant par le CAS "Création") , il reviens à la suite du dialogue. Donc à mon HlitRecherchePremier.

Comment éviter cela?

J'utilise un peu le même style de syntaxe dans une autre fenêtre et n'ai pas eu ce problème (Je pense que je part ailleurs et du coup ça ne m'a pas gêné).

Merci

[ptahsokaris]

Bonjour,

Peut-être avec un "RETOUR" après ton "ExécuteTraitement" ?

[Nicos77]

Bonjour,

Peut-être avec un "RETOUR" après ton "ExécuteTraitement" ?

Salut,

Oui j'y pensais, mais il existe peut être quelque chose de "plus propre"?

Merci

[ptahsokaris]

Salut,

Oui j'y pensais, mais il existe peut être quelque chose de "plus propre"?

Merci

Ah pour du plus propre je ferais plutôt :

Code Initialisation du Projet

Code :

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

1
2
3
4
CONSTANTE
           csConsultation  = "Consultation"
           csCreation       = "Création"
FIN

Déclaration Globale

Code :

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

1
2
3
PROCEDURE MaFenêtre(LOCAL gsAction est une chaine) //LOCAL ou pas, selon si tu veux conserver la valeur en sortant de la fenêtre ou non
GLOBAL
     gsNumClient est une chaîne

Fin d'initialisation

Code :

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

pl_Initialisation()

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
PROCEDURE pl_Initialisation()
 
SELON gsAction
	CAS csConsultation
		GR_TousChampsClients..Visible=Faux
		SI gsNumClient = "" ALORS // On a déjà un numéro de client, on repasse pas dans la recherche
			gsNumClient = Ouvre(FEN_RechercheClient,"ConsultClient")
		FIN
 
		SI gsNumClient <> "" ALORS
			SI HLitRecherchePremier(CLIENT,NumClient,gsNumClient) ALORS
				FichierVersEcran()
				LIB_TitreModification..Visible	= Faux
				GR_TousChampsClients..Visible	= Vrai
				GR_TousChampsClients..Etat		= AffichageSeulement
			SINON
				Erreur("Client " + gsNumClient + "inaccessible !")
			FIN
		SINON
			//1 : Oui
			//2 : Non
			SELON Dialogue("Voulez-vous créer un client ?")
				// Oui
				CAS 1
					gsAction = csCreation
					pl_Initialisation()
 
				// Non
				CAS 2
					Ferme()
			FIN
		FIN
 
	CAS csCreation
 
FIN

[Hemgé]

Bonjour,

Tout simplement, me semble-t-il, un SINON en ligne 22 et report du FIN de la ligne 22 en ligne 33.
Donc, SI "" vous traitez la création ou l'abandon, SINON vous consultez.

Bon travail,

Hemgé

[Nicos77]

Merci à vous

Effectivement @Hemgé

Merci