Bonjour,

Voici mon problème, j'aimerais passer des champs en paramètres à mes procédures, comme pour les procédure WinDev natives.
C'est à dire que je veux pouvoir la passer avec ou sans guillemets.

Si vous avez déjà résolu ce problème, où si une solution existe dans une version supérieure à WinDev 9, je suis intéressé.

Voici un début de code qui me permet d'avoir le nom du champ dans la variable s_Zone à la fin, il n'est pas encore parfais, car des cas tordus peuvent faire que cela ne marche pas.


PROCEDURE maProcedure(x_nomChamp)

s_Zone est une chaîne

//// si le paramètre n'est pas une chaine, alors c'est forcement un champ de type numérique
SI TypeVar(x_nomChamp)<>wlChaîne ALORS
s_Zone=x_nomChamp..Nom

SINON // si c'est un champ de type chaine, ou bien un chaine qui contient le nom du champ (dont le type reste indéterminé)
SI Taille(x_nomChamp)=0 ALORS
// c'est un champ texte qui ne contient rien
// ça pourrait être aussi une chaine de caractère vide, mais c'est quasi impossible,
// car le paramètre est obligatoire, et cela fesait planter l'utilsation d'une indirection
s_Zone=x_nomChamp..Nom
SINON
//// c'est un champ texte qui contient qq chose
// on suppose que le contenu du champ texte, ne peut pas être un nom de champ qui existe
// sinon si ce champ existe et est vide, cela va faire un faux positif


// si le valeur de x_nomChamp n'est pas un champ qui existe, alors x_nomChamp doit être un champ texte
// ce champ texte qui contient qq chose => il ne faut rien faire sauf s'il s'agit d'une date fausse
SI Occurrence(x_nomChamp)=0 ALORS
s_Zone=x_nomChamp..Nom
SINON
// sinon il s'agit d'une chaine qui contient le nom du champ => il faut tester la valeur du champ
// ou bien cela peut être un champ texte, qui a pour valeur le nom d'un champ (cas tordu et quasi-impossible)
s_Zone=x_nomChamp
FIN
FIN
FIN

Trace(TypeVar(x_nomChamp),s_Zone)

Hum, je vous invite a feuilleter l'aide et notre site sur l'indirection.

si pcNomChamp est le paramètre qui contien le nom du champ à manipuler, il est alors possible d'utiliser l'indirection pour en manipuler les propriétés :

Merci pour votre réponse, je pense connaitre assez bien la possibilité d'indirection de WinDev, mais je n'ai pas été assez clair dans ma question.

Je vais donner un exemple de ce que j'aimerais pouvoir faire.

MonChamp est un champ de saisie d'une fenêtre, et dans le code du bouton de validation j'aimerais pouvoir appeler une procédure maProcedure, qui va faire ne vérification sur le champ, de 2 façon différentes soit :



Et toute la difficulté c'est de faire la différence entre un paramètre "champ" et un paramètre "variable chaine"


edit : si on fait

cela génère une exception. D'ailleurs on peut se baser sur cela pour savoir si le paramètre est une chaine ou un champ, mais je trouve cela pas très propre.

Hum, un simple contrôle avec ChampExiste() pourrait faire la différence, non ?

oui c'est vrai que :

ChampExiste("MonChamp") => Vrai
ChampExiste(MonChamp) => Faux

Sauf si le champ MonChamp, contient le nom d'un autre champ qui existe. Je sais que c'est très peu probable, mais j'aurais aimé pouvoir gérer ce cas aussi.

Citation :

on peut alors faire :

Merci R&B pour ton aide

Si j'ai bien compris tu me proposes d'utiliser EnumèreChamp, pour vérifier que le champ existe bien sur la fenêtre en cours. Je n'avais pas pensé faire ce test. Mais je n'ai pas envie de faire une boucle pour chercher tout les champs, et en plus EnumèreChamp ne liste pas les champs dans des onglets et dans le fenêtre en même temps. En creusant cette l'idée, j'ai trouvé que ParentObjet marchait mieux


Mais reste que dans ton exemple ChampExiste, ne résouts pas tout les problèmes
exemple dans la procédure suivante (version simplifiée de mon 1er post) :



tests de MaProcedure :



Voici une version ce que j'ai trouvé pour que cela marche dans tout les cas :


J'aurais aimé évité d'utiliser les exceptions, mais je n'ai pas trouvé mieux.

Encore merci R&B, pour le temps passé à me répondre.