FVERS = 2
REFOBJET : ID = 860023723 ; ID_INIT = 0 ; NOM = TsymTsonus_cptr ; 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_dptr.src
#
# Description:
#       Metachamp dcompteur
#
# Retour: entier dcompteur
#
#######################################################################

DEFINITION ZONE_METRO 7
DEFINITION TABLE_DECALAGE 1

REGISTRE ENTIER debut
REGISTRE ENTIER duree
REGISTRE ENTIER dcompteur
REGISTRE ENTIER ICAR_UTC
REGISTRE ENTIER res

res = i_get_field_num(g_iartin, "DATE")

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

res = i_get_field_num(g_iartin, "DUREE")
duree = i_get_art_field(g_iartin,res)
#trace1("__FILE__:__LINE__ ======>[TsonusTsym]/duree : <%d> ", duree)

dcompteur = debut + duree
#trace1("__FILE__:__LINE__ ======> [TsonusTsym]/dcompteur : <%d> ", dcompteur)

RETOUR dcompteur
# FIN_CORPS