Discussion :

[James Daniel]

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 :

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

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 ?

[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 :

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
 
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'

[James Daniel]

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.

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 :

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
 
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'