REGISTRE ENTIER res_800009756
REGISTRE ENTIER cpt_800009756
REGISTRE ENTIER erreur_800009756
REGISTRE POINTEUR pt_SGTQS_800009756
# ---------------------------------------------------------------------------
#
# FICHIER	: Tvoipvpn_redis.src
#
# pour article	: Tvoipvpn et Tvoipvpn2
#
# VERSION	: %version: %
#
# AUTEUR	: cree le 08/06/05 par URS (JLG)
#
# CREE le     : %date_created%
#
# 12/10/2011 DRE VerifPcode 
#
# ---------------------------------------------------------------------------


trace("[Redist] : Ici pcode de redistribution Tvoipvpn")
pt_SGTQS_800009756="12345678901212345"

#VerifPcode
# Initialisation des Entiers
erreur_800009756 = 0
res_800009756 = 0
cpt_800009756 = i_LireRedistCpt()

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

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

SI ( cpt_800009756 < 3 )
ALORS
	res_800009756 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
	res_800009756 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
	res_800009756 = i_get_attr_str_n($EnomEEC::Nom_EEC,pt_SGTQS_800009756)
	erreur_800009756= i_PlvMessEmettre(8504,2,g_iartin,"",2,"Tvoipvpn",pt_SGTQS_800009756,0)
	trace("[Redist]Tvoipvpn : stockage en anomalie de redistribution")
FINSI

RETOUR TRAIT_OK

# ---------------- fin de fichier Tvoipvpn_redis.src ------------------------
