DEFINITION ic_VAL_800009840 9
REGISTRE ENTIER val_800009840
REGISTRE ENTIER erreur_800009840
REGISTRE ENTIER ind_800009840
# ---------------------------------------------------------------------------
#
# FICHIER     : %name%
#
# VERSION     : %version: %
#
# AUTEUR      : %created_by: %
#
# CREE le     : %date_created%
#
# MODIFIE le  : %date_modified: %
#
# DESCRIPTION : Traitement / Article  tlv Test Technique 
#
# HISTORIQUE  : 
#	BI 29/05/98	creation
#
#      12/02/2002 - CMI : Mail de P.Favier
#               supprimer le test suivant sur le retour de la fonction i_test_seq_eec
#	01/10/2004 - PSA - FO714 - Suppression gestion ANO
#	11/10/2011 RHE VerifPcode
#
# ---------------------------------------------------------------------------


# ---------------------------------------------------
# VARIABLES
# ---------------------------------------------------
# SI (erreur != SEQ_OK)


# ---------------------------------------------------
# TRAITEMENT
# ---------------------------------------------------
val_800009840 = i_get_art_fieldtab( g_iartin, ic_VAL_800009840, 3 )
val_800009840 = val_800009840 + 10   * i_get_art_fieldtab( g_iartin, ic_VAL_800009840, 2 )
val_800009840 = val_800009840 + 100  * i_get_art_fieldtab( g_iartin, ic_VAL_800009840, 1 )
val_800009840 = val_800009840 + 1000 * i_get_art_fieldtab( g_iartin, ic_VAL_800009840, 0 )

ind_800009840 = 0


erreur_800009840 = i_test_art( g_iartin )
SI erreur_800009840
ALORS
	erreur_800009840 = i_PlvMessEmettre( 7013, 1, g_iartin, "", 1, val_800009840, 0, 0 )
	RETOUR TRAIT_OK
FINSI


erreur_800009840 = i_test_seq_eec(val_800009840,ind_800009840,g_ieec)
# 12/02/2002 - CMI
# SI (erreur != SEQ_OK)
# ALORS
# 	erreur = i_PlvMessEmettre(6514,1,g_iartin,"",1,g_ieec,0,0)	
#	Modifie par EF pour nouvelle SPEC : pas de blocage de TRI si erreur
#	sur test sequencement
#	date = i_get_artobj_attr(g_iartin, "ART_JDATE")
#	erreur = i_blocTriEEC (g_ieec, date)
#	erreur = i_reg_blocTRI(g_ieec,date)
# FINSI

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

RETOUR TRAIT_OK

# fin de fichier

