Commande WFORMFIELD

Permet de modifier par programme la valeur d'un champ d'un formulaire Microsoft Word.

Le document Word doit être verrouillé (Formulaire) pour pouvoir modifier les valeurs des champs.

Syntaxe

CHGVAR	VAR(&CMD) VALUE('WFORMFIELD')
CHGVAR	VAR(&PARM1) VALUE(' Field="Nom Signet" [;NUMFMT(d DECPOINT=p GRPPOINT=g)] [;Clear=True/False] [;AddEntries=True/False] [;Value=Indice_de_liste] [;SetText=True/False] [;GetValue=True/False] [;GetText=True/False] ')
CHGVAR	VAR(&PARM2) VALUE('[texte]')
CALL	PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)

Paramètres

Parm1

Field = nom du signet attribué au champ dans le document courant.

NUMFMT(d DECPOINT=p GRPPOINT= permet de formater une valeur numérique décimale.

-d est le nombre de décimales.

-p représente le caractère à utiliser comme point décimal.

-g représente le caractère à utiliser comme séparateur de milliers.

Clear permet d'effacer le contenu du champ avant de lui affecter de nouvelles valeurs. Si le champ est une liste déroulante, toutes les entrées sont supprimées.

AddEntries permet d'ajouter des entrées dans une liste déroulante. Le paramètre 2 (&PARM2) contient alors la liste des valeurs, entre guillemets, et séparées par "point virgule".

Value permet de changer l'indice de la valeur en cours dans une liste déroulante, ou dans une boîte à cocher.

Si SetText est vrai, alors le contenu du paramètre 2 sera considéré comme un texte à affecter au champ, et non comme l'indice de la valeur en cours dans une liste.
Si SetText est faux, alors le contenu du paramètre 2 sera considéré comme un indice, s'il est numérique.

Quand GetValue est vrai, l'indice en cours d'une liste déroulante est retourné dans le paramètre &RESULT.

Quand GetText est vrai, la valeur du champ est retourné dans le paramètre &RESULT.

Parm2

Texte à insérer, ou liste des entrées à ajouter à une liste déroulante.

Exemple

L’exemple suivant donne au champ "FF01" la valeur de la variable &FIELDVAL.

CHGVAR	VAR(&CMD) VALUE('WFORMFIELD)
CHGVAR	VAR(&PARM1) VALUE('Field ="FF01";SetText')
CHGVAR	VAR(&PARM2) VALUE(&FIELDVAL)
CALL	PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT))

L’exemple suivant fixe les entrées d'une liste déroulante.

CHGVAR	VAR(&CMD) VALUE('WFORMFIELD)
CHGVAR	VAR(&PARM1) VALUE('Field ="FF02";AddEntries')
CHGVAR	VAR(&PARM2) VALUE('"France";"Italie";"Espagne"')
CALL	PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT))

L’exemple récupère la valeur texte d'un champ de formulaire, puis l'efface.

CHGVAR	VAR(&CMD) VALUE('WFORMFIELD)
CHGVAR	VAR(&PARM1) VALUE('Field= ="FF03";GetText;Clear')
CHGVAR	VAR(&PARM2) VALUE(' ')
CALL	PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT))