DEFINITION ic_appli_800009854 2
REGISTRE ENTIER type_appli_800009854
REGISTRE ENTIER type_appli_ok_800009854
REGISTRE ENTIER erreur_800009854
REGISTRE POINTEUR pt_domaine_800009854
# $Id: Txxtfapres.src.cpp,v 1.1.4.2.2.1 2000/08/29 08:56:00 hery Exp $
####################################################################
# Revision 1.1.2.2  2000/03/06 15:30:42  hery
# Integration correction parametrage CE NODES
#
# Revision 1.1.2.1  1999/11/10 13:14:29  hery
# Mise sous CVS
#
#
#       article Entete TFA nodes
#
#   BULL 29/09/99   Creation
#	12/10/2011 RHE VerifPcode
#
####################################################################

#
# Definitions de variables
#


# VerifPcode - RHE # 
pt_domaine_800009854 ="pt_domaine0123456789"
i_strcpy(pt_domaine_800009854,"")
#
# Definitions du rang des champs dans l'artobj. T0 est le champ numero 0
# 

# le choix du domaine est effectue a partir du champ APPLI
# Si ce champs vaut:
# 0x29: domaine Dpcv
# 0x31: domaine Dfcp
# 0x42: domaine Dtop
# 0x60: les articles sont de type TNN et le domaine associe est Dtnn
# 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_800009854    = i_get_art_field(g_iartin,ic_appli_800009854)
type_appli_ok_800009854 = 0

SI (type_appli_800009854 == 0x60)
ALORS
	i_strcpy(pt_domaine_800009854,"Dtnn")
	# VerifPcode - RHE # pt_domaine = "Dtnn"
	type_appli_ok_800009854 = 1
SINON
	SI (type_appli_800009854 == 0x62)
	ALORS
		i_strcpy(pt_domaine_800009854,"Dpam")
		# VerifPcode - RHE # pt_domaine = "Dpam"
		type_appli_ok_800009854 = 1
	SINON
		SI (type_appli_800009854 == 0x29)
		ALORS
			i_strcpy(pt_domaine_800009854,"Dpcv")
			# VerifPcode - RHE # pt_domaine = "Dpcv"
			type_appli_ok_800009854 = 1
		SINON
			# FO1085 : Dfcp traite par Txxbloc3.src
		
			# FO1090 (EV4.1) type_appli prend la valeur de 2A au lieu de 42
			SI (type_appli_800009854 == 0x2A)
			ALORS 
				i_strcpy(pt_domaine_800009854,"Dtop")
				# VerifPcode - RHE # pt_domaine = "Dtop"
				type_appli_ok_800009854 = 1
			FINSI
		FINSI
	FINSI
FINSI

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

SI ( type_appli_ok_800009854 == 1 )
ALORS
	trace( "Fin de traitement Txxtfapres" )
	erreur_800009854 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0 )
	
	RETOUR TRAIT_OK
FINSI

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

