REGISTRE ENTIER res_860000049
REGISTRE ENTIER cpt_860000049
REGISTRE ENTIER erreur_860000049
REGISTRE POINTEUR pt_SGTQS_860000049
# ---------------------------------------------------------------------------
#
# Fichier : Tri2g118HP_redis.src
#
# ReDistribution :  Article Tri2g118HP
#
#
# HISTORIQUE :
# 24/08/2012 - THE - Creation
# ---------------------------------------------------------------------------


pt_SGTQS_860000049="12345678901212345"

# Initialisation des Entiers
erreur_860000049 = 0
res_860000049 = 0
cpt_860000049 = i_LireRedistCpt()

# Initialisation des Pointeurs
i_strcpy(pt_SGTQS_860000049,"")

SI ( cpt_860000049 < 3 )
ALORS
	res_860000049 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
        res_860000049 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
        res_860000049 = i_get_art_str(g_iartin, $Tri2g118HP::IDPCS, pt_SGTQS_860000049)
        erreur_860000049= i_PlvMessEmettre(8504,2,g_iartin,"",2,"Tri2g118HP",pt_SGTQS_860000049,0)
FINSI

RETOUR TRAIT_OK
