REGISTRE ENTIER res_800009733
REGISTRE ENTIER cpt_800009733
REGISTRE ENTIER erreur_800009733
REGISTRE POINTEUR pt_SGTQS_800009733
######################################################################
# REDISTRIBUTION
#	Tmesplus_redis.src pour messagerie plus
#
######################################################################
#	HISTORIQUE
# 13/02/06 -BEA- Creation
# 12/10/2011 DRE VerifPcode
#####################################################################
trace("redistribution - Tmesplus")

###########################################################################
# Declarations
###########################################################################

pt_SGTQS_800009733="12345678901212345"

#VerifPcode
# Initialisation des Entiers
erreur_800009733 = 0
res_800009733 = 0
cpt_800009733 = i_LireRedistCpt()

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

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

SI ( cpt_800009733 < 3 )
ALORS
        res_800009733 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
        res_800009733 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
        
        i_strcpy(pt_SGTQS_800009733, i_LireEECSGTQS(g_ieec))
        
        erreur_800009733= i_PlvMessEmettre(8504,2,g_iartin,"",2,"Tmesplus",pt_SGTQS_800009733,0)
	# trace("[Redist]Tmesplus : stockage en anomalie de redistribution")
FINSI

RETOUR TRAIT_OK

# fin de fichier
