REGISTRE ENTIER erreur_860023002
####################################################################
#       article ENTETE FRANCE TELECOM Application
#           FLS articles format variable
####################################################################



####################################################################
# Teste de la date: dans le calendrier courant
####################################################################

erreur_860023002 = i_test_date_bloc(g_iartin)
SI erreur_860023002
ALORS
#        erreur = i_PlvMessEmettre(DEST_JNL | DEST_TEEC | DEST_BASE,1,g_iartin,"Article Entete <CPV> : erreur date",0,0,0,0)
	erreur_860023002 = i_PlvMessEmettre(6213,2,g_iartin,"",0,0,0,0)
        RETOUR BAD_BLOC
FINSI

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

RETOUR TRAIT_OK
