FVERS = 2
REFOBJET : ID = 780021408 ; ID_INIT = 0 ; NOM = Ttapin40_dfin ; VERSION = N1 ; DATE = 10/10/13-14:26:10 ( 1381415170 ) ; CAT = 6 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 780001406
COMMENT = "TAPIN40 , algorithme dfin"
CREATEUR = asouir
# DEBUT_CORPS
#     Article Ttapin40
#     metachamp : dfin = ddebut + dduree
#

REGISTRE  ENTIER   dfin

dfin = i_get_art_field(g_iartin, $Ttapin40::ddebut) + i_get_art_field(g_iartin, $Ttapin40::dduree)

trace1( "**Ttapin40, meta-champ dfin : <%x> " , dfin )

RETOUR dfin 

# FIN_CORPS