REGISTRE ENTIER val_800009777
REGISTRE ENTIER erreur_800009777
REGISTRE ENTIER ind_800009777
# ---------------------------------------------------------------------------
#
# FICHIER     : %name%
#
# VERSION     : %version: %
#
# AUTEUR      : %created_by: %
#
# CREE le     : %date_created%
#
# MODIFIE le  : %date_modified: %
#
# DESCRIPTION : Traitement / Article  test technique service TNN du CE Nodes
#
# HISTORIQUE  : 
#		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
#
#      12/02/2002 - CMI : Mail de P.Favier
#		Mettre en commentaire le bloc SI ( erreur != SEQ_OK )
#		Stockage en elimine
#	28/11/2011 RHE VerifPcode
# ---------------------------------------------------------------------------

# ---------------------------------------------------
# VARIABLES
# ---------------------------------------------------
# 12/02/2002 - CMI


# ---------------------------------------------------
# TRAITEMENT
# ---------------------------------------------------
# Initialisation du parametre pour dump des messala
# VerifPcode - RHE # dump = 0

val_800009777 = 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_800009777 >= 128 )
ALORS
	val_800009777 = val_800009777 - 128
FINSI

ind_800009777 = 0

erreur_800009777 = i_test_seq_eec( val_800009777, ind_800009777, g_ieec )
# 12/02/2002 - CMI
# SI ( erreur != SEQ_OK )
# ALORS
# 	erreur = i_PlvMessEmettre( 6514, 2, g_iartin, "", 1, g_ieec, 0, 0 )
# 
# 	date = i_get_artobj_attr (g_iartin, "ART_JDATE")
# 	messalarm("BLOCAGE DE TRI",URG_AII)
#       erreur = i_blocTriEEC (g_ieec, date)
# FINSI

# 12/02/2002 - CMI
erreur_800009777 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0 )

RETOUR TRAIT_OK

# fin de fichier
