FVERS = 2
REFOBJET : ID = 800008996 ; ID_INIT = 0 ; NOM = TafdbEtel_dcpt ; VERSION = P1 ; DATE = 13/08/12-13:16:50 ( 1344863810 ) ; CAT = 6 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 800000425
COMMENT = "G3R20 Creation le 07/02/2011"
CREATEUR = ethierry
# DEBUT_CORPS
########################################################
#
#       Algo. dcompteur pour TafdbEtel (fin)
#
#	Historique
#   Creation G3R20	THE	 07/02/2011
#
########################################################


REGISTRE	ENTIER		 erreur
REGISTRE	ENTIER		 date_UTC
REGISTRE	ENTIER		 date_metro
REGISTRE	ENTIER		 duree

# Recuperation de la date : en heure UTC dans l'article issu du convertisseur
date_UTC=i_get_art_field(g_iartin,$Tetelephonie::AuthorizeTime)

SI (date_UTC==-1)
ALORS
	RETOUR date_UTC
FINSI

duree=i_get_art_field(g_iartin,$TafdbEtel::Duree)

# Conversion de l'heure UTC en heure metropole

date_metro = i_DHgetLocalTime(1, 7, date_UTC)

# Passage en heure de fin

date_metro=date_metro+duree

RETOUR date_metro


# FIN_CORPS