DEFINITION NUMTAB_840000669 4
DEFINITION INCREMENT_840000669 1
DEFINITION CPT1_840000669 1501
DEFINITION C_Article_840000669 "Tdpvgsm"
REGISTRE ENTIER date_audit_gmt_840000669
REGISTRE ENTIER date_audit_840000669
REGISTRE ENTIER X_840000669
REGISTRE ENTIER Y_840000669
REGISTRE ENTIER Z_840000669
REGISTRE ENTIER erreur_840000669
############################################################################
# 
# Article DC Tdpvgsm (article de rejeu)
#
# g_iartin	: DC d'entree
# g_iartout_5	: DC rejet
#
#   Pcode de traitement
######################################################################
#	HISTORIQUE
# creation 14/02/2007
#
# Historique
#
#####################################################################




###################################################################
# DEBUT DES TRAITEMENTS
###################################################################

# neant ... (seulement incrementation de compteurs applicatifs)
########################################################
# Cpt applicatifs : 1501, 1505, 1504, 1506
########################################################


########### Date_Audit
date_audit_gmt_840000669=i_date_audit()
date_audit_840000669 = i_DHgetLocalTime(NUMTAB_840000669, 7, date_audit_gmt_840000669)
trace1("[Tdpv33_tr] date_audit=%x",date_audit_840000669)

# compteur 1501/type/EEC/0/date_audit/1
# CPT1 = 1501
X_840000669=i_get_art_field(g_iartin, $Tdpvgsm::type)
Y_840000669=g_ieec
Z_840000669=0
erreur_840000669=i_incr_cpt(CPT1_840000669,X_840000669,Y_840000669,Z_840000669,date_audit_840000669,INCREMENT_840000669)


########################################################
#   Stockage OK vers DISTRIBUTION
########################################################

erreur_840000669 = i_stocke_art(g_iartin, 0, PT_OK, 0)
RETOUR TRAIT_OK

#-------------------------------- Fin Tdpvgsm_tr.src ------------------------------
