FVERS = 2
REFOBJET : ID = 660010005 ; ID_INIT = 660009678 ; NOM = Tppvwl2_ddeb ; VERSION = B3 ; DATE = 13/08/12-13:16:50 ( 1344863810 ) ; CAT = 6 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 660000202
COMMENT = "G2R1CwooNG"
CREATEUR = afranck
# DEBUT_CORPS
#####################################################
#				    #
#       Algo. ddebut pour Tppvwl2			    #
#				    #
#####################################################
# 10/11/2005 FAL les DC sont tous en MET donc lecture directe de la date MET
REGISTRE ENTIER erreur
REGISTRE ENTIER date_UTC
REGISTRE ENTIER date_metro
#erreur = i_fdump_art(g_iartin)
#trace("ATTENTION ALGO Tppvwl2_ddeb avec champ DATE")
# Recuperation de la date : en heure UTC dans l'article issu du convertisseur
#date_UTC=i_get_art_field(g_iartin,$Tppvwl2::starttime)
#date_UTC=i_get_art_field(g_iartin,$Tppvwl2::DATE)
##trace1("- ddedut - recup de DATE(UTC) : %d",date_UTC)
#SI (date_UTC==-1)
#ALORS
#	RETOUR date_UTC
#FINSI

# Conversion de l'heure UTC en heure metropole
#date_metro = i_DHgetLocalTime(1, 7, date_UTC)
date_metro=i_get_art_field(g_iartin,$Tppvwl2::DATE)
#trace1("- ddebut -(date metropole ): %d",date_metro)

RETOUR date_metro
# FIN_CORPS