DEFINITION C_Article_860026332 "Tppvwl2"
DEFINITION C_TfemsPPVwl2_860026332 "TfemsPPVwl2"
DEFINITION C_TnovahPPVwl2_860026332 "TnovahPPVwl2"
DEFINITION C_instFEMS_860026332 "FEMS"
DEFINITION C_instNOVAH_860026332 "NOVAHppv"
DEFINITION C_InstSYMPH_860026332 "SYMP"
DEFINITION C_TSymTppvwl2_860026332 "TsymTppvwl2"
DEFINITION C_InstCTT1_860026332 "CTT1ppv"
DEFINITION C_TCttppvwl2_860026332 "TcttTppvwl2"
DEFINITION C_InstCTT2_860026332 "CTT2ppv"
REGISTRE ENTIER instFEMS_860026332
REGISTRE ENTIER instNOVAH_860026332
REGISTRE ENTIER instSYMPH_860026332
REGISTRE ENTIER instCTT1_860026332
REGISTRE ENTIER instCTT2_860026332
REGISTRE ENTIER b_EFFICACE_860026332
REGISTRE ENTIER erreur_860026332
REGISTRE ENTIER res_860026332
REGISTRE ENTIER code_errone_860026332
REGISTRE ENTIER bSIGNE_860026332
REGISTRE ENTIER lg_IDUS_N_860026332
REGISTRE ENTIER lg_IDUS_N_DCB_860026332
REGISTRE ENTIER lg_IDUS_controle_860026332
REGISTRE ENTIER b_idus_860026332
REGISTRE ENTIER b_CTT1_860026332
REGISTRE ENTIER b_CTT2_860026332
REGISTRE ENTIER b_FEMS_860026332
REGISTRE ENTIER b_DebutAccount_860026332
REGISTRE POINTEUR pt_BUF260_860026332
REGISTRE POINTEUR pt_BUF60_860026332
REGISTRE POINTEUR pt_BUF40_860026332
REGISTRE POINTEUR pt_BUF20_860026332
REGISTRE POINTEUR pt_sgtqs_860026332
REGISTRE POINTEUR pt_ACC_INST_860026332
REGISTRE POINTEUR pt_ECCFACT_860026332
REGISTRE POINTEUR pt_IDUS_N_860026332
REGISTRE POINTEUR pt_IDUS_N_DCB_860026332
REGISTRE POINTEUR pt_IDUS_controle_860026332
############################################################################
# Fichier : Tppvwl2.src
#
# Distribution : Tppvwl2
#
# En sortie :
#      utilitaire  Conversion   - g_iartout10
#    SYMPHONIE   - TsymTppvwl2  - g_iartout6
#         SIVM   - TsivmTppvwl2 - g_iartout5
#         CTT1   - TcttTppvwl2  - g_iartout4
#         CTT2   - TcttTppvwl2  - g_iartout3
#         FEMS   - TfemsPPVwl2  - g_iartout2
#        NOVAH   - TnovahPPVwl2 - g_iartout7
#
# HISTORIQUE :
#	07/02/08 FTSA-G3R6 creation
#	28/02/08 -FAL- FTSA-G3R6 FO2326 une seule ECC FEMS
#	17/10/08 -RHE- FTSA-G3R10 QC105 ("commence par '/account'" devient "contient '/account'")
#	05/05/09 -JLG- FTSA-G3R13 QC242 : NOVAH T3 TYPE en ascii
#	04/10/11 - THE - VerifPcode
#	28/05/2013 - THE - G4R3 suppression envoi vers SIVM
#
############################################################################

############################################################################
# Declarations
############################################################################
#G4R3

# variables entieres
#G4R3

# variables pointeurs

#---------------------------------------------------------------------------
# ALLOCATION  INITIALISATION
#---------------------------------------------------------------------------
pt_BUF260_860026332	  = "1234567890123456789212345612345123456789123456789123456123451234567891234567891234561234512345678912345678912345612345123456789123456789123456123451234567891234567891234561234512345678912345678912345612345123456789123456789123456123451234567891234567891234561"
pt_BUF60_860026332 	  = "606060606060606060606060606060606060606060606060606060606060"
pt_BUF40_860026332 	  = "4040404040404040404040404040404040404040"
pt_BUF20_860026332	  = "11223344556677889900"
pt_sgtqs_860026332	  = "1111111111111111111111"
pt_ACC_INST_860026332	  = "2222222222222222222222"
pt_ECCFACT_860026332	  = "4444444444444444444"
pt_IDUS_N_860026332	  = "pt_IDUS_N111111111"
pt_IDUS_N_DCB_860026332	  = "pt_IDUS_N_DCB2222222"
pt_IDUS_controle_860026332  = "pt_IDUS_controle33333333"

instSYMPH_860026332	= 0
#G4R3
#instSIVM	= 0
instCTT1_860026332	= 0
instCTT2_860026332	= 0
instFEMS_860026332  	= 0
instNOVAH_860026332 	= 0
b_EFFICACE_860026332	= 0
erreur_860026332		= 0
res_860026332		= 0
code_errone_860026332	= 0
bSIGNE_860026332		= 0
b_CTT1_860026332		= 0
b_CTT2_860026332		= 0
b_FEMS_860026332		= 0
b_DebutAccount_860026332	= 0
lg_IDUS_N_860026332	= 0
lg_IDUS_N_DCB_860026332	= 0
lg_IDUS_controle_860026332 = 0
b_idus_860026332		= 0

# initialisation
i_strcpy(pt_sgtqs_860026332,"")
i_strcpy(pt_ECCFACT_860026332,"")
i_strcpy(pt_sgtqs_860026332,"")
i_strcpy(pt_BUF260_860026332,"")
i_strcpy(pt_BUF60_860026332,"")
i_strcpy(pt_BUF40_860026332,"")
i_strcpy(pt_BUF20_860026332,"")
i_strcpy(pt_IDUS_N_DCB_860026332,"")
i_strcpy(pt_ACC_INST_860026332,"")
i_strcpy(pt_IDUS_N_860026332,"")
i_strcpy(pt_IDUS_controle_860026332,"")


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

# SGTQS
i_strcpy(pt_sgtqs_860026332,i_LireEECSGTQS( g_ieec ))

#variable b_DebutAccount vrai si FD/account_poid commence par /account#####
erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::accpoid, pt_BUF260_860026332)

SI (i_adequation_chaine_expreg(pt_BUF260_860026332, "/account") == 0)
ALORS
	b_DebutAccount_860026332=1
FINSI

#variable pt_IDUS_N pseudo_aid ou numero BSS migre #########################
#account_poids 9 octest de gauche de l entree
SI !b_DebutAccount_860026332
ALORS
	SI (i_strlen(pt_BUF260_860026332) < 9)
	ALORS
		i_strcpy(pt_IDUS_N_860026332,pt_BUF260_860026332)
	SINON
		i_get_sub_str(pt_BUF260_860026332,0,8,pt_IDUS_N_860026332)
	FINSI

	lg_IDUS_N_860026332 = i_strlen(pt_IDUS_N_860026332)
	lg_IDUS_N_DCB_860026332  = i_conv_ascii_dcb(pt_IDUS_N_860026332 , pt_IDUS_N_DCB_860026332)
	lg_IDUS_controle_860026332= i_ConvertirChaine(pt_IDUS_N_DCB_860026332, lg_IDUS_N_DCB_860026332, 1, pt_IDUS_controle_860026332, lg_IDUS_N_860026332, 3)

	SI (i_strplcmp ( pt_IDUS_N_860026332, pt_IDUS_controle_860026332, 0, lg_IDUS_N_860026332) == 0)
	ALORS
		b_idus_860026332 = 1
	FINSI
FINSI
i_strcpy(pt_BUF260_860026332,"")

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


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

#trace("----------- Recherche des instances --------------")

#---------------------------------------------------------------------------
#  SYMPHONIE
#---------------------------------------------------------------------------

instSYMPH_860026332=i_LireInstanceECC(C_InstSYMPH_860026332)
#trace1("instSYMPH=<%d>",instSYMPH)
SI (!instSYMPH_860026332 )
ALORS
	trace("pas d instance SYMPHONIE")
	code_errone_860026332 = 0xA0B0
	code_errone_860026332 = code_errone_860026332 + b_EFFICACE_860026332
	erreur_860026332 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026332,C_InstSYMPH_860026332,C_Article_860026332)
	SAUT DISTRI_ERR
FINSI

#---------------------------------------------------------------------------
##G4R3  SIVM
#---------------------------------------------------------------------------

#instSIVM=i_LireInstanceECC(C_InstSIVM)
##trace1("instSIVM=<%d>",instSIVM)
#SI (!instSIVM )
#ALORS
#	trace("pas d instance SIVM")
#	code_errone = 0xA0B0
#	code_errone = code_errone + b_EFFICACE
#	erreur = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone,C_InstSIVM,C_Article)
#	SAUT DISTRI_ERR
#FINSI

#---------------------------------------------------------------------------
#  CTT1
#---------------------------------------------------------------------------

instCTT1_860026332 =i_LireInstanceECC(C_InstCTT1_860026332)
#trace1("instCTT1=<%d>",instCTT1)
SI (!instCTT1_860026332 )
ALORS
	trace("pas d instance CTT1")
	code_errone_860026332 = 0xA0B0
	code_errone_860026332 = code_errone_860026332 + b_EFFICACE_860026332
	erreur_860026332 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026332,C_InstCTT1_860026332,C_Article_860026332)
	SAUT DISTRI_ERR
FINSI

#---------------------------------------------------------------------------
#  CTT2
#---------------------------------------------------------------------------

instCTT2_860026332 =i_LireInstanceECC(C_InstCTT2_860026332)
#trace1("instCTT1=<%d>",instCTT1)
SI (!instCTT2_860026332 )
ALORS
	trace("pas d instance CTT2")
	code_errone_860026332 = 0xA0B0
	code_errone_860026332 = code_errone_860026332 + b_EFFICACE_860026332
	erreur_860026332 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026332,C_InstCTT2_860026332,C_Article_860026332)
	SAUT DISTRI_ERR
FINSI

#---------------------------------------------------------------------------
#  NOVAH PPV
#---------------------------------------------------------------------------

instNOVAH_860026332 =i_LireInstanceECC(C_instNOVAH_860026332)
#trace1("instNOVAH=<%d>",instNOVAH)
SI (!instNOVAH_860026332 )
ALORS
	trace("pas d instance NOVAH")
	code_errone_860026332 = 0xA0B0
	code_errone_860026332 = code_errone_860026332 + b_EFFICACE_860026332
	erreur_860026332 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026332,C_instNOVAH_860026332,C_Article_860026332)
	SAUT DISTRI_ERR
FINSI

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

#SIVM et SYMPHONIE tous les DC
#CTT1 si account_instance =0
#CTT2 si account_instance =1

SI b_DebutAccount_860026332
ALORS
	erreur_860026332 = i_get_art_str(g_iartin,$Tppvwl2::accinstance,pt_ACC_INST_860026332)
	SI (i_strcmp(pt_ACC_INST_860026332, "0")==0)
	ALORS
		#trace("accinstance = 0 donc CCT1 sera alimentee")
		erreur_860026332 = i_AjouterCouranteECC(instCTT1_860026332)
		i_strcpy(pt_ECCFACT_860026332, "CTT1ppv")
		b_CTT1_860026332 = 1
	SINON
		SI (i_strcmp(pt_ACC_INST_860026332, "1")==0)
		ALORS
			#trace("accinstance = 1 donc CCT2 sera alimentee")
			erreur_860026332 = i_AjouterCouranteECC(instCTT2_860026332)
			i_strcpy(pt_ECCFACT_860026332, "CTT2ppv")
			b_CTT2_860026332 = 1
		FINSI
	FINSI
SINON
	SI (lg_IDUS_N_DCB_860026332 > 3 && b_idus_860026332)
	ALORS
		############################################################################
		# Referentiel fixe FEMS; envoi requete TD_Fixe
		############################################################################

		SI (i_EnvoiReqConsTabDist(TD_Fixe, i_get_art_field(g_iartin,$Tppvwl2::DATE), pt_IDUS_N_DCB_860026332, lg_IDUS_N_DCB_860026332, 0, 1) != 0)
		ALORS
			#trace("Erreur i_EnvoiReqConsTabDist FEMS")
			code_errone_860026332 = 0xA0C0
			code_errone_860026332 = code_errone_860026332 + b_EFFICACE_860026332
			erreur_860026332 = i_PlvMessEmettre(8607,2,g_iartin,"",3,code_errone_860026332,"FEMS",C_Article_860026332)
			SAUT DISTRI_ERR
		FINSI

		############################################################################
		# Recherche Instances des ECC de facturation FEMS
		############################################################################

		#---------------------------------------------------------------------------
		#  FEMS (referentiel, ECC interne)
		#---------------------------------------------------------------------------

		instFEMS_860026332 =i_LireInstanceECC(C_instFEMS_860026332)
		#trace1("instFEMS=<%d>",instFEMS)
		SI (!instFEMS_860026332 )
		ALORS
			#trace("pas d instance pour referentiel FEMS")
			trace("pas d instance FEMS")
			code_errone_860026332 = 0xA0B0
			code_errone_860026332 = code_errone_860026332 + b_EFFICACE_860026332
			erreur_860026332 = i_PlvMessEmettre(8601,2,g_iartin,"",3,code_errone_860026332,C_instFEMS_860026332,C_Article_860026332)
			SAUT DISTRI_ERR
		FINSI

		# FEMS PPV n existe plus

		############################################################################
		# Lecture requete sur Referentiel TD_Fixe FEMS
		############################################################################

		erreur_860026332 = i_LireReqConsTabDist()
		SI ( erreur_860026332 != 0 )
		ALORS
			trace1( ">>>__LINE__>>> Erreur i_LireReqConsTabDist FEMS: <%d>", erreur_860026332)
			code_errone_860026332 = 0xA0C0
			code_errone_860026332 = code_errone_860026332 + b_EFFICACE_860026332
			erreur_860026332 = i_PlvMessEmettre(8508,2,g_iartin,"",3,C_Article_860026332,"LireReqConsTabDist",C_instFEMS_860026332)
			SAUT DISTRI_ERR
		FINSI

		res_860026332 = i_LireInfoECC(instFEMS_860026332, i_LireEntierECCv(instFEMS_860026332))

		SI (res_860026332 != 0)
		ALORS
			b_FEMS_860026332 = 1
		SINON
			b_FEMS_860026332 = 0
		FINSI
	FINSI
FINSI

############################################################################
# Critere de distribution FEMS pour ppv
############################################################################

SI b_FEMS_860026332
ALORS
	#trace("b_FEMS vrai donc FEMS sera alimentee")
	erreur_860026332 = i_AjouterCouranteECC(instFEMS_860026332)
	i_strcpy(pt_ECCFACT_860026332, "FEMS")
FINSI

############################################################################
# Critere de distribution NOVAH (poubelle de CT1, CT2, FEMS)
############################################################################

SI (!b_CTT1_860026332 && !b_CTT2_860026332 && !b_FEMS_860026332)
ALORS
	#trace("b_FEMS faux donc NOVAH sera alimentee")
	erreur_860026332 = i_AjouterCouranteECC(instNOVAH_860026332)
	i_strcpy(pt_ECCFACT_860026332, "NOVAH")
FINSI

#---------------------------------------------------------------------------
##G4R3  Ajout de SIVM a la liste
#---------------------------------------------------------------------------

# Tous les appels sont pour SIVM
#erreur = i_AjouterCouranteECC(instSIVM)

#---------------------------------------------------------------------------
# Ajout de SYMPHONIE a la liste
#---------------------------------------------------------------------------

# Tous les appels sont pour SYMPHONIE
erreur_860026332 = i_AjouterCouranteECC(instSYMPH_860026332)

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

#---------------------------------------------------------------------------
##G4R3  SIVM (avant convertisseur de sortie) g_iartout5
#---------------------------------------------------------------------------

#SI ( !i_ChercherCouranteECC(instSIVM) )
#ALORS
#	#trace("[Tppvwl2_dis] ppv wanadoo lot2 duplication vers SIVM")
#	# si i_dup_art_id echoue, cad  retour != 0
#	SI (i_dup_art_id(g_iartin,g_iartout5))
#	ALORS
#		trace("[Tppvwl2_dis]ERREUR envoi distri errone i_dup_art_id g_iartout5")
#		erreur = i_PlvMessEmettre(8502,2,g_iartin,"",3,"pour SIVM",C_Article,g_ieec)
#		SAUT DISTRI_ERR
#	FINSI
#
#	# si i_rename_art echoue, cad  retour != 0
#	SI (i_rename_art(g_iartout5,C_TSivmTppvwl2))
#	ALORS
#		trace("[Tppvwl2_dis]ERREUR envoi distri errone i_rename_art g_iartout5 ")
#		erreur = i_PlvMessEmettre(8502,2,g_iartin,"",3,"pour SIVM",C_Article,g_ieec)
#		SAUT DISTRI_ERR
#	FINSI
#
#	#champ serial gros probleme de conversion
#	# entree en ascii 16 octets HEXA vers sortie 20 octets DECIMAL
#	# rang 0 send number
#	# rang 1 a 4 temps en secondes
#	# rang 5 a 7 increment dans les faits 6 et 7 sont a 0
#
#	# pt_BUF260 pour ce qui est en entree et pt_BUF60 pour construction sortie
#	#  pt_20 40 et 60 pour travail intermediaire
#
#	erreur=i_cree_art("Conversion",g_iartout10)
#	#pour info dans Conversion  numHEXA est obligatoire, numerique, hexadecimal
#	erreur=  i_ajoutChamp(g_iartin,"T3ASCII2NUM","ASCII2NUM" ,0)
#
#	erreur = i_get_art_str(g_iartin, $Tppvwl2::serial, pt_BUF260)
#
#	# RANG 0 2 octets vers 3
#	i_get_sub_str(pt_BUF260, 0, 1,pt_BUF20)
#	#trace2("SERIAL RANG 0   entree ASCII HEXA <%s> ",pt_BUF20 ,"")
#	erreur= i_set_art_str(g_iartout10,$Conversion::ASCII2NUM, pt_BUF20)
#	erreur= i_conv_field("ASCII2NUM",g_iartout10,3,g_iartin,1,0)
#	res= i_get_art_field(g_iartin, $Tppvwl2::ASCII2NUM)
#	erreur= i_set_art_field(g_iartout10,$Conversion::numHEXA , res)
#	erreur= i_get_art_str(g_iartout10,$Conversion::numHEXA, pt_BUF20)
#	# pour bourrer sur 3 octets
#	erreur = i_format_str2(pt_BUF40 ,"%s%s", "000" ,pt_BUF20)
#	# pour preparer sortie
#	i_get_sub_str(pt_BUF40, -3, -1,pt_BUF60)
#	#trace2("SERIAL RANG 0  sortie  ASCII DEC  <%s> ",pt_BUF60 ,"")
#
#	# RANG 1 a 4  4 octets vers 10
#	i_get_sub_str(pt_BUF260, 2, 9,pt_BUF20)
#	#trace2("SERIAL RANG 1a4 entree ASCII HEXA <%s> ",pt_BUF20 ,"")
#	erreur= i_set_art_str(g_iartout10,$Conversion::ASCII2NUM, pt_BUF20)
#	erreur= i_conv_field("ASCII2NUM",g_iartout10,3,g_iartin,1,0)
#	res= i_get_art_field(g_iartin, $Tppvwl2::ASCII2NUM)
#	erreur= i_set_art_field(g_iartout10,$Conversion::numHEXA , res)
#	erreur= i_get_art_str(g_iartout10,$Conversion::numHEXA, pt_BUF20)
#	# pour bourrer sur 10 octets
#	erreur = i_format_str2(pt_BUF40 ,"%s%s", "0000000000" ,pt_BUF20)
#	i_get_sub_str(pt_BUF40, -10, -1,pt_BUF20)
#	#trace2("SERAIL RANG 1a4 sortie ASCII DEC  <%s> ",pt_BUF20 ,"")
#	# pour preparer sortie
#	i_strcpy(pt_BUF40 ,pt_BUF60 )
#	erreur = i_format_str2(pt_BUF60 ,"%s%s", pt_BUF40 ,pt_BUF20)
#
#	# RANG 5 a 7  3 octets vers 10   en fait uniquement rang 5
#	# RANG 5 a 7  3 octets HEXA ASCII  vers 6 octets DEC ASCII  en fait uniquement rang fin du 5 ,6 et 7 le debut du 5 est perdu
#	i_get_sub_str(pt_BUF260, 11, 15,pt_BUF20)
#	#trace2("SERIAL RANG 5   entree ASCII HEXA <%s> ",pt_BUF20 ,"")
#	erreur= i_set_art_str(g_iartout10,$Conversion::ASCII2NUM, pt_BUF20)
#	erreur= i_conv_field("ASCII2NUM",g_iartout10,3,g_iartin,1,0)
#	res= i_get_art_field(g_iartin, $Tppvwl2::ASCII2NUM)
#	erreur= i_set_art_field(g_iartout10,$Conversion::numHEXA , res)
#	erreur= i_get_art_str(g_iartout10,$Conversion::numHEXA, pt_BUF20)
#	# pour bourrer sur 10 octets
#	# erreur = i_format_str2(pt_BUF40 ,"%s%s", "000" ,pt_BUF20)
#	# i_get_sub_str(pt_BUF40, -3, -1,pt_BUF20)
#	erreur = i_format_str2(pt_BUF40 ,"%s%s", "0000000" ,pt_BUF20)
#	i_get_sub_str(pt_BUF40, -7, -1,pt_BUF20)
#	#trace2("SERIAL RANG 5a7   sortie ASCII DEC  <%s> ",pt_BUF20 ,"")
#	# pour preparer sortie
#	i_strcpy(pt_BUF40 ,pt_BUF60 )
#	erreur = i_format_str2(pt_BUF60 ,"%s%s", pt_BUF40 ,pt_BUF20)
#	#trace2("SERIAL 0 et 1a4 et 5 sortie ASCII DEC  <%s> ",pt_BUF60 ,"")
#
#	# pour mettre dans le champs 20 octets en sortie
#	# erreur = i_format_str2(pt_BUF40 ,"%s%s", pt_BUF60 ,"0000")
#	#trace2("SERIAL sortie ASCII DEC  <%s> ",pt_BUF40 ,"")
#	#trace2("SIVM  xxxx  serial <%s>" , pt_BUF40,"")
#	# res = i_strlen(pt_BUF40)
#	res = i_strlen(pt_BUF60)
#	erreur= i_resize_tlv(g_iartout5,"T3serial", "serial", res)
#	# erreur= i_set_art_str(g_iartout5, $TsivmTppvwl2::serial, pt_BUF40)
#	erreur= i_set_art_str(g_iartout5, $TsivmTppvwl2::serial, pt_BUF60)
#
#	erreur= i_supprChamp(g_iartin,"T3ASCII2NUM")
#
#	#champ amountvalue avec des centimes et negatif possible
#	erreur= i_get_art_str(g_iartin, $Tppvwl2::amountvalue, pt_BUF20)
#
#	#recherche du signe
#	i_get_sub_str(pt_BUF20,0,0,pt_BUF40)
#	bSIGNE=0
#	SI(i_strcmp(pt_BUF40,"-")==0)
#	ALORS
#		#memoriser pour le mettre en sortie et travail sans le signe
#		bSIGNE=1
#		i_strcpy(pt_BUF40,pt_BUF20)
#		i_get_sub_str(pt_BUF40,1,-1,pt_BUF20)
#		#trace2("amountvalue sans signe <%s>" , pt_BUF20, "")
#	FINSI
#
#	res = i_strlen(pt_BUF20)
#	SI (res >2)
#	ALORS
#		#decoupage simple avec ajout "."
#		i_get_sub_str(pt_BUF20,0,res -3, pt_BUF40)
#		#trace2("amountvalue avant . <%s>", pt_BUF40,"")
#		i_get_sub_str(pt_BUF20,-2,-1, pt_BUF60)
#		#trace2("amountvalue apres . <%s>", pt_BUF60,"")
#		erreur = i_format_str2(pt_BUF20 ,"%s%s", pt_BUF40 ,".")
#		#trace2("amountvalue etape1  <%s>", pt_BUF20,"")
#		erreur = i_format_str2(pt_BUF40 ,"%s%s",pt_BUF20, pt_BUF60)
#		#trace2("amountvalue etape2  <%s>", pt_BUF40,"")
#	SINON
#		#ajout des "0" et du "." pour obtenir un style "0.00
#		#SIG erreur= i_resize_tlv(g_iartout5,"T3amountvalue", "amountvalue",4)
#		SI (res == 0)
#		ALORS
#			i_strcpy(pt_BUF40,"0.00")
#		SINON
#			SI (res == 1)
#			ALORS
#				erreur = i_format_str2(pt_BUF40 ,"%s%s","0.0",pt_BUF20)
#			SINON
#				erreur = i_format_str2(pt_BUF40 ,"%s%s","0.",pt_BUF20)
#			FINSI
#		FINSI
#	FINSI
#	#trace2("SIVM amountvalue sans signe <%s>", pt_BUF40,"")
#	res = i_strlen(pt_BUF40)
#	SI (bSIGNE==0)
#	ALORS
#		erreur= i_resize_tlv(g_iartout5,"T3amountvalue", "amountvalue",res)
#	SINON
#		i_strcpy(pt_BUF20,pt_BUF40)
#		erreur = i_format_str2(pt_BUF40 ,"%s%s","-", pt_BUF20)
#		erreur= i_resize_tlv(g_iartout5,"T3amountvalue", "amountvalue",res+1)
#	FINSI
#	#trace2("SIVM champ amountvalue <%s>", pt_BUF40,"")
#	erreur= i_set_art_str(g_iartout5, $TsivmTppvwl2::amountvalue, pt_BUF40)
#
#	#champ amountunit sans les centimes
#	erreur= i_get_art_str(g_iartin, $Tppvwl2::amountunit, pt_BUF20)
#	erreur= i_resize_tlv(g_iartout5,"T3amountunit", "amountunit", 3)
#	SI (i_strcmp(pt_BUF20, "cEUR")==0)
#	ALORS
#		erreur= i_set_art_str(g_iartout5, $TsivmTppvwl2::amountunit, "EUR")
#	SINON
#		SI(i_strcmp(pt_BUF20, "cFRF")==0)
#		ALORS
#			erreur= i_set_art_str(g_iartout5, $TsivmTppvwl2::amountunit, "FRF")
#		FINSI
#	FINSI
#FINSI

#---------------------------------------------------------------------------
# SYMPHONIE
#---------------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instSYMPH_860026332) )
ALORS
	#trace("[Tppvwl2_dis] ppw lot2 duplication vers sym")
	# si i_dup_art_id echoue, cad  retour != 0

	SI (i_dup_art_id(g_iartin,g_iartout6))
	ALORS
		trace("[Tppvwl2_dis]ERREUR envoi distri errone i_dup_art_id g_iartout6")
		erreur_860026332 = i_PlvMessEmettre(8502,2,g_iartin,"",3,"pour Symphonie",C_Article_860026332,g_ieec)
		SAUT DISTRI_ERR
	FINSI

	# si i_rename_art echoue, cad  retour != 0
	SI (i_rename_art(g_iartout6,C_TSymTppvwl2_860026332))
	ALORS
		trace("[Tppvwl2_dis]ERREUR envoi distri errone i_rename_art g_iartout6 ")
		erreur_860026332 = i_PlvMessEmettre(8502,2,g_iartin,"",3,"pour Symphonie",C_Article_860026332,g_ieec)
		SAUT DISTRI_ERR
	FINSI

	#champ en ajout
	erreur_860026332=  i_ajoutChamp(g_iartout6,"T4sgtqs","SGTQS" ,6)

	# SGTQS
	erreur_860026332 = i_set_art_str(g_iartout6, $TsymTppvwl2::SGTQS, pt_sgtqs_860026332)

	# ECC FACT
	erreur_860026332 = i_set_art_str(g_iartout6, $TsymTppvwl2::ECC_FACT, pt_ECCFACT_860026332)

	# sup des champs non demandes par symphonie
	erreur_860026332 = i_supprChamp(g_iartout6, "T3starttimeS")
FINSI

#---------------------------------------------------------------------------
# Mises au format ECC CTT1  g_iartout4
#---------------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instCTT1_860026332) )
ALORS
	#trace("Duplication vers CTT1")
	SI ( i_dup_art_dest(g_iartin,g_iartout4,C_TCttppvwl2_860026332) )
	ALORS
		trace("Erreur de i_dup_art")
		code_errone_860026332 = 0xA0D0
		code_errone_860026332 = code_errone_860026332 + b_EFFICACE_860026332
		erreur_860026332 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026332,C_TCttppvwl2_860026332,C_Article_860026332)
		SAUT  DISTRI_ERR
	FINSI

	#account_poids 80 octest de gauche de l entre
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::accpoid, pt_BUF260_860026332)
	trace2(" accpoid en entree <%s> ", pt_BUF260_860026332, "")
	SI (i_strlen(pt_BUF260_860026332) < 80)
	ALORS
		#trace("  longueur inf 80 donc copie directe")
		erreur_860026332 =  i_set_art_str(g_iartout4, $TcttTppvwl2::accpoid, pt_BUF260_860026332)
	SINON
		#trace("  longueur sup 80 donc couper")
		i_get_sub_str(pt_BUF260_860026332,0,79,pt_BUF260_860026332)
		erreur_860026332 =  i_set_art_str(g_iartout4, $TcttTppvwl2::accpoid, pt_BUF260_860026332)
	FINSI

	#service_poids 100 octest de gauche de l entre
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::servpoid, pt_BUF260_860026332)
	#trace2(" servpoid en entree <%s> ", pt_BUF260, "")
	SI (i_strlen(pt_BUF260_860026332) < 100)
	ALORS
		#trace("  longueur inf 100 donc copie directe")
		erreur_860026332 =  i_set_art_str(g_iartout4, $TcttTppvwl2::servpoid, pt_BUF260_860026332)
	SINON
		#trace("  longueur sup 80 donc couper")
		i_get_sub_str(pt_BUF260_860026332,0,99,pt_BUF260_860026332)
		erreur_860026332 =  i_set_art_str(g_iartout4, $TcttTppvwl2::servpoid, pt_BUF260_860026332)
	FINSI

	# champ serial par fichier de duplication
	# champ starttime par fichier de duplication
	# champ starttimetz par fichier de duplication
	# champ starttimedst par fichier de duplication
	# champ ppvlogin par fichier de duplication
	# champ transactionid par fichier de duplication

	# champ amountvalue signe
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::amountvalue, pt_BUF20_860026332)
	i_get_sub_str(pt_BUF20_860026332,0,0,pt_BUF40_860026332)

	SI(i_strcmp(pt_BUF40_860026332,"-")==0)
	ALORS
		#trace2("amountvalue est negatif <%s>", pt_BUF20,"")
		i_get_sub_str(pt_BUF20_860026332,1,-1,pt_BUF60_860026332)
		#trace2("amountvalue sans signe          <%s>", pt_BUF60,"")
		erreur_860026332 = i_format_str2(pt_BUF40_860026332 ,"%s%s","000000000000",pt_BUF60_860026332)
		#trace2("amountvalue sans signe bourre   <%s>", pt_BUF40,"")
		i_get_sub_str(pt_BUF40_860026332,-10,-1,pt_BUF60_860026332)
		#trace2("amountvalue sans signe bourre10 <%s>", pt_BUF60,"")
		erreur_860026332 = i_format_str2(pt_BUF20_860026332 ,"%s%s","-",pt_BUF60_860026332)
		#trace2("amountvalue avec signe <%s>", pt_BUF20,"")
	FINSI
	erreur_860026332 = i_set_art_str(g_iartout4, $TcttTppvwl2::amountvalue, pt_BUF20_860026332)

	# champ amountunit par fichier de duplication
	# champ provider par fichier de duplication
	# champ website par fichier de duplication
	# champ  par fichier de duplication
	# champ  par fichier de duplication


	#desc1 et desc2 peuvent etre vides
	SI (i_valid_field_n(g_iartin, $Tppvwl2::dsc1))
	ALORS
		erreur_860026332 = i_get_art_str(g_iartin,  $Tppvwl2::dsc1,     pt_BUF260_860026332)
		erreur_860026332 = i_set_art_str(g_iartout4,$TcttTppvwl2::dsc1, pt_BUF260_860026332)
	FINSI

	SI (i_valid_field_n(g_iartin, $Tppvwl2::dsc2))
	ALORS
		erreur_860026332 = i_get_art_str(g_iartin,  $Tppvwl2::dsc2,    pt_BUF260_860026332)
		erreur_860026332 = i_set_art_str(g_iartout4,$TcttTppvwl2::dsc2,pt_BUF260_860026332)
	FINSI

	# champ unitpricevalue signe
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::unitpricevalue, pt_BUF20_860026332)
	i_get_sub_str(pt_BUF20_860026332,0,0,pt_BUF40_860026332)

	SI(i_strcmp(pt_BUF40_860026332,"-")==0)
	ALORS
		#trace2("unitpricevalue est negatif <%s>", pt_BUF20,"")
		i_get_sub_str(pt_BUF20_860026332,1,-1,pt_BUF60_860026332)
		#trace2("unitpricevalue sans signe          <%s>", pt_BUF60,"")
		erreur_860026332 = i_format_str2(pt_BUF40_860026332 ,"%s%s","000000000000",pt_BUF60_860026332)
		#trace2("unitpricevalue sans signe bourre   <%s>", pt_BUF40,"")
		i_get_sub_str(pt_BUF40_860026332,-10,-1,pt_BUF60_860026332)
		#trace2("unitpricevalue sans signe bourre10 <%s>", pt_BUF60,"")
		erreur_860026332 = i_format_str2(pt_BUF20_860026332 ,"%s%s","-",pt_BUF60_860026332)
		#trace2("unitpricevalue avec signe <%s>", pt_BUF20,"")
	FINSI
	erreur_860026332 = i_set_art_str(g_iartout4, $TcttTppvwl2::unitpricevalue, pt_BUF20_860026332)
FINSI

#---------------------------------------------------------------------------
# Mises au format ECC CTT2  g_iartout3
#---------------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instCTT2_860026332) )
ALORS
	#trace("Duplication vers CTT1")
	SI ( i_dup_art_dest(g_iartin,g_iartout3,C_TCttppvwl2_860026332) )
	ALORS
		trace("Erreur de i_dup_art")
		code_errone_860026332 = 0xA0D0
		code_errone_860026332 = code_errone_860026332 + b_EFFICACE_860026332
		erreur_860026332 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026332,C_TCttppvwl2_860026332,C_Article_860026332)
		SAUT  DISTRI_ERR
	FINSI

	#account_poids 80 octest de gauche de l entre
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::accpoid, pt_BUF260_860026332)
	#trace2(" accpoid en entree <%s> ", pt_BUF260, "")
	SI (i_strlen(pt_BUF260_860026332) < 80)
	ALORS
		#trace("  longueur inf 80 donc copie directe")
		erreur_860026332 = i_set_art_str(g_iartout3, $TcttTppvwl2::accpoid, pt_BUF260_860026332)
	SINON
		#trace("  longueur sup 80 donc couper")
		i_get_sub_str(pt_BUF260_860026332,0,79,pt_BUF260_860026332)
		erreur_860026332 = i_set_art_str(g_iartout3, $TcttTppvwl2::accpoid, pt_BUF260_860026332)
	FINSI

	#service_poids 100 octest de gauche de l entre
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::servpoid, pt_BUF260_860026332)
	#trace2(" servpoid en entree <%s> ", pt_BUF260, "")
	SI (i_strlen(pt_BUF260_860026332) < 100)
	ALORS
		#trace("  longueur inf 100 donc copie directe")
		erreur_860026332 = i_set_art_str(g_iartout3, $TcttTppvwl2::servpoid, pt_BUF260_860026332)
	SINON
		#trace("  longueur sup 80 donc couper")
		i_get_sub_str(pt_BUF260_860026332,0,99,pt_BUF260_860026332)
		erreur_860026332 = i_set_art_str(g_iartout3, $TcttTppvwl2::servpoid, pt_BUF260_860026332)
	FINSI

	# champ serial par fichier de duplication
	# champ starttime par fichier de duplication
	# champ starttimetz par fichier de duplication
	# champ starttimedst par fichier de duplication
	# champ ppvlogin par fichier de duplication
	# champ transactionid par fichier de duplication

	# champ amountvalue signe
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::amountvalue, pt_BUF20_860026332)
	i_get_sub_str(pt_BUF20_860026332,0,0,pt_BUF40_860026332)

	SI(i_strcmp(pt_BUF40_860026332,"-")==0)
	ALORS
		#trace2("amountvalue est negatif <%s>", pt_BUF20,"")
		i_get_sub_str(pt_BUF20_860026332,1,-1,pt_BUF60_860026332)
		#trace2("amountvalue sans signe          <%s>", pt_BUF60,"")
		erreur_860026332 = i_format_str2(pt_BUF40_860026332 ,"%s%s","000000000000",pt_BUF60_860026332)
		#trace2("amountvalue sans signe bourre   <%s>", pt_BUF40,"")
		i_get_sub_str(pt_BUF40_860026332,-10,-1,pt_BUF60_860026332)
		#trace2("amountvalue sans signe bourre10 <%s>", pt_BUF60,"")
		erreur_860026332 = i_format_str2(pt_BUF20_860026332 ,"%s%s","-",pt_BUF60_860026332)
		#trace2("amountvalue avec signe <%s>", pt_BUF20,"")
	FINSI
	erreur_860026332 = i_set_art_str(g_iartout3, $TcttTppvwl2::amountvalue, pt_BUF20_860026332)

	# champ amountunit par fichier de duplication
	# champ provider par fichier de duplication
	# champ website par fichier de duplication
	# champ  par fichier de duplication
	# champ  par fichier de duplication

	#desc1 et desc2 peuvent etre vides
	SI (i_valid_field_n(g_iartin, $Tppvwl2::dsc1))
	ALORS
		erreur_860026332 = i_get_art_str(g_iartin,  $Tppvwl2::dsc1,     pt_BUF260_860026332)
		erreur_860026332 = i_set_art_str(g_iartout3,$TcttTppvwl2::dsc1, pt_BUF260_860026332)
	FINSI

	SI (i_valid_field_n(g_iartin, $Tppvwl2::dsc2))
	ALORS
		erreur_860026332 = i_get_art_str(g_iartin,  $Tppvwl2::dsc2,    pt_BUF260_860026332)
		erreur_860026332 = i_set_art_str(g_iartout3,$TcttTppvwl2::dsc2,pt_BUF260_860026332)
	FINSI

	# champ unitpricevalue signe FO1558
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::unitpricevalue, pt_BUF20_860026332)
	i_get_sub_str(pt_BUF20_860026332,0,0,pt_BUF40_860026332)

	SI(i_strcmp(pt_BUF40_860026332,"-")==0)
	ALORS
		#trace2("unitpricevalue est negatif <%s>", pt_BUF20,"")
		i_get_sub_str(pt_BUF20_860026332,1,-1,pt_BUF60_860026332)
		#trace2("unitpricevalue sans signe          <%s>", pt_BUF60,"")
		erreur_860026332 = i_format_str2(pt_BUF40_860026332 ,"%s%s","000000000000",pt_BUF60_860026332)
		#trace2("unitpricevalue sans signe bourre   <%s>", pt_BUF40,"")
		i_get_sub_str(pt_BUF40_860026332,-10,-1,pt_BUF60_860026332)
		#trace2("unitpricevalue sans signe bourre10 <%s>", pt_BUF60,"")
		erreur_860026332 = i_format_str2(pt_BUF20_860026332 ,"%s%s","-",pt_BUF60_860026332)
		#trace2("unitpricevalue avec signe <%s>", pt_BUF20,"")
	FINSI
	erreur_860026332 = i_set_art_str(g_iartout3, $TcttTppvwl2::unitpricevalue, pt_BUF20_860026332)
FINSI

#---------------------------------------------------------------------------
# Mises au format ECC FEMS PPV (TfemsPPVlw2, g_iartout2)
#---------------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instFEMS_860026332) )
ALORS
	#trace("Duplication vers FEMSppv")
	SI ( i_dup_art_dest(g_iartin,g_iartout2,C_TfemsPPVwl2_860026332) )
	ALORS
		trace("Erreur de i_dup_art")
		code_errone_860026332 = 0xA0D0
		code_errone_860026332 = code_errone_860026332 + b_EFFICACE_860026332
		erreur_860026332 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026332,C_TfemsPPVwl2_860026332,C_Article_860026332)
		SAUT  DISTRI_ERR
	FINSI

	# Type (T)
	#5:32810:$T 			# 0x802E-->T

	#account_poid (AccountPoid)
	erreur_860026332 =  i_set_art_str(g_iartout2, $TfemsPPVwl2::AccountPoid, pt_IDUS_N_860026332)

	#service_poid (ServicePoid)= 100 octets de gauche de l entree sevpoid
	i_strcpy(pt_BUF260_860026332,"")
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::servpoid, pt_BUF260_860026332)
	SI (i_strlen(pt_BUF260_860026332) > 100)
	ALORS
		i_get_sub_str(pt_BUF260_860026332,0,99,pt_BUF260_860026332)
	FINSI
	erreur_860026332 = i_set_art_str(g_iartout2, $TfemsPPVwl2::ServicePoid, pt_BUF260_860026332)

	#serial (serial)
	#1:$serial:$serial		# serial-->serial

	#start_time (DATE)
	#1:$starttimeS:$DATE		# starttimeS-->DATE

	#start_time_tz (StartTimeTz)
	#1:$starttimetz:$StartTimeTz	# starttimetz-->StartTimeTz

	#starttimedst (StartTimeDst)
	#1:$starttimedst:$StartTimeDst	# starttimedst-->StartTimeDst

	#ppplogin (pppLogin)
	#1:$ppplogin:$pppLogin		# ppplogin-->pppLogin

	#transactionid
	#1:$transactionid:$TransactionId	# transactionid-->TransactionId

	#amountvalue signe (AmountValue)
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::amountvalue, pt_BUF20_860026332)
	i_get_sub_str(pt_BUF20_860026332,0,0,pt_BUF40_860026332)
	SI(i_strcmp(pt_BUF40_860026332,"-")==0)
	ALORS
		i_get_sub_str(pt_BUF20_860026332,1,-1,pt_BUF60_860026332)
		erreur_860026332 = i_format_str2(pt_BUF40_860026332 ,"%s%s","000000000000",pt_BUF60_860026332)
		i_get_sub_str(pt_BUF40_860026332,-10,-1,pt_BUF60_860026332)
		erreur_860026332 = i_format_str2(pt_BUF20_860026332 ,"%s%s","-",pt_BUF60_860026332)
	FINSI
	erreur_860026332 = i_set_art_str(g_iartout2, $TfemsPPVwl2::AmountValue, pt_BUF20_860026332)

	#1:$amountunit:$AmountUnit	# amountunit-->AmountUnit
	#1:$provider:$provider		# provider-->provider
	#1:$website:$website		# website-->website

	#desc1 et desc2 peuvent etre vides
	SI (i_valid_field_n(g_iartin, $Tppvwl2::dsc1))
	ALORS
		erreur_860026332 = i_get_art_str(g_iartin,  $Tppvwl2::dsc1,     pt_BUF260_860026332)
		erreur_860026332 = i_set_art_str(g_iartout2,$TfemsPPVwl2::desc1, pt_BUF260_860026332)
	FINSI
	SI (i_valid_field_n(g_iartin, $Tppvwl2::dsc2))
	ALORS
		erreur_860026332 = i_get_art_str(g_iartin,  $Tppvwl2::dsc2,    pt_BUF260_860026332)
		erreur_860026332 = i_set_art_str(g_iartout2,$TfemsPPVwl2::desc2,pt_BUF260_860026332)
	FINSI

	# unitpricevalue signe (UnitaryPriceVal)
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::unitpricevalue, pt_BUF20_860026332)
	i_get_sub_str(pt_BUF20_860026332,0,0,pt_BUF40_860026332)
	SI(i_strcmp(pt_BUF40_860026332,"-")==0)
	ALORS
		i_get_sub_str(pt_BUF20_860026332,1,-1,pt_BUF60_860026332)
		erreur_860026332 = i_format_str2(pt_BUF40_860026332 ,"%s%s","000000000000",pt_BUF60_860026332)
		i_get_sub_str(pt_BUF40_860026332,-10,-1,pt_BUF60_860026332)
		erreur_860026332 = i_format_str2(pt_BUF20_860026332 ,"%s%s","-",pt_BUF60_860026332)
	FINSI
	erreur_860026332 = i_set_art_str(g_iartout2, $TfemsPPVwl2::UnitaryPriceVal, pt_BUF20_860026332)
FINSI

#---------------------------------------------------------------------------
# Mises au format ECC NOVAH (TnovahPPVwl2, g_iartout7)
#---------------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instNOVAH_860026332) )
ALORS
#	#trace("Duplication vers SIVM")
	SI ( i_dup_art_tab(g_iartin,g_iartout7,C_TnovahPPVwl2_860026332) )
	ALORS
		trace("Erreur de i_dup_art")
		code_errone_860026332 = 0xA0D0
		code_errone_860026332 = code_errone_860026332 + b_EFFICACE_860026332
		erreur_860026332 = i_PlvMessEmettre(8602,2,g_iartin,"",3,code_errone_860026332,C_TnovahPPVwl2_860026332,C_Article_860026332)
		SAUT  DISTRI_ERR
	FINSI

	# Type (type); fait par l'enveloppe c_type ???
	# NOVAH T3 TYPE en ascii
	erreur_860026332 = i_set_art_str(g_iartout7,$TnovahPPVwl2::type,"2B")

	# num_compte (numCompte)
	i_strcpy(pt_BUF260_860026332,"")
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::accpoid, pt_BUF260_860026332)
	SI (i_strlen(pt_BUF260_860026332) > 9)
	ALORS
		i_get_sub_str(pt_BUF260_860026332,0,8,pt_BUF260_860026332)
	FINSI
	erreur_860026332 = i_set_art_str(g_iartout7,$TnovahPPVwl2::numCompte, pt_BUF260_860026332)

	#service_epid (serviceEpid)= 100 octets de gauche de l entree sevpoid
	i_strcpy(pt_BUF260_860026332,"")
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::servpoid, pt_BUF260_860026332)
	SI (i_strlen(pt_BUF260_860026332) > 100)
	ALORS
		i_get_sub_str(pt_BUF260_860026332,0,99,pt_BUF260_860026332)
	FINSI
	res_860026332 = i_strlen(pt_BUF260_860026332)
	erreur_860026332 = i_resize_tlv(g_iartout7,"T3serviceEpid", "serviceEpid", res_860026332)
	erreur_860026332 = i_set_art_str(g_iartout7, $TnovahPPVwl2::serviceEpid, pt_BUF260_860026332)

	#serial
	#serial		:-	:-	:1VAL	:	serial

	#T3starttimeS
	#starttimeS	:-	:-	:1VAL	:	starttimeS

	#T3starttimetz
	#starttimetz	:-	:-	:1VAL	:	starttimetz

	#T3starttimedst
	#starttimedst	:-	:-	:1VAL	:	starttimedst

	#T3ppvlogin
	#ppvlogin	:-	:-	:1VAL	:	ppplogin

	#T3transactionId
	#transactionId	:-	:-	:1VAL	:	sestimevalue

	#T3amountval
	#amountval	:-	:-	:MSET	:	20
	#amountvalue signe (amountval)
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::amountvalue, pt_BUF20_860026332)
	i_get_sub_str(pt_BUF20_860026332,0,0,pt_BUF40_860026332)

	SI(i_strcmp(pt_BUF40_860026332,"-")==0)
	ALORS
		i_get_sub_str(pt_BUF20_860026332,1,-1,pt_BUF60_860026332)
		erreur_860026332 = i_format_str2(pt_BUF40_860026332 ,"%s%s","000000000000",pt_BUF60_860026332)
		i_get_sub_str(pt_BUF40_860026332,-10,-1,pt_BUF60_860026332)
		erreur_860026332 = i_format_str2(pt_BUF20_860026332 ,"%s%s","-",pt_BUF60_860026332)
	FINSI
	erreur_860026332 = i_set_art_str(g_iartout7, $TnovahPPVwl2::amountval, pt_BUF20_860026332)

	#T3amountunit
	#amountunit	:-	:-	:1VAL	:	amountunit

	#T3provider
	#provider	:-	:-	:1VAL	:	provider

	#T3website
	#website 	:-	:-	:1VAL	:	website

	#T3desc1
	#desc1		:-	:-	:1VAL	:	dsc1
	#T3desc2
	#desc2		:-	:-	:1VAL	:	dsc2
	#desc1 et desc2 peuvent etre vides

	#T3unitpriceval
	#unitpriceval	:-	:-	:MSET	:	20
	# unitpricevalue signe (unitpriceval)
	erreur_860026332 = i_get_art_str(g_iartin, $Tppvwl2::unitpricevalue, pt_BUF20_860026332)
	i_get_sub_str(pt_BUF20_860026332,0,0,pt_BUF40_860026332)

	SI(i_strcmp(pt_BUF40_860026332,"-")==0)
	ALORS
		i_get_sub_str(pt_BUF20_860026332,1,-1,pt_BUF60_860026332)
		erreur_860026332 = i_format_str2(pt_BUF40_860026332 ,"%s%s","000000000000",pt_BUF60_860026332)
		i_get_sub_str(pt_BUF40_860026332,-10,-1,pt_BUF60_860026332)
		erreur_860026332 = i_format_str2(pt_BUF20_860026332 ,"%s%s","-",pt_BUF60_860026332)
	FINSI
	erreur_860026332 = i_set_art_str(g_iartout7, $TnovahPPVwl2::unitpriceval, pt_BUF20_860026332)

	#Les 3 champs ace pour metachamps sans passer par enveloppe
	res_860026332 = i_get_attr_val_n($E_WL2::fin)
	erreur_860026332= i_set_art_field(g_iartout7, $TnovahPPVwl2::dloabs,res_860026332)
	erreur_860026332= i_set_art_field(g_iartout7, $TnovahPPVwl2::DUREE,0)
	res_860026332 = i_get_attr_val_n($E_WL2::pivot)
	erreur_860026332= i_set_art_field(g_iartout7, $TnovahPPVwl2::DATE,res_860026332)
FINSI

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

#---------------------------------------------------------------------------
# FEMSppv (TfemsPPVwl2, g_iartout2)
#---------------------------------------------------------------------------

SI (!i_ChercherCouranteECC(instFEMS_860026332) )
ALORS
	trace(">>>__LINE__>>> emission vers FEMSppv")
	#FO2326 res = i_stocke_art_iecc( g_iartout2, instFEMSppv )
	res_860026332 = i_stocke_art_iecc( g_iartout2, instFEMS_860026332 )
FINSI

#---------------------------------------------------------------------------
# NOVAH (Tnovah, g_iartout7)
#---------------------------------------------------------------------------

SI (!i_ChercherCouranteECC(instNOVAH_860026332) )
ALORS
	trace(">>>__LINE__>>> emission vers NOVAH")
	res_860026332 = i_stocke_art_iecc( g_iartout7, instNOVAH_860026332 )
FINSI

#---------------------------------------------------------------------------
# SYMPHONIE ENVOIE
#---------------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instSYMPH_860026332) )
ALORS
	erreur_860026332 = i_stocke_art_iecc(g_iartout6,instSYMPH_860026332)
	trace("Emission PPV vers SYMPHONIE")
FINSI

#---------------------------------------------------------------------------
##G4R3  SIVM ENVOIE
#---------------------------------------------------------------------------

#SI ( !i_ChercherCouranteECC(instSIVM) )
#ALORS
#	erreur = i_stocke_art_iecc(g_iartout5,instSIVM)
#	trace("Emission PPV vers SIVM")
#FINSI

#---------------------------------------------------------------------------
# CTT1 ENVOIE
#---------------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instCTT1_860026332) )
ALORS
	erreur_860026332 = i_stocke_art_iecc(g_iartout4,instCTT1_860026332)
	trace("Emission PPV vers CTT1")
FINSI

#---------------------------------------------------------------------------
# CTT2 ENVOIE
#---------------------------------------------------------------------------

SI ( !i_ChercherCouranteECC(instCTT2_860026332) )
ALORS
	erreur_860026332 = i_stocke_art_iecc(g_iartout3,instCTT2_860026332)
	trace("Emission PPV vers CTT2")
FINSI

SAUT DISTRI_FIN

SAUT DISTRI_FIN

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

POINT DISTRI_ERR

trace("Stockage de l'article en ERRONE")
erreur_860026332 = i_make_art_rej(g_iartin, g_iartout, code_errone_860026332)
erreur_860026332 = i_stocke_art(g_iartout,0,PT_ERRONE,0)

SAUT DISTRI_FIN

POINT DISTRI_FIN

RETOUR TRAIT_OK

#------------------------------ Tppvwl2B_dis.src ----------------------------
