REGISTRE ENTIER res_860026001
REGISTRE ENTIER cpt_860026001
REGISTRE ENTIER erreur_860026001
REGISTRE POINTEUR pt_SGTQS_860026001
# Pcode de Redistribution Topitml
# ###########################################################################
#
# FICHIER	: Topitml_redis.src
#
# 27/03/2014 THE Modification Enveloppe
#
# ###########################################################################


pt_SGTQS_860026001 = "pt_SGTQS0123456789"
cpt_860026001 = i_LireRedistCpt()

SI ( cpt_860026001 < 3 )
ALORS
        res_860026001 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
        res_860026001 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
        #G4R6 Lot2
        #res = i_get_attr_str_n($EnomEEC::Nom_EEC, pt_SGTQS)
        i_strcpy(pt_SGTQS_860026001, i_LireEECSGTQS(g_ieec))
        erreur_860026001= i_PlvMessEmettre(8504, 2, g_iartin, "",2, "Topitml", pt_SGTQS_860026001, 0)
FINSI

RETOUR TRAIT_OK
