REGISTRE ENTIER res_860026002
REGISTRE ENTIER cpt_860026002
REGISTRE ENTIER erreur_860026002
REGISTRE POINTEUR pt_SGTQS_860026002
# ---------------------------------------------------------------------------
#
# FICHIER	: Tbticsip_redis.src
#
# 27/03/2014 THE Creation
#
# ---------------------------------------------------------------------------


pt_SGTQS_860026002="12345678901212345"

#VerifPcode
# Initialisation des Entiers
erreur_860026002 = 0
res_860026002 = 0
cpt_860026002 = i_LireRedistCpt()

# Initialisation des Pointeurs
i_strcpy(pt_SGTQS_860026002,"")


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

SI ( cpt_860026002 < 3 )
ALORS
	res_860026002 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
	res_860026002 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
	#res = i_get_attr_str_n($EnomEEC::Nom_EEC,pt_SGTQS)
	i_strcpy(pt_SGTQS_860026002, i_LireEECSGTQS(g_ieec))
	erreur_860026002= i_PlvMessEmettre(8504,2,g_iartin,"",2,"Tbticsip_redis",pt_SGTQS_860026002,0)
	#trace("[Tbticsip_Redist] stockage en anomalie de redistribution")
FINSI

RETOUR TRAIT_OK

# fin de fichier

