REGISTRE ENTIER erreur_800009828
# ---------------------------------------------------------------------------
#
# FICHIER     : %name%
#
# VERSION     : %version: %
#
# AUTEUR      : %created_by: %
#
# CREE le     : %date_created%
#
# MODIFIE le  : %date_modified: %
#
# DESCRIPTION : Traitement / Article Evenement
#
# HISTORIQUE  : 
#	FD 22/10/92	Creation (reprise Tt3dc.src)
#
#	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
#
#      12/02/2002 - CMI : Mail de P.Favier
#               Supprimer l'appel a i_DEP_EcrireEtatPart
#	10/10/2011 RHE VerifPcode
# ---------------------------------------------------------------------------

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


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

erreur_800009828 = i_PlvMessEmettre( 6519, 2, g_iartin, "", 0, 0, 0, 0 )

# 12/02/2002 - CMI
# erreur = erreur=i_DEP_EcrireEtatPart( g_ieec, i_get_art_field( g_iartin, $DATE ), 0 )

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

RETOUR TRAIT_OK

# fin de fichier

