FVERS = 2
REFOBJET : ID = 860026033 ; ID_INIT = 0 ; NOM = Trm6dea ; VERSION = V1 ; DATE = 10/04/14-11:47:39 ( 1397130459 ) ; CAT = 19 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 860000099
COMMENT = "# 09/04/2014 PSA G4R6 Creation  pour G4R6 Lot2   generation automatique"
CREATEUR = drey
# DEBUT_CORPS
PCODE_PERE=
# ---------------------------------------------------------------------------
#
# FICHIER     : Trm6dea_redis.src
#
# VERSION     : %version: %
#
# AUTEUR      : %created_by: %
#
# CREE le     : %date_created%
#
# MODIFIE le  : %date_modified: %
#
# DESCRIPTION : Pcode fourni par France Telecom
#
# RELECTURES  : 
#
# 09/04/2014 PSA G4R6 Creation  pour G4R6 Lot2
# ---------------------------------------------------------------------------


REGISTRE ENTIER res
REGISTRE ENTIER cpt
#VerifPcode
#REGISTRE ENTIER erreur

REGISTRE POINTEUR pt_SGTQS

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

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

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


#trace1( "[Redist] : 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 )

        #trace("[Redist]Trm6dea : stockage en anomalie de redistribution")
FINSI


RETOUR TRAIT_OK

# fin de fichier

# FIN_CORPS