DEFINITION C_SYMPH_860026352 "SYMP"
DEFINITION C_SSCC_860026352 "SSCC"
DEFINITION C_SSCCS_860026352 "SSCCS"
DEFINITION C_TRAFBSS1_860026352 "TRAFBSS1"
DEFINITION C_TRAFBSS2_860026352 "TRAFBSS2"
DEFINITION C_TRAFBSS_860026352 "TRAFBSS"
DEFINITION C_article_860026352 "TgeneConv"
DEFINITION C_SSCC_SSCCS_860026352 "SSCC ou SSCCS"
DEFINITION C_MESS_TRAFBSS_860026352 "TRAFBSS ou TRAFBSS1 ou TRAFBSS2"
DEFINITION C_Tdebtrou_860026352 "TdebTrou"
DEFINITION C_Tfintrou_860026352 "TfinTrou"
DEFINITION C_Tarret_860026352 "TarretColl"
DEFINITION C_Treprise_860026352 "TrepriseColl"
DEFINITION C_InstAFDB_860026352 "AFDB"
REGISTRE ENTIER erreur_860026352
REGISTRE ENTIER res_860026352
REGISTRE ENTIER date_860026352
REGISTRE ENTIER datst_860026352
REGISTRE ENTIER cause_860026352
REGISTRE ENTIER instSSCC_860026352
REGISTRE ENTIER instSSCCS_860026352
REGISTRE ENTIER instSYMP_860026352
REGISTRE ENTIER instTRAFBSS1_860026352
REGISTRE ENTIER instTRAFBSS2_860026352
REGISTRE ENTIER instTRAFBSS_860026352
REGISTRE ENTIER codeEEC_860026352
REGISTRE ENTIER ref_860026352
REGISTRE ENTIER code_errone_860026352
REGISTRE ENTIER instAFDB_860026352
REGISTRE POINTEUR pt_SGTQS_860026352
REGISTRE POINTEUR pt_DEBTROU_860026352
REGISTRE POINTEUR pt_DEBTROU2_860026352
REGISTRE POINTEUR pt_FINTROU_860026352
REGISTRE POINTEUR pt_FINTROU2_860026352
REGISTRE POINTEUR pt_resul_860026352
REGISTRE POINTEUR pt_deb_860026352
REGISTRE POINTEUR pt_fin_860026352
REGISTRE POINTEUR pt_ARRETCOLL_860026352
REGISTRE POINTEUR pt_ARRETCOLL2_860026352
REGISTRE POINTEUR pt_arret_860026352
############################################################################
#
# Fichier : TgeneConv.src
#
# Version : Creation SIFAC
#
# Date    : Le 28/09/2001
#
# Distribution :
#    Article genere
#
# En entree :
#    Article : TgeneConv
#    Header:
#
# En sortie:
#    FOR, TRAFIC, FE, FCT, VTG, 16X : Messages
#    SYMPHONIE : Stockage
#
# HISTORIQUE :
#	17/06/2002 - PSA - FO1510  : Encapsulation pour le stockage en errone
#	06/09/2002 - Nicole.S      : Integration du pcode fait par Rodolphe SEROR
#	04/10/2002 - Nicole.S      : Integration des nouveaux messages d'alarmes 8511 et 8512
#	21/10/2002 - PSA : FO63 : Modif de l indice pour appel a i_DistribuerArticleEvenement
#	28/03/2003 - NSA: FO244: Envoi des articles vers SSCC et SSCCS
#	16/09/2003 - MCH: G2R0CO desavtivation 8511 avant activation
#	06/10/2003 - RBE : Augmentation de la taille des pointeurs
#	30/10/2003 - NSA : toilettage pcode + FO 442 + F0452
#	21/11/2003 - RBE :G2R0Cy:passage en h. metro. des libelles des ala. 8511 et 8512
#	05/01/2204 - RBE : FO527 : manque passage en h. metro. pour cause a 2
#	16/02/2004 - RBE : FO571 : Mise en commentaire des traces
#	22/03/2004 - NSA : G2R0Cf : alimentation de la correlation
#	08/04/2004 - DRE : FO 624 recuperation des 4 premiers octets de SGTQS dans pt_SGTQS4
#	21/04/2004 - NSA : Prise en compte des 500 agents Spec 1.2
#	05/05/2004 - NSA : FO668 Retour a 50 agents
#	25/05/2004 - NSA : FO691 Inversion des envois a Symph et Suivi Conso
#	27/05/2004 - DRE - FO 693 Inhibition de l'envoi en correlation des articles de trou
#	09/09/2004 - DRE - Cl Suppression des lignes de l'envoi en correlation des articles de trou
#	07/12/2004 - NSA - Cmf Prise en compte des arret de collecte pour FTLD(alarme immediate)
#	04/02/2005 - DRE - Cn FO 1094 Prise en compte des trous de collecte pour FTLD (alarme immediate)
#	10/02/2005 - RBE - FO1108 fin de trou de coll. si FTLD desactiver alarme 8514 uniquement
#	15/09/2005 - DRE - FO1406 Retour Fonction i_LireInfoECC (doit etre != et non >)
#	12/05/2006 - FAL - G2R2Cw Envoi des articles vers TRAFBSS1 et TRAFBSS2
#	19/05/2006 - DRE/THE - G2R2Cw Envoi des articles vers TRAFBSS comme sur PF NS
#	03/09/2008 - RHE - G3R9Cy Arret alimentation e-bill
#	15/10/2008 - RHE - G3R10 fusion G3R9Cy (Arret alimentation e-bill)
#	31/03/2009 - JLG - C
#	31/03/2009 - THE - G3R13C2 QC 230
#	13/08/2009 - DRE - G3R14   QC277 DRE Evolution N'envoyer les trous a symphonie que si elle est destinatrice 
#					 Pour RI2GTT (telecarte rechargeable) il n'y a pas d'envoie vers Symphonie
#	29/09/2011 - THE - VerifPcode
#	30/07/2012 - THE - Correction QC610 : Gestion des alarmes de trou de collecte pour SONUS et SONUSHD
#	05/03/2014 - THE - G4R6 Lot1  suppression des alarmes sp?cifiques 8513 et 8514
#
############################################################################

############################################################################
# Declaration des variables
############################################################################

# VerifPcode

# VerifPcode

# VerifPcode

instSYMP_860026352     =0
instSSCC_860026352     =0
instSSCCS_860026352    =0
instAFDB_860026352     =0
instTRAFBSS1_860026352 =0
instTRAFBSS2_860026352 =0
instTRAFBSS_860026352  =0
#id_corr      =0
code_errone_860026352  =0
#G4R6 Lot1 FTLD         =0

#trace("[Tgene] : Debut du pcode de distribution Tgene")

pt_SGTQS_860026352	= "1111111111111111111111111111"
pt_resul_860026352	= "4444444444444444444444444444444444"
pt_DEBTROU_860026352	="222222222222222222222222222222"
pt_DEBTROU2_860026352	="345345356675786786922222222222"
pt_FINTROU_860026352	="333333333333333333333333333333"
pt_FINTROU2_860026352	="867856746365346333333333333333"
pt_ARRETCOLL_860026352	="777777777777777777777777777777"
pt_ARRETCOLL2_860026352	="967856745673577777777777777777"
pt_deb_860026352		="66666666666666666666666666666666"
pt_fin_860026352		="55555555555555555555555555555555"
pt_arret_860026352	="88888888888888888888888888888888"
#pt_SGTQS4	= "999999999999999999999999999999"
#G4R6 Lot1 pt_Sgtqs_FTLD	="1010101010101010101010101010101010101010101010101"

#Initialisation
# VerifPcode
i_strcpy(pt_SGTQS_860026352,"")
i_strcpy(pt_DEBTROU2_860026352,"")
i_strcpy(pt_FINTROU2_860026352,"")
i_strcpy(pt_resul_860026352,"")
i_strcpy(pt_deb_860026352,"")
i_strcpy(pt_fin_860026352,"")
i_strcpy(pt_ARRETCOLL2_860026352,"")
i_strcpy(pt_arret_860026352,"")
#i_strcpy(pt_SGTQS4,"")
#G4R6 Lot1 i_strcpy(pt_Sgtqs_FTLD,"")


##################################################################################
# Recuperation des codes internes EEC et ECC
##################################################################################

# Recuperation du numero interne platine de l'EEC

codeEEC_860026352= i_get_art_field(g_iartin,$TgeneConv::eec)
#trace1("[Tgene] : Numero interne platine de l EEC:%d", codeEEC)

instSYMP_860026352= i_LireInstanceECC(C_SYMPH_860026352)
instSSCC_860026352= i_LireInstanceECC(C_SSCC_860026352)
instSSCCS_860026352= i_LireInstanceECC(C_SSCCS_860026352)
instTRAFBSS1_860026352 = i_LireInstanceECC(C_TRAFBSS1_860026352)
instTRAFBSS2_860026352 = i_LireInstanceECC(C_TRAFBSS2_860026352)
instTRAFBSS_860026352  = i_LireInstanceECC(C_TRAFBSS_860026352)
#G3R13
instAFDB_860026352  = i_LireInstanceECC(C_InstAFDB_860026352)

# Recuperation de la cause d'evenement
cause_860026352= i_get_art_field(g_iartin,$TgeneConv::cause)
#trace1("[Tgene] : Cause d'evenement:%d", cause)

####################################################################################
# RECUPERATION DU CODE SGTQS
####################################################################################

i_strcpy(pt_SGTQS_860026352,i_LireEECSGTQS( codeEEC_860026352 ))
#trace2("[Tgene] : SGTQS=<%s>",pt_SGTQS,"")

####################################################################################
# Verification presence des instances
####################################################################################

SI (!instSYMP_860026352)
ALORS
	erreur_860026352 = i_PlvMessEmettre(8501,1,g_iartin,"",3,C_SYMPH_860026352,C_article_860026352,codeEEC_860026352)
	SAUT DISTRI_ERR
FINSI

SI ( (!instSSCC_860026352 ) || (!instSSCCS_860026352 ) )
ALORS
	erreur_860026352 = i_PlvMessEmettre(8501,1,g_iartin,"",3,C_SSCC_SSCCS_860026352,C_article_860026352,codeEEC_860026352)
	SAUT DISTRI_ERR
FINSI

#G2R2Cw
SI ( (!instTRAFBSS1_860026352 ) || (!instTRAFBSS2_860026352 ) )
ALORS
	erreur_860026352 = i_PlvMessEmettre(8501,1,g_iartin,"",3,C_MESS_TRAFBSS_860026352,C_article_860026352,codeEEC_860026352)
	SAUT DISTRI_ERR
FINSI

#G3R13
SI (!instAFDB_860026352 )
ALORS
	erreur_860026352 = i_PlvMessEmettre(8501,1,g_iartin,"",3,C_InstAFDB_860026352,C_article_860026352,codeEEC_860026352)
	SAUT DISTRI_ERR
FINSI

####################################################################################
# Recuperation de la reference de l'article
####################################################################################

ref_860026352= i_get_art_field(g_iartin,$TgeneConv::ref)
#trace1("[Tgene] : Reference de l'article:%d", ref)

####################################################################################
# Recuperation de la date de l'article
####################################################################################

date_860026352= i_get_art_field(g_iartin,$TgeneConv::DATE)
#trace1("[Tgene] : Date de l'article :%d", date)
#trace1("[Tgene] : Date de l'article :%x", date)

#Recuperation de la date de debut de l'article
#ideb = i_get_art_field(g_iartin,$TgeneConv::ideb)
##trace1("[Tgene] : Date de debut de l'article :%d", ideb)

####################################################################################
# Lecture table APACHE pour confirmer si EEC FTLD
####################################################################################
#G4R6 Lot1 
#erreur = i_format_str2( pt_Sgtqs_FTLD, "%s%s", "CTI4G", pt_SGTQS )
#i_strcpy(pt_resul, i_get_tab_field( "code_apache", date, pt_Sgtqs_FTLD ))
#
##/ QC610
#SI ( (i_strcmp(pt_resul,"1") == 0) || (i_strcmp(pt_resul,"5") == 0) || (i_strcmp(pt_resul,"6") == 0) )
#ALORS
#	FTLD = 1
#FINSI

####################################################################################
# Recuperation de la date de fin de l'article
####################################################################################

#ifin = i_get_art_field(g_iartin,$TgeneConv::ifin)
##trace1("[Tgene] : Date de fin de l'article :%d", ifin)

###################################################################################
# Mise a jour de la liste des ECC destinatrices avec consultation de la table
# specifique
# Correction de la FO 63 : on fait cause+1 car il y a un decalage dans le tableau
# des "causes" (FO binaire a venir : 21/10/02)
###################################################################################

erreur_860026352= i_DistribuerArticleEvenement(cause_860026352+1,date_860026352)
#trace1("[Tgene] : Retour i_DistribuerArticleEvenement:%d", erreur)

##################################################################################
# Mise a jour de la liste des ECC concernees par l article genere
##################################################################################

###### SSCC   ###############################
erreur_860026352= i_LireInfoECC(instSSCC_860026352, 0)
#trace1("[Tgene] : Retour de la table de distribution pour SSCC:<%d>", erreur)
SI (erreur_860026352 != 0)
ALORS
	erreur_860026352 = i_AjouterCouranteECC(instSSCC_860026352)
FINSI
###### SSCCS   ###############################
erreur_860026352= i_LireInfoECC(instSSCCS_860026352, 0)
#trace1("[Tgene] : Retour de la table de distribution pour SSCCS:<%d>", erreur)
SI (erreur_860026352 != 0)
ALORS
	erreur_860026352 = i_AjouterCouranteECC(instSSCCS_860026352)
FINSI

#******* TRAFBSS   ************************
# les articles de trou pour les EEC sont envoyes a TRAFBSS alors que les
# articles normaux sont envoyes a TRAFBSS1 et TRAFBSS2;
# c est pourquoi  on teste TRAFBSS1 et TRAFBSS2 pour emettre a TRAFBSS

erreur_860026352= i_LireInfoECC(instTRAFBSS1_860026352, 0)
res_860026352= i_LireInfoECC(instTRAFBSS2_860026352, 0)
#trace1("[Tgene] : Retour de la table de distribution pour TRAFBSS:<%x>", erreur)
SI (erreur_860026352 != 0 || res_860026352 != 0)
ALORS
	instTRAFBSS_860026352= i_LireInstanceECC(C_TRAFBSS_860026352)
	SI (!instTRAFBSS_860026352)
	ALORS
		erreur_860026352 = i_PlvMessEmettre(8501,1,g_iartin,"",3,C_MESS_TRAFBSS_860026352,C_article_860026352,codeEEC_860026352)
		SAUT DISTRI_ERR
	SINON
		erreur_860026352 = i_AjouterCouranteECC(instTRAFBSS_860026352)
	FINSI
FINSI

###### AFDB   ###############################
# G3R13 QC 230
erreur_860026352= i_LireInfoECC(instAFDB_860026352, 0)
trace1("[Tgene] : Retour de la table de distribution pour AFDB:<%d>", erreur_860026352)
SI (erreur_860026352 != 0)
ALORS
	erreur_860026352 = i_AjouterCouranteECC(instAFDB_860026352)
FINSI

###### SYMPHONIE ############################
# G3R14 QC277 DRE Evolution
erreur_860026352= i_LireInfoECC(instSYMP_860026352, 0)
trace1("[Tgene] : Retour de la table de distribution pour Symphonie:<%d>", erreur_860026352)
SI (erreur_860026352 != 0)
ALORS
	erreur_860026352 = i_AjouterCouranteECC(instSYMP_860026352)
FINSI


####################################################################################
# MISE AU FORMAT POUR SYMPHONIE  SSCC, SSCCS etAFDB
####################################################################################

#*********************************** Article genere de trou de collecte
SI (cause_860026352 == 0)
ALORS
	#trace("[Tgene] : Il s agit d un article de debut de trou de collecte")
	#trace("[Tgene] : Emission d'alarme pour SANSOM")

	# SYMPHONIE
	erreur_860026352= i_dup_art_dest(g_iartin,g_iartout2,C_Tdebtrou_860026352)
	SI ( erreur_860026352 > 0 )
	ALORS
		#trace("[Tgene] : Erreur de i_dup_art vers Symphonie")
		code_errone_860026352=0xA0D2
		erreur_860026352= i_PlvMessEmettre(8602,1,g_iartin,"",3,code_errone_860026352,C_Tdebtrou_860026352,C_article_860026352)
		SAUT DISTRI_ERR
	FINSI

	datst_860026352 = i_get_art_field(g_iartout2, $TdebTrou::date_deb)
	#trace1("[Tgene] : Date de debut de l'article GMT :%d",datst)
	datst_860026352 = i_DHgetLocalTime(1,7,datst_860026352)
	#trace1("[Tgene] : Date de debut de l'article METRO :%d",datst)

	erreur_860026352 = i_set_art_field(g_iartout2, $TdebTrou::date_deb, datst_860026352)

	pt_DEBTROU_860026352 = i_get_art_fieldptr( g_iartout2, $TdebTrou::date_deb )
	i_get_sub_str(pt_DEBTROU_860026352,0,13,pt_DEBTROU2_860026352)
	#trace2("[Tgene] : DEBTROU=<%s>",pt_DEBTROU,"")

	datst_860026352 = i_get_art_field(g_iartout2, $TdebTrou::date_fin)
	#trace1("[Tgene] : Date de fin de l'article GMT :%d",datst)
	datst_860026352 = i_DHgetLocalTime(1,7,datst_860026352)
	#trace1("[Tgene] : Date de fin de l'article METRO :%d",datst)

	erreur_860026352 = i_set_art_field(g_iartout2, $TdebTrou::date_fin, datst_860026352)

	pt_FINTROU_860026352 = i_get_art_fieldptr( g_iartout2, $TdebTrou::date_fin )
	i_get_sub_str(pt_FINTROU_860026352,0,13,pt_FINTROU2_860026352)

	#trace2("[Tgene] : FINTROU=<%s>",FINTROU,"")
	erreur_860026352=i_format_str2(pt_resul_860026352,"%s%s"," ",pt_SGTQS_860026352)
	erreur_860026352=i_format_str2(pt_deb_860026352,"%s%s"," ",pt_DEBTROU2_860026352)
	erreur_860026352=i_format_str2(pt_fin_860026352,"%s%s"," ",pt_FINTROU2_860026352)

#G4R6 Lot1 
	erreur_860026352 = i_PlvDesactiverAlarme(8511,codeEEC_860026352,ref_860026352,0,0)
	erreur_860026352=i_PlvMessEmettreAvecCodeSourceEEC(8511,codeEEC_860026352,ref_860026352,0,0,0,1,codeEEC_860026352,g_iartin,"",3,pt_resul_860026352,pt_deb_860026352,pt_fin_860026352)
#	SI (FTLD == 1)
#	ALORS
#		erreur = i_PlvDesactiverAlarme(8514,codeEEC,ref,0,0)
#		erreur=i_PlvMessEmettreAvecCodeSourceEEC(8514,codeEEC,ref,0,0,0,1,codeEEC,g_iartin,"",3,pt_resul,pt_deb,pt_fin)
#	SINON
#		erreur = i_PlvDesactiverAlarme(8511,codeEEC,ref,0,0)
#		erreur=i_PlvMessEmettreAvecCodeSourceEEC(8511,codeEEC,ref,0,0,0,1,codeEEC,g_iartin,"",3,pt_resul,pt_deb,pt_fin)
#	FINSI

	# champ T
	#trace("[Tgene] : Mise a jour du champ T pour Symphonie")
	erreur_860026352= i_set_art_field(g_iartout2,$TdebTrou::T, 0x73)

	# champ L
	#trace("[Tgene] : Mise a jour du champ L pour Symphonie")
	erreur_860026352= i_set_art_field(g_iartout2,$TdebTrou::L, 0x34)

	# ref : idem champ ref de Tgene en entree

	# champ EEC
	#trace("[Tgene] : Mise a jour du champ EEC pour Symphonie")
	erreur_860026352= i_set_art_str(g_iartout2,$TdebTrou::eec, pt_SGTQS_860026352)

	# champ DATE
	# recupere de l article d entree via la table de duplication

	# champ date_deb reprend la valeur du champ ideb du Tgene
	# recupere de l article d entree via la table de duplication

	# champ date_fin reprend la valeur du champ ifin du Tgene
	# recupere de l article d entree via la table de duplication
FINSI

#********************************** Article genere de fin de trou de collecte

SI (cause_860026352 == 1 )
ALORS
	#trace("[Tgene] : Il s agit d un article de fin de trou de collecte")
	#trace("[Tgene] : Desactivation d'alarme pour SANSOM")

#G4R6 Lot1 
	erreur_860026352 = i_PlvDesactiverAlarme(8511,codeEEC_860026352,ref_860026352,0,0)
#	SI (FTLD == 1)
#	ALORS
#		erreur = i_PlvDesactiverAlarme(8514,codeEEC,ref,0,0)
#	SINON
#		erreur = i_PlvDesactiverAlarme(8511,codeEEC,ref,0,0)
#	FINSI

	# SYMPHONIE

	SI (i_dup_art_dest(g_iartin,g_iartout2,C_Tfintrou_860026352))
	ALORS
		#trace("[Tgene] : Erreur de i_dup_art vers Symphonie")
		code_errone_860026352=0xA0D2
		erreur_860026352= i_PlvMessEmettre(8602,1,g_iartin,"",3,code_errone_860026352,C_Tfintrou_860026352,C_article_860026352)
		SAUT DISTRI_ERR
	FINSI

	# champ T
	#trace("[Tgene] : Mise a jour du champ T pour Symphonie")
	erreur_860026352= i_set_art_field(g_iartout2,$TfinTrou::T, 0x74)

	# champ L
	#trace("[Tgene] : Mise a jour du champ L pour Symphonie")
	erreur_860026352= i_set_art_field(g_iartout2,$TfinTrou::L, 0x18)

	# ref : idem champ ref de Tgene en entree

	# champ EEC
	#trace("[Tgene] : Mise a jour du champ EEC pour Symphonie")
	erreur_860026352= i_set_art_str(g_iartout2,$TfinTrou::eec, pt_SGTQS_860026352)

	# champ DATE
	# recupere de l article d entree via la table de duplication
FINSI

# ******************************** Article genere d'arret de collecte

SI (cause_860026352 == 2 )
ALORS
	#trace("[Tgene] : Il s agit d un article d arret de collecte")
	#trace("[Tgene] : Emission d'alarme pour SANSOM")

	# SYMPHONIE
	erreur_860026352= i_dup_art_dest(g_iartin,g_iartout2,C_Tarret_860026352)
	SI ( erreur_860026352 > 0 )
	ALORS
		#trace("[Tgene] : Erreur de i_dup_art vers Symphonie")
		code_errone_860026352=0xA0D2
		erreur_860026352= i_PlvMessEmettre(8602,1,g_iartin,"",3,code_errone_860026352,C_Tarret_860026352,C_article_860026352)
		SAUT DISTRI_ERR
	FINSI

	datst_860026352 = i_get_art_field(g_iartout2, $TarretColl::date_deb )
	#trace1("[Tgene] : Date de debut arretColl en GMT :%d",datst)
	datst_860026352 = i_DHgetLocalTime(1,7,datst_860026352)
	#trace1("[Tgene] : Date de debut arretColl en METRO :%d",datst)

	erreur_860026352 = i_set_art_field(g_iartout2, $TarretColl::date_deb, datst_860026352)

	pt_ARRETCOLL_860026352 = i_get_art_fieldptr( g_iartout2, $TarretColl::date_deb )
	i_get_sub_str(pt_ARRETCOLL_860026352,0,13,pt_ARRETCOLL2_860026352)
	#trace2("[Tgene] : ARRETCOLL=<%s>",pt_ARRETCOLL,"")
	erreur_860026352=i_format_str2(pt_resul_860026352,"%s%s"," ",pt_SGTQS_860026352)
	erreur_860026352=i_format_str2(pt_arret_860026352,"%s%s"," ",pt_ARRETCOLL2_860026352)

#G4R6 Lot1 
	erreur_860026352=i_PlvMessEmettreAvecCodeSourceEEC(8512,codeEEC_860026352,ref_860026352,0,0,0,1,codeEEC_860026352,g_iartin,"",2,pt_resul_860026352,pt_arret_860026352,0)
#	SI (FTLD == 1)
#	ALORS
#		erreur=i_PlvMessEmettreAvecCodeSourceEEC(8513,codeEEC,ref,0,0,0,1,codeEEC,g_iartin,"",2,pt_resul,pt_arret,0)
#	SINON
#		erreur=i_PlvMessEmettreAvecCodeSourceEEC(8512,codeEEC,ref,0,0,0,1,codeEEC,g_iartin,"",2,pt_resul,pt_arret,0)
#	FINSI

	# champ T
	#trace("[Tgene] : Mise a jour du champ T pour Symphonie")
	erreur_860026352= i_set_art_field(g_iartout2,$TarretColl::T, 0x75)

	# champ L
	#trace("[Tgene] : Mise a jour du champ L pour Symphonie")
	erreur_860026352= i_set_art_field(g_iartout2,$TarretColl::L, 0x26)

	# ref : idem champ ref de Tgene en entree
	# recupere de l article d entree via la table de duplication

	# champ EEC
	#trace("[Tgene] : Mise a jour du champ EEC pour Symphonie")
	erreur_860026352= i_set_art_str(g_iartout2,$TarretColl::eec, pt_SGTQS_860026352)

	# champ DATE
	# recupere de l article d entree via la table de duplication

	# champ date_arret
	# recupere de l article d entree via la table de duplication
FINSI

#*************************************** Article genere de fin d'arret de collecte

SI (cause_860026352 == 3 )
	ALORS
	#trace("[Tgene] : Il s agit d un article de fin d arret de collecte")
	#trace("[Tgene] : Desactivation d'alarme pour SANSOM")

#G4R6 Lot1 
	erreur_860026352 = i_PlvDesactiverAlarme(8512,codeEEC_860026352,ref_860026352,0,0)
#	SI ( FTLD==1 )
#	ALORS
#		erreur = i_PlvDesactiverAlarme(8513,codeEEC,ref,0,0)
#	SINON
#		erreur = i_PlvDesactiverAlarme(8512,codeEEC,ref,0,0)
#	FINSI

	# SYMPHONIE

	SI (i_dup_art_dest(g_iartin,g_iartout2,C_Treprise_860026352))
	ALORS
		#trace("[Tgene] : Erreur de i_dup_art vers Symphonie")
		code_errone_860026352=0xA0D2
		erreur_860026352= i_PlvMessEmettre(8602,1,g_iartin,"",3,code_errone_860026352,C_Treprise_860026352,C_article_860026352)
		SAUT DISTRI_ERR
	FINSI

	# champ T
	#trace("[Tgene] : Mise a jour du champ T pour Symphonie")
	erreur_860026352= i_set_art_field(g_iartout2,$TrepriseColl::T, 0x76)

	# champ L
	#trace("[Tgene] : Mise a jour du champ L pour Symphonie")
	erreur_860026352= i_set_art_field(g_iartout2,$TrepriseColl::L, 0x26)

	# ref : idem champ ref de Tgene en entree
	# recupere de l article d entree via la table de duplication

	# champ EEC
	#trace("[Tgene] : Mise a jour du champ EEC pour Symphonie")
	erreur_860026352= i_set_art_str(g_iartout2,$TrepriseColl::eec, pt_SGTQS_860026352)

	# champ DATE
	# recupere de l article d entree via la table de duplication

	# champ date_fin
	# recupere de l article d entree via la table de duplication
FINSI

#############################################################################
# EMISSION VERS SYMPHONIE ,SSCC , SSCCS , AFDB, TRAFBSS ET DUMP DE L ARTICLE
#############################################################################

#trace("[Tgene] : Emission vers Symphonie")
#G3R14 QC277 DRE Evolution
SI(!i_ChercherCouranteECC(instSYMP_860026352))
ALORS
	#trace(">>>__LINE__>>>__FILE__>>>   Emission vers Symphonie")
	res_860026352= i_stocke_art_iecc(g_iartout2, instSYMP_860026352)
FINSI

#G3R13 QC 230
SI(!i_ChercherCouranteECC(instAFDB_860026352))
ALORS
	#trace(">>>__LINE__>>>__FILE__>>>   Emission vers AFDB")
	res_860026352= i_stocke_art_iecc(g_iartout2, instAFDB_860026352)
FINSI

SI(!i_ChercherCouranteECC(instSSCC_860026352))
ALORS
	#trace("[Tgene] : Emission vers SSCC")
	res_860026352= i_stocke_art_iecc(g_iartout2, instSSCC_860026352)
FINSI

SI(!i_ChercherCouranteECC(instSSCCS_860026352))
ALORS
	#trace("[Tgene] : Emission vers SSCCS")
	res_860026352= i_stocke_art_iecc(g_iartout2,instSSCCS_860026352)
FINSI

#Dump des articles
#trace("[Tgene] : Ecriture d un dump de l article")
#erreur = i_fdump_art(g_iartout2)

SI(!i_ChercherCouranteECC(instTRAFBSS_860026352))
ALORS
	#trace("[Tgene] : Emission vers TRAFBSS")
	res_860026352= i_stocke_art_iecc(g_iartout2, instTRAFBSS_860026352)
FINSI

##########################################################################

RETOUR TRAIT_OK

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

POINT DISTRI_ERR

#trace( "[Tgene] : Stockage en errone de distribution")

res_860026352 = i_make_art_rej(g_iartin, g_iartout, code_errone_860026352)
res_860026352 = i_stocke_art( g_iartout, 0, PT_ERRONE, 0)

RETOUR TRAIT_OK

