FVERS = 2
REFOBJET : ID = 860026396 ; ID_INIT = 0 ; NOM = TcarteOSA ; VERSION = V1 ; DATE = 15/07/14-10:25:54 ( 1405419954 ) ; CAT = 19 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 860000112
COMMENT = "08/07/2014 Creation Param FTSA_G4R7 Lot 2"
CREATEUR = teguire
# DEBUT_CORPS
PCODE_PERE=
######################################################################
# REDISTRIBUTION
#
# FICHIER     : TcarteOSA_redis.src
# 
# DESCRIPTION : Pcode fourni par France Telecom
#
######################################################################
#	HISTORIQUE
#
# 08/07/2014 - THE - Creation Param FTSA_G4R7 Lot 2
#
######################################################################

###########################################################################
# Declarations
###########################################################################
REGISTRE ENTIER res
REGISTRE ENTIER cpt
REGISTRE ENTIER erreur
REGISTRE POINTEUR pt_SGTQS

trace("[Redist] : Ici pcode de redistribution - [ __FILE__ ] ")
pt_SGTQS="12345678901212345"

# Initialisation des Entiers
erreur = 0
res = 0
cpt = i_LireRedistCpt()

# Initialisation des Pointeurs
i_strcpy(pt_SGTQS,"")

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

SI ( cpt < 3 )
ALORS
	res = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
        res = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
        i_strcpy(pt_SGTQS, i_LireEECSGTQS(g_ieec))
        erreur= i_PlvMessEmettre(8504,2,g_iartin,"",2,"TcarteOSA",pt_SGTQS,0)
        trace(" - [ __FILE__ ] : stockage en anomalie de redistribution")
FINSI

RETOUR TRAIT_OK

# FIN_CORPS