REGISTRE ENTIER erreur_880001881
# ---------------------------------------------------------------------------
#
# FICHIER     : %name%
#
# VERSION     : %version: %
#
# AUTEUR      : %created_by: %
#
# CREE le     : %date_created%
#
# MODIFIE le  : %date_modified: %
#
# DESCRIPTION : Traitement / Article Evenement Rechargement EEC
#
# HISTORIQUE  : 
#		utilise pour les applications PASTEL & ICCV
#
#	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 l'appel a i_DEP_EcrireEtatPart
#               Mettre en commentaire i_blocTriEEC
# ---------------------------------------------------------------------------

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

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

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

erreur_880001881 = i_test_art( g_iartin )

SI erreur_880001881
ALORS
#	erreur = i_PlvMessEmettre( DEST_JNL | DEST_TEEC | DEST_BASE, 1, g_iartin, "Article TLV Evenement Rechargement: erreur syntaxique",0,0,0,0)
	erreur_880001881 = i_PlvMessEmettre(7293,1,g_iartin,"",0,0,0,0)
	RETOUR TRAIT_OK
FINSI


# ---------------------------------------------------------------------------
#
#	 Message au journal
#	 Blocage de la cloture pour toutes les tilas de l'EEC
#	 Declenchement d'une alarme a intervention immediate AII
#
# ---------------------------------------------------------------------------

erreur_880001881 = i_PlvMessEmettre(6511,2,g_iartin,"",0,0,0,0)

# 12/02/2002 - CMI
# date = i_get_artobj_attr (g_iartin, "ART_JDATE")
# erreur = i_blocTriEEC (g_ieec, date)
# erreur = i_reg_blocTRI(g_ieec, date)
# erreur=i_DEP_EcrireEtatPart( g_ieec, i_get_art_field( g_iartin, $DATE ), 0 )
# ------------  - CMI

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

RETOUR TRAIT_OK

# fin de fichier

