REGISTRE ENTIER res_860026039
REGISTRE ENTIER cpt_860026039
REGISTRE POINTEUR pt_SGTQS_860026039
# ---------------------------------------------------------------------------
#
# FICHIER     : Tns6dea_redis.src
#
# VERSION     : %version: %
#
# AUTEUR      : %created_by: %
#
# CREE le     : %date_created%
#
# MODIFIE le  : 30/05/02 par URS Nicole.S Ajout du stockage en anoredist
#
# DESCRIPTION : Pcode fourni par France Telecom
#
# RELECTURES  : 
#
#
# 12/10/2011 DRE VerifPcode
# 09/04/2014 PSA Appel enveloppe inutile
# ---------------------------------------------------------------------------

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

#VerifPcode
# Initialisation des Entiers
res_860026039 = 0
cpt_860026039 = i_LireRedistCpt()

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


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

SI ( cpt_860026039 < 3 )
ALORS
	res_860026039 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
        res_860026039 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
# PSA Correction G4R6 (sans QC) : warn car enveloppe (inutile) non ajoutee precedemment
#        res = i_get_attr_str_n($E_SC_lot::Nom_EEC,pt_SGTQS)
#        erreur= i_PlvMessEmettre(8504,2,g_iartin,"",2,"Tns6dea",pt_SGTQS,0)
        #trace("[Redist]Tns6dea : stockage en anomalie de redistribution")
FINSI


RETOUR TRAIT_OK

# fin de fichier
# ---------------------------------------------------------------------------

