Discussion :

[castorameur]

Bonjour tout le monde,

j'avais par habitude de gérer le détail par mes soins avec des boucles dans D_NBLIG.
Or je viens de voir avec la doc que l'on peut tout gérer avec le sous prog TABLEAUX.
Donc je me dis je vais l'utiliser pour faire plus propore mais cela n'a pas marché.
D'après la doc il faut passer la déclaration de la ligne détail dans DEFLIG.
C'est ce que j'ai fait mais cela n'a pas marché. Des idées?

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
21
22
23
24
25
26
$ACTION
 Case ACTION
   When "DEFLIG"   : Gosub DEFLIG
   When"OUVRE"     : Gosub DECLARE From TABLEAUX
   When "FILTRE" : Default File [ZDH]
   When "LIENS" :  Gosub LIENS From TABLEAUX
  Endcase
Return
 
 
$DEFLIG 
#----------------------------------# 
# Définition du fichier des lignes # 
# -------------------------------- # 
# Critère lecture     (CRIT)       # 
# Nom du fichier      (FICLIG)     # 
# Abréviation fichier (ABLIG)      # 
# Zone numéro ligne   (ZONLIG)     # 
#----------------------------------# 
Default Mask [ZDA0] 
Default File [ZDC] 
CRIT   = 'ZNUM="'+[M:ZDA0]ZNUM+'"' 
FICLIG = "ZDDAC" 
ABLIG  = "ZDC" 
ZONLIG = "NBLIG" 
Return

[PrinceCorwin]

bonjour,

Il ne suffit pas que de cela pour faire fonctionner correctement le traitement TABLEAUX.

Dans ton écran, il faut ajouter au bloc tableau ceci :

1. au paramètre bas de tableau (NBLIG)
   
   1. contrôle DIVLINCONT avec le paramètre "champs numéro ligne de la table détail" (LIALIN)
   2. après_ligne DIVLINNUM
2. en mode de saisie "invisible", il te faut ajouter les champs suivant dans ton tableau :
   
   1. le champ numéro de ligne de la table détail (LIALIN)
   2. champ gestion de création de ligne (CREFLG, C4)
   3. champ gestion de modification ligne (UPDFLG, c4)
3. dans le traitement, le bloc $DEFLIG

   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
    
   $DEFLIG
   #-------------------------------------#
   # Définition du fichier des lignes    #
   #-------------------------------------#
   # critère de lecture        CRIT      #
   # Nom du fichier            FICLIG    #
   # Abréviation du fichier    ABLIG     #
   # Zone numéro ligne         ZONLIG    #
   #-------------------------------------#
    
   Default Mask   [ZLH1]
   Default File   [ZLD]
   CRIT         = '[F:ZLD]LIANUM="'+[M:ZLH0]LIANUM+'"'
   FICLIG       = "ZLIAINTARTD"
   ABLIG        = "ZLD"
   ZONLIG       = "LIALIN"
   Return

Voilà de quoi t'aider un peu.
Je commence le la dev aussi sous X3 v6.5. Si cela t'intéresse, j'ai des exercices de dev avec les corrigés.

Amicalement

[jeromecha]

Décidément c'est le sujet du jour puisque moi aussi j'ai testé l'action DEFLIG (avec succès) ce matin.

Pour compléter les propos de PrinceCorwin (ne pas oublier les actions et paramètre sur le champ NBLIG), voila le code auquel je suis arrivé.

Pour bien comprendre il s'agit d'ajouter des lignes sur la table d'en-tête' BPS

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
$ACTION
Case ACTION
      When "APRES_CRE" : Gosub APRES_MODIF
      When "OUVRE" : Gosub DECLARE From TABLEAUX
      When "LIENS" gosub LIENS From TABLEAUX
      When "DEFLIG" Gosub DEFLIG
      When "FILTRE" Gosub FILTRE
      When "MODIF" Gosub MODIF From TABLEAUX
      When "CREATION" Gosub CREATION From TABLEAUX
      When "ANNULE" Gosub ANNULE From TABLEAUX
      When "APRES_CRE" Gosub LIENS From TABLEAUX
      When "APRES_MOD" Gosub LIENS From TABLEAUX
      When "INICRE_LIG" Gosub INICRE_LIG
       When Default
Endcase
Return
 
$INICRE_LIG
[F:Z02]BPSNUM = [M:BPS0]BPSNUM
Return
 
 
$FILTRE
Default File [BPS]
Return
 
 
$DEFLIG
Default Mask [ZBP7]
Default File [Z02]
CRIT = 'BPSNUM="'+[M:BPS0]BPSNUM+'"'
FICLIG = "ZBPSSPECHA"
ABLIG="Z02"
ZONLIG = "ZBPSSPECLIN"
Return

Seul l’action DEFLIG nécessite d’être expliquée :

Default Mask [ZBP7]
Mettre le code de l’écran détail

Default File [Z02]
Mettre le code de la table Détail

CRIT = 'BPSNUM="'+[M:BPS0]BPSNUM+'"'
Mettre le critère qui permet de faire le lien entre la table en-tête et la table détail

FICLIG = "ZBPSSPECHA"
Mettre le nom de la table détail

ABLIG="Z02"
Mettre le code d’abréviation de la table détail

ZONLIG = "ZBPSSPECLIN"
Mettre le code du champ Ligne de la table détail

[castorameur]

J'avais bien compris le principe mais je voulais essayer sans créer un champ lien dans la table (comme le SOPLIN des commandes par exemple)

Mais merci a vous 2