REGISTRE ENTIER res_800009746
REGISTRE ENTIER cpt_800009746
REGISTRE ENTIER erreur_800009746
REGISTRE POINTEUR pt_SGTQS_800009746
############################################################################
#
# Fichier : Trpvi2_redis.src
#
#
# Redistribution :
#    Article RPVI2
#
# 
# HISTORIQUE :
# 07/07/2004 - NSA - Creation
# 12/10/2011 - DRE - VerifPcode
###########################################################################

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


trace("[Redist] : Ici pcode de redistribution Trpvi2")
pt_SGTQS_800009746="12345678901212345"


#VerifPcode
# Initialisation des Entiers
erreur_800009746 = 0
res_800009746 = 0
cpt_800009746 = i_LireRedistCpt()

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

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

SI ( cpt_800009746 < 3 )
ALORS
	res_800009746 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
        res_800009746 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
        res_800009746 = i_get_attr_str("Nom_EEC",pt_SGTQS_800009746)
        erreur_800009746= i_PlvMessEmettre(8504,2,g_iartin,"",2,"Trpvi2",pt_SGTQS_800009746,0)
        trace("[Redist]Trpvi2 : stockage en anomalie de redistribution")
FINSI

RETOUR TRAIT_OK

# fin de fichier



