FVERS = 2
REFOBJET : ID = 650000205 ; ID_INIT = 0 ; NOM = Tsmsf1a7dc_ddeb ; VERSION = A1 ; DATE = 13/08/12-13:16:50 ( 1344863810 ) ; CAT = 6 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 650000011
COMMENT = ""
CREATEUR = drey
# DEBUT_CORPS
#######################################
# Algo.du Metachamp Tsmsf1a7dc_ddebut	#
#######################################

REGISTRE ENTIER erreur
REGISTRE ENTIER dfin
REGISTRE ENTIER ddebut
REGISTRE ENTIER dduree

#Recuperation de la date de fin et de de la duree :
dfin=i_get_art_field(g_iartin,$Tsmsf1a7dc::dfin)
dduree=i_get_art_field(g_iartin,$Tsmsf1a7dc::dduree)
ddebut=dfin-dduree

RETOUR ddebut


# FIN_CORPS