DEFINITION C_ARTICLE_860026326 "TwhaOrgSel"
DEFINITION C_NUMTAB_860026326 1
DEFINITION C_NUMTAB2_860026326 2
DEFINITION C_ZONEMETRO_860026326 7
DEFINITION C_NUMTABSEL_860026326 4
DEFINITION C_TallegroPresDiv_860026326 "TallegroPresDiv2"
DEFINITION C_InstALLEGRO_860026326 "ALLEGRO_PDZ"
DEFINITION C_InstBSS1_860026326 "BSS1_PDZ"
DEFINITION C_InstBSS2_860026326 "BSS2_PDZ"
DEFINITION C_TbssPresDiv_860026326 "TbssPresDiv"
REGISTRE ENTIER erreur_860026326
REGISTRE ENTIER res_860026326
REGISTRE ENTIER code_errone_860026326 
REGISTRE ENTIER code_rejet_860026326
REGISTRE ENTIER ICAR_METRO_860026326
REGISTRE ENTIER ICAR_LOCAL_860026326
REGISTRE ENTIER ICAR_UTC_860026326
REGISTRE ENTIER NUMZONE_860026326
REGISTRE ENTIER EFFICACE_860026326
REGISTRE ENTIER instALLEGRO_860026326
REGISTRE ENTIER instBSS_860026326
REGISTRE ENTIER b_distri_Allegro_860026326
REGISTRE ENTIER b_distri_BSS_860026326
REGISTRE ENTIER duree_860026326
REGISTRE ENTIER date_locale_fin_860026326
REGISTRE ENTIER ddebut_860026326
REGISTRE ENTIER dfin_860026326
REGISTRE POINTEUR pt_temp_860026326
REGISTRE POINTEUR pt_IDUS_NUM_860026326
REGISTRE POINTEUR pt_PRICE_HT_860026326
REGISTRE POINTEUR pt_MONTANT_HT_860026326
REGISTRE POINTEUR pt_SGTQS_860026326
REGISTRE POINTEUR pt_ICAR_LOCAL_860026326
REGISTRE POINTEUR pt_TIME_860026326
REGISTRE POINTEUR pt_GEOGRAPHIC_ZONE_860026326
REGISTRE POINTEUR pt_ZONE_GEO_860026326
REGISTRE POINTEUR pt_CODPRES_860026326
REGISTRE POINTEUR pt_TYPPRES_860026326
REGISTRE POINTEUR pt_DEBCRED_860026326
REGISTRE POINTEUR pt_AID_860026326
REGISTRE POINTEUR pt_DATE_PREST_860026326
REGISTRE POINTEUR pt_HEUREPREST_860026326
############################################################################
#	Pcode de Distribution TwhaOrgSel.src
#
# En entree :
#	Article : TwhaOrgSel 	DC ISSU DE LA PFS WHA Orange Select
#
# En sortie :
#		ALLEGRO_PDZ	- g_iartout2	- TallegroPresDiv
#		BSS_PDZ		- g_iartout5	- TbssTwha
#
# Historique
#
#	14/01/2013 - THE - Creation
#	07/05/2013 - THE - G4R2 QC722 Pb etancheite (TTallegroPresDiv ==> TallegroPresDiv2)
#
############################################################################
# Constantes


# Variables fonctionnelles globales


# Pointeurs


############################
# Affectation Pointeurs    #
############################
pt_temp_860026326				= "pt_temp111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
pt_IDUS_NUM_860026326			= "pt_IDUS_NUM11111111111111111111111111111111"
pt_PRICE_HT_860026326 		= "pt_PRICE_HT555555555555555555555555555555555"
pt_MONTANT_HT_860026326		= "pt_MONTANT_HT6666666666666666666666666666666"
pt_SGTQS_860026326			= "pt_SGTQS777777777777777777777777777777"
pt_ICAR_LOCAL_860026326		= "pt_ICAR_LOCAL7777777777777777777777777"
pt_TIME_860026326				= "pt_TIME8888888888888888888888888888888"
pt_GEOGRAPHIC_ZONE_860026326	= "pt_GEOGRAPHIC_ZONE888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888"
pt_ZONE_GEO_860026326			= "pt_ZONE_GEO9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999"
pt_CODPRES_860026326			= "pt_CODPRES2222222222222222222"
pt_TYPPRES_860026326			= "pt_TYPPRES3333333333333333"
pt_DEBCRED_860026326			= "pt_DEBCRED44444444444444"
pt_AID_860026326				= "pt_AID5555555555555555555555555555555555555"
pt_DATE_PREST_860026326		= "pt_DATE_PREST666666666666666666666666666666"
pt_HEUREPREST_860026326		= "pt_HEUREPREST777777777777777777777777777777"


############################
# Initialisation Variables #
############################
instALLEGRO_860026326 	= 0
instBSS_860026326	= 0
NUMZONE_860026326		= 0
b_distri_Allegro_860026326 = 0
b_distri_BSS_860026326 = 0
duree_860026326 = 0
date_locale_fin_860026326 = 0
ddebut_860026326 = 0
dfin_860026326 = 0


############################
# Initialisation Pointeurs #
############################
i_strcpy(pt_temp_860026326,"")
i_strcpy(pt_IDUS_NUM_860026326,"")
i_strcpy(pt_PRICE_HT_860026326,"")
i_strcpy(pt_MONTANT_HT_860026326,"")
i_strcpy(pt_SGTQS_860026326,"")
i_strcpy(pt_ICAR_LOCAL_860026326,"")
i_strcpy(pt_TIME_860026326,"")
i_strcpy(pt_GEOGRAPHIC_ZONE_860026326,"")
i_strcpy(pt_ZONE_GEO_860026326,"")
i_strcpy(pt_CODPRES_860026326,"")
i_strcpy(pt_TYPPRES_860026326,"")
i_strcpy(pt_DEBCRED_860026326,"")
i_strcpy(pt_AID_860026326,"")
i_strcpy(pt_DATE_PREST_860026326,"")
i_strcpy(pt_HEUREPREST_860026326,"")


##################################################################
# Debut Distribution
##################################################################

# Duplication article entree 
erreur_860026326 = i_dup_art_id(g_iartin, g_iartout)
erreur_860026326 = i_cree_art("Conversion",g_iartout10)

##################################################################
# Identification de la provenance de l'article        
##################################################################

EFFICACE_860026326 = 2

##################################################################
# Recuperation des champs
##################################################################

erreur_860026326 = i_get_art_str(g_iartout,$TwhaOrgSel::DATE_PREST,pt_DATE_PREST_860026326)
erreur_860026326 = i_get_art_str(g_iartout,$TwhaOrgSel::HEUREPREST,pt_HEUREPREST_860026326)

erreur_860026326 = i_get_art_str(g_iartout,$TwhaOrgSel::CODPRES,pt_CODPRES_860026326)
erreur_860026326 = i_get_art_str(g_iartout,$TwhaOrgSel::TYPPRES,pt_TYPPRES_860026326)
erreur_860026326 = i_get_art_str(g_iartout,$TwhaOrgSel::DEBCRED,pt_DEBCRED_860026326)

erreur_860026326 = i_get_art_str(g_iartout,$TwhaOrgSel::MONTANTHT,pt_MONTANT_HT_860026326)


SI (i_valid_field_n(g_iartout, $TwhaOrgSel::IDUS_NUM) == 1)
ALORS
	erreur_860026326 = i_get_art_str(g_iartout,$TwhaOrgSel::IDUS_NUM,pt_IDUS_NUM_860026326)
FINSI

SI (i_valid_field_n(g_iartout, $TwhaOrgSel::AID) == 1)
ALORS
	erreur_860026326 = i_get_art_str(g_iartout,$TwhaOrgSel::AID,pt_AID_860026326)
FINSI

# creation et remplissage de l'enveloppe
erreur_860026326 = i_add_opt( "EnomEEC" )
ddebut_860026326 = i_get_art_field(g_iartout,$TwhaOrgSel::ddebut)
erreur_860026326 = i_set_attr_val( "date_Metro_deb", ddebut_860026326)

dfin_860026326 = i_get_art_field(g_iartout,$TwhaOrgSel::dfin)
erreur_860026326 = i_set_attr_val( "date_Metro_fin", dfin_860026326)


##################################################################
# Controles unitaires sur les champs connus de l article
##################################################################

# TYPPRES (Valeur "PO" ou "PE" )
SI ( ( i_strcmp(pt_TYPPRES_860026326, "PO") != 0 ) && ( i_strcmp(pt_TYPPRES_860026326, "PE") != 0 ) )
ALORS
	#trace ("__FILE__:__LINE__ #### Valeur de TYPPRES incorrecte #### ")
	code_rejet_860026326 = 0xA080
	code_rejet_860026326 = code_rejet_860026326 + EFFICACE_860026326
	erreur_860026326 = i_format_str2( pt_temp_860026326 , "Valeur TYPPRES : <%s> est incorrecte au lieu de : <%s> ",pt_TYPPRES_860026326,"PO ou PE")
	erreur_860026326 = i_PlvMessEmettre( 8612, 2, g_iartin,"", 3,code_rejet_860026326, C_ARTICLE_860026326, pt_temp_860026326)
	SAUT  DISTRI_ERR
FINSI

# DEBCRED (Valeur <> 0 et <> 1 )
SI ( ( i_strcmp(pt_DEBCRED_860026326, "0") != 0 ) && ( i_strcmp(pt_DEBCRED_860026326, "1") != 0 ) )
ALORS
	#trace ("__FILE__:__LINE__ #### Valeur de DEBCRED incorrecte #### ")
	code_rejet_860026326 = 0xA080
	code_rejet_860026326 = code_rejet_860026326 + EFFICACE_860026326
	erreur_860026326 = i_format_str2( pt_temp_860026326 , "Valeur DEBCRED : <%s> est incorrecte au lieu de : <%s> ",pt_DEBCRED_860026326,"0 ou 1")
	erreur_860026326 = i_PlvMessEmettre( 8612, 2, g_iartin,"", 3,code_rejet_860026326, C_ARTICLE_860026326, pt_temp_860026326)
	SAUT  DISTRI_ERR
FINSI

##################################################################
# Controles croises des champs : IDUS_NUM et AID
##################################################################

SI ( ( i_strcmp(pt_IDUS_NUM_860026326, "") == 0 ) && ( i_strcmp(pt_AID_860026326, "") == 0 ) )
ALORS
	#trace ("__FILE__:__LINE__ #### Les champs IDUS_NUM et AID sont absents #### ")
	code_rejet_860026326 = 0xA080
	code_rejet_860026326 = code_rejet_860026326 + EFFICACE_860026326
	i_strcpy( pt_temp_860026326 , "Controle croise IDUS_NUM et AID incorrect (absents)")
	erreur_860026326 = i_PlvMessEmettre( 8612, 2, g_iartin,"", 3,code_rejet_860026326, C_ARTICLE_860026326, pt_temp_860026326)
	SAUT  DISTRI_ERR
FINSI

SI ( ( i_strcmp(pt_IDUS_NUM_860026326, "") == 1 ) && ( i_strcmp(pt_AID_860026326, "") == 1 ) )
ALORS
	#trace ("__FILE__:__LINE__ #### Les champs IDUS_NUM et AID sont presents #### ")
	code_rejet_860026326 = 0xA080
	code_rejet_860026326 = code_rejet_860026326 + EFFICACE_860026326
	i_strcpy( pt_temp_860026326 , "Controle croise IDUS_NUM et AID incorrect (Presents)")
	erreur_860026326 = i_PlvMessEmettre( 8612, 2, g_iartin,"", 3,code_rejet_860026326, C_ARTICLE_860026326, pt_temp_860026326)
	SAUT  DISTRI_ERR
FINSI

##################################################################
#  Normalisation du champ  IDUS_NUM  (T3nd)
##################################################################

SI !(i_strcmp(pt_IDUS_NUM_860026326, "") == 0)
ALORS
	b_distri_Allegro_860026326 = 1
SINON
	b_distri_BSS_860026326 = 1
FINSI
#trace1("__FILE__:__LINE__ : b_distri_Allegro = <%d>",b_distri_Allegro)
#trace1("__FILE__:__LINE__ : b_distri_BSS     = <%d>",b_distri_BSS)

SI i_strplcmp(pt_IDUS_NUM_860026326,"00",0,2)==0 || i_strplcmp(pt_IDUS_NUM_860026326,"+",0,1)==0
ALORS
	#InterNational
	SI i_strplcmp(pt_IDUS_NUM_860026326,"00",0,2)==0 
	ALORS
		i_get_sub_str (pt_IDUS_NUM_860026326,2,-1,pt_IDUS_NUM_860026326)
	FINSI

	SI i_strplcmp(pt_IDUS_NUM_860026326,"+",0,1)==0 
	ALORS
		i_get_sub_str (pt_IDUS_NUM_860026326,1,-1,pt_IDUS_NUM_860026326)
	FINSI
	
	SI i_strplcmp(pt_IDUS_NUM_860026326,"33",0,2)==0 
	ALORS
		i_get_sub_str (pt_IDUS_NUM_860026326,2,-1,pt_IDUS_NUM_860026326)
	FINSI
	
	SI ( i_strplcmp(pt_IDUS_NUM_860026326,"262",0,3)==0 || i_strplcmp(pt_IDUS_NUM_860026326,"590",0,3) == 0 || i_strplcmp(pt_IDUS_NUM_860026326,"594",0,3)==0 || i_strplcmp(pt_IDUS_NUM_860026326,"596",0,3)==0 )
	ALORS
		i_get_sub_str (pt_IDUS_NUM_860026326,3,-1,pt_IDUS_NUM_860026326)
	FINSI
SINON
	#National
	SI i_strplcmp(pt_IDUS_NUM_860026326,"0",0,1)==0 
	ALORS
		i_get_sub_str (pt_IDUS_NUM_860026326,1,-1,pt_IDUS_NUM_860026326)
	FINSI
FINSI

#DATES
ICAR_METRO_860026326 = i_get_attr_val("date_Metro_deb" )
ICAR_UTC_860026326 = i_DHgetCe2gTime(C_NUMTAB_860026326,C_ZONEMETRO_860026326,ICAR_METRO_860026326)
duree_860026326 = i_get_art_field(g_iartout,$TwhaOrgSel::dduree)

erreur_860026326 = i_get_art_str(g_iartout,$TwhaOrgSel::TimeZone,pt_GEOGRAPHIC_ZONE_860026326)
erreur_860026326 = i_recupererValeur(pt_GEOGRAPHIC_ZONE_860026326, pt_temp_860026326, i_strlen(pt_GEOGRAPHIC_ZONE_860026326),'/')
i_strcpy(pt_ZONE_GEO_860026326,UCASE_860026233(pt_GEOGRAPHIC_ZONE_860026326))
i_replace_str(pt_ZONE_GEO_860026326," ","_",pt_ZONE_GEO_860026326)

erreur_860026326 = i_set_art_str(g_iartout10, $Conversion::ZONE_GEO,pt_ZONE_GEO_860026326)

NUMZONE_860026326 = i_DHgetZoneID(C_NUMTABSEL_860026326, g_iartout10)

SI NUMZONE_860026326 == 0
ALORS
	#trace("##### Zone Grographique inconnue ########")
	code_rejet_860026326 = 0xA080
	erreur_860026326 = i_format_str2( pt_temp_860026326 , " La zone geographique <%s> est inconnue dans la Table de Selection des Decalages Horaires <%s>",pt_ZONE_GEO_860026326,"zones.4")
	erreur_860026326 = i_PlvMessEmettre( 8612, 2, g_iartin,"", 3,code_rejet_860026326, C_ARTICLE_860026326, pt_temp_860026326)
	SAUT DISTRI_ERR
FINSI
#trace1("################## NUMZONE = >%d< ####################",NUMZONE)

ICAR_LOCAL_860026326 = i_DHgetLocalTime(C_NUMTAB2_860026326,NUMZONE_860026326, ICAR_METRO_860026326)

date_locale_fin_860026326 = ICAR_LOCAL_860026326 + duree_860026326

erreur_860026326 = i_set_attr_val("date_Locale_fin", date_locale_fin_860026326)

##################################################################
# Recherche des instances des ECC  
##################################################################

#ALLEGRO_PDZ
instALLEGRO_860026326 = i_LireInstanceECC(C_InstALLEGRO_860026326)

SI (!instALLEGRO_860026326)
ALORS
	#trace("Pas d'instance pour ALLEGRO_PDZ !")
	erreur_860026326 = i_PlvMessEmettre(8501,2,g_iartin,"",3,C_InstALLEGRO_860026326,C_ARTICLE_860026326,g_ieec)
	SAUT DISTRI_ERR
FINSI	
#trace1("__FILE__:__LINE__ : instALLEGRO=<%d>",instALLEGRO)

#BSS_PDZ

erreur_860026326 = i_get_art_str(g_iartout, $TwhaOrgSel::AID,pt_AID_860026326)
SI i_strplcmp(pt_AID_860026326,"1",0,1) == 0
ALORS
	instBSS_860026326 = i_LireInstanceECC(C_InstBSS1_860026326)
	SI (!instBSS_860026326)
	ALORS
		#trace("Pas d'instance pour BSS_PDZ !")
		erreur_860026326 = i_PlvMessEmettre(8501,2,g_iartin,"",3,C_InstBSS1_860026326,C_ARTICLE_860026326,g_ieec)
		SAUT DISTRI_ERR
	FINSI
SINON
	instBSS_860026326 = i_LireInstanceECC(C_InstBSS2_860026326)
	SI (!instBSS_860026326)
	ALORS
		#trace("Pas d'instance pour BSS_PDZ !")
		erreur_860026326 = i_PlvMessEmettre(8501,2,g_iartin,"",3,C_InstBSS2_860026326,C_ARTICLE_860026326,g_ieec)
		SAUT DISTRI_ERR
	FINSI
FINSI

#trace1("__FILE__:__LINE__ : instBSS = <%d>",instBSS)

##################################################################
# CRITERES DE DISTRIBUTION
##################################################################

# ALLEGRO_PDZ

SI b_distri_Allegro_860026326
ALORS
	erreur_860026326 = i_AjouterCouranteECC(instALLEGRO_860026326)
FINSI 

SI b_distri_BSS_860026326
ALORS
	erreur_860026326 = i_AjouterCouranteECC(instBSS_860026326)
FINSI 

##################################################################
# Validation de la liste des ECCs destinataires
##################################################################

erreur_860026326=i_ValiderListeECC( 0, 0, 0, 0)

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

#-----------------------------------------------------------------
# ALLEGRO_PDZ
#-----------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instALLEGRO_860026326) )
ALORS
	#trace("Stockage vers ALLEGRO_PDZ")

	SI ( i_dup_art( g_iartout, C_TallegroPresDiv_860026326, g_iartout2 ) )
	ALORS
		code_errone_860026326 = 0xA0D1
		erreur_860026326 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026326,C_TallegroPresDiv_860026326,C_ARTICLE_860026326)
		SAUT DISTRI_ERR
	FINSI

	#CODART
	erreur_860026326 = i_set_art_str(g_iartout2,$TallegroPresDiv2::CODART,"E1")
	
	#NOLIG
	erreur_860026326 = i_set_art_str(g_iartout2,$TallegroPresDiv2::NOLIG,pt_IDUS_NUM_860026326)
		
	#CODPRES
	erreur_860026326 = i_set_art_str(g_iartout2,$TallegroPresDiv2::CODPRES,pt_CODPRES_860026326)
	
	#DEBCRED
	erreur_860026326 = i_set_art_str(g_iartout2,$TallegroPresDiv2::DEBCRED,pt_DEBCRED_860026326)

	#DATPREST
	erreur_860026326 = i_set_art_field(g_iartout2,$TallegroPresDiv2::DATPREST,ICAR_LOCAL_860026326)

	#CODEMET
	erreur_860026326 = i_set_art_str(g_iartout2,$TallegroPresDiv2::CODEMET,"N57P")

	#MONTANT
	erreur_860026326 = i_set_art_str(g_iartout2,$TallegroPresDiv2::MONTANT,pt_MONTANT_HT_860026326)

	#DEVISE
	erreur_860026326 = i_set_art_str(g_iartout2,$TallegroPresDiv2::DEVISE,"EUR")

	#HEURE
	erreur_860026326 = i_set_art_field(g_iartout10,$Conversion::DATE_ASC,ICAR_LOCAL_860026326)

	erreur_860026326 = i_get_art_str(g_iartout10,$Conversion::DATE_STR,pt_ICAR_LOCAL_860026326)
	i_get_sub_str(pt_ICAR_LOCAL_860026326,8,11,pt_TIME_860026326)
	erreur_860026326 = i_set_art_str(g_iartout2,$TallegroPresDiv2::HEURE,pt_TIME_860026326)
	
	#Z1 Si prestation periodique (type PE) Date de debut de l'abonnement (JJMMAAAA )
	SI ( i_strcmp(pt_TYPPRES_860026326, "PE") == 0 )
	ALORS
		SI i_valid_field_n(g_iartout, $TwhaOrgSel::DEBABO)
		ALORS
			erreur_860026326 = i_get_art_str(g_iartout, $TwhaOrgSel::DEBABO,pt_temp_860026326)
			erreur_860026326 = i_set_art_str(g_iartout2,$TallegroPresDiv2::Z1,pt_temp_860026326)
		FINSI
	FINSI

	#Z2 Si prestation periodique (type PE) Date de fin de l'abonnement (JJMMAAAA )
	SI ( i_strcmp(pt_TYPPRES_860026326, "PE") == 0 )
	ALORS
		SI i_valid_field_n(g_iartout, $TwhaOrgSel::FINABO)
		ALORS
			erreur_860026326 = i_get_art_str(g_iartout, $TwhaOrgSel::FINABO,pt_temp_860026326)
			erreur_860026326 = i_set_art_str(g_iartout2,$TallegroPresDiv2::Z2,pt_temp_860026326)
		FINSI
	FINSI

	#Z3 Libelle complementaire, cadre a gauche et complete par des espaces. 
	erreur_860026326 = i_get_art_str(g_iartout, $TwhaOrgSel::LibComp,pt_temp_860026326)
	erreur_860026326 = i_set_art_str(g_iartout2,$TallegroPresDiv2::Z3,pt_temp_860026326)

	#Z4 Espaces

	#REFEMET Espaces

	#REFTRI Espaces

	#IDENT Espaces

	#NUMPREST Espaces

FINSI

#-----------------------------------------------------------------
# BSS_PDZ
#-----------------------------------------------------------------

#trace("Stockage vers BSS_PDZ")

SI !i_ChercherCouranteECC(instBSS_860026326)
ALORS
	SI ( i_dup_art( g_iartout, C_TbssPresDiv_860026326, g_iartout5 ) )
	ALORS
		code_errone_860026326 = 0xA0D1
		erreur_860026326 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026326,C_TbssPresDiv_860026326,C_ARTICLE_860026326)
		SAUT DISTRI_ERR
	FINSI

	#CODART
	erreur_860026326 = i_set_art_str(g_iartout5,$TbssPresDiv::CODART,"E1")

	#NOLIG

	#CODPRES
	erreur_860026326 = i_set_art_str(g_iartout5,$TbssPresDiv::CODPRES,pt_CODPRES_860026326)

	#DEBCRED
	erreur_860026326 = i_set_art_str(g_iartout5,$TbssPresDiv::DEBCRED,pt_DEBCRED_860026326)

	#DATPREST
	erreur_860026326 = i_set_art_field(g_iartout5,$TbssPresDiv::DATPREST,ICAR_LOCAL_860026326)

	#CODEMET
	erreur_860026326 = i_set_art_str(g_iartout5,$TbssPresDiv::CODEMET,"N57P")

	#MONTANT
	erreur_860026326 = i_set_art_str(g_iartout5,$TbssPresDiv::MONTANT,pt_MONTANT_HT_860026326)

	#DEVISE
	erreur_860026326 = i_set_art_str(g_iartout5,$TbssPresDiv::DEVISE,"EUR")

	#HEURE Heure locale (HHMM)
	erreur_860026326 = i_set_art_field(g_iartout10,$Conversion::DATE_ASC,ICAR_LOCAL_860026326)

	erreur_860026326 = i_get_art_str(g_iartout10, $Conversion::DATE_STR,pt_ICAR_LOCAL_860026326)
	i_get_sub_str(pt_ICAR_LOCAL_860026326,8,11,pt_TIME_860026326)
	erreur_860026326 = i_set_art_str(g_iartout5,$TbssPresDiv::HEURE,pt_TIME_860026326)

	#Z1 Si prestation periodique de type PE Date de debut de l'abonnement (JJMMAAAA )
	SI ( i_strcmp(pt_TYPPRES_860026326, "PE") == 0 )
	ALORS
		SI i_valid_field_n(g_iartout, $TwhaOrgSel::DEBABO)
		ALORS
			erreur_860026326 = i_get_art_str(g_iartout, $TwhaOrgSel::DEBABO,pt_temp_860026326)
			erreur_860026326 = i_set_art_str(g_iartout5,$TbssPresDiv::Z1,pt_temp_860026326)
		FINSI

		#Z2 Si prestation periodique de type PE Date de fin de l'abonnement (JJMMAAAA )
		SI i_valid_field_n(g_iartout, $TwhaOrgSel::FINABO)
		ALORS
			erreur_860026326 = i_get_art_str(g_iartout, $TwhaOrgSel::FINABO,pt_temp_860026326)
			erreur_860026326 = i_set_art_str(g_iartout5,$TbssPresDiv::Z2,pt_temp_860026326)
		FINSI
	FINSI

	#Z3 Libelle complementaire, cadre a gauche et complete par des espaces.
	erreur_860026326 = i_get_art_str(g_iartout, $TwhaOrgSel::LibComp,pt_temp_860026326)
	erreur_860026326 = i_set_art_str(g_iartout5,$TbssPresDiv::Z3,pt_temp_860026326)

	#Z4 ";;", cadre a gauche et complete par des espaces.
	erreur_860026326 = i_set_art_str(g_iartout5,$TbssPresDiv::Z4,";;")

	#REFEMET AID (Numero de compte BSS ), cadre a gauche et complete par des espaces.
	SI i_valid_field_n(g_iartout, $TwhaOrgSel::AID)
	ALORS
		erreur_860026326 = i_get_art_str(g_iartout, $TwhaOrgSel::AID,pt_AID_860026326)
		erreur_860026326 = i_set_art_str(g_iartout5,$TbssPresDiv::REFEMET,pt_AID_860026326)
	FINSI

	#REFTRI "/service/ip/fti", cadre a gauche et complete par des espaces.
	SI i_valid_field_n(g_iartout, $TwhaOrgSel::SerIpFti)
	ALORS
		erreur_860026326 = i_get_art_str(g_iartout, $TwhaOrgSel::SerIpFti,pt_temp_860026326)
		erreur_860026326 = i_set_art_str(g_iartout5,$TbssPresDiv::REFTRI,pt_temp_860026326)
	FINSI

	#IDENT

	#NUMPREST
FINSI

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

#-----------------------------------------------------------------
# ALLEGRO_PDZ
#-----------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instALLEGRO_860026326) )
ALORS
	erreur_860026326=i_stocke_art_iecc(g_iartout2, instALLEGRO_860026326)
	trace("Emission vers ALLEGRO_PDZ reussie")
FINSI

#-----------------------------------------------------------------
# BSS_PDZ
#-----------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instBSS_860026326) )
ALORS
	erreur_860026326=i_stocke_art_iecc(g_iartout5, instBSS_860026326)
	trace("Emission vers BSS_PDZ reussie")
FINSI

#=======================================================================================
# FIN DISTRIBUTION
#=======================================================================================

#trace2( "Fin du Pcode de distribution %s ",C_ARTICLE,"" )

RETOUR TRAIT_OK

##################################################################
# POINT de branchement : stockage PT_ERRONE
##################################################################

POINT DISTRI_ERR

#IFDEF trace_niv1 = 1
trace2( "Stockage de l'article %s en ERRONE",C_ARTICLE_860026326,"" )
#ENDIF

erreur_860026326 = i_make_art_rej(g_iartin, g_iartout7, code_rejet_860026326)
erreur_860026326 = i_stocke_art(g_iartout7,0,PT_ERRONE,0)

RETOUR TRAIT_OK

