FVERS = 2
REFOBJET : ID = 860009891 ; ID_INIT = 860009860 ; NOM = Tdpvgsm32_dpiv ; VERSION = V7 ; DATE = 10/10/13-14:26:11 ( 1381415171 ) ; CAT = 6 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 860000597
COMMENT = ""
CREATEUR = barbiejm
# DEBUT_CORPS
REGISTRE ENTIER date

# Recuperation de la date
date = i_get_art_field(g_iartin, $Tdpvgsm32::DATE)
trace1("CUR - dpiv - recup de DATE : %x", date)
SI (date == -1)
ALORS
	RETOUR -1
FINSI

RETOUR date
# FIN_CORPS