REGISTRE ENTIER res_800009735
REGISTRE ENTIER cpt_800009735
REGISTRE ENTIER erreur_800009735
REGISTRE POINTEUR pt_SGTQS_800009735
# ---------------------------------------------------------------------------
#
# FICHIER     : Tmvt7g3dc_redis.src
#
# VERSION     : %version: %
#
# AUTEUR      : cree le 17/07/02 par URS (NSA)
#
# CREE le     : %date_created%
#
# MODIFIE le  : 
#
# DESCRIPTION : Pcode fourni par France Telecom
#
# RELECTURES  : 
#
#
# 12/10/2011 DRE VerifPcode
# ---------------------------------------------------------------------------


#trace("[Redist] : Ici pcode de redistribution Tmvt7g3dc")
pt_SGTQS_800009735="12345678901212345"

#VerifPcode
# Initialisation des Entiers
erreur_800009735 = 0
res_800009735 = 0
cpt_800009735 = i_LireRedistCpt()

# Initialisation des Pointeurs
i_strcpy(pt_SGTQS_800009735,"")
#\VerifPcode

#trace1("[Redist] Tmvt7g3dc : Nombre de passage en redistribution : %d", cpt ) 

SI ( cpt_800009735 < 3 )
ALORS
	res_800009735 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
        res_800009735 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
        res_800009735 = i_get_attr_str("Nom_EEC",pt_SGTQS_800009735)
        erreur_800009735= i_PlvMessEmettre(8504,2,g_iartin,"",2,"Tmvt7g3dc",pt_SGTQS_800009735,0)
#        trace("[Redist]Tmvt7g3dc : stockage en anomalie de redistribution")
FINSI

RETOUR TRAIT_OK

# fin de fichier



