REGISTRE ENTIER erreur_800009788
REGISTRE ENTIER val_800009788
REGISTRE ENTIER ind_800009788
####################################################################
#       article tlv Test Technique PCS convergent
#	reprise pcode TlattX
#	03/10/2011 RHE VerifPcode
####################################################################


###############################################################################
# Test article.
# Controle syntaxique automatique.
#		- date
#		- ila
#		- tous les champs avec le Controle syntaxique automatique
#		- champ de type ila
###############################################################################
erreur_800009788 = i_test_art(g_iartin)
SI erreur_800009788
ALORS
#Article TLV Test technique: erreur syntaxique
	erreur_800009788 = i_PlvMessEmettre(7712,2,g_iartin,"",0,0,0,0)
	SAUT FIN_TRAIT
FINSI

###############################################################################
# Message au journal
###############################################################################
val_800009788 = g_iartin.NR
# variation entre 0x80 et 0xFF
SI (val_800009788 >= 128)
ALORS
	val_800009788 = val_800009788 - 128
FINSI

ind_800009788 = 0
erreur_800009788 = i_test_seq_eec (val_800009788, ind_800009788, g_ieec)
SI (erreur_800009788 != SEQ_OK)
ALORS
	erreur_800009788 = i_PlvMessEmettre(6514,1,g_iartin,"",1,g_ieec,0,0)
FINSI

POINT FIN_TRAIT
erreur_800009788 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0)

RETOUR TRAIT_OK

