DEFINITION ic_bloc_660010786 2
DEFINITION ic_MINE_660010786 8
REGISTRE ENTIER erreur_660010786
REGISTRE ENTIER bloc_660010786
REGISTRE ENTIER type_mine_660010786
REGISTRE ENTIER type_mine_ok_660010786
REGISTRE ENTIER code_rejet_660010786
REGISTRE POINTEUR pt_domaine_660010786
REGISTRE POINTEUR pt_article_660010786
####################################################################
#       article Entete type bloc 2 
#		MESPLUS
#
#   URS -DRE- 01/03/2006   Creation FO1728
#
####################################################################
#
# Definitions du rang des champs dans l'artobj. T0 est le champ numero 0
#

#
# Definitions de variables
#

#
# Definitions de pointeur
#

#
# allocation pointeur
#
pt_domaine_660010786 = "1111111111111111111111111111111111111111111111111111111111111111111111111111"
pt_article_660010786 = "2222222222222222222222222222222222222222222222222222222222222222222222222222"
#
# initialisation pointeur
#
i_strcpy(pt_domaine_660010786, " ") 
i_strcpy(pt_article_660010786, " ") 

#
# initialisation de variables
#
type_mine_ok_660010786 	= 0
type_mine_660010786	= 0


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


# le choix du pt_domaine est effectue a partir du champ MINE
# Si ce champs vaut:
# 0x46: les articles sont de type MESPLUS et le pt_domaine associe est Dmesplus
# Toutes autres valeurs est consideree comme une erreur


type_mine_660010786    = i_get_art_field( g_iartin, ic_MINE_660010786 )

SI type_mine_660010786 == 0x46
ALORS
	i_strcpy(pt_article_660010786, "MESPLUS") 
	i_strcpy(pt_domaine_660010786, "Dmesplus") 
	type_mine_ok_660010786 = 1
FINSI




SI ( type_mine_ok_660010786 == 0 )
ALORS
	trace("type machine (champ MINE) en entree inconnu dans bloc Txxbloc2")
	RETOUR BAD_BLOC

FINSI

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

# controle metachamp
SI (i_get_art_field(g_iartin,$ddebut) == -1)
ALORS
	trace("erreur metachamp ddebut, Pcode=Txxbloc2")
	code_rejet_660010786 = 0x5062
	erreur_660010786 = i_PlvMessEmettre( 8510, 2, g_iartin,"", 3,code_rejet_660010786, pt_article_660010786, "erreur metachamp ddebut, Pcode=Txxbloc2" )
#	8510:M:pcode:D:JCT:AD:JCT:10000:"ERR=0x %04x ARTICLE Entete <%s>, Erreur <%s>":"Desactivation d'alarme":
	erreur_660010786 = i_stocke_art( g_iartin, 0, PT_ERRONE, 0)
	RETOUR TRAIT_OK
FINSI


erreur_660010786 = i_test_date_bloc(g_iartin)
SI erreur_660010786
ALORS
	trace("erreur date, Pcode=Txxbloc2")
	code_rejet_660010786 = 0x5062
	erreur_660010786 = i_PlvMessEmettre( 8510, 2, g_iartin,"", 3,code_rejet_660010786, pt_article_660010786, "erreur date, Pcode=Txxbloc2" )
	code_rejet_660010786 = 0x5062
#	8510:M:pcode:D:JCT:AD:JCT:10000:"ERR=0x %04x ARTICLE Entete <%s>, Erreur <%s>":"Desactivation d'alarme":
   	RETOUR BAD_BLOC 
FINSI

####################################################################
# Changement pt_domaine
####################################################################

trace2( "Changement de pt_domaine en %s", pt_domaine_660010786, "" )
i_strcpy( g_idomain, pt_domaine_660010786 )
erreur_660010786 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0)
trace("Fin de traitement Txxbloc2")

RETOUR TRAIT_OK


