FVERS = 2
REFOBJET : ID = 800009752 ; ID_INIT = 650003330 ; NOM = Tta6dcZTA ; VERSION = P5 ; DATE = 13/08/12-13:16:50 ( 1344863810 ) ; CAT = 19 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 800000466
COMMENT = ""
CREATEUR = teguire
# DEBUT_CORPS
PCODE_PERE=
# ---------------------------------------------------------------------------
#
# FICHIER     : Tta6dcZTA_redis.src
#
# VERSION     : %version: %
#
# AUTEUR      : cree le 19/06/02 par URS (PSA)
#
# CREE le     : %date_created%
#
# MODIFIE le  : 
#
# DESCRIPTION : Pcode fourni par France Telecom
#
# RELECTURES  : 
#
#
# 12/10/2011 DRE VerifPcode
# ---------------------------------------------------------------------------

REGISTRE ENTIER res
REGISTRE ENTIER cpt
REGISTRE ENTIER erreur
REGISTRE POINTEUR pt_SGTQS

trace("[Redist] : Ici pcode de redistribution Tta6dcZTA")
pt_SGTQS="12345678901212345"

#VerifPcode
# Initialisation des Entiers
erreur = 0
res = 0
cpt = i_LireRedistCpt()

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

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

SI ( cpt < 3 )
ALORS
	res = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
        res = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
        res = i_get_attr_str("Nom_EEC",pt_SGTQS)
        erreur= i_PlvMessEmettre(8504,2,g_iartin,"",2,"Tta6dcZTA",pt_SGTQS,0)
        trace("[Redist]Tta6dcZTA : stockage en anomalie de redistribution")
FINSI

RETOUR TRAIT_OK

# fin de fichier


# FIN_CORPS