######################################################################################
## Etiquette ajoutée par le superviseur (Objet YTH) 18/04/2024 09:27:17 (MABH) ###
######################################################################################


####################################################################
#
#- Traitement standard  TABLEAUX
#
####################################################################
Call OBJET ("YTH",GBIDC1,GBIDC2) From GOBJET 
End
######################################## 
$ACTION 
Case ACTION 
When "OUVRE" : Gosub OUVRE 
When "FILTRE" : Gosub FILTRE 
When "CREATION" : Gosub CREATION 
When "APRES_CRE" : Gosub APRES_CRE 
When "LIENS" : Gosub LIENS 
When "MODIF" : Gosub MODIF 
When "APRES_MOD" : Gosub APRES_MOD 
When "ANNULE" : Gosub ANNULE 
When "DEFLIG" : Gosub DEFLIG 
When "INICRE_LIG" : Gosub INI_LIG 
When "INIMOD_LIG" : Gosub INI_LIG 
When Default
Endcase
Return
#################################################################### 
$OUVRE 
Gosub DECLARE From TABLEAUX 
Return
#################################################################### 
$FILTRE 
Default File [YTH] 
Return
#################################################################### 
$CREATION 
Gosub CREATION From TABLEAUX 
If GOK < 1 Return Endif
Return
#################################################################### 
$APRES_CRE 
# -- Rechargement des indicateurs UPDFLG et CREFLG # 
Gosub LIENS From TABLEAUX 
Return
#################################################################### 
$LIENS 
# -- Chargement des lignes dans le tableau 
Gosub LIENS From TABLEAUX 
Return
#################################################################### 
$MODIF 
Gosub MODIF From TABLEAUX 
If GOK < 1 Return Endif
Return
#################################################################### 
$APRES_MOD 
# -- Rechargement des indicateurs UPDFLG et CREFLG # 
Gosub LIENS From TABLEAUX 
Return 
############################################################### 
$ANNULE 
Gosub ANNULE From TABLEAUX : # Effacement des lignes 
If GOK < 1 Return Endif
Return
############################################################### 
$DEFLIG 
#----------------------------------# 
# Définition du fichier des lignes # 
#----------------------------------# 
# Critère de lecture (CRIT) # 
# Nom du fichier (FICLIG) # 
# Abréviation du fichier (ABLIG) # 
# Zone numéro de ligne (ZONLIG) # 
#----------------------------------# 
Default Mask [YTH1] 
Default File [YTD] 
CRIT = '[F:YTD]YTH1="'+[M:YTH0]YTH1+'"' 
FICLIG = "YTESTD" : ABLIG = "YTD"
ZONLIG = "YTDLINNO"
Return
#################################################################### 
$INI_LIG 
# -- alim no commande 
[F:YTD]YTH1 = [F:YTH]YTH1 
Return

Bonjour,

Je vais ajouter, sur le même objet et la même fenêtre, deux tableaux. Chaque tableau est dans un écran.

J'ai utilisé un traitement standard du tableau (le code déjà inséré en haut) et j'ai réussi à ajouter le premier, mais avec le deuxième ça n'a pas marché. 

Ma question est : est-ce que chaque tableau nécessite un traitement, ou bien comment? 

Est-ce que quelqu'un peut me donner un coup de main?

Merci d'avance.