REGISTRE ENTIER res_800009755
REGISTRE ENTIER cpt_800009755
REGISTRE ENTIER erreur_800009755
REGISTRE POINTEUR pt_SGTQS_800009755
# ---------------------------------------------------------------------------
#
# FICHIER	: Tv2oip_redis.src
#
# 12/10/2011 DRE VerifPcode 
#
# ---------------------------------------------------------------------------


pt_SGTQS_800009755="12345678901212345"

#VerifPcode
# Initialisation des Entiers
erreur_800009755 = 0
res_800009755 = 0
cpt_800009755 = i_LireRedistCpt()

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


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

SI ( cpt_800009755 < 3 )
ALORS
        res_800009755 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
        res_800009755 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
        res_800009755 = i_get_attr_str_n($EnomEEC::Nom_EEC,pt_SGTQS_800009755)
        erreur_800009755= i_PlvMessEmettre(8504,2,g_iartin,"",2,"Tv2oip",pt_SGTQS_800009755,0)
#        trace("[Tv2oip_Redist] stockage en anomalie de redistribution")
FINSI

RETOUR TRAIT_OK

# fin de fichier
