FVERS = 2
REFOBJET : ID = 800009821 ; ID_INIT = 660009032 ; NOM = Tt3ttX ; VERSION = P22 ; DATE = 13/08/12-13:16:49 ( 1344863809 ) ; CAT = 7 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 800000466
COMMENT = "FO1322"
CREATEUR = teguire
# DEBUT_CORPS
PCODE_PERE=
# $Id: Tt3ttX.src.cpp,v 4.5 1997/04/18 13:12:08 jpierre Exp $
####################################################################
#       article test technique telephone VN3 EEC
#
#	EH 17/10/91	creation
#	FD 17/12/91	MAJ
#	FD 14/05/92	MAJ
#	FS 21/02/94	MAJ
#
#	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
# 26/05/2005 - FAL - FO1322 compteur des elimines
#	06/10/2011 RHE VerifPcode
####################################################################

REGISTRE	ENTIER	val
REGISTRE	ENTIER	erreur
REGISTRE	ENTIER	ind

# VerifPcode - RHE # REGISTRE   ENTIER   dump



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

val = g_iartin.Nart
ind = 0

erreur = i_test_seq_eec(val,ind,g_ieec)
SI (erreur != SEQ_OK)
ALORS
	erreur = i_PlvMessEmettre(6514,2,g_iartin,"",1,g_ieec,0,0)
#	erreur = i_PlvMessEmettre(DEST_JNL | DEST_BASE,2,g_iartin,"ERREUR SEQUENCE ARTICLE EEC %d",1,g_ieec,0,0)
FINSI

#FO1322 stock en elimine pour compteur 507
erreur = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0 )

RETOUR TRAIT_OK# FIN_CORPS