REGISTRE ENTIER erreur_800009785
####################################################################
# Tconvhe : en tete de bloc PCS convergent
#	03/10/2011 RHE VerifPcode
####################################################################



####################################################################
####################################################################

# controle metachamp
SI (i_get_art_field(g_iartin,$ddebut) == -1)
ALORS
	erreur_800009785=i_PlvMessEmettre(8500,1,g_iartin,"",2,"Tconvhe","i_date_platine",0)
	erreur_800009785 = i_stocke_art( g_iartin, 0, PT_ERRONE, 0)
	RETOUR TRAIT_OK
FINSI

erreur_800009785 = i_test_date_bloc(g_iartin)
SI erreur_800009785
ALORS
	erreur_800009785 = i_PlvMessEmettre(7711,1,g_iartin,"",0,0,0,0)
	RETOUR BAD_BLOC
FINSI

#####################################################################
#####################################################################
erreur_800009785 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0)

RETOUR TRAIT_OK


