DEFINITION ic_bloc_800009848 2
DEFINITION ic_appli_800009848 9
REGISTRE ENTIER erreur_800009848
REGISTRE ENTIER bloc_800009848
REGISTRE ENTIER type_appli_800009848
REGISTRE ENTIER type_appli_ok_800009848
REGISTRE POINTEUR pt_domaine_800009848
# $Id: Txxbloc3.src.cpp,v 1.1.4.2.2.2 2000/09/14 08:09:45 hery Exp $
####################################################################
# Revision 1.1.2.2  2000/03/06 15:30:40  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
#

pt_domaine_800009848 = "pt_domaine0123456789"
i_strcpy(pt_domaine_800009848,"")

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

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


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


# le choix du domaine est effectue a partir du champ APPLI
# Si ce champs vaut:
# 0x60: les articles sont de type TNN et le domaine associe est Dtnn
# 0X61: les articles sont de type TM et le domaine associe est Dtm
# 0x62: les articles sont de type AMS et le domaine associe est Dpam
# Toutes autres valeurs est consideree comme une erreur


#DEBUT_DUMP#
type_appli_800009848    = i_get_art_field( g_iartin, ic_appli_800009848 )
type_appli_ok_800009848 = 0

SI type_appli_800009848 == 0x60
ALORS
	i_strcpy(pt_domaine_800009848,"Dtnn")
	# VerifPcode - RHE # pt_domaine = "Dtnn"
	type_appli_ok_800009848 = 1
FINSI
SI type_appli_800009848 == 0x25
ALORS
	i_strcpy(pt_domaine_800009848,"Dvtgm")
	# VerifPcode - RHE # pt_domaine = "Dvtgm"
	type_appli_ok_800009848 = 1
FINSI
SI type_appli_800009848 == 0x21
ALORS
	i_strcpy(pt_domaine_800009848,"Dallo")
	# VerifPcode - RHE # pt_domaine = "Dallo"
	type_appli_ok_800009848 = 1
FINSI
SI type_appli_800009848 == 0x22
ALORS
	i_strcpy(pt_domaine_800009848,"Dmvt")
	# VerifPcode - RHE # pt_domaine = "Dmvt"
	type_appli_ok_800009848 = 1
FINSI
SI type_appli_800009848 == 0x62
ALORS
	i_strcpy(pt_domaine_800009848,"Dpam")
	# VerifPcode - RHE # pt_domaine = "Dpam"
	type_appli_ok_800009848 = 1
FINSI
SI type_appli_800009848 == 0x24
ALORS
	i_strcpy(pt_domaine_800009848,"Dsgn")
	# VerifPcode - RHE # pt_domaine = "Dsgn"
	type_appli_ok_800009848 = 1
FINSI
SI type_appli_800009848 == 0x28
ALORS
	i_strcpy(pt_domaine_800009848,"Dvtgcpp")
	# VerifPcode - RHE # pt_domaine = "Dvtgcpp"
	type_appli_ok_800009848 = 1
FINSI
# FO1085 : Prise en compte de Dfcp (EV)
SI type_appli_800009848 == 0x1F
ALORS
	i_strcpy(pt_domaine_800009848,"Dfcp")
	# VerifPcode - RHE # pt_domaine = "Dfcp"
	type_appli_ok_800009848 = 1
FINSI

SI ( type_appli_ok_800009848 == 1 )
ALORS
	trace2( "Changement de domaine en %s", pt_domaine_800009848, "" )
	i_strcpy( g_idomain, pt_domaine_800009848 )
FINSI
#FIN_DUMP#

SI ( type_appli_ok_800009848 == 1 )
ALORS
	trace("Fin de traitement Txxbloc3")
	erreur_800009848 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0)
	
	RETOUR TRAIT_OK
FINSI

trace("Type appli en entree inconnu dans bloc Txxbloc3")
RETOUR BAD_BLOC


