DEFINITION ic_bloc_800009846 2
REGISTRE ENTIER erreur_800009846
REGISTRE ENTIER bloc_800009846
# $Id: Txxbloc0.src.cpp,v 1.1.4.1 2000/08/04 13:27:48 hery Exp $
####################################################################
# $Log: Txxbloc0.src.cpp,v $
# Revision 1.1.4.1  2000/08/04 13:27:48  hery
# Merge PE1 INTERNET vers PE2
#
# Revision 1.1.2.1  2000/03/06 15:39:59  hery
# Integration correction parametrage CE NODES
#
# Revision 1.1.2.1  1999/11/10 13:14:27  hery
# Mise sous CVS
#
#
#	    article Entete nodes groupe 3 EEC
#
#	BULL 29/09/99	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_800009846=i_PlvMessEmettre(8500,2,g_iartin,"",2,"Txxbloc0","i_date_platine",0)
	erreur_800009846 = i_stocke_art( g_iartin, 0, PT_ERRONE, 0)
	RETOUR TRAIT_OK
FINSI


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

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

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


# L'entete bloc 0 n est utilise que pour le service SGN, on fait un
# changement de domaine sans tests

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


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

RETOUR TRAIT_OK


