DEFINITION ic_bloc_800009853 2
REGISTRE ENTIER erreur_800009853
REGISTRE ENTIER bloc_800009853
####################################################################
#       article Entete sms 
#
#   URS -DRE- 02/06/2003   Creation
#	12/10/2011 RHE VerifPcode
#
####################################################################

#
# Definitions de variables
#

#
# Definitions du rang des champs dans l'artobj. T0 est le champ numero 0
#
	
####################################################################
# Teste de la date: dans le calendrier courant
####################################################################

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


erreur_800009853 = i_test_date_bloc(g_iartin)
SI erreur_800009853
ALORS
   erreur_800009853 = i_PlvMessEmettre(7052,2,g_iartin,"",0,0,0,0)
# DEST_JNL | DEST_TEEC | DEST_BASE,"ARTICLE Entete SMS : erreur date"
   RETOUR BAD_BLOC 
FINSI

####################################################################
# Changement domaine
####################################################################

# On recupere le numero de bloc pour le suivi dans les traces
bloc_800009853 = i_get_art_field(g_iartin,ic_bloc_800009853)
trace1("ARTICLES bloc no= %06d",bloc_800009853)


# changement de domaine sans tests

#DEBUT_DUMP#
i_strcpy(g_idomain, "Dsms")
#FIN_DUMP#


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

RETOUR TRAIT_OK



