FVERS = 2
REFOBJET : ID = 860023724 ; ID_INIT = 0 ; NOM = TsymTsonus_dpvt ; VERSION = V1 ; DATE = 13/08/12-13:16:49 ( 1344863809 ) ; CAT = 6 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 860000357
COMMENT = ""
CREATEUR = ethierry
# DEBUT_CORPS
#######################################################################
#
# Fichier: TsonusTsym_dpvt.src
#
# Description:
#       Metachamp dpivot
#
# Retour: entier dpivot
#
#######################################################################

DEFINITION ZONE_METRO 7
DEFINITION TABLE_DECALAGE 1

REGISTRE ENTIER dpivot
REGISTRE ENTIER ICAR_UTC
REGISTRE ENTIER res

res = i_get_field_num(g_iartin, "DATE")

ICAR_UTC = i_get_art_field(g_iartin,res)
dpivot = i_DHgetLocalTime(TABLE_DECALAGE, ZONE_METRO, ICAR_UTC)
#trace1("__FILE__:__LINE__ ======> [TsonusTsym]/dpivot=%d", debut) : <%d> ", dpivot)

RETOUR dpivot
# FIN_CORPS