FVERS = 2
REFOBJET : ID = 800009853 ; ID_INIT = 650000195 ; NOM = Txxsms ; VERSION = P2 ; DATE = 13/08/12-13:16:49 ( 1344863809 ) ; CAT = 7 ; ETAT = 0 ; NB_FILS =0 ; ID_FILS = 
ID_EST = 800000466
COMMENT = "generation automatique"
CREATEUR = teguire
# DEBUT_CORPS
PCODE_PERE=
####################################################################
#       article Entete sms 
#
#   URS -DRE- 02/06/2003   Creation
#	12/10/2011 RHE VerifPcode
#
####################################################################

#
# Definitions de variables
#
REGISTRE   ENTIER   erreur
REGISTRE   ENTIER   bloc
# VerifPcode - RHE # REGISTRE   ENTIER   type_appli

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

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


erreur = i_test_date_bloc(g_iartin)
SI erreur
ALORS
   erreur = 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 = i_get_art_field(g_iartin,ic_bloc)
trace1("ARTICLES bloc no= %06d",bloc)


# changement de domaine sans tests

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


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

RETOUR TRAIT_OK



# FIN_CORPS