DEFINITION C_Article_860026334 "Tctrxdea"
DEFINITION C_InstSYMP_860026334 "SYMP"
REGISTRE ENTIER res_860026334
REGISTRE ENTIER erreur_860026334
REGISTRE ENTIER instSYMP_860026334
REGISTRE ENTIER EFFICACE_860026334
REGISTRE ENTIER code_errone_860026334
REGISTRE ENTIER MINE_860026334
REGISTRE ENTIER ART_860026334
REGISTRE ENTIER APPLI_860026334
REGISTRE ENTIER DC_CAA_860026334
REGISTRE ENTIER INEF_SPECIAUX_860026334
REGISTRE ENTIER val_INEF_860026334
REGISTRE POINTEUR pt_NORM_860026334
REGISTRE POINTEUR pt_TCOMMUT_860026334
REGISTRE POINTEUR pt_INEF_STD_860026334
REGISTRE POINTEUR pt_INEF_COMMUT_860026334
REGISTRE POINTEUR pt_TEMP_860026334
REGISTRE POINTEUR pt_SGTQS_860026334
REGISTRE ENTIER dpivot_860026334
REGISTRE ENTIER dduree_860026334
REGISTRE ENTIER tax_860026334
############################################################################
#
# Fichier : Tctrxdea.src
#
# Version : %version: 7.4 %
#
# Date    : %date_modified: 03/04/02 11:29 %
#
# Distribution :
#    Article DEA Efficace et inefficace Centrex
#
# En entree :
#    Article : Tctrxdea.art
#
# En sortie :
#    Symphonie
#
# HISTORIQUE :
#	17/06/2002 - PSA - FO1510  : Encapsulation pour le stockage en errone
#	21/06/2002 - PSA : FO1515  : Dump des articles pour MSGA + suppression de la redistribution
#	14/10/2002 - RBE : Ajout de l'envoie a APACHE
#	21/11/2002 - RBE : FO115 + Modif. alarme tables externes
#	07/04/2003 - RBE : FO245 : recup. de MINE et APPLI si VN8(ART=4)
# 	02/09/2003 - RBE - FO392 : Initialisation des variables Pcode
# 	01/06/2004 - MCH - G2R0Cl : Efficace si duree <> 0
# 	09/06/2004 - NSA - G2R0Cl: integration des codes d erreurs
# 	26/07/2005 - FAL - G2R1Cj INEF speciaux APACHE
#	25/10/2005 - PSA - G2R2Co : FO 1538
# 	25/11/2005 - PKH - G2R2Ca : Evolution Apache envoie des N0 URGENCE inefficace
#	05/01/2006 - DRE - FO1666 G2R2Ca Remplacement de i_retrait_tlv() par i_supprChamp()
#	25/10/2006 - JLG - G2R2Cv modif pt_NORM car trop court
#	27:09:2011 - THE - VerifPcode
#	28/05/2013 - THE - G4R3 suppression envoi vers APACHE
#
############################################################################

############################################################################
# Declarations
############################################################################


# VerifPcode

# VerifPcode


#trace("distribution - Tctrxdea")

# allocation memoire
pt_TCOMMUT_860026334		 = "20202020202020202020202020202012345"
pt_INEF_STD_860026334	 = "60606060606060606060606060606012345"
#G4R3 pt_CODE_APACHE	 = "70707070707070707070707070707012345"
#G4R3 pt_INEF_APACHE	 = "80808080808080808080808080808012345"
pt_INEF_COMMUT_860026334	 = "90909090909090909090909090909012345"
#pt_BUF		 = "10101010101010101010101010101012345"
pt_TEMP_860026334		 = "30303030303030303030303030303012345"
pt_SGTQS_860026334		 = "40404040404040404040404040404040404"
#G4R3 pt_URGENCE_APACHE	 = "0569587521589478585865"
#modif pt_NORM car trop court
pt_NORM_860026334		 = "389389389389389389389389389389389389389389389389389389"

#initialisations
instSYMP_860026334=0
#G4R3 instAPACHE=0

ART_860026334=0xFFFFFFFF
MINE_860026334=0xFFFFFFFF
APPLI_860026334=0xFFFFFFFF
DC_CAA_860026334=0
INEF_SPECIAUX_860026334 = 0
val_INEF_860026334 = 0

# VerifPcode
i_strcpy(pt_SGTQS_860026334,"")
#G4R3 i_strcpy(pt_URGENCE_APACHE,"")
i_strcpy(pt_NORM_860026334,"")
i_strcpy(pt_TCOMMUT_860026334,"")
i_strcpy(pt_INEF_STD_860026334,"")
#G4R3 i_strcpy(pt_CODE_APACHE,"")
#G4R3 i_strcpy(pt_INEF_APACHE,"")
i_strcpy(pt_INEF_COMMUT_860026334,"")
i_strcpy(pt_TEMP_860026334,"")


#Constantes pour message d alarme


dpivot_860026334 = i_get_art_field( g_iartin, $Tctrxdea::dpivot)
dduree_860026334 = i_get_art_field( g_iartin, $Tctrxdea::dduree)
tax_860026334 = i_get_art_field( g_iartin, $Tctrxdea::tax)


############################################################################
# Variables Fonctionnelles Globales
############################################################################
#
# article efficace si champ INEF = 0, 1, 200, 235, 236 , 237  ou duree <> 0
# MAIS tous les articles sont envoye a Symphonie et uniquement a Symphonie
#  => calcul de EFFICACE inutile Sauf Pour APACHE
#
res_860026334 = i_get_art_field( g_iartin, $INEF )
trace1(" INEF=<%d>", res_860026334 )

SI (dduree_860026334 != 0)
ALORS
	EFFICACE_860026334=1
SINON
	EFFICACE_860026334=0
FINSI
trace1("EFFICACE=<%d>",EFFICACE_860026334)

#SGTQS=i_LireEECSGTQS( g_ieec )
# VerifPcode
i_strcpy(pt_SGTQS_860026334, i_LireEECSGTQS(g_ieec) )
#trace2("pt_SGTQS=<%s>",pt_SGTQS,"")

erreur_860026334 = i_get_art_str( g_iartin, $Tctrxdea::INEF, pt_INEF_COMMUT_860026334 )

#INEFF et la com est assurree par un CAA
SI (!EFFICACE_860026334)
ALORS
	#recuperation des champs APPLI MINE et ART de l'entete de bloc
	ART_860026334 = i_bloc_V1V2_recupererIdent(ART_BLOC_V1V2)
	SI (ART_860026334 == 4)
	ALORS
		MINE_860026334 = i_bloc_V1V2_recupererIdent(MINE_BLOC_V1V2)
		APPLI_860026334 = i_bloc_V1V2_recupererIdent(APPLI_BLOC_V1V2)
	FINSI

	#IFDEF trace_niv1 = 1
	trace1("champ ART : %x",ART_860026334)
	trace1("champ MINE : %x",MINE_860026334)
	trace1("champ APPLI : %x",APPLI_860026334)
	#ENDIF

	pt_TCOMMUT_860026334 = type_commut_860026233("APA1", pt_SGTQS_860026334, dpivot_860026334)
	SI (pt_TCOMMUT_860026334 == g_inull)
	ALORS
		erreur_860026334 = i_format_str2(pt_TEMP_860026334," %s", pt_SGTQS_860026334,0)
		erreur_860026334 = i_PlvMessEmettre(8505,2,g_iartin,"",3,"Tctrxdea/type_commut",pt_TEMP_860026334,g_ieec)
	SINON
		pt_INEF_STD_860026334 = inef_std_860026233("APA2", pt_TCOMMUT_860026334, pt_INEF_COMMUT_860026334, dpivot_860026334)
		SI ( pt_INEF_STD_860026334 == g_inull)
		ALORS
			#trace("Code inef absent dans la table")
			erreur_860026334 = i_format_str2(pt_TEMP_860026334," %s",pt_INEF_COMMUT_860026334,0)
			erreur_860026334 = i_PlvMessEmettre(8505,2,g_iartin,"",3,"Tctrxdea/inef_std",pt_TEMP_860026334,g_ieec)
		SINON
			DC_CAA_860026334=1
		FINSI
	FINSI

	#trace2(" Type de commutateur <%s>", pt_TCOMMUT, "")
	#trace2(" Code inefficace standard <%s>", pt_INEF_STD, "")

FINSI

##############################################################
#	 Article Inef speciaux : variable INEF_SPECIAUX
#		- code INEF > 100 (decimal)
#		- DEDE_INF vaut 0
##############################################################

#trace1("G2R1Cj INEF_SPECIAUX : %d", INEF_SPECIAUX)
erreur_860026334 = i_get_art_str(g_iartin,$Tctrxdea::NDE, pt_NORM_860026334)
val_INEF_860026334=i_get_art_field(g_iartin, $Tctrxdea::INEF)
#G4R3 SI (EFFICACE == 0 && val_INEF >=100)
#G4R3 ALORS
#G4R3 	pt_URGENCE_APACHE = inef_apache ("URGE",pt_NORM,dpivot)
#G4R3 	SI (pt_URGENCE_APACHE != g_inull)
#G4R3 	ALORS
#G4R3 		INEF_SPECIAUX =1
#G4R3 	FINSI
#G4R3 FINSI

############################################################################
# Envoi requetes Table de Distribution
############################################################################

############################################################################
# Controles
############################################################################

############################################################################
# Recherche Instances des ECC
############################################################################

instSYMP_860026334 = i_LireInstanceECC(C_InstSYMP_860026334)
SI (!instSYMP_860026334)
ALORS
	code_errone_860026334 = 0xA0B0
	code_errone_860026334 = code_errone_860026334 + EFFICACE_860026334
	erreur_860026334 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026334,C_InstSYMP_860026334,C_Article_860026334)
	SAUT DISTRI_ERR
SINON
	# Ajout de l'ECC SYMPHONIE a la liste courante des ECC:
	res_860026334 = i_AjouterCouranteECC(instSYMP_860026334)
FINSI
#trace1("instSYMP=<%d>",instSYMP)

# #G4R3 APACHE_DC
#G4R3 instAPACHE = i_LireInstanceECC(C_InstAPACHE_DC)
#G4R3 SI (!instAPACHE)
#G4R3 ALORS
#G4R3 	#trace("Pas d'instance pour APACHE_DC !")
#G4R3 	code_errone = 0xA0B0
#G4R3 	code_errone = code_errone + EFFICACE
#G4R3 	erreur = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone,C_InstAPACHE_DC,C_Article)
#G4R3 	SAUT DISTRI_ERR
#G4R3 FINSI
#trace1("instAPACHE=<%d>",instAPACHE)

#################################################################################
# #G4R3 Tests des criteres envoi a APACHE_DC
#################################################################################
#G4R3 SI (!EFFICACE && DC_CAA )
#G4R3 ALORS
#G4R3 	pt_CODE_APACHE = code_apache("APA3", pt_SGTQS, dpivot)
#G4R3 	pt_INEF_APACHE = inef_apache("APA4", pt_INEF_STD, dpivot)
#G4R3 
#G4R3 	#trace2(" code apache <%s>", pt_CODE_APACHE, "")
#G4R3 	#trace2(" Inef. apache <%s>", pt_INEF_APACHE, "")
#G4R3 
#G4R3 	SI ( (pt_CODE_APACHE != g_inull) && (pt_INEF_APACHE != g_inull) || INEF_SPECIAUX == 1)
#G4R3 	ALORS
#G4R3 		erreur=i_AjouterCouranteECC(instAPACHE)
#G4R3 	FINSI
#G4R3 FINSI

############################################################################
# Duplication Symphonie
############################################################################

trace( "Stockage vers SYMPHONIE")

SI ( i_valid_field_n(g_iartin,$Tctrxdea::T3ce) )
ALORS
	#trace("Avant i_retrait_tlv T3ce")
	erreur_860026334 = i_supprChamp(g_iartin,"T3ce")
FINSI

SI ( i_dup_art_id(g_iartin,g_iartout) )
ALORS
	trace1("ERREUR de duplication vers SYMPHONIE, erreur=<%d>",erreur_860026334)
	code_errone_860026334 = 0xA0D0
	code_errone_860026334 = code_errone_860026334 + EFFICACE_860026334
	erreur_860026334 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026334,"pour Symphonie",C_Article_860026334)
	SAUT DISTRI_ERR
FINSI
res_860026334 = i_rename_art(g_iartout, "Tsymtctrxdea")

############################################################################
# Attente requetes Table de Distribution
############################################################################

############################################################################
# Critere de distribution
############################################################################

############################################################################
# Validation de la liste des ECCs destinatrices
############################################################################

erreur_860026334 = i_ValiderListeECC( 0, 0, 0, 0)

############################################################################
# Mises au format
############################################################################

SI ( !i_ChercherCouranteECC(instSYMP_860026334) )
ALORS
	### Ajout des champs CCD, SGTQS et ECC_FACT ###
	erreur_860026334=i_ajoutChampNum(g_iartout,$Tsymtctrxdea::T4ccd,$Tsymtctrxdea::CCD,0)
	erreur_860026334=i_set_art_field(g_iartout, $Tsymtctrxdea::CCD,255)

	erreur_860026334 = i_ajoutChampNum(g_iartout,$Tsymtctrxdea::T4sgtqs,$Tsymtctrxdea::SGTQS,0)
	#SGTQS=i_LireEECSGTQS(g_ieec)
	# VerifPcode
	i_strcpy(pt_SGTQS_860026334, i_LireEECSGTQS(g_ieec) )
	#trace2("pt_SGTQS=<%s>",pt_SGTQS,"")
	erreur_860026334 = i_set_art_str(g_iartout, $Tsymtctrxdea::SGTQS, pt_SGTQS_860026334)

	erreur_860026334=i_ajoutChampNum(g_iartout,$Tsymtctrxdea::T4eccfact,$Tsymtctrxdea::ECC_FACT,0)
	erreur_860026334 = i_set_art_str(g_iartout, $Tsymtctrxdea::ECC_FACT, "        ")
FINSI

#-------------------------------------------------------------------------
# #G4R3 APACHE_DC
#-----------------------------------------------------------------------

#G4R3 SI ( !i_ChercherCouranteECC(instAPACHE) )
#G4R3 ALORS
#G4R3 	trace("Mise au format APACHE")
#G4R3 
#G4R3 	# Duplication de l article
#G4R3 	SI ( i_dup_art_dest(g_iartin,g_iartout9,"TapacheDEA") )
#G4R3 	ALORS
#G4R3 		trace("erreur de duplication")
#G4R3 		code_errone = 0xA0D0
#G4R3 		code_errone = code_errone + EFFICACE
#G4R3 		erreur = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone,C_TapacheDEA,C_Article)
#G4R3 		SAUT DISTRI_ERR
#G4R3 	FINSI
#G4R3 
#G4R3 	res=i_get_art_field(g_iartin, $Tctrxdea::STY)
#G4R3 	erreur=i_set_art_field(g_iartout9, $TapacheDEA::STY, res)
#G4R3 
#G4R3 	res=i_get_art_field(g_iartin, $Tctrxdea::SCT)
#G4R3 	erreur=i_set_art_field(g_iartout9, $TapacheDEA::SCT, res)
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::INF_IDUS))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_IDUS, 0x00)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::NDR))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::NUM_IDUS, 0xFF)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::INF_DEDE))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_DEDE, 0x00)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::NDE))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::NUM_DEDE, 0xFF)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::INFLOCUS))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_LOCUS, 0x00)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::NUMLOCUS))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::NUM_LOCUS, 0xFF)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::INF_IDAV))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_IDAV, 0x00)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::NUM_IDAV))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::NUM_IDAV, 0xFF)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::BETA))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::COCA, 0xFF)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::BETAV))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::COCAV, 0xFF)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::INFNOS))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_NOS, 0x00)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::NUMNOS))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::NUM_NOS, 0xFF)
#G4R3 	FINSI
#G4R3 
#G4R3 	# champ DUREE
#G4R3 	erreur=i_set_art_field(g_iartout9,$TapacheDEA::DUR,dduree)
#G4R3 
#G4R3 	# champ TAXE
#G4R3 	erreur=i_set_art_field(g_iartout9,$TapacheDEA::TAXE,tax)
#G4R3 
#G4R3 	#CLEi
#G4R3 	SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE1))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Tctrxdea::CLE1)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE1,res)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE2))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Tctrxdea::CLE2)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE2,res)
#G4R3 	FINSI
#G4R3 	SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE3))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Tctrxdea::CLE3)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE3,res)
#G4R3 	FINSI
#G4R3 	SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE4))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Tctrxdea::CLE4)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE4,res)
#G4R3 	FINSI
#G4R3 	SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE5))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Tctrxdea::CLE5)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE5,res)
#G4R3 	FINSI
#G4R3 	SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE6))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Tctrxdea::CLE6)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE6,res)
#G4R3 	FINSI
#G4R3 	SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE7))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Tctrxdea::CLE7)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE7,res)
#G4R3 	FINSI
#G4R3 	SI (i_valid_field_n(g_iartin, $Tctrxdea::CLE8))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Tctrxdea::CLE8)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE8,res)
#G4R3 	FINSI
#G4R3 
#G4R3 	# champ REP
#G4R3 	SI (i_valid_field_n(g_iartin, $Tctrxdea::REP))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Tctrxdea::REP)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::REP,res)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::INFIPRV))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_IPRV, 0x00)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI ( !i_valid_field_n(g_iartin, $Tctrxdea::NUMIPRV) )
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::NUM_IPRV, 0xFF)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::INF_IDRV))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_IDRV, 0x00)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI ( !i_valid_field_n(g_iartin, $Tctrxdea::NUM_IDRV) )
#G4R3 	ALORS
#G4R3 		erreur=	i_memset_field_n(g_iartout9, $TapacheDEA::NUM_IDRV, 0xFF)
#G4R3 	FINSI
#G4R3 
#G4R3 
#G4R3 	# champ NBRV
#G4R3 	SI (i_valid_field_n(g_iartin, $Tctrxdea::NRENV))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Tctrxdea::NRENV)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::NBRV,res)
#G4R3 	FINSI
#G4R3 
#G4R3 	# champ DUSEL
#G4R3 	SI (i_valid_field_n(g_iartin, $Tctrxdea::T3sel))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Tctrxdea::DUSEL)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::SEL,res)
#G4R3 	FINSI
#G4R3 
#G4R3 	# champ DUSON
#G4R3 	SI (i_valid_field_n(g_iartin, $Tctrxdea::DUSON))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$DUSON)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::SON,res)
#G4R3 	FINSI
#G4R3 
#G4R3 	# MAJ des champs Faisceau
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::nfsce))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::FSC_ENTRANT, 0x40)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::afcte))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::CIRCUITE, 0xFF)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::nfscs))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::FSC_SORTANT, 0x40)
#G4R3 	FINSI
#G4R3 
#G4R3 	SI (!i_valid_field_n(g_iartin, $Tctrxdea::afcts))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::CIRCUITS, 0xFF)
#G4R3 	FINSI
#G4R3 
#G4R3 	# champ SGTQS
#G4R3 	#SGTQS=i_LireEECSGTQS( g_ieec )
#G4R3 	trace2("pt_SGTQS=<%s>",pt_SGTQS,"")
#G4R3 	erreur=i_set_art_str(g_iartout9,$TapacheDEA::CODE_CAA, pt_SGTQS)
#G4R3 	erreur=i_set_art_field(g_iartout9,$TapacheDEA::MINE,MINE)
#G4R3 	erreur=i_set_art_field(g_iartout9,$TapacheDEA::APPLI,APPLI)
#G4R3 	erreur=i_set_art_field(g_iartout9,$TapacheDEA::ART,ART)
#G4R3 
#G4R3 	# MAJ champ INEF_STD de ASCII en Hexa
#G4R3 	erreur=i_cree_art("Conversion",g_iartout10)
#G4R3 	erreur= i_set_art_str(g_iartout10, $Conversion::INEF_STD, pt_INEF_STD)
#G4R3 	erreur=i_conv_field("INEF_STD", g_iartout10, 3, g_iartout9, 1, 0)
#G4R3 FINSI
#-----------------------------------------------------------------------

############################################################################
# Envoi vers IECC
############################################################################

SI ( !i_ChercherCouranteECC(instSYMP_860026334) )
ALORS
	res_860026334=i_stocke_art_iecc(g_iartout, instSYMP_860026334)
	trace("Emission vers SYMPHONIE reussie")
FINSI

#-------------------------------------------------------------------------
# #G4R3 APACHE
#-------------------------------------------------------------------------
#G4R3 SI ( !i_ChercherCouranteECC(instAPACHE) )
#G4R3 ALORS
#G4R3 	trace( "Emission vers APACHE" )
#G4R3 	res = i_stocke_art_iecc(g_iartout9, instAPACHE)
#G4R3 FINSI


SAUT DISTRI_FIN

############################################################################
# Stockage en Errone
############################################################################

POINT DISTRI_ERR
trace( "stockage en errone de distribution")

res_860026334=i_make_art_rej(g_iartin, g_iartout, code_errone_860026334)
res_860026334=i_stocke_art(g_iartout,0,PT_ERRONE,0)

RETOUR TRAIT_OK


POINT DISTRI_FIN
trace("Fin du Pcode de distribution Tctrxdea")
RETOUR TRAIT_OK
