Discussion :

[sfino33]

Bonjour,

J'ai créé un champ spé dans cet écran et je souhaiterais qu'il s'initialise avec une certaine valeur quand je rentre sur la fiche article.

Avec l'étiquette avant_saisie, je récupère bien la bonne valeur, mais je souhaiterai que cette valeur s'affiche sans avoir à cliquer dans le champ en question.

Quelqu'un pourrait-il m'aider?

Merci d'avance

[jeromeed]

Bonjour,
2 solutions : si on est dans une création/dupplication, il faut utiliser les actions RAZCRE/RAZDUP, sinon, utiliser l'action LIENS

[sfino33]

merci Jeromeed,

mais je n'y arrive pas.

[MARCELBENH]

Question bête : as-tu fait un AFFZO ?

[sfino33]

oui, j'ai fait un affzo

[PrinceCorwin]

Bonjour,

Attention avec cet écran. il est constitué d'une liste en partie gauche et de tableau en partie droite.
Il faut le champ dans les deux parties de la fonction.
le champ de base ZMONCHAMP et un champ d'affichage XZMONCHAMP.
Pour initialiser le champ XZMONCHAMP, il faut passer par un spécifique avec l'action LIENS traitement SPEITM

Code :

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

1
2
3
4
5
6
7
8
9
$LIENS
#On lance le standard
Gosub ACTION From SUBITM
 
[M:ITP]XZMONCHAMP = [m:ITP]ZMONCHAMP
 
#On bloque le standard
GPE = 1
return

ensuite, si le champ doit être actualisé via l'écran, il faut une action APRES_MODIF sur le champ XZMONCHAMP
Traitement SPEITP

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Subprog AM_XZMONCHAMP(VALEUR)
    Variable Decimal VALEUR
 
    [M]ZMONCHAMP([M]XNUMLIG) = VALEUR
#Ne pas oublier les champs de mise à jour standard
    [M]UPDDAT    ([M]XNUMLIG) = date$ 
    [M]UPDUSR    ([M]XNUMLIG) = GUSER 
    [M:ITP]FLMOD ([M]XNUMLIG) = 1     
End

Et de faire la réactualisation de la ligne ITP avec AVANT_SAISIE

Code :

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

1
2
3
4
5
6
7
 
Subprog AS_NBITP
    Call AS_NBITP From SUBITP
 
    [M:ITP]XZMONCHAMP    = [M:ITP]XMONCHAMP(nolign-1)
    Affzo [M:ITP]XZMONCHAMP
End

Bon dev'