Discussion :

[laftate]

salamo 3alikom,

J'ai ajouté le champ Nom du client (BPCNAM de la table SORDER) dans l'écran de consultation des encours article (CONSORD2),
j'ai utilisé le type d'action Avant_zone et l'action SPE sur le champ BPCNAM.

le code est le suivant :

$ACTION
Case ACTION
When Default
Endcase
Return

######################################################################################

Subprog AV_BPCNAM(VALEUR)
Variable Char VALEUR()

If clalev([F:SOH]) <= 0 : Local File SORDER [SOH] : Endif
Read [F:SOH]SOH0=[M:ORD2]VCRNUM(nolign-1)
If fstat=0
[M:ORD2]BPCNAM(nolign-1) = [F:SOH]BPCNAM
Endif
End

######################################################################################
Problème : le nom du client ne s'affiche que d'après le double clic sur la ligne.
Merci de me proposer une solution.
Est-ce-que je peut travailler aussi avec le sous programme ENCOURS

[rvduclos]

Bonjour,

évidemment avec une action sur champ avant_zone ton traitement se lancera seulement qu'à chaque changement de zone d'une seule ligne.
L'action LECTURE permet de charger tout le tableau quand on lance la recherche.
Dans ton cas tu es obligé de contourner le std (désactivé avec GPE=1), et de reprend l'étiquette LECTURE et toutes celles associées jusqu'à LOA_LIGNE où ajouter la maj de ton champ.
Cela donnerait dans ton traitement spé, ce style :

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
18
19
20
Case GACTION                      
    When "CONSORD"
          Case ACTION
               When "LECTURE"  : Gosub LECTURE : GPE=1
          Endcase
    When Default
Endcase
 
$LECTURE
... copie du traitement std + toutes les étiquettes dépendantes
return
 
$LOA_LIGNE
....suite au std
If clalev([F:SOH]) <= 0 : Local File SORDER [SOH] : Endif
Read [F:SOH]SOH0=[M:ORD2]VCRNUM(nolign-1)
If fstat=0
[M:ORD2]BPCNAM(nolign-1) = [F:SOH]BPCNAM
Endif
return

Il y a aussi l'étiquette APRES_MODIF mais je ne sais pas si adaptable dans ce cas...
Bon courage
Hervé

[laftate]

Merci bc Hervé, je vais tester cette solution

[x3erp]

Bonjour Hervé,

je souhaiterais qu'on approfondisse le sujet si possible sur :
Comment ajouter un champ spécifique aux champ critères de l'écran de consultation ?
et comment ajouter un champ spécifique dans le tableau de résultat ?

Je pense que ça va beaucoup aider car très souvent demandé.

Merci