REGISTRE ENTIER res_800009730
REGISTRE ENTIER cpt_800009730
REGISTRE ENTIER erreur_800009730
REGISTRE POINTEUR pt_SGTQS_800009730
######################################################################
# REDISTRIBUTION
#
# FICHIER     : TconvNE_redis.src
# 
# DESCRIPTION : Pcode fourni par France Telecom
#
######################################################################
#	HISTORIQUE
# 28/12/04 - URS (PSA) - Creation
# 26/04/05 -FAL- FO1413 et suppression utilisation enveloppe Optionelle pour SGTQS
# 12/10/2011 DRE VerifPcode
#
######################################################################

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

trace("[Redist] : Ici pcode de redistribution TconvNE")
pt_SGTQS_800009730="12345678901212345"

#VerifPcode
# Initialisation des Entiers
erreur_800009730 = 0
res_800009730 = 0
cpt_800009730 = i_LireRedistCpt()

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

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

SI ( cpt_800009730 < 3 )
ALORS
	res_800009730 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
        res_800009730 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
        #FAL res = i_get_attr_str("Nom_EEC",pt_SGTQS)
        i_strcpy(pt_SGTQS_800009730, i_LireEECSGTQS(g_ieec))
        erreur_800009730= i_PlvMessEmettre(8504,2,g_iartin,"",2,"TconvNE",pt_SGTQS_800009730,0)
        trace("[Redist]TconvNE : stockage en anomalie de redistribution")
FINSI

RETOUR TRAIT_OK

# fin de fichier
