Discussion :

[gabcouts]

Bonjour à tous,

j'ai un problème que je résous pas, j'aurais besoin d'un peu de conseil.

J'essaie de trouver le moyen de passer un liste de paramètres à la fonction Execute()


J'ai une classe qui s'occupe de procédures et paramètres d'une fenêtre. Je peux créer un menu dynamique, sur bouton, contenant des actions (autres que Nouveau, Modifier , Supprimer). Tout fonctionne sauf quand j'essaie d'éxecuter une requête avec plus de 2 params.

Quelque part dans le code, j'ai une méthode qui ajoute un option à un menu avec paramètre le nom unique de l'action.

Code windev :

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

1
2
3
4
5
6
//Ajoute l'action dans le GUI de la fenêtre,
SI MenuExiste(m_cFenetre..Nom+".Menu_action","OPT_"+m_sGUI) = Vrai ALORS
	_trace("actAjoute :: Le menu m_sGUI existe déjà.")
SINON
	MenuAjouteOption(m_cFenetre..Nom+".Menu_action","OPT_"+m_sGUI,m_sNomAction,"Action_Lance",m_sGUI)
FIN

Action_Lance est un procédure locale dans chaque fenêtre qui se positionne sur le bon objet pour appeller la méthode qui s'occupe de lancer la procédure.

Code :

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

1
2
3
4
5
 
//gtaAction : Tableau
//p_SGUI  Nom unique
//clAction : objet
gtaAction[p_sGUI].clAction:actLance()

Je pensais ajouter la liste des paramètres dans un tableau de chaque objet.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
PROCEDURE paramajoute(*)
 
SI MesParamètres..NbRe��us = 0 ALORS
	RENVOYER Faux
FIN
 
POUR i = 1 _A_ MesParamètres..NbRe��us
	:m_pstParam = :_paramInit()
	:m_pstParam.vValeur = MesParamètres[i]
	TableauAjoute(:m_tabParam,:m_pstParam)
FIN
 
RENVOYER Vrai

Une fois que les paramètres sont sauvegardés dans un tableau, comment la passer à la fonction Execute() sans avoir à utiliser N variables pour avoir une lignes du genre ;

Code :

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

1
2
 
Execute(sProcedure,vparam1,vparam2,vparam3,vparam4,vparam5,...)

Je bloque vraiment à ce points, j'ai songé à ...

Passer MesParamètres, mais il faudrait passer les mêmes paramètres qu'on a précédemment enregistrés.

Exécuter une méthode dans chaque procédure pour récupéré les paramètres; les procédures ne pourrons plus être appelées sans l'objet.

J'aurais besoin d'autres idées,

Merci

[philouZ]

Bonjour,

Si j'ai bien compris ton problème, pourquoi ne pas passer ton tableau comme unique paramètre et ensuite parcourir ton tableau pour en extraire tes paramètres ?

Cordialement,
Philippe

[gabcouts]

Bonjour philouZ,

Merci d'avoir pris le temps de lire et répondre à mon problème.

Si j'ai bien compris ton problème, pourquoi ne pas passer ton tableau comme unique paramètre et ensuite parcourir ton tableau pour en extraire tes paramètres ?

J'y ai bien pensé, j'aimerais quand même que chaque procédure reste avec nombre de paramètre fixes ou variables (*). Il pourront être utilisé ailleurs si besoin et/ou sans la classe. Dans le fond, ce qui serait le mieux, c'est de pouvoir simuler la virgule pour chaque NParamètre de la fonction Execute.


<Résultat> = Exécute(<Nom de la procédure> [, <Paramètre 1>, ..., <Paramètre N>])

Si je n'est vraiment aucune piste, c'est bien ce que je pense faire, les procédures ne pourront être utilisé qu'avec la classe, ce n'est pas l'idéale.

Merci

[tbc92]

Je n'ai pas vraiment compris ce que tu voulais faire et ce que tu voulais éviter de faire, mais ça me fait vraiment penser à TacheParalleleExecute, que ce soit la syntaxe tacheParalleleExecute(maProc, (parm1, parm2 ) ) avec les parenthèses autour de parm1, parm2
ou la syntaxe TacheParalleleExecute(ma_tache_parallele)

Et en lisant l'aide, j'arrive aussi sur RecupereDefinition() qui ne semble pas très loin de ta question.

[gabcouts]

Salut,

J'avais aucune connaissance de ces fonctions et c'est exactement le même principe que je veux faire.

Boucle sur mon tableau pour remplir les paramètres et on execute, j'aurais dû tombé la dessus plus tôt.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Tachetest est une Description de TâcheParallèle
Tachetest ..Procédure = {m_cFenetre..Nom+"."+m_sProcedure}
 
SI TableauOccurrence(m_tabParam) <> 0 ALORS
	POUR i = 1 _A_ TableauOccurrence(m_tabParam)
		Tachetest..Paramètre[i] = m_tabParam[i].vValeur
	FIN
FIN
 
TâcheParallèleExécute(t3bis)

Thanks for all!