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
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
