REGISTRE ENTIER res_800010160
REGISTRE ENTIER cpt_800010160
REGISTRE ENTIER erreur_800010160
REGISTRE POINTEUR pt_SGTQS_800010160
# ---------------------------------------------------------------------------
#
# FICHIER     : %name% TjtvORD
#
# VERSION     : %version: %
#
# AUTEUR      : cree le 19/06/02 par URS (DRE)
#
# CREE le     : %date_created%
#
# MODIFIE le  : 
#
# DESCRIPTION : Pcode fourni par France Telecom
#
# RELECTURES  : 
#
# ---------------------------------------------------------------------------



trace("[Redist] : Ici pcode de redistribution TjtvORD")

pt_SGTQS_800010160="12345678901212345"
cpt_800010160 = i_LireRedistCpt()

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

SI ( cpt_800010160 < 3 )
ALORS
	res_800010160 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
	res_800010160 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
	res_800010160 = i_get_attr_str("Nom_EEC",pt_SGTQS_800010160)
	erreur_800010160= i_PlvMessEmettre(8504,2,g_iartin,"",2,"TjtvORD",pt_SGTQS_800010160,0)
	trace("[Redist]TjtvORD : stockage en anomalie de redistribution")
FINSI

RETOUR TRAIT_OK

# fin de fichier


