Code L4G Dev sur [M:PSH0]

Bonjour,

Sur l'écran PSH0, j'ai rajouté un champ spécifique (déjà rajouté dans la table PREQUIS) ZCCE (de type CCE lié à un axe déjà précisé et à un site déjà précisé).

Dans l'état actuel, ce champs fonctionne bien : je peux sélectionner une section, ou même en tunnel.

Je voudrais initialiser la valeur de ce champs (de type CCE, rappellerai-je) par la valeur de la section analytique par défaut du demandeur (champs REQUSR de l'écran PSH0).

Voici ce que j'ai déjà essayé de faire mais qui ne fonctionne pas.

#C'est une action Avant-saisie

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Subprog AS_ZCCE(VALEUR) Variable Char VALEUR()   If !clalev([F:AUS]) : Local File AUTILIS : Endif Read [F:AUS]LOGIN = [M:PSH0]REQUSR If !fstat [M:PSH0]ZCCE=[F:AUS]CCE(0) gmessage=[F:AUS]CCE(0) Endif   End

---

Pourriez-vous m'aider SVP ?

Bonjour,

Je ferait plutôt en deux temps pour affiche le CCE.
1. action Init sur le champ ZCCE
2. action APRES_MODIF sur le champ REQUSR

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Subprog AM_REQUSR(VALEUR) Variable Char VALEUR() If !clalev([F:AUZ]) : Local File AUTILIS [AUS] : Endif Read [F:AUS]CODUSR = VALEUR If fstat : Raz [F:AUS] : Endif [M]ZCCE=[F:AUS]CCE(0) Affzo [M]ZCCE End   Subprog D_ZCCE(VALEUR) Variable Char VALEUR() If !clalev([F:AUZ]) : Local File AUTILIS [AUS] : Endif Read [F:AUS]CODUSR = [M]REQUSR If fstat : Raz [F:AUS] : Endif VALEUR=[F:AUS]CCE(0) End

---

dans l'action 1, le résultat remonte dans la variable VALEUR. Cela laisse au standard X3 de mettre à jour l'écran.
Contrairement à l'action 2, ou on modifie la zone ZZCE se qui demande de forcer la mise à jour de l'écran.

En espérant que cela puisse vous aider.
Bon dév'

Merci bien,
Cela fonctionne.
Les codes sont très lisibles. Je comprendrai peut-être un jour :-)
Après la modification du champ REQUSR, la valeur de ZCCE est déjà déterminée et est affichée (Affzo = afficher ?)
Dans l'initialisation de ZCCE, on prend la valeur du champ [M]ZCCE depuis le fichier AUS et non depuis la valeur ci-dessus.

Citation:

---

Envoyé par PrinceCorwin

Bonjour,

Je ferait plutôt en deux temps pour affiche le CCE.
1. action Init sur le champ ZCCE
2. action APRES_MODIF sur le champ REQUSR

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Subprog AM_REQUSR(VALEUR) Variable Char VALEUR() If !clalev([F:AUZ]) : Local File AUTILIS [AUS] : Endif Read [F:AUS]CODUSR = VALEUR If fstat : Raz [F:AUS] : Endif [M]ZCCE=[F:AUS]CCE(0) Affzo [M]ZCCE End   Subprog D_ZCCE(VALEUR) Variable Char VALEUR() If !clalev([F:AUZ]) : Local File AUTILIS [AUS] : Endif Read [F:AUS]CODUSR = [M]REQUSR If fstat : Raz [F:AUS] : Endif VALEUR=[F:AUS]CCE(0) End

---

dans l'action 1, le résultat remonte dans la variable VALEUR. Cela laisse au standard X3 de mettre à jour l'écran.
Contrairement à l'action 2, ou on modifie la zone ZZCE se qui demande de forcer la mise à jour de l'écran.

En espérant que cela puisse vous aider.
Bon dév'

---