Discussion :

[Woote]

Bonjour à vous !

Mon intitulé n'est pas forcement clair, et mon explication sera surement un peu bancale..

Je suis actuellement en train de reprendre du vieux code dans un logiciel de gestion et je me retrouve bloqué sur le cas suivant :

J'appelle une fonction qui a pour but de remplir un tableau que je passe en paramètre, la petite spécificité c'est que ce tableau est global dans le projet et qu'il est passé en format chaîne.
Pour comprendre :

Code :

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

 RV_bRechercheMouvement_ParArticle("Interface.gtaTabArticleMouvement")

Mon tableau global est la chaîne : "Interface.gtaTabArticleMouvement" vous l'auriez deviné

Dans la fonction appelée la chaîne est utilisé avec {"nomVariable",indVariable}
Exemple :

Code :

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

1
2
3
POUR TOUT ELEMENT pclArticleTmp, nIdArticle DE {sNomTabArticle,indVariable}
	libérer pclArticleTmp
END

Il se trouve que j'ai besoin d'utiliser cette fonction mais cette fois je dois lui passer un tableau qui est initialisé dans le constructeur d'une classe, donc qui ne serait pas global (que ça soit dans le projet ou dans la class), et je n'ai pas le droit de modifier le code de la fonction que j'appelle..

Est ce que, si j'ai réussi à être clair, vous connaîtriez une façon de faire pour passer mon tableau en cours dans cette fonction ?

Un truc comme RV_bRechercheMouvement_ParArticle(MaFonctionEnCours:monTableau..Nom)

Je vous remercie d'avance

[tatayo]

Bonjour,
Qu'est-ce que c'est que ce code tordu ?
Là, la seule façon de t'en sortir est d'avoir une variable globale du type de ta classe:

Code :

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

1
2
 
gpclMaClasse est un MaClasse dynamique

Tu "affectes" à cette variable l'instance de ta classe.
Tu passes en paramètres à cette fonction le nom de la variable:

Code :

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

1
2
 
RV_bRechercheMouvement_ParArticle("gpclMaClasse:monTableau")

"Normalement" ça doit fonctionner... mais c'est très moche.

Tatayo.

[Woote]

Bonjour,
Qu'est-ce que c'est que ce code tordu ?

C'est, hum, historique on va dire

Yep, j'avais testé cela et ça fonctionne mais j'aurais préféré une autre solution en réalité..

Actuellement je fais ça :

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
CStatsMouvement est une Classe		 
	// Le tableau des articles pour le relevé des ventes
	m_taTabArticleMouvement est un tableau associatif (*,Null,wlEntier) de CArticleRV dynamique	
FIN
 
PROCEDURE Constructeur(sRequete est une chaîne)
//Le constructeur prend en paramètre une requête 
clRequest est un CRequest()
// On exécute la requête 
IF clRequest:bExecute(sRequete) THEN
 
	// De façon temporaire on rempli les valeurs dans le tableau global
	RV_bRechercheMouvement_ParArticle(clRequest, "Interface.gtaTabArticleMouvement")	
	// Que l'on déverse ensuite dans le tableau de la classe 
	:m_taTabArticleMouvement =  Interface.gtaTabArticleMouvement	
ELSE
	Info("L'exécution de la requête dans le constructeur a échoué !! ")
END

[tatayo]

Le problème ici est que la procédure récupère le nom de la variable à traiter.
Donc cette dernière doit être accessible dans la procédure.
Et les seules variables accessibles sont celles passées en paramètre (impossible ici) et les globales.
Bref je ne vois pas d'autre solution, à part tout casser et recoder proprement...

Tatayo.

[Woote]

Bref je ne vois pas d'autre solution, à part tout casser et recoder proprement...

Yep j'en ai bien bien peur :/

Merci beaucoup en tout cas d'avoir pris le temps de m'aider

[DelphiManiac]

Je n'ai peut être pas tout compris, mais pourquoi la fonction RV_bRechercheMouvement_ParArticle ne renvoie t-elle pas un tableau ?

Par contre et de mémoire, par défaut sous Windev, une variable est toujours passé par adresse et non par valeur, donc a priori en passant la variable normalement, cela devrait fonctionner.

[Woote]

Je n'ai peut être pas tout compris, mais pourquoi la fonction RV_bRechercheMouvement_ParArticle ne renvoie t-elle pas un tableau ? Par contre et de mémoire, par défaut sous Windev, une variable est toujours passé par adresse et non par valeur, donc a priori en passant la variable normalement, cela devrait fonctionner.

Le problème est que la fonction ne prend pas un tableau en paramètre mais un chaîne et indique dans la fonction que la chaîne est un tableau, et vu que ledit tableau est normalement un tableau global on peut le récuperer comme on veut.

Sauf que la je me retrouve avec un tableau qui n'est pas global et qui ne doit pas l’être d'ou la complication.

[DelphiManiac]

Donc si j'ai bien compris, tu ne veux pas toucher tous les appels existant à cette fonction. Dans ce cas je te proposerais la solution suivante.

- Tu refactorises la fonction actuelle pour qu'elle ne prenne aucun paramètre , qu'elle remplisse un tableau local à la fonction et qu'elle le renvoie par retour de fonction.
- Tu créé un surcharge à cette fonction qui à la même signature que la fonction initiale (avec en paramètre le nom du tableau) et qui remplie par indirection le tableau passé en paramètre.

Tu as ainsi toujours le fonctionnement historique, qui continue à fonctionner sans modification et tu peux aussi utilisé le fonctionnement sans passé le nom du tableau en paramètre.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
PROCEDURE RV_bRechercheMouvement_ParArticle()
tableauTemporaire est un tableau associatif (*,Null,wlEntier) de chaîne
InitHasard()
POUR i = 1 A 10
    soit indice = Hasard(1, 10)
    tableauTemporaire[indice] = indice
FIN
RENVOYER tableauTemporaire

Code :

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

1
2
PROCEDURE RV_bRechercheMouvement_ParArticle(arrayName est une chaîne)
{arrayName, indVariable} = RV_bRechercheMouvement_ParArticle()

Je pense que cette solution devrait convenir

[Woote]

L'idée est bonne mais dupliquer une fonction déjà existante ne plaint guère à mon chef de projet, ça fait un peu trop rustine pour un cas particulier dans le projet existant.

Au final j'ai décidé d’appeler la fonction comme elle est et je transfert le tableau global dans le tableau que je souhaite utiliser tout simplement.
C'est pas super propre, et c'est aussi une bonne rustine des familles, mais bon ça fonctionne.

Merci à toi en tout cas

[DelphiManiac]

Juste une petite précision, je n'ai pas parlé de dupliquer la fonction, mais de créer une fonction qui a 2 signatures. La deuxième signature faisant appel au code de la première.

Mais si ta solution te convient, pas de soucis !