Discussion :

[buzz68180]

Bonjour à tous,

Je rencontre un problème dans l'ouverture et surtout la fermeture de fenêtres comportant des alias, la fermeture est très lente quasi 2MN ; Voici le code utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
SI FenEtat("FEN_Fiche_Appel "+TABLE_Activites.COL_NumActivites)=Inexistant ALORS
// On ouvre la fenêtre soeur
			OuvreSoeur("FEN_Fiche_Appel "+TABLE_Activites.COL_NumActivites+" = FEN_Fiche_Appel",TABLE_Activites.COL_NumActivites)
			//Ouvresoeur(FEN_Fiche_Appel,TABLE_Activites.COL_NumActivites)
		SINON
// On rend la fenêtre active
			FenEtat("FEN_Fiche_Appel "+TABLE_Activites.COL_NumActivites,ActifDevant)
			//		
		FIN

Si quelqu'un a une idée ?

Merci
Bernard

[Bowen]

Contexte HF indépendant est coché ? si tu le désactives ça donne quoi ?

[buzz68180]

Oui, le contexte HF Indépendant est décoché.

[Bowen]

Alors ce n'est pas la copie de contexte qui te prends du temps
(ça m'est arrivé sur des PDA, c'est pour ça que j'ai pensé à ça)

Donc je n'ai pas de vraie piste, mais quand ce genre de chose m'arrive, je regarde avec dbgActiveLog où le temps est le plus long.

[buzz68180]

Ok merci quand même.

[Lo²]

Salut à toi,

As-tu essayé en utilisant les indirections, par ex :

Code :

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

1
2
SI FenEtat({"FEN_Fiche_Appel "+TABLE_Activites.COL_NumActivites, indFenetre})=Inexistant ALORS
...

[Bowen]

De rien, mais tu as tenté le dbgActiveLog ?
ça bloque où ?

EDIT : Proposition, peut-être à tenter.
Ne pas attribuer l'alias par le OuvreSoeur, mais pas le code d'init de la fenêtre ouverte.

Code bouton d'ouverture :

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

1
2
3
4
5
6
 
SI FenEtat("FEN_Fiche_Appel "+TABLE_Activites.COL_NumActivites) = Inexistant ALORS
	OuvreSoeur("FEN_Fiche_Appel", TABLE_Activites.COL_NumActivites)
SINON
	FenEtat("FEN_Fiche_Appel " + TABLE_Activites.COL_NumActivites, ActifDevant)
FIN

Code déclarations globales de FEN_Fiche_Appel :

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

1
2
3
 
PROCEDURE FEN_Fiche_Appel(LOCAL nNumActivite est un entier)
MaFenetre..Alias = "FEN_Fiche_Appel " + nNumActivite

[buzz68180]

La solution de Bowen apporte une amélioration.
Merci bcp.