FVERS = 2
REFOBJET : ID = 449979652 ; ID_INIT = 449979652 ; NOM = TPCVG3_dur ; VERSION = P18 ; DATE = 13/08/12-13:16:51 ( 1344863811 ) ; CAT = 6 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 449980357
COMMENT = "generation automatique"
CREATEUR = platine
# DEBUT_CORPS
###############################################################################
#
# metachamp dduree associe a  Tpcv7g3dc
#
###############################################################################

REGISTRE ENTIER dur


SI (i_valid_field_n(g_iartin,$Tpcv7g3dc::T3cap1))
ALORS
	dur = i_get_art_field(g_iartin,$Tpcv7g3dc::DUREE)
SINON
	dur = i_get_art_field(g_iartin,$Tpcv7g3dc::DUREE2)
FINSI


RETOUR dur


# FIN_CORPS