REGISTRE ENTIER erreur_800009790
REGISTRE ENTIER val_800009790
REGISTRE ENTIER ind_800009790
# ---------------------------------------------------------------------------
#
# FICHIER     : %name%
#
# VERSION     : %version: %
#
# AUTEUR      : %created_by: %
#
# CREE le     : %date_created%
#
# MODIFIE le  : %date_modified: %
#
# DESCRIPTION : Traitement / Article tlv Test Technique 
#
# HISTORIQUE  : 
#	PM	01/08/94	Creation
#	DEX	12/08/99	V7.12/3  CE12 : correction pour dubtri
#
#      12/02/2002 - CMI : Mail de P.Favier
#               supprimer le test suivant sur le retour de la fonction i_test_seq_eec
#	03/10/2011 RHE VerifPcode
# ---------------------------------------------------------------------------

# ---------------------------------------------------
# VARIABLES
# ---------------------------------------------------


# ---------------------------------------------------
# TRAITEMENT
# ---------------------------------------------------

###############################################################################
# Test article.
# Controle syntaxique automatique.
#		- date
#		- ila
#		- tous les champs avec le Controle syntaxique automatique
#		- champ de type ila
###############################################################################

erreur_800009790 = i_test_art( g_iartin )

SI erreur_800009790
ALORS
	erreur_800009790 = i_PlvMessEmettre(7294,1,g_iartin,"",0,0,0,0)
	RETOUR TRAIT_OK
FINSI


###############################################################################
# Message au journal
###############################################################################

val_800009790 = g_iartin.NR

# variation entre 0x80 et 0xFF
SI ( val_800009790 >= 128 )
ALORS
	val_800009790 = val_800009790 - 128
FINSI

ind_800009790 = 0

erreur_800009790 = i_test_seq_eec( val_800009790, ind_800009790, g_ieec )

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

RETOUR TRAIT_OK

# fin de fichier
