REGISTRE ENTIER val_860000330
REGISTRE ENTIER erreur_860000330
REGISTRE ENTIER ind_860000330
####################################################################
#       Pcode TRAITEMENT Tvn4ttX.src
# pour article Test Technique VN4 EEC
#
# Historique
#	13/09/05 Creation
#
####################################################################



val_860000330 = g_iartin.nart

#
#       Diminution par 128 pour bon controle de sequencement
#       On le fait uniquement si val >= 128, protection dans le cas
#       ou certains EEC ne respecterait pas les NEF
#

SI ( val_860000330 >= 128)
ALORS
        val_860000330 = val_860000330 - 128
FINSI

ind_860000330 = 0

trace1("Appel du test de sequencement, val=%d", val_860000330)
erreur_860000330 = i_test_seq_eec(val_860000330,ind_860000330,g_ieec)
SI (erreur_860000330 != SEQ_OK)
ALORS
	erreur_860000330 = i_PlvMessEmettre(6514,2,g_iartin,"",1,g_ieec,0,0)
	trace("Erreur de sequencement")
FINSI

erreur_860000330 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0)

RETOUR TRAIT_OK

#---------- Fin Tvn4ttX.src -----------------------
