REGISTRE ENTIER val_449980183
REGISTRE ENTIER erreur_449980183
REGISTRE ENTIER ind_449980183
# $Id: Tvn4ttX.src.cpp,v 4.6 1997/04/18 13:12:22 jpierre Exp $
####################################################################
#       article Test Technique VN4 EEC
#
#		FD 22/10/92	Creation (reprise Tt3dc.src)
#		FS 02/09/94	Controle sequencement
#	CNET- DF 10/04/96	VERSION 4.0/3
#				- Le numero de l'article variant entre 0x80
#				et 0xFF, on diminue la valeur recuperee dans
#				le champ val par 128. Le modulo doit etre de 128
#
#	CNET DF 19/04/96		VERSION 4.0/3
#				- Les MESSALA remplacent les MESSTRAD
#				- Ajout d'un parametre pour dump dans les messala
#				et modification de la valeur du dump : 1 (i_PlvMessEmettre(,2,g_iartin,"",0,0,0,0)),
#				 2 (i_PlvMessEmettre(,2,g_iartin,"",1,,0,0)), 3 (i_PlvMessEmettre(,2,g_iartin,"",2,,,0) et 3D) pour dump seu
#				et 4 (i_PlvMessEmettre(,2,g_iartin,"",0,0,0,0)), 5 (i_PlvMessEmettre(,2,g_iartin,"",1,,0,0)), 6 (i_PlvMessEmettre(,2,g_iartin,"",2,,,0) et 3D)
#				pour dump avec traduction
####################################################################



val_449980183 = 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_449980183 >= 128)
ALORS
	val_449980183 = val_449980183 - 128
FINSI

ind_449980183 = 0

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

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

RETOUR TRAIT_OK


