REGISTRE ENTIER erreur_880001851
####################################################################
#       article ENTETE FRANCE TELECOM Application
#           CARTE FRANCE TELECOM articles format variable
####################################################################



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

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

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

RETOUR TRAIT_OK
