DEFINITION NUMTAB_860026355 1
DEFINITION ZONEMETRO_860026355 7
DEFINITION C_Article_860026355 "Trm6dea"
DEFINITION C_InstCENT_860026355 "CENTAUREDEA"
DEFINITION C_InstSYMP_860026355 "SYMP"
DEFINITION C_Tcent_860026355 "TcentaureDEA"
DEFINITION IDUS_BNC_860026355 "**00"
DEFINITION TYPCTR_Fact_Loc_860026355 16
DEFINITION TYPCTR_Fact_RI_860026355 17
DEFINITION RES_TYPCTR_860026355 2
DEFINITION CODE_ARTICLE_860026355 3
DEFINITION CATEG_860026355 8
DEFINITION BASE_TELEPHONE_860026355 1
DEFINITION C_DATCPS_860026355 "DATCPS"
DEFINITION TD_SVA_860026355 9
DEFINITION C_INST_ALICE_860026355 "ALICE"
REGISTRE ENTIER res_860026355
REGISTRE ENTIER erreur_860026355
REGISTRE ENTIER code_errone_860026355
REGISTRE ENTIER INF_860026355
REGISTRE ENTIER EFFICACE_860026355
REGISTRE ENTIER ICAR_REL_860026355
REGISTRE ENTIER ICAR_ABS_860026355
REGISTRE ENTIER ddebut_860026355
REGISTRE ENTIER gmt_date_860026355
REGISTRE ENTIER dpivot_860026355
REGISTRE ENTIER dduree_860026355
REGISTRE ENTIER tax_860026355
REGISTRE ENTIER EPORTABILITE_860026355
REGISTRE ENTIER SPORTABILITE_860026355
REGISTRE ENTIER CCD_860026355
REGISTRE ENTIER instCENT_860026355
REGISTRE ENTIER instSYMP_860026355
REGISTRE ENTIER INEF_SPECIAUX_860026355
REGISTRE ENTIER val_INEF_860026355
REGISTRE ENTIER MINE_860026355
REGISTRE ENTIER ART_860026355
REGISTRE ENTIER APPLI_860026355
REGISTRE ENTIER DC_CAA_860026355
REGISTRE ENTIER b_Fact_CPS_Loc_860026355
REGISTRE ENTIER b_Fact_CPS_RI_860026355
REGISTRE ENTIER bREDIST_860026355
REGISTRE ENTIER type_cpt_860026355
REGISTRE ENTIER Date_CPS_860026355
REGISTRE ENTIER instALICE_860026355
REGISTRE ENTIER val_860026355
REGISTRE ENTIER longueur_860026355
REGISTRE ENTIER trait_ok_860026355
REGISTRE POINTEUR pt_SGTQS_860026355
REGISTRE POINTEUR pt_TEMP_860026355
REGISTRE POINTEUR pt_TEMP2_860026355
REGISTRE POINTEUR pt_TEMP3_860026355
REGISTRE POINTEUR pt_NNOS_860026355
REGISTRE POINTEUR pt_DEDE_DIST_N_860026355
REGISTRE POINTEUR pt_IDAV_DIST_N_860026355
REGISTRE POINTEUR pt_TCOMMUT_860026355
REGISTRE POINTEUR pt_INEF_STD_860026355
REGISTRE POINTEUR pt_INEF_COMMUT_860026355
REGISTRE POINTEUR pt_NORM_860026355
REGISTRE POINTEUR pt_CodeOp_860026355
REGISTRE POINTEUR pt_BUF_860026355
REGISTRE POINTEUR pt_PREF_HERISSON_860026355
REGISTRE POINTEUR pt_MESSAGE_860026355
REGISTRE POINTEUR pt_CODE_TARIF_860026355
REGISTRE POINTEUR pt_TYPE_EDIT_860026355
REGISTRE POINTEUR pt_NDE_860026355
REGISTRE POINTEUR pt_DEDE_BNC_860026355
REGISTRE POINTEUR pt_LIBELREDIST_860026355
############################################################################
#
# Fichier : Trm6dea.src X96
#
# Version : %version: 15 %
#
# Date    : %date_modified: 29/04/02 17:51 %
#         : le 29/04/02 par URS (NSA)
# Distribution :
#    Article DEA efficace et inefficace sur Acheminement GSM
#
# En entree :
#    Article : Trm6dea
#
# En sortie :
#
#    CENTAURE
#    SYMPHONIE
#
# HISTORIQUE :
# FOEX594 - Prise en compte du parametre NOS en entree - 29/04/2002 - LRA.
#	17/06/2002 - PSA - FO1510  : Encapsulation pour le stockage en errone
#	16/07/2002 - RBE : Ajout variables EPORTABILITE et SPORTABILITE
#		           et Modif. mise au format NDEDE
#	25/09/2002 - MCH - V4.7    : IDAV_DIST_N DEDE_DIST_N = 3622 ou 083601
#				     ---> Elimines explicite
#	24/10/2002 - PSA - FO34 : affectation de IDAV a DEDE pour FOR
#	28/10/2002 - RBE - FO34 : NDEDE=NDE si IDAV present
#	28/10/2002 - RBE : specif.4.8 : Modif. CCD en fonction de la portabilite
#	14/10/2002 - RBE : Ajout de l'envoie a APACHE
#	21/11/2002 - RBE : FO115 + Modif. alarme tables externes
#       17/03/2003 - DRE - IDAV_DIST_N DEDE_DIST_N = 3622 ou 083601
#                               Suppression Elimination explicite
#	07/04/2003 - RBE : FO245 : recup. de MINE et APPLI si VN8(ART=4)
#	22/07/2003 - DRE - Modif calcul codeoperateur
# 	03/09/2003 - DRE - FO392 : Initialisation des variables Pcode
# 	01/06/2003 - MCH - G2R0Cl: Efficace si duree <> 0
# 	09/06/2004 - NSA - G2R0Cl: integration des codes d erreurs
#	22/10/2004 - THE - G2R0Caa : creation Centaure
#	11/04/2005 - FAL - FO1232 evolution HERISSON
#	20/04/2005 - FAL - FO1248 HERISSON 996Q ou 0996Q avec Q 5 6 ou 7 et gestion alarme
#	09/05/2005 - FAL - FO1273 evol HERISSON avec Z = 6
#	22/07/2005 - PSA - FO1390 : evolution HERISSON
#	26/07/2005 - FAL - G2R1Cj INEF speciaux APACHE
#	25/10/2005 - PSA - G2R2Co : FO 1538
# 25/11/2005 - PKH - G2R2Ca : Evolution de Apache envoie des DC inefficace des N0 urgences
#	08/12/2005 - FAL - FO1379 utilisation IDAV si pas de NDE
#	05/01/2006 - DRE - FO1666 G2R2Ca Remplacement de i_retrait_tlv() par i_supprChamp()
#	06/01/2006 - FAL - FO1673 evolution HERISSON modf FO1390
#	25/10/2006 - JLG - G2R2Cv modif pt_NORM car trop court
#	19/11/2007 - FAL - G3R3Lot2 : FO2266 modif sortie vers CENTAURE
#	10/10/2011 - THE - VerifPcode
#	28/05/2013 - THE - G4R3 suppression envoi vers APACHE
# 02/04/2014 - PSA - G4R6 lot 2 : mise en place C+S appelant
#
############################################################################

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

# Constantes
#Constantes pour message d alarme

# G4R6 Lot2

# /G4R6 Lot2


# variables entieres

# G4R6 Lot2

# /G4R6 Lot2


# Initialisations
EPORTABILITE_860026355  = 0
SPORTABILITE_860026355  = 0
CCD_860026355	      = 255
instSYMP_860026355      = 0
instCENT_860026355      = 0
#G4R3 instAPACHE    = 0
ART_860026355	      = 0xFFFFFFFF
MINE_860026355	      = 0xFFFFFFFF
APPLI_860026355	      = 0xFFFFFFFF
DC_CAA_860026355	      = 0
INF_860026355	      = 0
INEF_SPECIAUX_860026355 = 0
val_INEF_860026355      = 0

# G4R6 Lot2
type_cpt_860026355 = -1
b_Fact_CPS_Loc_860026355 = 0
b_Fact_CPS_RI_860026355 = 0

Date_CPS_860026355 = 0
instALICE_860026355 = -1
val_860026355 = 0
longueur_860026355 = 0
trait_ok_860026355 = -1
bREDIST_860026355 = 0
# /G4R6 Lot2


# variables pointeurs


# G4R6 Lot2
# /G4R6 Lot2


# Allocation de memoire pour le buffeur
pt_TEMP_860026355		  = "1234567891234567891234567812345"
pt_TEMP2_860026355		  = "5456478954356787891234567812345"
pt_TEMP3_860026355		  = "8768768768768768768768768768768"
pt_DEDE_DIST_N_860026355	  = "2020202020202020202020202012345"
pt_IDAV_DIST_N_860026355	  = "30303030303030303030303012345"
pt_NNOS_860026355		  = "40404040404040404040404040404012345"
pt_CodeOp_860026355	  = "50505050505050505050505050505012345"
pt_BUF_860026355		  = "45667543987805435678357899123412345"
pt_TCOMMUT_860026355		  = "20202020202020202020202020202012345"
pt_INEF_STD_860026355	  = "60606060606060606060606060606012345"
#G4R3 pt_CODE_APACHE	  = "70707070707070707070707070707012345"
#G4R3 pt_INEF_APACHE	  = "80808080808080808080808080808012345"
pt_INEF_COMMUT_860026355	  = "90909090909090909090909090909012345"
pt_SGTQS_860026355		  = "888888888888888"
pt_PREF_HERISSON_860026355  = "4447852141444785214144478521414447852141"
#G4R3 pt_URGENCE_APACHE = "0569587521589478585865"
pt_NORM_860026355		  = "389389389389389389389389389389389389389389389389389389"

# G4R6 Lot2
pt_MESSAGE_860026355 = "pt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGEpt_MESSAGE"
pt_CODE_TARIF_860026355 	 = "pt_CODE_TARIFpt_CODE_TARIF"
pt_TYPE_EDIT_860026355	 = "pt_TYPE_EDIT"
pt_NDE_860026355		 = "pt_NDE3333333333333333333333333333333333333333"
pt_DEDE_BNC_860026355 = "pt_DEDE_BNC1234567890123456789012345678901234567890"
pt_LIBELREDIST_860026355 	 = "pt_LIBELREDIST543210543210543210543210543210pt_LIBELREDIST543210543210543210543210543210pt_LIBELREDIST543210543210543210543210543210pt_LIBELREDIST543210543210543210543210543210pt_LIBELREDIST543210543210543210543210543210"
# /G4R6 Lot2


# Initialisation
#G4R3 i_strcpy(pt_URGENCE_APACHE,"")
i_strcpy(pt_NORM_860026355,"")
i_strcpy(pt_SGTQS_860026355,"")
i_strcpy(pt_TEMP_860026355,"")
i_strcpy(pt_TEMP2_860026355,"")
i_strcpy(pt_TEMP3_860026355,"")
i_strcpy(pt_NNOS_860026355,"")
i_strcpy(pt_CodeOp_860026355,"")
i_strcpy(pt_BUF_860026355,"")
i_strcpy(pt_DEDE_DIST_N_860026355,"")
i_strcpy(pt_IDAV_DIST_N_860026355,"")
i_strcpy(pt_TCOMMUT_860026355,"")
i_strcpy(pt_INEF_STD_860026355,"")
#G4R3 i_strcpy(pt_CODE_APACHE,"")
#G4R3 i_strcpy(pt_INEF_APACHE,"")
i_strcpy(pt_INEF_COMMUT_860026355,"")
i_strcpy(pt_PREF_HERISSON_860026355,"")

# G4R6 Lot2
i_strcpy(pt_MESSAGE_860026355, "")
i_strcpy(pt_CODE_TARIF_860026355 , "    ")
i_strcpy(pt_TYPE_EDIT_860026355 , " ")
i_strcpy(pt_NDE_860026355,"")
i_strcpy(pt_DEDE_BNC_860026355,"")
i_strcpy(pt_LIBELREDIST_860026355,"")
# /G4R6 Lot2


#trace("distribution - Trm6dea")

############################################################################
# identification de la provenance de l article
############################################################################

# si aucun passage en redistribution alors trait_ok = 0
trait_ok_860026355 = i_LireRedistCpt()


############################################################################
# Variables Fonctionnelles Globales
############################################################################

ddebut_860026355 = i_get_art_field(g_iartin,$ddebut)
SI (ddebut_860026355 == -1)
	ALORS
	code_errone_860026355 = 0xA080
	code_errone_860026355 = code_errone_860026355 + EFFICACE_860026355
	erreur_860026355 = i_PlvMessEmettre( 8600, 2, g_iartin,"", 3,code_errone_860026355, C_Article_860026355, "i_get_art_field/ddebut" )
	SAUT DISTRI_ERR
FINSI

gmt_date_860026355 = i_DHgetCe2gTime(NUMTAB_860026355,ZONEMETRO_860026355,ddebut_860026355)

# ICAR_ABS et ICAR_REL
ICAR_ABS_860026355 = i_get_art_field(g_iartin,$DATE)

SI ( ICAR_ABS_860026355 == -1 )
	ALORS
	code_errone_860026355 = 0xA080
	code_errone_860026355 = code_errone_860026355 + EFFICACE_860026355
	erreur_860026355 = i_PlvMessEmettre( 8600, 2, g_iartin,"", 3,code_errone_860026355, C_Article_860026355, "i_get_art_field/DATE" )
	SAUT DISTRI_ERR
FINSI

ICAR_REL_860026355 = i_date_locale(g_ieec,g_iartin,ICAR_ABS_860026355)

SI ( ICAR_REL_860026355 == -1 )
	ALORS
	code_errone_860026355 = 0xA080
	code_errone_860026355 = code_errone_860026355 + EFFICACE_860026355
	erreur_860026355 = i_PlvMessEmettre( 8600, 2, g_iartin,"", 3,code_errone_860026355, C_Article_860026355, "i_date_locale/ICAR_ABS" )
	SAUT DISTRI_ERR
FINSI

dpivot_860026355 = i_get_art_field(g_iartin,$dpivot)
dduree_860026355 = i_get_art_field(g_iartin,$dduree)
tax_860026355 = i_get_art_field(g_iartin,$tax)

# article efficace si champ INEF = 0, 1, 200, 235, 236 , 237  ou duree <> 0

res_860026355 = i_get_art_field( g_iartin, $INEF )
#trace1(" INEF=<%d>", res )

SI (dduree_860026355 != 0)
	ALORS
	EFFICACE_860026355=1
SINON
	EFFICACE_860026355=0
FINSI

i_strcpy(pt_SGTQS_860026355,i_LireEECSGTQS( g_ieec ))
#trace2("pt_SGTQS=<%s>",pt_SGTQS,"")

erreur_860026355 = i_get_art_str( g_iartin, $Trm6dea::INEF, pt_INEF_COMMUT_860026355 )

#INEFF et la com est assurree par un CAA

SI (!EFFICACE_860026355)
	ALORS
	#recuperation des champs APPLI MINE et ART de l'entete de bloc
	ART_860026355 = i_bloc_V1V2_recupererIdent(ART_BLOC_V1V2)
	SI (ART_860026355 == 4)
		ALORS
		MINE_860026355 = i_bloc_V1V2_recupererIdent(MINE_BLOC_V1V2)
		APPLI_860026355 = i_bloc_V1V2_recupererIdent(APPLI_BLOC_V1V2)
	FINSI

	#IFDEF trace_niv1 = 1
	trace1("champ ART : %x",ART_860026355)
	trace1("champ MINE : %x",MINE_860026355)
	trace1("champ APPLI : %x",APPLI_860026355)
	#ENDIF

	pt_TCOMMUT_860026355 = type_commut_860026233("APA1", pt_SGTQS_860026355, dpivot_860026355)

	SI (pt_TCOMMUT_860026355 == g_inull)
		ALORS
		erreur_860026355 = i_format_str2(pt_TEMP_860026355," %s",pt_SGTQS_860026355,0)
		erreur_860026355 = i_PlvMessEmettre(8505,2,g_iartin,"",3,"Trm6dea/type_commut",pt_TEMP_860026355,g_ieec)
	SINON
		pt_INEF_STD_860026355 = inef_std_860026233("APA2", pt_TCOMMUT_860026355, pt_INEF_COMMUT_860026355, dpivot_860026355)

		SI ( pt_INEF_STD_860026355 == g_inull)
			ALORS
			#trace("Code inef absent dans la table")
			erreur_860026355 = i_format_str2(pt_TEMP_860026355," %s",pt_INEF_COMMUT_860026355,0)
			erreur_860026355 = i_PlvMessEmettre(8505,2,g_iartin,"",3,"Trm6dea/inef_std",pt_TEMP_860026355,g_ieec)
		SINON
			DC_CAA_860026355=1
		FINSI
	FINSI
	#trace2(" Type de commutateur <%s>", pt_TCOMMUT, "")
	#trace2(" Code inefficace standard <%s>", pt_INEF_STD, "")
FINSI

# Portabilite
# NDE et INF pas toujours present

SI (i_valid_field_n(g_iartin,$NDE)==0)
	ALORS
	#masque_FO1379#trace("FO1379 util  NUM_IDAV pour appel CodeOperateur")
	erreur_860026355=i_get_art_str(g_iartin,$NUM_IDAV,pt_BUF_860026355)
SINON
	erreur_860026355=i_get_art_str(g_iartin,$NDE,pt_BUF_860026355)
FINSI
#trace2(" appel CodeOperateur <%s>", pt_BUF, "")

pt_CodeOp_860026355 = CodeOperateur_860026233(gmt_date_860026355, pt_BUF_860026355)

SI (!i_strcmp(pt_CodeOp_860026355, "84208"))
	ALORS
	EPORTABILITE_860026355 = 1
	CCD_860026355 = 212
SINON
	SI ( pt_CodeOp_860026355 != g_inull )
		ALORS
		SPORTABILITE_860026355 = 1
		CCD_860026355 = 213
	FINSI
FINSI
#trace1("PORTABILITE ENTRANTE=<%d>", EPORTABILITE)
#trace1("PORTABILITE SORTANTE=<%d>", SPORTABILITE)
#trace1("CCD REEL =<%d>",CCD)

# IDAV_DIST_N

SI (i_valid_field_n(g_iartin,$NUM_IDAV))
	ALORS
	res_860026355=i_get_art_str(g_iartin,$NUM_IDAV,pt_IDAV_DIST_N_860026355)

	SI (i_get_art_fieldlength(g_iartin,$NUM_IDAV) >= 9)
		ALORS
		i_get_sub_str(pt_IDAV_DIST_N_860026355, -9, -1, pt_IDAV_DIST_N_860026355)
	FINSI
FINSI

# 0996Q ou 996Q avec Q= 5 6 ou 7 si Q non 5 6 7 alors alarme avec DC en ERR
# si 0996Q6 (Q=5ou6ou7) ou si 996Q6 (Q=5ou6ou7) alors Herisson

SI (i_valid_field_n(g_iartin,$NDE)==0)
	ALORS
	#trace("FO1379 util  NUM_IDAV pour pt_DEDE_DIST_N")
	res_860026355=i_get_art_str(g_iartin,$NUM_IDAV,pt_DEDE_DIST_N_860026355)
	INF_860026355 = i_get_art_field(g_iartin,$Trm6dea::INF_IDAV)
SINON
	res_860026355=i_get_art_str(g_iartin,$NDE,pt_DEDE_DIST_N_860026355)
	INF_860026355 = i_get_art_field(g_iartin,$Trm6dea::INF_DEDE)
FINSI
#trace2("FO1379 DEDE_DIST_N avant norm HERISSON <%s>", pt_DEDE_DIST_N, "")

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

SI (i_valid_field_n(g_iartin,$NDE)==0)
	ALORS
	#trace("FO1379 util  NUM_IDAV pour inef_apache URGE")
	erreur_860026355=i_get_art_str(g_iartin,$Trm6dea::NUM_IDAV,pt_NORM_860026355)
SINON
	erreur_860026355 = i_get_art_str(g_iartin,$Trm6dea::NDE, pt_NORM_860026355)
FINSI

val_INEF_860026355=i_get_art_field(g_iartin, $Trm6dea::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
#G4R3 FINSI

i_get_sub_str(pt_DEDE_DIST_N_860026355,5,5,pt_TEMP3_860026355)

# on ne fait le test HERISSON que si l appel n est pas porte

SI ( i_valid_field_n(g_iartin, $Trm6dea::INF_IDAV))
	ALORS
	INF_860026355 = i_get_art_field(g_iartin,$INF_IDAV)
FINSI
#trace1("INF avant etude herisson <%x>", INF)
#trace1("INF avant etude herisson <%x> 0x04", INF & 0x04)

SI ( ( INF_860026355 & 0x04 ) != 0x04 )
	ALORS
	SI (i_strcmp(pt_TEMP3_860026355,"6") == 0 )
		ALORS
		#trace ("Appel vers mobile Herisson possible cas 1")
		i_get_sub_str(pt_DEDE_DIST_N_860026355,0,3,pt_TEMP_860026355)

		SI  ((i_strcmp(pt_TEMP_860026355,"0996")) == 0 )
			ALORS
			#trace("Cbb Herisson 0996Q6 etude du Q")
			i_get_sub_str(pt_DEDE_DIST_N_860026355,4,4,pt_TEMP_860026355)

			SI  ( ( i_strcmp(pt_TEMP_860026355,"5") == 0 ) || ( i_strcmp(pt_TEMP_860026355,"6") == 0 ) || ( i_strcmp(pt_TEMP_860026355,"7") == 0 ) )
				ALORS
				i_get_sub_str(pt_DEDE_DIST_N_860026355,5,-1,pt_DEDE_DIST_N_860026355)
				#trace2("Cbb pt_DEDE_DIST_N sans 0996Q <%s>", pt_DEDE_DIST_N,"")
			SINON
				i_get_sub_str(pt_DEDE_DIST_N_860026355,0,4,pt_PREF_HERISSON_860026355)
				#trace2(" Tta6dea NDE <%s> prefixe HERISSON 0996Q6 mais Q non autorise ",pt_DEDE_DIST_N, "")
				code_errone_860026355 = 0xA0B0
				code_errone_860026355 = code_errone_860026355 + EFFICACE_860026355
				erreur_860026355 = i_PlvMessEmettre( 6938, 2, g_iartin,"", 3,code_errone_860026355, C_Article_860026355, pt_PREF_HERISSON_860026355)
				SAUT DISTRI_ERR
			FINSI
		FINSI
	SINON
		i_get_sub_str(pt_DEDE_DIST_N_860026355,4,4,pt_TEMP2_860026355)
		SI ( i_strcmp(pt_TEMP2_860026355,"6") == 0 )
			ALORS
			#trace ("Appel vers mobile Herisson possible cas 2")
			i_get_sub_str(pt_DEDE_DIST_N_860026355,0,2,pt_TEMP_860026355)

			SI ( i_strcmp(pt_TEMP_860026355,"996") == 0 )
				ALORS
				#trace("Cbb Herisson 996Q6 etude du Q")
				i_get_sub_str(pt_DEDE_DIST_N_860026355,3,3,pt_TEMP_860026355)

				SI  ( ( i_strcmp(pt_TEMP_860026355,"5") == 0 ) || ( i_strcmp(pt_TEMP_860026355,"6") == 0 ) || ( i_strcmp(pt_TEMP_860026355,"7") == 0 ) )
					ALORS
					i_get_sub_str(pt_DEDE_DIST_N_860026355,4,-1,pt_DEDE_DIST_N_860026355)
					#trace2("Cbb pt_DEDE_DIST_N sans 996Q <%s>", pt_DEDE_DIST_N,"")
				SINON
					i_get_sub_str(pt_DEDE_DIST_N_860026355,0,3,pt_PREF_HERISSON_860026355)
					#trace2(" Tta6dea NDE <%s> prefixe HERISSON 996Q6 mais Q non autorise ",pt_DEDE_DIST_N, "")
					code_errone_860026355 = 0xA0B0
					code_errone_860026355 = code_errone_860026355 + EFFICACE_860026355
					erreur_860026355 = i_PlvMessEmettre( 6938, 2, g_iartin,"", 3,code_errone_860026355, C_Article_860026355, pt_PREF_HERISSON_860026355 )
					SAUT DISTRI_ERR
				FINSI
			FINSI
		FINSI
	FINSI
FINSI

# DEDE_DIST_N
SI (i_valid_field_n(g_iartin,$NDE)==0)
	ALORS
	#trace("FO1379 util  NUM_IDAV pour DEDE_DIST_N")
	res_860026355=i_get_art_str(g_iartin,$NUM_IDAV,pt_DEDE_DIST_N_860026355)
SINON
	res_860026355=i_get_art_str(g_iartin,$NDE,pt_DEDE_DIST_N_860026355)
FINSI

SI ( i_strlen(pt_DEDE_DIST_N_860026355) > 9 )
	ALORS
	#trace2("  FO1379 Lg DEDE_DIST_N > 9  <%s>", pt_DEDE_DIST_N, "")
	i_get_sub_str(pt_DEDE_DIST_N_860026355, -9, -1,pt_DEDE_DIST_N_860026355)
	#trace2("  FO1379 Lg DEDE_DIST_N coupe 9 <%s>", pt_DEDE_DIST_N, "")

FINSI
#trace2("FO1379 DEDE_DIST_N avant norm <%s>", pt_DEDE_DIST_N, "")

# ## Elimination explicite 3622 083601 :

# G4R6 Lot2
############################################################################
# Appel a la BNC pour recuperer le type de controle
############################################################################
# Si DEDE absent de l'article d'entree (cas possible pour les appels inefficaces), inutile d'appeler la BNC
SI i_valid_field_n(g_iartin,$Trm6dea::NDE)
	ALORS
	erreur_860026355 = i_memcpy_art_field_n(g_icopo, $Tcopo::NDR, IDUS_BNC_860026355, 5)

# A priori pt_DEDE_DIST_N contient ZABPQMCDU du DEDE : il faut lui ajouter 0 pour appeler la BNC
	SI (i_strlen(pt_DEDE_DIST_N_860026355) == 9)
		ALORS
		erreur_860026355 = i_format_str2(pt_DEDE_BNC_860026355, "%s%s", "0", pt_DEDE_DIST_N_860026355)
	SINON
		i_strcpy(pt_DEDE_BNC_860026355, pt_DEDE_DIST_N_860026355)
	FINSI

	erreur_860026355 = i_memcpy_art_field_n(g_icopo, $Tcopo::NDE, pt_DEDE_BNC_860026355, i_strlen(pt_DEDE_BNC_860026355)+1)

	g_icopo.TAXE   = 0
	g_icopo.CREDIT = 0
	erreur_860026355 = i_set_art_date(g_icopo, ICAR_REL_860026355)
	g_icopo.DUREE  = 0
	g_icopo.CODE   = CODE_ARTICLE_860026355
	g_icopo.CATEG  = CATEG_860026355
	g_icopo.SUP[0] = 0
	g_icopo.SUP[1] = 0
	g_icopo.SUP[RES_TYPCTR_860026355] = 0
	g_icopo.SUP[3] = 0
	g_icopo.SUP[4] = 0
	g_icopo.SUP[5] = 0xff
	erreur_860026355 = i_comptage(g_icopo, BASE_TELEPHONE_860026355, ICAR_REL_860026355)

	SI erreur_860026355 == 0
		ALORS
		type_cpt_860026355 = g_icopo.SUP[RES_TYPCTR_860026355]
	FINSI
FINSI

# Appel de type C+S ?

SI ( type_cpt_860026355 == TYPCTR_Fact_Loc_860026355)
	ALORS
	b_Fact_CPS_Loc_860026355 =1
FINSI

SI ( type_cpt_860026355 == TYPCTR_Fact_RI_860026355)
	ALORS
	b_Fact_CPS_RI_860026355 =1
FINSI


SI (b_Fact_CPS_Loc_860026355 == 1) || (b_Fact_CPS_RI_860026355 == 1)
	ALORS
	erreur_860026355=i_cree_art("Conversion",g_iartout10)
	i_strcpy(pt_TEMP_860026355, i_get_tab_field( "TDATCPS", gmt_date_860026355, C_DATCPS_860026355 ))

	erreur_860026355 = i_set_art_str (g_iartout10,$Conversion::DATE_STR,pt_TEMP_860026355)
	Date_CPS_860026355 = i_get_art_field(g_iartout10, $Conversion::DATE_ASC)

	SI ddebut_860026355 < Date_CPS_860026355
		ALORS
		erreur_860026355 = i_format_str2(pt_MESSAGE_860026355," AR <%s> avec date DC inferieure a la date d'activation <%s> de la facturation CPS",pt_DEDE_DIST_N_860026355,pt_TEMP_860026355)
		code_errone_860026355 = 0xA080
		code_errone_860026355 = code_errone_860026355 + EFFICACE_860026355
		erreur_860026355 = i_PlvMessEmettre( 8599, 1, g_iartin,"", 3,code_errone_860026355, C_Article_860026355, pt_MESSAGE_860026355 )
		SAUT DISTRI_DIV
	SINON
		#######################################
		#  Soumission de la requete de consultation d'une table de distribution ALICE
		#######################################
		i_strcpy(pt_NDE_860026355,pt_DEDE_DIST_N_860026355)
		SI i_strplcmp (pt_NDE_860026355,"0",0,1) == 0
			ALORS
			i_get_sub_str(pt_NDE_860026355,1,-1,pt_NDE_860026355)
		FINSI
		longueur_860026355 = i_conv_ascii_dcb (pt_NDE_860026355, pt_TEMP_860026355)
		SI (i_EnvoiReqConsTabDist( TD_SVA_860026355,gmt_date_860026355,pt_TEMP_860026355,longueur_860026355,0,1) != 0)
			ALORS
			#trace("Erreur i_EnvoiReqConsTabDist ALICE")
			bREDIST_860026355 = 1
			i_strcpy(pt_LIBELREDIST_860026355,"Echec sur i_EnvoiReqConsTabDistDouble ALICE ")
		FINSI

		#######################################
		# Recherche de l'instance ECC ALICE
		#######################################
		instALICE_860026355 = i_LireInstanceECC(C_INST_ALICE_860026355)
		SI (!instALICE_860026355)
			ALORS
			#trace("Pas d'instance pour ALICE !")
			erreur_860026355 = i_PlvMessEmettre(8501,1,g_iartin,"",3,C_INST_ALICE_860026355,C_Article_860026355,g_ieec)
			SAUT DISTRI_ERR
		FINSI
		#trace1("instALICE  =<%d>",instALICE)

		#######################################
		# Lecture Resultat requete ALICE
		#######################################
		erreur_860026355 = i_LireReqConsTabDist()
		#trace1("RETOUR i_LireReqConsTabDist retour requette ALICE, erreur=<%d>",erreur)
		SI ( erreur_860026355 != 0 )
			ALORS
			#trace1( "Erreur i_LireReqConsTabDist ALICE: <%d>", erreur)
			bREDIST_860026355 = 1
			i_strcpy(pt_LIBELREDIST_860026355,"Echec sur i_LireReqConsTabDistDouble ALICE ")
		FINSI
		val_860026355 = i_LireInfoECC( instALICE_860026355, 0 )

		SI (val_860026355 != 0)
			ALORS
			# AR present dans ALICE
			erreur_860026355 = i_LireChaineInfo( val_860026355, 0, 4, pt_BUF_860026355 )
			SI i_strcmp(pt_BUF_860026355,"") != 0
				ALORS
				i_strcpy(pt_CODE_TARIF_860026355,pt_BUF_860026355)
			SINON
				# info complementaire CODE_TARIF vide
				bREDIST_860026355 = 1
				erreur_860026355 = i_format_str2(pt_LIBELREDIST_860026355," AR <%s> trouve dans LAR ALICE mais aucune info complementaire valorisee",pt_NDE_860026355,0)
			FINSI

			erreur_860026355 = i_LireChaineInfo( val_860026355, 4, 1, pt_BUF_860026355 )
			SI i_strcmp(pt_BUF_860026355,"") != 0
				ALORS
				i_strcpy(pt_TYPE_EDIT_860026355,pt_BUF_860026355)
			SINON
				# info complementaire TYPE_EDIT vide
				bREDIST_860026355 = 1
				erreur_860026355 = i_format_str2(pt_LIBELREDIST_860026355," AR <%s> trouve dans LAR ALICE mais aucune info complementaire valorisee",pt_NDE_860026355,0)
			FINSI
		SINON
			bREDIST_860026355 = 1
			erreur_860026355 = i_format_str2(pt_LIBELREDIST_860026355," AR <%s> non trouve dans ALICE",pt_NDE_860026355,0)
		FINSI
	FINSI
FINSI

# /G4R6 Lot2

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

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

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

# CENTAURE
instCENT_860026355 = i_LireInstanceECC(C_InstCENT_860026355)

SI (!instCENT_860026355)
	ALORS
	code_errone_860026355 = 0xA0B0
	code_errone_860026355 = code_errone_860026355 + EFFICACE_860026355
	erreur_860026355 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026355,C_InstCENT_860026355,C_Article_860026355)
	SAUT DISTRI_ERR
FINSI
#trace1("instCENT=<%d>",instCENT)

# G4R6 on ne distribue a Symphonie qu'au 1er passage
SI (trait_ok_860026355 == 0)
	ALORS
# SYMPHONIE
	instSYMP_860026355 = i_LireInstanceECC(C_InstSYMP_860026355)

	SI (!instSYMP_860026355)
		ALORS
		code_errone_860026355 = 0xA0B0
		code_errone_860026355 = code_errone_860026355 + EFFICACE_860026355
		erreur_860026355 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026355,C_InstSYMP_860026355,C_Article_860026355)
		SAUT DISTRI_ERR
	SINON
		# Ajout de l'ECC SYMPHONIE a la liste courante des ECC:
		res_860026355 = i_AjouterCouranteECC(instSYMP_860026355)
	FINSI
FINSI


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

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

SI ( !i_ChercherCouranteECC(instSYMP_860026355) )
	ALORS
	trace( "Stockage vers SYMPHONIE")

	SI ( i_valid_field_n(g_iartin,$Trm6dea::T3ce) )
		ALORS
		#trace("Avant i_retrait_tlv T3ce")
		erreur_860026355 = 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)
		code_errone_860026355 = 0xA0D0
		code_errone_860026355 = code_errone_860026355 + EFFICACE_860026355
		erreur_860026355 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026355,"pour Symphonie",C_Article_860026355)
		SAUT DISTRI_ERR
	FINSI
	res_860026355 = i_rename_art(g_iartout, "Tsymtrm6dea")
FINSI

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

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

#---------------------------------------------------------------------------
# CENTAURE
#---------------------------------------------------------------------------

SI (EFFICACE_860026355)
	ALORS
	# Ajout de l'ECC CENTAURE a la liste courante des ECC:
	res_860026355 = i_AjouterCouranteECC(instCENT_860026355)
FINSI

#################################################################################
# #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 )
#G4R3 	ALORS
#G4R3 		erreur=i_AjouterCouranteECC(instAPACHE)
#G4R3 	FINSI
#G4R3 FINSI

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

erreur_860026355 = i_ValiderListeECC( 0, 0, 0, 0)

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

#---------------------------------------------------------------------------
# Complements Symphonie (SGTQS + CCD)
#---------------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instSYMP_860026355) )
	ALORS
	### Ajout des champs CCD, SGTQS et ECC_FACT ###

	erreur_860026355=i_ajoutChampNum(g_iartout,$Tsymtrm6dea::T4ccd,$Tsymtrm6dea::CCD,0)
	erreur_860026355=i_set_art_field(g_iartout,$Tsymtrm6dea::CCD, CCD_860026355)

	erreur_860026355 = i_ajoutChampNum(g_iartout,$Tsymtrm6dea::T4sgtqs,$Tsymtrm6dea::SGTQS,0)
	i_strcpy(pt_SGTQS_860026355,i_LireEECSGTQS(g_ieec))
	#trace2("pt_SGTQS=<%s>",pt_SGTQS,"")
	erreur_860026355 = i_set_art_str(g_iartout, $Tsymtrm6dea::SGTQS, pt_SGTQS_860026355)

	erreur_860026355=i_ajoutChampNum(g_iartout,$Tsymtrm6dea::T4eccfact,$Tsymtrm6dea::ECC_FACT,0)
	SI (!EFFICACE_860026355)
		ALORS
		erreur_860026355 = i_set_art_str(g_iartout, $Tsymtrm6dea::ECC_FACT, "   ")
	SINON
		erreur_860026355 = i_set_art_str(g_iartout, $Tsymtrm6dea::ECC_FACT, "CENTAURE")
	FINSI

	# G4R6 Lot2
	# TYPE_EDIT
	SI i_strcmp(pt_TYPE_EDIT_860026355," ") != 0
		ALORS
		erreur_860026355 = i_ajoutChampNum(g_iartout,$Tsymtrm6dea::T4type_edit,$Tsymtrm6dea::TYPE_EDIT,0)
		erreur_860026355=i_set_art_str(g_iartout, $Tsymtrm6dea::TYPE_EDIT, pt_TYPE_EDIT_860026355)
	FINSI

	# CODE_TARIF
	SI i_strcmp(pt_CODE_TARIF_860026355,"    ") != 0
		ALORS
		erreur_860026355 = i_ajoutChampNum(g_iartout,$Tsymtrm6dea::T4code_tarif,$Tsymtrm6dea::CODE_TARIF,0)
		erreur_860026355=i_set_art_str(g_iartout, $Tsymtrm6dea::CODE_TARIF, pt_CODE_TARIF_860026355)
	FINSI
	

	res_860026355=i_stocke_art_iecc(g_iartout, instSYMP_860026355)
	trace("Emission vers SYMPHONIE reussie")

FINSI
	
# \G4R6 Lot2



# G4R6
SI (bREDIST_860026355 == 1)
	ALORS
	SAUT DISTRI_RDT
FINSI

#---------------------------------------------------------------------------
# CENTAURE
#---------------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instCENT_860026355) )
	ALORS
	#trace("Stockage vers CENTAURE")

	# Duplication de l'article
	SI ( i_dup_art_dest(g_iartin, g_iartout2, C_Tcent_860026355) )
		ALORS
		code_errone_860026355 = 0xA0D0
		code_errone_860026355 = code_errone_860026355 + EFFICACE_860026355
		erreur_860026355 = i_PlvMessEmettre(8602, 2, g_iartin, "", 3, code_errone_860026355, C_Tcent_860026355, C_Article_860026355)
		#trace1("Erreur de i_dup_art_dest: <%d>",res)
		SAUT DISTRI_ERR
	FINSI

	# T1: Service '005'-> dans fichier de duplication 5:005:0
	# T2: Type d'article '024'-> dans fichier de duplication 5:024:1

	# champs SCT
	#trace("initialisation des SCT")
	res_860026355 = i_transformer_bits(g_iartin, $SCT, "FV", pt_TEMP_860026355)
	erreur_860026355 = i_set_art_str(g_iartout2, $TcentaureDEA::SCT, pt_TEMP_860026355)

	# CAX : '000'-> dans fichier de duplication 6:30:3:3
	# TAP : 'FFFFFFFF'-> dans fichier de duplication 6:46:8:4

	# champs STY
	#trace("initialisation des STY")
	res_860026355 = i_transformer_bits(g_iartin, $STY, "FV", pt_TEMP_860026355)
	erreur_860026355 = i_set_art_str(g_iartout2, $TcentaureDEA::STY, pt_TEMP_860026355)

	# INDEX : '0000'-> dans fichier de duplication 6:30:4:6

	# champ ICAR
	erreur_860026355=i_set_art_field(g_iartout2, $TcentaureDEA::DATE, ICAR_REL_860026355)

	# ALINK : '00000000'-> dans fichier de duplication 6:30:8:8
	# NLINK : '00000'-> dans fichier de duplication 6:30:5:9

	# champ ILOCUS
	SI (i_valid_field_n(g_iartin, $Trm6dea::INFLOCUS))
		ALORS
		res_860026355 = i_get_art_field(g_iartin, $INFLOCUS)
		#trace1("Test de la valeur de INFLOCUS=<%d>", res)
		erreur_860026355 = i_set_art_field(g_iartout2, $TcentaureDEA::ILOCUS, res_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::ILOCUS, 0x30)
	FINSI

	# champ NLOCUS
	SI (i_valid_field_n(g_iartin, $Trm6dea::NUMLOCUS))
		ALORS
		erreur_860026355 = i_get_art_str(g_iartin, $NUMLOCUS, pt_TEMP_860026355)
		#trace2("NUMLOCUS=<%s>", pt_TEMP, "")
		erreur_860026355 = i_set_art_str(g_iartout2, $TcentaureDEA::NLOCUS, pt_TEMP_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::NLOCUS, 0x20)
	FINSI

	# champ IIDUS
	SI (i_valid_field_n(g_iartin, $INF_IDUS))
		ALORS
		res_860026355 = i_get_art_field(g_iartin, $INF_IDUS)
		erreur_860026355 = i_set_art_field(g_iartout2, $TcentaureDEA::IIDUS, res_860026355)
	FINSI

	# champ NIDUS
	SI (i_valid_field_n(g_iartin, $NDR))
		ALORS
		#trace("affecter valeur au champ NIDUS")
		erreur_860026355 = i_get_art_str(g_iartin, $NDR, pt_TEMP_860026355)
		#trace2("NDR=<%s>", pt_TEMP, "")
		erreur_860026355 = i_set_art_str(g_iartout2, $TcentaureDEA::NIDUS, pt_TEMP_860026355)
	FINSI

	# champ IIPRV
	#trace("affecter valeur au champ IIPRV")
	SI (i_valid_field_n(g_iartin, $Trm6dea::INFIPRV))
		ALORS
		res_860026355 = i_get_art_field(g_iartin, $INFIPRV)
		#trace1("Test de la valeur de INFIPRV=<%d>" , res)
		erreur_860026355 = i_set_art_field(g_iartout2, $TcentaureDEA::IIPRV, res_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::IIPRV, 0x30)
	FINSI

	# champ NIPRV
	#trace("affecter valeur au champ NIPRV")
	SI (i_valid_field_n(g_iartin, $Trm6dea::NUMIPRV))
		ALORS
		erreur_860026355 = i_get_art_str(g_iartin, $NUMIPRV, pt_TEMP_860026355)
		#trace2("NUMIPRV=<%s>", pt_TEMP, "")
		erreur_860026355 = i_set_art_str(g_iartout2, $TcentaureDEA::NIPRV, pt_TEMP_860026355)
	SINON
		erreur_860026355=i_memset_field_n(g_iartout2, $TcentaureDEA::NIPRV, 0x20)
	FINSI

	# champ IIDRV
	#trace("affecter valeur au champ IIDRV")
	SI (i_valid_field_n(g_iartin, $Trm6dea::INF_IDRV))
		ALORS
		res_860026355 = i_get_art_field(g_iartin, $INF_IDRV)
		#trace1("Test de la valeur de IIDRV=<%d>" , res)
		erreur_860026355 = i_set_art_field(g_iartout2, $TcentaureDEA::IIDRV, res_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::IIDRV, 0x30)
	FINSI

	# champ NIDRV
	#trace("affecter valeur au champ NIDRV")
	SI (i_valid_field_n(g_iartin, $Trm6dea::NUM_IDRV))
		ALORS
		erreur_860026355 = i_get_art_str(g_iartin, $NUM_IDRV, pt_TEMP_860026355)
		#trace2("NUM_IDRV=<%s>", pt_TEMP, "")
		erreur_860026355 = i_set_art_str(g_iartout2, $TcentaureDEA::NIDRV, pt_TEMP_860026355)
	SINON
		erreur_860026355=i_memset_field_n(g_iartout2, $TcentaureDEA::NIDRV, 0x20)
	FINSI

	# champ IDEDE
	SI (i_valid_field_n(g_iartin, $Trm6dea::INF_DEDE))
		ALORS
		res_860026355 = i_get_art_field(g_iartin, $INF_DEDE)
		#trace1("Test de la valeur de INF_DEDE=<%d>" , res)
		erreur_860026355 = i_set_art_field(g_iartout2, $TcentaureDEA::IDEDE, res_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::IDEDE, 0x30)
	FINSI

	# champ NDEDE
	SI (i_valid_field_n(g_iartin,$NDE))
		ALORS
		res_860026355 = i_get_art_str(g_iartin, $NDE, pt_TEMP2_860026355)
		i_replace_str(pt_TEMP2_860026355, "BCDE", "AJSC", pt_TEMP2_860026355)
	SINON
		i_strcpy(pt_TEMP2_860026355, "")
	FINSI
	erreur_860026355 = i_set_art_str(g_iartout2, $TcentaureDEA::NDEDE, pt_TEMP2_860026355)

	# champ IIDAV
	#trace("affecter valeur au champ IIDAV")
	SI (i_valid_field_n(g_iartin, $Trm6dea::INF_IDAV))
		ALORS
		res_860026355 = i_get_art_field(g_iartin, $INF_IDAV)
		#trace1("Test de la valeur de INF_IDAV=<%d>" , res)
		erreur_860026355=i_set_art_field(g_iartout2, $TcentaureDEA::IIDAV, res_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::IIDAV, 0x30)
	FINSI

	# champ NIDAV
	#trace("affecter valeur au champ NIDAV")
	SI (i_valid_field_n(g_iartin, $Trm6dea::NUM_IDAV))
		ALORS
		erreur_860026355 = i_get_art_str(g_iartin, $NUM_IDAV, pt_TEMP_860026355)
		#trace2("NUM_IDAV=<%s>", pt_TEMP, "")
		erreur_860026355 = i_set_art_str(g_iartout2, $TcentaureDEA::NIDAV, pt_TEMP_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::NIDAV, 0x20)
	FINSI

	# champ INOS
	SI (i_valid_field_n(g_iartin, $INFNOS))
		ALORS
		erreur_860026355 = i_set_art_field(g_iartout2, $TcentaureDEA::INOS, i_get_art_field(g_iartin, $INFNOS))
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::INOS, 0x30)
	FINSI

	# champ NNOS
	SI (i_valid_field_n( g_iartin, $NUMNOS))
		ALORS
		erreur_860026355 = i_get_art_str(g_iartin, $NUMNOS, pt_NNOS_860026355)
		erreur_860026355 = i_set_art_str(g_iartout2, $TcentaureDEA::NNOS, pt_NNOS_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::NNOS, 0x20)
	FINSI

	# champ IICOM
	SI (i_valid_field_n(g_iartin, $Trm6dea::INF_ICOM))
		ALORS
		res_860026355 = i_get_art_field(g_iartin, $INF_ICOM)
		erreur_860026355 = i_set_art_field(g_iartout2, $TcentaureDEA::IICOM, res_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::IICOM, 0x30)
	FINSI

	# champ NICOM
	#trace("affecter valeur au champ NICOM")
	SI ( ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,0) >=0 ) && ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,0) <=9 )
		&& ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,1) >=0 ) && ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,1) <=9 )
		&& ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,2) >=0 ) && ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,2) <=9 )
		&& ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,3) >=0 ) && ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,3) <=9 )
		&& ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,4) >=0 ) && ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,4) <=9 )
		&& ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,5) >=0 ) && ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,5) <=9 )
		&& ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,6) >=0 ) && ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,6) <=9 )
		&& ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,7) >=0 ) && ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,7) <=9 )
		&& ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,8) >=0 ) && ( i_get_art_fieldtab(g_iartin,$NUM_ICOM,8) <=9 ) )
		ALORS
		#trace2("NUM_ICOM avant affectation=<%s>", pt_TEMP, "")
		erreur_860026355 = i_get_art_str(g_iartin, $NUM_ICOM, pt_TEMP_860026355)
		#trace2("NUM_ICOM=<%s>", pt_TEMP, "")
		erreur_860026355 = i_set_art_str(g_iartout2, $TcentaureDEA::NICOM, pt_TEMP_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::NICOM, 0x20)
	FINSI

	# REF : DEA/G4/REF-> dans fichier de duplication 1:10:26

	# champ NBRV
	#trace("affecter valeur au champ NBRV")
	SI (i_valid_field_n(g_iartin, $Trm6dea::NRENV))
		ALORS
		res_860026355 = i_get_art_field(g_iartin, $NRENV)
		#trace1("Test de la valeur de NRENV=<%d>" , res)
		erreur_860026355 = i_set_art_field(g_iartout2, $TcentaureDEA::NBRV, res_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::NBRV, 0x30)
	FINSI

	# champ DUR
	res_860026355 = i_get_art_field(g_iartin, $dduree)
	#trace1("Test de la valeur du metachamp dduree=<%d>" , res)
	erreur_860026355 = i_set_art_field(g_iartout2, $TcentaureDEA::DUREE, res_860026355)

	# champ TAX
	#trace("affecter valeur au champ TAX")
	SI (i_valid_field_n(g_iartin, $Trm6dea::TAXE))
		ALORS
		res_860026355 = i_get_art_field(g_iartin, $tax)
		#trace1("Test de la valeur de TAXE=<%d>" , res)
		erreur_860026355 = i_set_art_field(g_iartout2, $TcentaureDEA::TAX, res_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::TAX, 0x30)
	FINSI

	# champ DUSEL
	#trace("affecter valeur au champ DUSEL")
	SI (i_valid_field_n(g_iartin, $Trm6dea::DUSEL))
		ALORS
		res_860026355 = i_get_art_field(g_iartin, $DUSEL)
		#trace1("Test de la valeur de DUSEL=<%d>" , res)
		erreur_860026355 = i_set_art_field(g_iartout2, $TcentaureDEA::DUSEL, res_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::DUSEL, 0x30)
	FINSI

	# champ DUSON
	#trace("affecter valeur au champ DUSON")
	SI (i_valid_field_n(g_iartin, $Trm6dea::DUSON))
		ALORS
		res_860026355 = i_get_art_field(g_iartin, $DUSON)
		#trace1("Test de la valeur de DUSON=<%d>" , res)
		erreur_860026355 = i_set_art_field(g_iartout2, $TcentaureDEA::DUSON, res_860026355)
	SINON
		erreur_860026355 = i_memset_field_n(g_iartout2, $TcentaureDEA::DUSON, 0x30)
	FINSI

	# TTX : 'F'-> dans fichier de duplication 6:46:1:32
	# SIDR : 'F'-> dans fichier de duplication 6:46:1:33
	# MES1 : '255'-> dans fichier de duplication 5:255:34
	# MES2 : '255'-> dans fichier de duplication 5:255:35
	# INEF : DEA/G4/INEF-> dans fichier de duplication 1:9:36
	# CI : '000000'-> dans fichier de duplication 6:30:6:37
	# CLE1 : '000'-> dans fichier de duplication 6:30:3:38
	# CLE2 : '000'-> dans fichier de duplication 6:30:3:39
	# CLE3 : '000'-> dans fichier de duplication 6:30:3:40
	# CLE4 : '000'-> dans fichier de duplication 6:30:3:41

	# champ COCA
	SI i_valid_field_n(g_iartin, $BETA)
		ALORS
		erreur_860026355 = i_get_art_str(g_iartin, $BETA, pt_TEMP_860026355)
		erreur_860026355 = i_set_art_str(g_iartout2, $TcentaureDEA::COCA, pt_TEMP_860026355)
	FINSI

	# champ COCAV
	SI i_valid_field_n(g_iartin, $BETAV)
		ALORS
		erreur_860026355 = i_get_art_str(g_iartin, $BETAV, pt_TEMP_860026355)
		erreur_860026355 = i_set_art_str(g_iartout2, $TcentaureDEA::COCAV, pt_TEMP_860026355)
	FINSI

	# NUMLOT : '000000'-> dans fichier de duplication 6:30:6:44

	# champ CDSGTQS
	i_strcpy(pt_SGTQS_860026355, i_LireEECSGTQS(g_ieec))
	#trace2("pt_SGTQS=<%s>",pt_SGTQS,"")
	erreur_860026355 = i_set_art_str(g_iartout2, $TcentaureDEA::CDSGTQS, pt_SGTQS_860026355)

	# NOS - FOEX594 (FO2266 -> deplace apres IIDAV)

	# SUP : '0'-> valeur par defaut
	# INVOCATION : '000'-> dans fichier de duplication 6:30:3:47
	# MERE : '000'-> dans fichier de duplication 6:30:3:48
	# ECHO : '00000000'-> dans fichier de duplication 6:30:8:49
	# MENV : '000'-> dans fichier de duplication 6:30:3:50

	# G4R6 Lot2
	# TYPE_EDIT
	erreur_860026355=i_set_art_str(g_iartout2, $TcentaureDEA::TYPE_EDIT, pt_TYPE_EDIT_860026355)

	# CODE_TARIF
	erreur_860026355=i_set_art_str(g_iartout2, $TcentaureDEA::CODE_TARIF, pt_CODE_TARIF_860026355)
# \G4R6 Lot2

	# champ FIN
	erreur_860026355 = i_set_art_field(g_iartout2, $TcentaureDEA::FIN, 0x0A )

	# fin de traitement des champs
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,C_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, $Trm6dea::STY)
#G4R3 	erreur=i_set_art_field(g_iartout9, $TapacheDEA::STY, res)
#G4R3
#G4R3 	res=i_get_art_field(g_iartin, $Trm6dea::SCT)
#G4R3 	erreur=i_set_art_field(g_iartout9, $TapacheDEA::SCT, res)
#G4R3
#G4R3 	SI (!i_valid_field_n(g_iartin, $Trm6dea::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, $Trm6dea::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, $Trm6dea::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, $Trm6dea::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, $Trm6dea::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, $Trm6dea::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, $Trm6dea::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, $Trm6dea::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, $Trm6dea::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, $Trm6dea::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, $Trm6dea::INF_ICOM))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::INF_ICOM, 0x00)
#G4R3 	FINSI
#G4R3
#G4R3 	SI (!i_valid_field_n(g_iartin, $Trm6dea::NUM_ICOM))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::NUM_ICOM, 0xFF)
#G4R3 	FINSI
#G4R3
#G4R3 	SI (!i_valid_field_n(g_iartin, $Trm6dea::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, $Trm6dea::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, $Trm6dea::CLE1))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Trm6dea::CLE1)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE1,res)
#G4R3 	FINSI
#G4R3
#G4R3 	SI (i_valid_field_n(g_iartin, $Trm6dea::CLE2))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Trm6dea::CLE2)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE2,res)
#G4R3 	FINSI
#G4R3 	SI (i_valid_field_n(g_iartin, $Trm6dea::CLE3))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Trm6dea::CLE3)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE3,res)
#G4R3 	FINSI
#G4R3 	SI (i_valid_field_n(g_iartin, $Trm6dea::CLE4))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Trm6dea::CLE4)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE4,res)
#G4R3 	FINSI
#G4R3 	SI (i_valid_field_n(g_iartin, $Trm6dea::CLE5))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Trm6dea::CLE5)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE5,res)
#G4R3 	FINSI
#G4R3 	SI (i_valid_field_n(g_iartin, $Trm6dea::CLE6))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Trm6dea::CLE6)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE6,res)
#G4R3 	FINSI
#G4R3 	SI (i_valid_field_n(g_iartin, $Trm6dea::CLE7))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Trm6dea::CLE7)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::CLE7,res)
#G4R3 	FINSI
#G4R3 	SI (i_valid_field_n(g_iartin, $Trm6dea::CLE8))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Trm6dea::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, $Trm6dea::REP))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Trm6dea::REP)
#G4R3 		erreur=i_set_art_field(g_iartout9,$TapacheDEA::REP,res)
#G4R3 	FINSI
#G4R3
#G4R3 	SI (!i_valid_field_n(g_iartin, $Trm6dea::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, $Trm6dea::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, $Trm6dea::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, $Trm6dea::NUM_IDRV) )
#G4R3 	ALORS
#G4R3 		erreur=	i_memset_field_n(g_iartout9, $TapacheDEA::NUM_IDRV, 0xFF)
#G4R3 	FINSI
#G4R3
#G4R3 	#champ NBRV
#G4R3 	SI (i_valid_field_n(g_iartin, $Trm6dea::NRENV))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Trm6dea::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, $Trm6dea::T3sel))
#G4R3 	ALORS
#G4R3 		res=i_get_art_field(g_iartin,$Trm6dea::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, $Trm6dea::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, $Trm6dea::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, $Trm6dea::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, $Trm6dea::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, $Trm6dea::afcts))
#G4R3 	ALORS
#G4R3 		erreur=i_memset_field_n(g_iartout9, $TapacheDEA::CIRCUITS, 0xFF)
#G4R3 	FINSI
#G4R3
#G4R3 	#champ 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
############################################################################

#---------------------------------------------------------------------------
# CENTAURE
#---------------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instCENT_860026355) )
	ALORS
	res_860026355=i_stocke_art_iecc(g_iartout2, instCENT_860026355)
	trace("Emission vers CENTAURE reussie")
FINSI



#-------------------------------------------------------------------------
# #G4R3 APACHE
#-------------------------------------------------------------------------

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

SAUT DISTRI_FIN

############################################################################
# Envoi vers Recyclage
############################################################################

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

POINT DISTRI_ERR

#trace( "stockage en errone de distribution")
res_860026355=i_make_art_rej(g_iartin, g_iartout, code_errone_860026355)
res_860026355 = i_stocke_art( g_iartout, 0, PT_ERRONE, 0)

RETOUR TRAIT_OK

###########################################################################
# Stockage en elimine
###########################################################################
POINT DISTRI_ELM

#IFDEF trace_niv1 = 1
trace( "__FILE__:__LINE__ : Fin du Pcode de distribution : Stockage en ELIMINE" )
#ENDIF
res_860026355 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0 )

RETOUR TRAIT_OK

###########################################################################
# Stockage en elimine DIVERS
###########################################################################

POINT DISTRI_DIV

#IFDEF trace_niv1 = 1
trace( "__FILE__:__LINE__ : Fin du Pcode de distribution : Stockage en DIVERS" )
#ENDIF
res_860026355 = i_stocke_art( g_iartin, 0, PT_DIVERS, 0 )

RETOUR TRAIT_OK

############################################################################
# Stockage en Redistribution
############################################################################

POINT DISTRI_RDT

#trace( "envoi en redistribution")
SI (trait_ok_860026355 == 0)
	ALORS
	#---------------------
	#  Mise a jour de ENVELOPPE Optionelle:
	# Contient le nom de l'EEC necessaire au message d'erreur de la redistribution
	# Nom_EEC
	i_strcpy(pt_SGTQS_860026355, i_LireEECSGTQS(g_ieec))

	erreur_860026355 = i_PlvMessEmettre(8503,2,g_iartin,"",3,pt_LIBELREDIST_860026355,"Trm6dea",pt_SGTQS_860026355)
FINSI

res_860026355 = i_stocke_art( g_iartin, 0, PT_REDIST|RD_TABLE2, 0)
RETOUR TRAIT_OK

POINT DISTRI_FIN

trace("Fin du Pcode de distribution Trm6dea")

RETOUR TRAIT_OK
