FVERS = 2
REFOBJET : ID = 800006532 ; ID_INIT = 0 ; NOM = TspotTsonus_cptr ; VERSION = P1 ; DATE = 13/08/12-13:16:50 ( 1344863810 ) ; CAT = 6 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 800000200
COMMENT = "24/11/2008 Creation Param FTSA-G3R10Cx"
CREATEUR = teguire
# DEBUT_CORPS
#######################################################################
#
# Fichier: TspotTsonus_cptr.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