REGISTRE ENTIER res_800009745
REGISTRE ENTIER cpt_800009745
REGISTRE ENTIER erreur_800009745
REGISTRE POINTEUR pt_SGTQS_800009745
# ---------------------------------------------------------------------------
#
# Fichier : Tri2g118_redis.src
#
# ReDistribution :  Article Tri2g118
#
#
# HISTORIQUE :
# 28/06/2006 RHE Creation
# 12/10/2011 DRE VerifPcode
# ---------------------------------------------------------------------------


pt_SGTQS_800009745="12345678901212345"

#VerifPcode
# Initialisation des Entiers
erreur_800009745 = 0
res_800009745 = 0
cpt_800009745 = i_LireRedistCpt()

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


SI ( cpt_800009745 < 3 )
ALORS
	res_800009745 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
        res_800009745 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
        res_800009745 = i_get_art_str(g_iartin, $Tri2g118::IDPCS, pt_SGTQS_800009745)
        erreur_800009745= i_PlvMessEmettre(8504,2,g_iartin,"",2,"Tri2g118",pt_SGTQS_800009745,0)
FINSI

RETOUR TRAIT_OK
