DEFINITION ic_ETAT_800009837 7
REGISTRE ENTIER erreur_800009837
REGISTRE ENTIER etat_800009837
REGISTRE ENTIER stocke_date_800009837
# ---------------------------------------------------------------------------
#
# FICHIER     : %name%
#
# VERSION     : %version: %
#
# AUTEUR      : %created_by: %
#
# CREE le     : %date_created%
#
# MODIFIE le  : %date_modified: %
#
# DESCRIPTION : Traitement / Article Evenement Changement de tarif
#
# HISTORIQUE  : 
#	BI 28/05/98	Creation 
#
#	Domaine d'entree : Dvxdc
#	Domaine de stockage (uniquement ERRONE) : Dvxdc
#
#      12/02/2002 - CMI : Mail de P.Favier
#               Supprimer l'appel a i_DEP_EcrireEtatPart
#	01/10/2004 - PSA - FO714 - Suppression gestion ANO
#	10/10/2011 RHE VerifPcode
# ---------------------------------------------------------------------------

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


# ---------------------------------------------------
# TRAITEMENT
# ---------------------------------------------------
etat_800009837	= i_get_art_field( g_iartin, ic_ETAT_800009837 )
erreur_800009837	= i_PlvMessEmettre( 6510, 2, g_iartin, "", 0, 0, 0, 0 )

SI ( etat_800009837 != 0x05 )
ALORS
	stocke_date_800009837 = i_get_art_stocke_date( g_iartin, DATE_ARTICLE )

	erreur_800009837 = i_PlvMessEmettre( 7010, 2, g_iartin, "", 1, etat_800009837, 0, 0 )
FINSI

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

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

RETOUR TRAIT_OK

# fin de fichier
