Comparaison de pages

	module "yfacturX.dhop"
	
	1  retour	S
	
	1	car	1

	public function int LectureErreur
	1	txterreur S
	1	err x = 0
	beginf
	
		do
			txterreur = FacturXGetErreur
		while txterreur <> " " 
			display left(txterreur)
			err = 1
		wend
		freturn err
	endf
	
	public procedure TestFacturXWrite(fic,modele),
	1  fic		256
	1  modele   32
	
	1  dictionary L = 0
	1  dictionarylisteitem L = 0
	1  dictionarylisteitem2 L = 0
	1  dictionaryitem L = 0
	beginp

		;derniere date 20240224

	retour = FacturXWriteBegin()		 ;creation d'un xml interne
	if retour <> " " | display "erreur " & retour |	endif
	
	;entete et les props de base attention au majuscules/minuscule  Invoice  
	;et pas invoice voir le fichier FacturxListeDesConstantesInvoiceType.txt
	dictionary = DictionaryCreate()		
	
	DictionaryAdd(dictionary,"BusinessProcess","BusinessProcess")	;A1 A2 etc BT-28
		
	
	DictionaryAdd(dictionary,"Version","Version21")			;prop obligatoire en premier ca me sert a creer l'objet xml
	DictionaryAdd(dictionary,"InvoiceNo","InvoiceNo")		;prop obligatoire en premier ca me sert a creer l'objet xml
	DictionaryAdd(dictionary,"InvoiceName","InvoiceNamename")	;prop obligatoire en premier ca me sert a creer l'objet xml
	DictionaryAdd(dictionary,"InvoiceDate","20240101")			;prop obligatoire en premier ca me sert a creer l'objet xml
	DictionaryAdd(dictionary,"Currency","EUR")					;prop obligatoire en premier ca me sert a creer l'objet xml  
	
	DictionaryAdd(dictionary,"IsTest","true")			;prop obligatoire en premier ca me sert a creer l'objet xml
	DictionaryAdd(dictionary,"Profile",left(modele))	;prop obligatoire en premier ca me sert a creer l'objet xml			  	
	DictionaryAdd(dictionary,"Type","380")				; ***  prop obligatoire en premier ca me sert a creer l'objet xml
	
	DictionaryAdd(dictionary,"InvoiceIssuerReference","InvoiceIssuerReference") ; ***  prop obligatoire en premier ca me sert a creer l'objet xml
	
	DictionaryAdd(dictionary,"ApplicableTradeDeliveryTerms.DeliveryTypeCode","EXW")
	
	DictionaryAdd(dictionary,"SpecifiedLogisticsTransportMovement.ModeCode","4")
	DictionaryAdd(dictionary,"TaxCurrencyCode","EUR")
	
	DictionaryAdd(dictionary,"EffectiveSpecifiedPeriod","20240102") 
	DictionaryAdd(dictionary,"PartialPaymentAmount","20240103") 
	DictionaryAdd(dictionary,"CopyIndicator","true") 
	
	DictionaryAdd(dictionary,"LanguageID","fr_FR") 
	DictionaryAdd(dictionary,"PaymentReference","1")
	
	DictionaryAdd(dictionary,"Buyer.OrderReferenceDocument.OrderNo","Buyer.OrderReferenceDocument.OrderNo")
	DictionaryAdd(dictionary,"Buyer.OrderReferenceDocument.OrderDate","20240104")
	DictionaryAdd(dictionary,"ActualDeliveryDate","20240105")
	DictionaryAdd(dictionary,"ReferenceOrderNo","ReferenceOrderNo")
	
   DictionaryAdd(dictionary,"DuePayableAmount","20240106")		;obligatoire ***
		
	;BillingPeriod
	DictionaryAdd(dictionary,"BillingPeriodStart","20240107")
	DictionaryAdd(dictionary,"BillingPeriodEnd","20240108")
	DictionaryAdd(dictionary,"BillingPeriodDescription","BillingPeriodDescription")			
			
	;TaxApplicableTradeCurrencyExchange
	DictionaryAdd(dictionary,"TaxApplicableTradeCurrencyExchange.SourceCurrencyCode","EUR")
	DictionaryAdd(dictionary,"TaxApplicableTradeCurrencyExchange.TargetCurrencyCode","EUR")
	DictionaryAdd(dictionary,"TaxApplicableTradeCurrencyExchange.ConversionRate","100")
	DictionaryAdd(dictionary,"TaxApplicableTradeCurrencyExchange.ConversionRateDateTime","20240109")
	
	;ApplicableTradePaymentDiscountTerms
	DictionaryAdd(dictionary,"ApplicableTradePaymentDiscountTerms.CalculationPercent","101")
	DictionaryAdd(dictionary,"ApplicableTradePaymentDiscountTerms.BasisDateTime","20240110")
	DictionaryAdd(dictionary,"ApplicableTradePaymentDiscountTerms.BasisPeriodMeasure","DAY")
	DictionaryAdd(dictionary,"ApplicableTradePaymentDiscountTerms.BasisAmount","102")
	DictionaryAdd(dictionary,"ApplicableTradePaymentDiscountTerms.ActualDiscountAmount","103")
	DictionaryAdd(dictionary,"ApplicableTradePaymentDiscountTerms.BasisPeriodMeasureUnitCode","C62")  ;C62 par défaut

	;ApplicableTradePaymentPenaltyTerms
	DictionaryAdd(dictionary,"ApplicableTradePaymentPenaltyTerms.CalculationPercent","104")
	DictionaryAdd(dictionary,"ApplicableTradePaymentPenaltyTerms.BasisDateTime","20240111")
	DictionaryAdd(dictionary,"ApplicableTradePaymentPenaltyTerms.BasisPeriodMeasure","DAY")
	DictionaryAdd(dictionary,"ApplicableTradePaymentPenaltyTerms.BasisAmount","105")
	DictionaryAdd(dictionary,"ApplicableTradePaymentPenaltyTerms.ActualPenaltyAmount","106")
	DictionaryAdd(dictionary,"ApplicableTradePaymentPenaltyTerms.BasisPeriodMeasureUnitCode","DAY") ;C62 par défaut
	
	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
			
	;Invoicee
	DictionaryAdd(dictionary,"Invoicee.Party.GlobalID.ID","Invoicee.Party.GlobalID.ID")
	DictionaryAdd(dictionary,"Invoicee.Party.GlobalID.SchemeID","0002")
	DictionaryAdd(dictionary,"Invoicee.Party.Id", "Invoicee.Party.Id")
	DictionaryAdd(dictionary,"Invoicee.Party.Name","Invoicee.Party.Name")
	
	DictionaryAdd(dictionary,"Invoicee.SpecifiedLegalOrganization.ID"	,"Invoicee.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"Invoicee.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"Invoicee.SpecifiedLegalOrganization.TradingBusinessName","Invoicee.SpecifiedLegalOrganization.TradingBusinessName")

	DictionaryAdd(dictionary,"Invoicee.SpecifiedLegalOrganization.Postcode"	,"Invoicee.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"Invoicee.SpecifiedLegalOrganization.ContactName",	"Invoicee.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"Invoicee.SpecifiedLegalOrganization.Street"		,"Invoicee.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"Invoicee.SpecifiedLegalOrganization.AddressLine3",	"Invoicee.SpecifiedLegalOrganization.AddressLine3")
	DictionaryAdd(dictionary,"Invoicee.SpecifiedLegalOrganization.City"		,"Invoicee.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"Invoicee.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"Invoicee.SpecifiedLegalOrganization.CountrySubdivisionName","Invoicee.SpecifiedLegalOrganization.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"Invoicee.Contact.Name", 		 	"Invoicee.Contact.Name")
	DictionaryAdd(dictionary,"Invoicee.Contact.DepartmentName","Invoicee.Contact.DepartmentName")
	DictionaryAdd(dictionary,"Invoicee.Contact.TypeCode",		"Invoicee.Contact.TypeCode")		
	DictionaryAdd(dictionary,"Invoicee.Contact.PhonNo", 		"Invoicee.PhonNo")
	DictionaryAdd(dictionary,"Invoicee.Contact.FaxNo", 		"Invoicee.Contact.FaxNo")
	DictionaryAdd(dictionary,"Invoicee.Contact.Emailaddress",	"Invoicee.Contact.Emailaddress")
	
	DictionaryAdd(dictionary,"Invoicee.Party.Postcode","Invoicee.Party.Postcode")
	DictionaryAdd(dictionary,"Invoicee.Party.ContactName","Invoicee.Party.ContactName")
	DictionaryAdd(dictionary,"Invoicee.Party.Street", "Invoicee.Party.Street")
	DictionaryAdd(dictionary,"Invoicee.Party.AddressLine3","Invoicee.Party.AddressLine3")
	DictionaryAdd(dictionary,"Invoicee.Party.City", "Invoicee.Party.City")
	DictionaryAdd(dictionary,"Invoicee.Party.Country", "FR")   ;;***
	DictionaryAdd(dictionary,"Invoicee.Party.CountrySubdivisionName","Invoicee.Party.CountrySubdivisionName")

	DictionaryAdd(dictionary,"Invoicee.Party.URIID.ID",	"Invoicee.Party.URIID.ID")
	DictionaryAdd(dictionary,"Invoicee.Party.URIID.SchemeID","Invoicee.Party.URIID.SchemeID")
	
	;$Invoicee.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Invoicee.Party.GlobalIDs",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Invoicee.Party.GlobalIDs.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Invoicee.Party.GlobalIDs.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Invoicee.Party.GlobalIDs.GlobalID_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")

	;$Invoicee.TaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Invoicee.TaxRegistrations",tostring(dictionarylisteitem))

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
	DictionaryAdd(dictionaryitem ,"No", "$Invoicee.TaxRegistrations.No_idx1")
	DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
	DictionaryAdd(dictionaryitem ,"No", "$Invoicee.TaxRegistrations.No_idx2")
	DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
	DictionaryAdd(dictionaryitem ,"No", "$Invoicee.TaxRegistrations.No_idx3")
	DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		

	;ShipTo
	DictionaryAdd(dictionary,"ShipTo.Party.GlobalID.ID", "ShipTo.Party.GlobalID.ID")
	DictionaryAdd(dictionary,"ShipTo.Party.GlobalID.SchemeID", "0088")
	DictionaryAdd(dictionary,"ShipTo.Party.Id","ShipTo.Party.Id")
	DictionaryAdd(dictionary,"ShipTo.Party.Name","ShipTo.Party.Name")
	
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.ID"		,"ShipTo.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.TradingBusinessName","ShipTo.SpecifiedLegalOrganization.TradingBusinessName")

	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.Postcode"	,"ShipTo.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.ContactName",	"ShipTo.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.Street"	,"ShipTo.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.AddressLine3","ShipTo.SpecifiedLegalOrganization.AddressLine3")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.City"		,"ShipTo.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.CountrySubdivisionName","ShipTo.SpecifiedLegalOrganization.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"ShipTo.Contact.Name", 			"ShipTo.Contact.Name")
	DictionaryAdd(dictionary,"ShipTo.Contact.DepartmentName","ShipTo.Contact.DepartmentName")
	DictionaryAdd(dictionary,"ShipTo.Contact.TypeCode",		"ShipTo.Contact.TypeCode")
	DictionaryAdd(dictionary,"ShipTo.Contact.PhonNo", 			"ShipTo.PhonNo")
	DictionaryAdd(dictionary,"ShipTo.Contact.FaxNo", 			"ShipTo.Contact.FaxNo")
	DictionaryAdd(dictionary,"ShipTo.Contact.Emailaddress",	"ShipTo.Contact.Emailaddress")
	
	DictionaryAdd(dictionary,"ShipTo.Party.Postcode","ShipTo.Party.Postcode")
	DictionaryAdd(dictionary,"ShipTo.Party.ContactName","ShipTo.Party.ContactName")
	DictionaryAdd(dictionary,"ShipTo.Party.Street", "ShipTo.Party.Street")
	DictionaryAdd(dictionary,"ShipTo.Party.AddressLine3","ShipTo.Party.AddressLine3")
	DictionaryAdd(dictionary,"ShipTo.Party.City", "ShipTo.Party.City")
	DictionaryAdd(dictionary,"ShipTo.Party.Country", "FR")
	DictionaryAdd(dictionary,"ShipTo.Party.CountrySubdivisionName","ShipTo.Party.CountrySubdivisionName")

	DictionaryAdd(dictionary,"ShipTo.Party.URIID.ID",	"ShipTo.Party.URIID.ID")
	DictionaryAdd(dictionary,"ShipTo.Party.URIID.SchemeID",	"ShipTo.Party.URIID.SchemeID")
	
	;$ShipTo.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$ShipTo.Party.GlobalIDs",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$ShipTo.Party.GlobalIDs.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$ShipTo.Party.GlobalIDs.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$ShipTo.Party.GlobalIDs.GlobalID_idx3")			
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

	;$ShipTo.TaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$ShipTo.TaxRegistrations",tostring(dictionarylisteitem))
		
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$ShipTo.TaxRegistrations.No_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$ShipTo.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$ShipTo.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		

	;UltimateShipTo
	DictionaryAdd(dictionary,"UltimateShipTo.Party.GlobalID.ID", "UltimateShipTo.Party.GlobalID.ID")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.GlobalID.SchemeID", "0088")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.Id","UltimateShipTo.Party.Id")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.Name","UltimateShipTo.Party.Name")

	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.ID"		,"UltimateShipTo.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.TradingBusinessName"	,"UltimateShipTo.SpecifiedLegalOrganization.TradingBusinessName")

	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.Postcode"		,"UltimateShipTo.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.ContactName", "UltimateShipTo.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.Street"		,"UltimateShipTo.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.AddressLine3","UltimateShipTo.SpecifiedLegalOrganization.AddressLine3")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.City"			,"UltimateShipTo.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.CountrySubdivisionName","UltimateShipTo.SpecifiedLegalOrganization.CountrySubdivisionName")

	DictionaryAdd(dictionary,"UltimateShipTo.Contact.Name", 		     "UltimateShipTo.Contact.Name")
	DictionaryAdd(dictionary,"UltimateShipTo.Contact.DepartmentName","UltimateShipTo.Contact.DepartmentName")
	DictionaryAdd(dictionary,"UltimateShipTo.Contact.TypeCode",   	"UltimateShipTo.Contact.TypeCode")
	DictionaryAdd(dictionary,"UltimateShipTo.Contact.PhonNo", 		"UltimateShipTo.PhonNo")
	DictionaryAdd(dictionary,"UltimateShipTo.Contact.FaxNo", 		"UltimateShipTo.Contact.FaxNo")
	DictionaryAdd(dictionary,"UltimateShipTo.Contact.Emailaddress","UltimateShipTo.Contact.Emailaddress")

	DictionaryAdd(dictionary,"UltimateShipTo.Party.Postcode",   "UltimateShipTo.Party.Postcode")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.ContactName","UltimateShipTo.Party.ContactName")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.Street",     "UltimateShipTo.Party.Street")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.AddressLine3","UltimateShipTo.Party.AddressLine3")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.City",        "UltimateShipTo.Party.City")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.Country", "FR")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.CountrySubdivisionName","UltimateShipTo.Party.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"UltimateShipTo.Party.URIID.ID",		"UltimateShipTo.Party.URIID.ID")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.URIID.SchemeID","UltimateShipTo.Party.URIID.SchemeID")
	
	;$UltimateShipTo.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$UltimateShipTo.Party.GlobalIDs",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$UltimateShipTo.Party.GlobalIDs.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$UltimateShipTo.Party.GlobalIDs.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$UltimateShipTo.Party.GlobalIDs.GlobalID_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

	;$UltimateShipTo.TaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$UltimateShipTo.TaxRegistrations",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$UltimateShipTo.TaxRegistrations.No_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$UltimateShipTo.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$UltimateShipTo.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
	
	;$SpecifiedAdvancePayments
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$SpecifiedAdvancePayments",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"PaidAmount","107")
		DictionaryAdd(dictionaryitem,"FormattedReceivedDateTime","20240112")
	
			;$IncludedTradeTaxs
			dictionarylisteitem2 = DictionaryCreate() 
			DictionaryAdd(dictionaryitem,"$IncludedTradeTaxs",tostring(dictionarylisteitem2))
	
				dictionaryitem = DictionaryCreate()		
				DictionaryAdd(dictionarylisteitem2,tostring(dictionaryitem),tostring(dictionaryitem))	
				DictionaryAdd(dictionaryitem,"CalculatedAmount","108")
				DictionaryAdd(dictionaryitem,"TypeCode","VAT")
				DictionaryAdd(dictionaryitem,"ExemptionReason","$SpecifiedAdvancePayments.$IncludedTradeTaxs.ExemptionReason_idx1_idx1")
				DictionaryAdd(dictionaryitem,"CategoryCode","S")
				DictionaryAdd(dictionaryitem,"ExemptionReasonCode","$SpecifiedAdvancePayments.$IncludedTradeTaxs.ExemptionReasonCode_idx1_idx1")
				DictionaryAdd(dictionaryitem,"RateApplicablePercent","109")

				dictionaryitem = DictionaryCreate()		
				DictionaryAdd(dictionarylisteitem2,tostring(dictionaryitem),tostring(dictionaryitem))	
				DictionaryAdd(dictionaryitem,"CalculatedAmount","110")
				DictionaryAdd(dictionaryitem,"TypeCode","VAT")
				DictionaryAdd(dictionaryitem,"ExemptionReason","$SpecifiedAdvancePayments.$IncludedTradeTaxs.ExemptionReason_idx1_idx2")
				DictionaryAdd(dictionaryitem,"CategoryCode","S")
				DictionaryAdd(dictionaryitem,"ExemptionReasonCode","$SpecifiedAdvancePayments.$IncludedTradeTaxs.ExemptionReasonCode_idx1_idx2")
				DictionaryAdd(dictionaryitem,"RateApplicablePercent","111")
					
				dictionaryitem = DictionaryCreate()		
				DictionaryAdd(dictionarylisteitem2,tostring(dictionaryitem),tostring(dictionaryitem))	
				DictionaryAdd(dictionaryitem,"CalculatedAmount","112")
				DictionaryAdd(dictionaryitem,"TypeCode","VAT")
				DictionaryAdd(dictionaryitem,"ExemptionReason","$SpecifiedAdvancePayments.$IncludedTradeTaxs.ExemptionReason_idx1_idx3")
				DictionaryAdd(dictionaryitem,"CategoryCode","S")
				DictionaryAdd(dictionaryitem,"ExemptionReasonCode","$SpecifiedAdvancePayments.$IncludedTradeTaxs.ExemptionReasonCode_idx1_idx3")
				DictionaryAdd(dictionaryitem,"RateApplicablePercent","113")
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"PaidAmount","114")
		DictionaryAdd(dictionaryitem,"FormattedReceivedDateTime","20240104")
	
			;$IncludedTradeTaxs
			dictionarylisteitem2 = DictionaryCreate() 
			DictionaryAdd(dictionaryitem,"$IncludedTradeTaxs",tostring(dictionarylisteitem2))
	
				dictionaryitem = DictionaryCreate()		
				DictionaryAdd(dictionarylisteitem2,tostring(dictionaryitem),tostring(dictionaryitem))	
				DictionaryAdd(dictionaryitem,"CalculatedAmount","115")
				DictionaryAdd(dictionaryitem,"TypeCode","VAT")
				DictionaryAdd(dictionaryitem,"ExemptionReason",";$SpecifiedAdvancePayments.$IncludedTradeTaxs.ExemptionReason_idx2_idx1")
				DictionaryAdd(dictionaryitem,"CategoryCode","S")
				DictionaryAdd(dictionaryitem,"ExemptionReasonCode",";$SpecifiedAdvancePayments.$IncludedTradeTaxs.ExemptionReasonCode_idx2_idx1")
				DictionaryAdd(dictionaryitem,"RateApplicablePercent","116")

				dictionaryitem = DictionaryCreate()		
				DictionaryAdd(dictionarylisteitem2,tostring(dictionaryitem),tostring(dictionaryitem))	
				DictionaryAdd(dictionaryitem,"CalculatedAmount","117")
				DictionaryAdd(dictionaryitem,"TypeCode","VAT")
				DictionaryAdd(dictionaryitem,"ExemptionReason","$SpecifiedAdvancePayments.$IncludedTradeTaxs.ExemptionReason_idx2_idx2")
				DictionaryAdd(dictionaryitem,"CategoryCode","S")
				DictionaryAdd(dictionaryitem,"ExemptionReasonCode","$SpecifiedAdvancePayments.$IncludedTradeTaxs.ExemptionReasonCode_idx2_idx2")
				DictionaryAdd(dictionaryitem,"RateApplicablePercent","118")
				
				dictionaryitem = DictionaryCreate()		
				DictionaryAdd(dictionarylisteitem2,tostring(dictionaryitem),tostring(dictionaryitem))	
				DictionaryAdd(dictionaryitem,"CalculatedAmount","119")
				DictionaryAdd(dictionaryitem,"TypeCode","VAT")
				DictionaryAdd(dictionaryitem,"ExemptionReason","$SpecifiedAdvancePayments.$IncludedTradeTaxs.ExemptionReason_idx2_idx3")
				DictionaryAdd(dictionaryitem,"CategoryCode","S")
				DictionaryAdd(dictionaryitem,"ExemptionReasonCode","$SpecifiedAdvancePayments.$IncludedTradeTaxs.ExemptionReasonCode_idx2_idx3")
				DictionaryAdd(dictionaryitem,"RateApplicablePercent","120")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
	
	;$UltimateCustomerOrderReferencedDocuments
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$UltimateCustomerOrderReferencedDocuments",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"ID","$UltimateCustomerOrderReferencedDocuments.UltimateCustomerOrderReferencedDocument.ID_idx1")
		DictionaryAdd(dictionaryitem,"IssueDateTime","20240114")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"ID","$UltimateCustomerOrderReferencedDocuments.UltimateCustomerOrderReferencedDocument.ID_idx2")
		DictionaryAdd(dictionaryitem,"IssueDateTime","20240105")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"ID","$UltimateCustomerOrderReferencedDocuments.UltimateCustomerOrderReferencedDocument.ID_idx3")
		DictionaryAdd(dictionaryitem,"IssueDateTime","20240116")
	
	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		

	;Payee.
	DictionaryAdd(dictionary,"Payee.Party.GlobalID.ID","Payee.Party.GlobalID.ID")
	DictionaryAdd(dictionary,"Payee.Party.GlobalID.SchemeID","0088")
	DictionaryAdd(dictionary,"Payee.Party.Id", "Payee.Party.Id")
	DictionaryAdd(dictionary,"Payee.Party.Name","Payee.Party.Name")
	DictionaryAdd(dictionary,"Payee.Party.RoleCode","Payee.Party.RoleCode")

	DictionaryAdd(dictionary,"Payee.SpecifiedLegalOrganization.ID","Payee.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"Payee.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"Payee.SpecifiedLegalOrganization.TradingBusinessName","Payee.SpecifiedLegalOrganization.TradingBusinessName")

	DictionaryAdd(dictionary,"Payee.SpecifiedLegalOrganization.Postcode","Payee.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"Payee.SpecifiedLegalOrganization.ContactName","Payee.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"Payee.SpecifiedLegalOrganization.Street","Payee.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"Payee.SpecifiedLegalOrganization.AddressLine3","Payee.SpecifiedLegalOrganization.AddressLine3")
	DictionaryAdd(dictionary,"Payee.SpecifiedLegalOrganization.City","Payee.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"Payee.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"Payee.SpecifiedLegalOrganization.CountrySubdivisionName","Payee.SpecifiedLegalOrganization.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"Payee.Contact.Name", 		    "Payee.Contact.Name")
	DictionaryAdd(dictionary,"Payee.Contact.DepartmentName","Payee.Contact.DepartmentName")
	DictionaryAdd(dictionary,"Payee.Contact.TypeCode",	 	"Payee.Contact.TypeCode")
	DictionaryAdd(dictionary,"Payee.Contact.PhonNo",		"Payee.Contact.PhonNo")
	DictionaryAdd(dictionary,"Payee.Contact.FaxNo", 		"Payee.Contact.FaxNo")
	DictionaryAdd(dictionary,"Payee.Contact.Emailaddress","Payee.Contact.Emailaddress")
	
	DictionaryAdd(dictionary,"Payee.Party.Postcode","Payee.Party.Postcode")
	DictionaryAdd(dictionary,"Payee.Party.ContactName","Payee.Party.ContactName")
	DictionaryAdd(dictionary,"Payee.Party.Street", "Payee.Party.Street")
	DictionaryAdd(dictionary,"Payee.Party.AddressLine3","Payee.Party.AddressLine3")
	DictionaryAdd(dictionary,"Payee.Party.City", "Payee.Party.City")
	DictionaryAdd(dictionary,"Payee.Party.Country", "FR")
	DictionaryAdd(dictionary,"Payee.Party.CountrySubdivisionName","Payee.Party.CountrySubdivisionName")

	DictionaryAdd(dictionary,"Payee.Party.URIID.ID",		"Payee.Party.URIID.ID")
	DictionaryAdd(dictionary,"Payee.Party.URIID.SchemeID",	"Payee.Party.URIID.SchemeID")
	
	;$Payee.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Payee.Party.GlobalIDs",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Payee.Party.GlobalIDs.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Payee.Party.GlobalIDs.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Payee.Party.GlobalIDs.GlobalID_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")	
		
	;$Payee.TaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Payee.TaxRegistrations",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$Payee.TaxRegistrations.No_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$Payee.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$Payee.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		

	;*SpecifiedTradePaymentTerms.Payee
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.GlobalID.ID","SpecifiedTradePaymentTerms.Payee.Party.GlobalID.ID")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.GlobalID.SchemeID","0088")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.Id", "SpecifiedTradePaymentTerms.Payee.Party.Id")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.Name","SpecifiedTradePaymentTerms.Payee.Party.Name")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.RoleCode","SpecifiedTradePaymentTerms.Payee.Party.RoleCode")	
			
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.ID","SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.TradingBusinessName","SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.TradingBusinessName")

	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.Postcode","SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.ContactName","SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.Street","SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.AddressLine3","SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.AddressLine3")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.City", "SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.CountrySubdivisionName","SpecifiedTradePaymentTerms.Payee.SpecifiedLegalOrganization.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Contact.Name", 		"SpecifiedTradePaymentTerms.Payee.Contact.Name")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Contact.DepartmentName","SpecifiedTradePaymentTerms.Payee.Contact.DepartmentName")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Contact.TypeCode",	 	"SpecifiedTradePaymentTerms.Payee.Contact.TypeCode")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Contact.PhonNo",		"SpecifiedTradePaymentTerms.Payee.Contact.PhonNo")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Contact.FaxNo", 		"SpecifiedTradePaymentTerms.Payee.Contact.FaxNo")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Contact.Emailaddress","SpecifiedTradePaymentTerms.Payee.Contact.Emailaddress")
	
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.Postcode","SpecifiedTradePaymentTerms.Payee.Party.Postcode")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.ContactName","SpecifiedTradePaymentTerms.Payee.Party.ContactName")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.Street", "SpecifiedTradePaymentTerms.Payee.Party.Street")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.AddressLine3","SpecifiedTradePaymentTerms.Payee.Party.AddressLine3")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.City", "SpecifiedTradePaymentTerms.Payee.Party.City")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.Country", "FR")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.CountrySubdivisionName","SpecifiedTradePaymentTerms.Payee.Party.CountrySubdivisionName")

	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.URIID.ID",		"SpecifiedTradePaymentTerms.Payee.Party.URIID.ID")
	DictionaryAdd(dictionary,"SpecifiedTradePaymentTerms.Payee.Party.URIID.SchemeID","SpecifiedTradePaymentTerms.Payee.Party.URIID.SchemeID")
	
	;$SpecifiedTradePaymentTerms.Payee.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$SpecifiedTradePaymentTerms.Payee.Party.GlobalIDs",tostring(dictionarylisteitem))

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
	DictionaryAdd(dictionaryitem,"GlobalID.ID","$SpecifiedTradePaymentTerms.Payee.Party.GlobalID_idx1")
	DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
	DictionaryAdd(dictionaryitem,"GlobalID.ID","$SpecifiedTradePaymentTerms.Payee.Party.GlobalIDs.GlobalID_idx2")
	DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
	DictionaryAdd(dictionaryitem,"GlobalID.ID","$SpecifiedTradePaymentTerms.Payee.Party.GlobalIDs.GlobalID_idx3")
	DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

	;$SpecifiedTradePaymentTerms.Payee.TaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$SpecifiedTradePaymentTerms.Payee.TaxRegistrations",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$SpecifiedTradePaymentTerms.Payee.TaxRegistrations.No_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$SpecifiedTradePaymentTerms.Payee.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$SpecifiedTradePaymentTerms.Payee.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
		
	;Payer
	DictionaryAdd(dictionary,"Payer.Party.GlobalID.ID","Payer.Party.GlobalID.ID")
	DictionaryAdd(dictionary,"Payer.Party.GlobalID.SchemeID","0088")
	DictionaryAdd(dictionary,"Payer.Party.Id", "Payer.Party.Id")
	DictionaryAdd(dictionary,"Payer.Party.Name","Payer.Party.Name")
	DictionaryAdd(dictionary,"Payer.Party.RoleCode","Payer.Party.RoleCode")

	DictionaryAdd(dictionary,"Payer.SpecifiedLegalOrganization.ID","Payer.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"Payer.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"Payer.SpecifiedLegalOrganization.TradingBusinessName","Payer.SpecifiedLegalOrganization.TradingBusinessName")

	DictionaryAdd(dictionary,"Payer.SpecifiedLegalOrganization.Postcode","Payer.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"Payer.SpecifiedLegalOrganization.ContactName","Payer.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"Payer.SpecifiedLegalOrganization.Street", "Payer.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"Payer.SpecifiedLegalOrganization.AddressLine3","Payer.SpecifiedLegalOrganization.AddressLine3")
	DictionaryAdd(dictionary,"Payer.SpecifiedLegalOrganization.City", "Payer.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"Payer.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"Payer.SpecifiedLegalOrganization.CountrySubdivisionName","Payer.SpecifiedLegalOrganization.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"Payer.Contact.Name", 		"Payer.Contact.Name")
	DictionaryAdd(dictionary,"Payer.Contact.DepartmentName","Payer.Contact.DepartmentName")
	DictionaryAdd(dictionary,"Payer.Contact.TypeCode", 	"Payer.Contact.TypeCode")
	DictionaryAdd(dictionary,"Payer.Contact.PhonNo", 		"Payer.Contact.PhonNo")
	DictionaryAdd(dictionary,"Payer.Contact.FaxNo", 		"Payer.Contact.FaxNo")
	DictionaryAdd(dictionary,"Payer.Contact.Emailaddress",	"Payer.Contact.Emailaddress")
	
	DictionaryAdd(dictionary,"Payer.Party.Postcode","Payer.Party.Postcode")
	DictionaryAdd(dictionary,"Payer.Party.ContactName","Payer.Party.ContactName")
	DictionaryAdd(dictionary,"Payer.Party.Street", "Payer.Party.Street")
	DictionaryAdd(dictionary,"Payer.Party.AddressLine3","Payer.Party.AddressLine3")
	DictionaryAdd(dictionary,"Payer.Party.City", "Payer.Party.City")
	DictionaryAdd(dictionary,"Payer.Party.Country", "FR")
	DictionaryAdd(dictionary,"Payer.Party.CountrySubdivisionName","Payer.Party.CountrySubdivisionName")

	DictionaryAdd(dictionary,"Payer.Party.URIID.ID",		"Payer.Party.URIID.ID")
	DictionaryAdd(dictionary,"Payer.Party.URIID.SchemeID","Payer.Party.URIID.SchemeID")
	
	;$Payer.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Payer.Party.GlobalIDs",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Payer.Party.GlobalIDs.Payer.Party.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Payer.Party.GlobalIDs.Payer.Party.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Payer.Party.GlobalIDs.Payer.Party.GlobalID_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

	;$PayerTaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Payer.TaxRegistrations",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$Payer.TaxRegistrations.No_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$Payer.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$Payer.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
			
	;Invoicer
	DictionaryAdd(dictionary,"Invoicer.Party.GlobalID.ID","Invoicer.Party.GlobalID.ID")
	DictionaryAdd(dictionary,"Invoicer.Party.GlobalID.SchemeID","0088")
	DictionaryAdd(dictionary,"Invoicer.Party.Id", "Invoicer.Party.Id1")
	DictionaryAdd(dictionary,"Invoicer.Party.Name","Invoicer.Party.Name")
	DictionaryAdd(dictionary,"Invoicer.Party.RoleCode","Invoicer.Party.RoleCode")

	DictionaryAdd(dictionary,"Invoicer.SpecifiedLegalOrganization.ID"		,"Invoicer.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"Invoicer.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"Invoicer.SpecifiedLegalOrganization.TradingBusinessName","Invoicer.SpecifiedLegalOrganization.TradingBusinessName")

	DictionaryAdd(dictionary,"Invoicer.SpecifiedLegalOrganization.Postcode"		,"Invoicer.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"Invoicer.SpecifiedLegalOrganization.ContactName",	"Invoicer.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"Invoicer.SpecifiedLegalOrganization.Street"			,"Invoicer.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"Invoicer.SpecifiedLegalOrganization.AddressLine3",	"Invoicer.SpecifiedLegalOrganization.AddressLine")
	DictionaryAdd(dictionary,"Invoicer.SpecifiedLegalOrganization.City"			,"Invoicer.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"Invoicer.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"Invoicer.SpecifiedLegalOrganization.CountrySubdivisionName","Invoicer.SpecifiedLegalOrganization.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"Invoicer.Contact.Name", 			"Invoicer.Contact.Name")
	DictionaryAdd(dictionary,"Invoicer.Contact.DepartmentName","Invoicer.Contact.DepartmentName")
	DictionaryAdd(dictionary,"Invoicer.Contact.TypeCode",		"Invoicer.Contact.TypeCode")
	DictionaryAdd(dictionary,"Invoicer.Contact.PhonNo", 		"Invoicer.Contact.PhonNo")
	DictionaryAdd(dictionary,"Invoicer.Contact.FaxNo", 		"Invoicer.Contact.FaxNo")
	DictionaryAdd(dictionary,"Invoicer.Contact.Emailaddress",	"Invoicer.Contact.Emailaddress")
	
	DictionaryAdd(dictionary,"Invoicer.Party.Postcode","Invoicer.Party.Postcode")
	DictionaryAdd(dictionary,"Invoicer.Party.ContactName","Invoicer.Party.ContactName")
	DictionaryAdd(dictionary,"Invoicer.Party.Street", "Invoicer.Party.Street")
	DictionaryAdd(dictionary,"Invoicer.Party.AddressLine3","Invoicer.Party.AddressLine3")
	DictionaryAdd(dictionary,"Invoicer.Party.City", "Invoicer.Party.City")
	DictionaryAdd(dictionary,"Invoicer.Party.Country", "FR")
	DictionaryAdd(dictionary,"Invoicer.Party.CountrySubdivisionName","Invoicer.Party.CountrySubdivisionName")

	DictionaryAdd(dictionary,"Invoicer.Party.URIID.ID",		"Invoicer.Party.URIID.ID")
	DictionaryAdd(dictionary,"Invoicer.Party.URIID.SchemeID",	"Invoicer.Party.URIID.SchemeID")

	;$Invoicer.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Invoicer.Party.GlobalIDs",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Invoicer.Party.GlobalIDs.Invoicer.Party.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Invoicer.Party.GlobalIDs.Invoicer.Party.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Invoicer.Party.GlobalIDs.Invoicer.Party.GlobalID_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

	;$Invoicer.TaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Invoicer.TaxRegistrations",tostring(dictionarylisteitem))

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
	DictionaryAdd(dictionaryitem ,"No", "$Invoicer.TaxRegistrations.No_idx1")
	DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$Invoicer.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$Invoicer.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
				
	;SalesAgent
	DictionaryAdd(dictionary,"SalesAgent.Party.GlobalID.ID","SalesAgent.Party.GlobalID.ID")
	DictionaryAdd(dictionary,"SalesAgent.Party.GlobalID.SchemeID","0088")
	DictionaryAdd(dictionary,"SalesAgent.Party.Id", "SalesAgent.Party.Id")
	DictionaryAdd(dictionary,"SalesAgent.Party.Name","SalesAgent.Party.Name")
	DictionaryAdd(dictionary,"SalesAgent.Party.RoleCode","SalesAgent.Party.RoleCode")

	DictionaryAdd(dictionary,"SalesAgent.SpecifiedLegalOrganization.ID"			,"SalesAgent.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"SalesAgent.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"SalesAgent.SpecifiedLegalOrganization.TradingBusinessName","SalesAgent.SpecifiedLegalOrganization.TradingBusinessName")
	DictionaryAdd(dictionary,"SalesAgent.SpecifiedLegalOrganization.Postcode"		,"SalesAgent.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"SalesAgent.SpecifiedLegalOrganization.ContactName",	"SalesAgent.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"SalesAgent.SpecifiedLegalOrganization.Street"		,"SalesAgent.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"SalesAgent.SpecifiedLegalOrganization.AddressLine3","SalesAgent.SpecifiedLegalOrganization.AddressLine3")
	DictionaryAdd(dictionary,"SalesAgent.SpecifiedLegalOrganization.City"			,"SalesAgent.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"SalesAgent.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"SalesAgent.SpecifiedLegalOrganization.CountrySubdivisionName","SalesAgent.SpecifiedLegalOrganization.CountrySubdivisionName")
	
	
	DictionaryAdd(dictionary,"SalesAgent.Contact.Name", 	   	"SalesAgent.Contact.Name")
	DictionaryAdd(dictionary,"SalesAgent.Contact.DepartmentName","SalesAgent.Contact.DepartmentName")
	DictionaryAdd(dictionary,"SalesAgent.Contact.TypeCode",  	"SalesAgent.Contact.TypeCode")			
	DictionaryAdd(dictionary,"SalesAgent.Contact.PhonNo", 		"SalesAgent.Contact.PhonNo")
	DictionaryAdd(dictionary,"SalesAgent.Contact.FaxNo", 		   "SalesAgent.Contact.FaxNo")
	DictionaryAdd(dictionary,"SalesAgent.Contact.Emailaddress", "SalesAgent.Contact.Emailaddress")
	
	DictionaryAdd(dictionary,"SalesAgent.Party.Postcode",     "SalesAgent.Party.Postcode")
	DictionaryAdd(dictionary,"SalesAgent.Party.ContactName",  "SalesAgent.Party.ContactName")
	DictionaryAdd(dictionary,"SalesAgent.Party.Street",       "SalesAgent.Party.Street")
	DictionaryAdd(dictionary,"SalesAgent.Party.AddressLine3", "SalesAgent.Party.AddressLine3")
	DictionaryAdd(dictionary,"SalesAgent.Party.City", "SalesAgent.Party.City")
	DictionaryAdd(dictionary,"SalesAgent.Party.Country", "FR")
	DictionaryAdd(dictionary,"SalesAgent.Party.CountrySubdivisionName","SalesAgent.Party.CountrySubdivisionName")

	DictionaryAdd(dictionary,"SalesAgent.Party.URIID.ID",	   "SalesAgent.Party.URIID.ID")
	DictionaryAdd(dictionary,"SalesAgent.Party.URIID.SchemeID","SalesAgent.Party.URIID.SchemeID")

	;$SalesAgent.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$SalesAgent.Party.GlobalIDs",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$SalesAgent.Party.GlobalIDs.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$SalesAgent.Party.GlobalIDs.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$SalesAgent.Party.GlobalIDs.GlobalID_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		
	
	;$SalesAgent.TaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$SalesAgent.TaxRegistrations",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$SalesAgent.TaxRegistrations.No_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$SalesAgent.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$SalesAgent.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
			
	;BuyerAgent
	DictionaryAdd(dictionary,"BuyerAgent.Party.GlobalID.ID","BuyerAgent.Party.GlobalID.ID")
	DictionaryAdd(dictionary,"BuyerAgent.Party.GlobalID.SchemeID","0088")
	DictionaryAdd(dictionary,"BuyerAgent.Party.Id", "BuyerAgent.Party.Id")
	DictionaryAdd(dictionary,"BuyerAgent.Party.Name","BuyerAgent.Party.Name")
	DictionaryAdd(dictionary,"BuyerAgent.Party.RoleCode","BuyerAgent.Party.RoleCode")

	DictionaryAdd(dictionary,"BuyerAgent.SpecifiedLegalOrganization.ID"			,"BuyerAgent.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"BuyerAgent.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"BuyerAgent.SpecifiedLegalOrganization.TradingBusinessName","BuyerAgent.SpecifiedLegalOrganization.TradingBusinessName")

	DictionaryAdd(dictionary,"BuyerAgent.SpecifiedLegalOrganization.Postcode"		,"BuyerAgent.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"BuyerAgent.SpecifiedLegalOrganization.ContactName",	"BuyerAgent.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"BuyerAgent.SpecifiedLegalOrganization.Street"		,"BuyerAgent.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"BuyerAgent.SpecifiedLegalOrganization.AddressLine3","BuyerAgent.SpecifiedLegalOrganization.AddressLine")
	DictionaryAdd(dictionary,"BuyerAgent.SpecifiedLegalOrganization.City"			,"BuyerAgent.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"BuyerAgent.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"BuyerAgent.SpecifiedLegalOrganization.CountrySubdivisionName","BuyerAgent.SpecifiedLegalOrganization.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"BuyerAgent.Contact.Name", 		"BuyerAgent.Contact.Name")
	DictionaryAdd(dictionary,"BuyerAgent.Contact.DepartmentName","BuyerAgent.Contact.DepartmentName")
	DictionaryAdd(dictionary,"BuyerAgent.Contact.TypeCode",	"BuyerAgent.Contact.TypeCode")			
	DictionaryAdd(dictionary,"BuyerAgent.Contact.PhonNo", 		"BuyerAgent.Contact.PhonNo")
	DictionaryAdd(dictionary,"BuyerAgent.Contact.FaxNo", 		"BuyerAgent.Contact.FaxNo")
	DictionaryAdd(dictionary,"BuyerAgent.Contact.Emailaddress","BuyerAgent.Contact.Emailaddress")
	
	DictionaryAdd(dictionary,"BuyerAgent.Party.Postcode","BuyerAgent.Party.Postcode")
	DictionaryAdd(dictionary,"BuyerAgent.Party.ContactName","BuyerAgent.Party.ContactName")
	DictionaryAdd(dictionary,"BuyerAgent.Party.Street", "BuyerAgent.Party.Street")
	DictionaryAdd(dictionary,"BuyerAgent.Party.AddressLine3","BuyerAgent.Party.AddressLine")
	DictionaryAdd(dictionary,"BuyerAgent.Party.City", "BuyerAgent.Party.City")
	DictionaryAdd(dictionary,"BuyerAgent.Party.Country", "FR")
	DictionaryAdd(dictionary,"BuyerAgent.Party.CountrySubdivisionName","BuyerAgent.Party.CountrySubdivisionName")

	DictionaryAdd(dictionary,"BuyerAgent.Party.URIID.ID",		"BuyerAgent.Party.URIID.ID")
	DictionaryAdd(dictionary,"BuyerAgent.Party.URIID.SchemeID","BuyerAgent.Party.URIID.SchemeID")
	
	;$BuyerAgent.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$BuyerAgent.Party.GlobalIDs",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$BuyerAgent.Party.GlobalIDs.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$BuyerAgent.Party.GlobalIDs.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$BuyerAgent.Party.GlobalIDs.GlobalID_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

	;$BuyerAgent.TaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$BuyerAgent.TaxRegistrations",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$BuyerAgent.TaxRegistrations.No_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$BuyerAgent.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$BuyerAgent.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		

	;ShipFrom
	DictionaryAdd(dictionary,"ShipFrom.Party.GlobalID.ID","ShipFrom.Party.GlobalID.ID")
	DictionaryAdd(dictionary,"ShipFrom.Party.GlobalID.SchemeID","0088")
	DictionaryAdd(dictionary,"ShipFrom.Party.Id", "ShipFrom.Party.Id")
	DictionaryAdd(dictionary,"ShipFrom.Party.Name", "ShipFrom.Party.Name")
	
	DictionaryAdd(dictionary,"ShipFrom.SpecifiedLegalOrganization.ID","ShipFrom.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"ShipFrom.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"ShipFrom.SpecifiedLegalOrganization.TradingBusinessName","ShipFrom.SpecifiedLegalOrganization.TradingBusinessName")

	DictionaryAdd(dictionary,"ShipFrom.SpecifiedLegalOrganization.Postcode","ShipFrom.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"ShipFrom.SpecifiedLegalOrganization.ContactName","ShipFrom.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"ShipFrom.SpecifiedLegalOrganization.Street", "ShipFrom.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"ShipFrom.SpecifiedLegalOrganization.AddressLine3","ShipFrom.SpecifiedLegalOrganization.AddressLine3")
	DictionaryAdd(dictionary,"ShipFrom.SpecifiedLegalOrganization.City", "ShipFrom.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"ShipFrom.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"ShipFrom.SpecifiedLegalOrganization.CountrySubdivisionName","ShipFrom.SpecifiedLegalOrganization.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"ShipFrom.Contact.Name", 			"ShipFrom.Contact.Name")
	DictionaryAdd(dictionary,"ShipFrom.Contact.DepartmentName","ShipFrom.Contact.DepartmentName")
	DictionaryAdd(dictionary,"ShipFrom.Contact.TypeCode",		"ShipFrom.Contact.TypeCode")
	DictionaryAdd(dictionary,"ShipFrom.Contact.PhonNo", 		"ShipFrom.Contact.PhonNo")
	DictionaryAdd(dictionary,"ShipFrom.Contact.FaxNo", 		"ShipFrom.Contact.FaxNo")
	DictionaryAdd(dictionary,"ShipFrom.Contact.Emailaddress",	"ShipFrom.Contact.Emailaddress")
	
	DictionaryAdd(dictionary,"ShipFrom.Party.Postcode","ShipFrom.Party.Postcode")
	DictionaryAdd(dictionary,"ShipFrom.Party.ContactName", "ShipFrom.Party.ContactName")
	DictionaryAdd(dictionary,"ShipFrom.Party.Street", "ShipFrom.Party.Street")
	DictionaryAdd(dictionary,"ShipFrom.Party.AddressLine3","ShipFrom.Party.AddressLine3")
	DictionaryAdd(dictionary,"ShipFrom.Party.City", "ShipFrom.Party.City")
	DictionaryAdd(dictionary,"ShipFrom.Party.Country", "FR")
	DictionaryAdd(dictionary,"ShipFrom.Party.CountrySubdivisionName","ShipFrom.Party.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"ShipFrom.Party.URIID.ID",		"ShipFrom.Party.URIID.ID")
	DictionaryAdd(dictionary,"ShipFrom.Party.URIID.SchemeID",	"ShipFrom.Party.URIID.SchemeID")
	
	;$ShipFrom.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$ShipFrom.Party.GlobalIDs",tostring(dictionarylisteitem))
	 
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$ShipFrom.Party.GlobalIDs.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$ShipFrom.Party.GlobalIDs.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$ShipFrom.Party.GlobalIDs?GlobalID_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

	;$ShipFrom.TaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$ShipFrom.TaxRegistrations",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$ShipFrom.TaxRegistrations.No_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$ShipFrom.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$ShipFrom.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		

	;Buyer	=> cette partie est obligtoire
	DictionaryAdd(dictionary,"Buyer.Party.Id", "Buyer.Party.Id")
	DictionaryAdd(dictionary,"Buyer.Party.Name", "Buyer.Party.Name")	  ; obligatoire
	DictionaryAdd(dictionary,"Buyer.Party.GlobalID.ID","Buyer.Party.GlobalID.ID")  ;obligatoire pour chorus pro , numero de siren 
	DictionaryAdd(dictionary,"Buyer.Party.GlobalID.SchemeID","0002")
			
	;=> cette partie est facultative
	DictionaryAdd(dictionary,"Buyer.Party.Description", "Buyer.Party.Description")

	DictionaryAdd(dictionary,"Buyer.SpecifiedLegalOrganization.ID","Buyer.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"Buyer.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"Buyer.SpecifiedLegalOrganization.TradingBusinessName","Buyer.SpecifiedLegalOrganization.TradingBusinessName")
	DictionaryAdd(dictionary,"Buyer.SpecifiedLegalOrganization.Postcode","Buyer.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"Buyer.SpecifiedLegalOrganization.ContactName","Buyer.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"Buyer.SpecifiedLegalOrganization.Street", "Buyer.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"Buyer.SpecifiedLegalOrganization.AddressLine3","Buyer.SpecifiedLegalOrganization.AddressLine3")
	DictionaryAdd(dictionary,"Buyer.SpecifiedLegalOrganization.City", "Buyer.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"Buyer.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"Buyer.SpecifiedLegalOrganization.CountrySubdivisionName","Buyer.SpecifiedLegalOrganization.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"Buyer.Contact.Name", 	    	"Buyer.Contact.Name")
	DictionaryAdd(dictionary,"Buyer.Contact.DepartmentName","Buyer.Contact.DepartmentName")
	DictionaryAdd(dictionary,"Buyer.Contact.TypeCode",		"Buyer.Contact.TypeCode")		
	DictionaryAdd(dictionary,"Buyer.Contact.Emailaddress",	"Buyer.Contact.Emailaddress1")
	DictionaryAdd(dictionary,"Buyer.Contact.PhonNo", 		"Buyer.Contact.PhonNo")
	DictionaryAdd(dictionary,"Buyer.Contact.FaxNo", 		"Buyer.Contact.FaxNo")
	
	DictionaryAdd(dictionary,"Buyer.Party.Postcode","Buyer.Party.Postcode")
	DictionaryAdd(dictionary,"Buyer.Party.ContactName","Buyer.Party.ContactName")
	DictionaryAdd(dictionary,"Buyer.Party.Street", "Buyer.Party.Stree")
	DictionaryAdd(dictionary,"Buyer.Party.City", "Buyer.Party.City")
	DictionaryAdd(dictionary,"Buyer.Party.Country","FR")
	DictionaryAdd(dictionary,"Buyer.Party.AddressLine3","Buyer.Party.AddressLine")
	DictionaryAdd(dictionary,"Buyer.Party.CountrySubdivisionName","Buyer.Party.CountrySubdivisionName")

	DictionaryAdd(dictionary,"Buyer.Party.URIID.ID",		"Buyer.Party.URIID.ID")
	DictionaryAdd(dictionary,"Buyer.Party.URIID.SchemeID",	"Buyer.Party.URIID.SchemeID")
	
	;$Buyer.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Buyer.Party.GlobalIDs",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Buyer.Party.GlobalIDs.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Buyer.Party.GlobalIDs.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Buyer.Party.GlobalIDs.GlobalID_idx3")		
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")

	;$Buyer.TaxRegistrations
	;ca existe que pour 1 fois c'est pas unbonded sauf pour extended	
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Buyer.TaxRegistrations",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$Buyer.TaxRegistrations.No_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$Buyer.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$Buyer.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
	
	;Seller => cette partie est obligatoire
	DictionaryAdd(dictionary,"Seller.Party.Id", "Seller.Party.Id")
	DictionaryAdd(dictionary,"Seller.Party.Name","Seller.Party.Name")		;obligatoire
	DictionaryAdd(dictionary,"Seller.Party.Description", "Seller.Party.Description")	
	DictionaryAdd(dictionary,"Seller.Party.GlobalID.ID","Seller.Party.GlobalID.ID")  ;obligatoire pour chorus pro , numero de siren 
	DictionaryAdd(dictionary,"Seller.Party.GlobalID.SchemeID","0002")
	
	;> cette partie est falcutative
	DictionaryAdd(dictionary,"Seller.SpecifiedLegalOrganization.ID","Seller.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"Seller.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"Seller.SpecifiedLegalOrganization.TradingBusinessName","Seller.SpecifiedLegalOrganization.TradingBusinessName")

	DictionaryAdd(dictionary,"Seller.SpecifiedLegalOrganization.Postcode","Seller.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"Seller.SpecifiedLegalOrganization.ContactName","Seller.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"Seller.SpecifiedLegalOrganization.Street", "Seller.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"Seller.SpecifiedLegalOrganization.City", "Seller.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"Seller.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"Seller.SpecifiedLegalOrganization.AddressLine3","Seller.SpecifiedLegalOrganization.AddressLine3")
	DictionaryAdd(dictionary,"Seller.SpecifiedLegalOrganization.CountrySubdivisionName","Seller.SpecifiedLegalOrganization.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"Seller.Contact.Name",		"Seller.Contact.Name")
	DictionaryAdd(dictionary,"Seller.Contact.DepartmentName","Seller.Contact.DepartmentName")
	DictionaryAdd(dictionary,"Seller.Contact.TypeCode",	 "Seller.Contact.TypeCode")		
	DictionaryAdd(dictionary,"Seller.Contact.PhonNo",		 "Seller.Contact.PhonNo")
	DictionaryAdd(dictionary,"Seller.Contact.FaxNo", 		 "Seller.Contact.FaxNo")
	DictionaryAdd(dictionary,"Seller.Contact.Emailaddress","Seller.Contact.Emailaddress")
	
	DictionaryAdd(dictionary,"Seller.Party.ContactName","Seller.Party.ContactName") 
	DictionaryAdd(dictionary,"Seller.Party.Street","Seller.Party.Street")
	DictionaryAdd(dictionary,"Seller.Party.Postcode","Seller.Party.Postcode")
	DictionaryAdd(dictionary,"Seller.Party.City", "Seller.Party.City")
	DictionaryAdd(dictionary,"Seller.Party.Country","FR")
	DictionaryAdd(dictionary,"Seller.Party.AddressLine3","Seller.Party.AddressLine3")
	DictionaryAdd(dictionary,"Seller.Party.CountrySubdivisionName","Seller.Party.CountrySubdivisionName")

	DictionaryAdd(dictionary,"Seller.Party.URIID.ID",		"Seller.Party.URIID.ID")
	DictionaryAdd(dictionary,"Seller.Party.URIID.SchemeID","Seller.Party.URIID.SchemeID")
	
	;$Seller.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Seller.Party.GlobalIDs",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Seller.Party.GlobalIDs.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Seller.Party.GlobalIDs.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$Seller.Party.GlobalIDs.GlobalID_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

	;$Seller.TaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Seller.TaxRegistrations",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"No", "$Seller.TaxRegistrations.No_idx1")
		DictionaryAdd(dictionaryitem,"SchemeID","VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"No", "$Seller.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem,"SchemeID","VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"No", "$Seller.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem,"SchemeID","VA")
		
	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
		
	;SellerTaxRepresentative
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.Id", "SellerTaxRepresentative.Party.Id")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.Name","SellerTaxRepresentative.Party.Name")				;obligatoire
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.GlobalID.ID","SellerTaxRepresentative.Party.GlobalID.ID")  ;obligatoire pour chorus pro , numero de siren 
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.GlobalID.SchemeID","0002")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.RoleCode","SellerTaxRepresentative.Party.RoleCode")

	DictionaryAdd(dictionary,"SellerTaxRepresentative.SpecifiedLegalOrganization.ID","SellerTaxRepresentative.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.SpecifiedLegalOrganization.TradingBusinessName","SellerTaxRepresentative.SpecifiedLegalOrganization.TradingBusinessName")

	DictionaryAdd(dictionary,"SellerTaxRepresentative.SpecifiedLegalOrganization.Postcode","SellerTaxRepresentative.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.SpecifiedLegalOrganization.ContactName","SellerTaxRepresentative.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.SpecifiedLegalOrganization.Street", "SellerTaxRepresentative.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.SpecifiedLegalOrganization.City", "SellerTaxRepresentative.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.SpecifiedLegalOrganization.AddressLine3","SellerTaxRepresentative.SpecifiedLegalOrganization.AddressLine3")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.SpecifiedLegalOrganization.CountrySubdivisionName","SellerTaxRepresentative.SpecifiedLegalOrganization.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Contact.Name",			 "SellerTaxRepresentative.Contact.Name")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Contact.DepartmentName","SellerTaxRepresentative.Contact.DepartmentName")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Contact.TypeCode",		 "SellerTaxRepresentative.Contact.TypeCode")		
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Contact.PhonNo",		 "SellerTaxRepresentative.Contact.PhonNo")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Contact.FaxNo", 		 "SellerTaxRepresentative.Contact.FaxNo")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Contact.Emailaddress","SellerTaxRepresentative.Contact.Emailaddress")
	
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.ContactName","SellerTaxRepresentative.Party.ContactName") 
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.Postcode","SellerTaxRepresentative.Party.Postcode")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.Street","SellerTaxRepresentative.Party.Street")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.AddressLine3","SellerTaxRepresentative.Party.AddressLine3")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.City", "SellerTaxRepresentative.Party.City")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.Country","FR")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.CountrySubdivisionName","SellerTaxRepresentative.Party.CountrySubdivisionName")

	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.URIID.ID",			"SellerTaxRepresentative.Party.URIID.ID")
	DictionaryAdd(dictionary,"SellerTaxRepresentative.Party.URIID.SchemeID",	"SellerTaxRepresentative.Party.URIID.SchemeID")
	
	;$SellerTaxRepresentative.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$SellerTaxRepresentative.Party.GlobalIDs",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$SellerTaxRepresentative.Party.GlobalIDs.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$SellerTaxRepresentative.Party.GlobalIDs.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		
			
		dictionaryitem = DictionaryCreate()					
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$SellerTaxRepresentative.Party.GlobalIDs.GlobalID_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		
	
	;$SellerTaxRepresentative.TaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$SellerTaxRepresentative.TaxRegistrations",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$SellerTaxRepresentative.TaxRegistrations.No_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$SellerTaxRepresentative.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$SellerTaxRepresentative.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
	
	;ProductEndUser
	DictionaryAdd(dictionary,"ProductEndUser.Party.Id", "ProductEndUser.Party.Id")
	DictionaryAdd(dictionary,"ProductEndUser.Party.Name","ProductEndUser.Party.Name")				;obligatoire
	DictionaryAdd(dictionary,"ProductEndUser.Party.GlobalID.ID","ProductEndUser.Party.GlobalID.ID")  ;obligatoire pour chorus pro , numero de siren 
	DictionaryAdd(dictionary,"ProductEndUser.Party.GlobalID.SchemeID","0002")
	
	DictionaryAdd(dictionary,"ProductEndUser.SpecifiedLegalOrganization.ID","ProductEndUser.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"ProductEndUser.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"ProductEndUser.SpecifiedLegalOrganization.TradingBusinessName","ProductEndUser.SpecifiedLegalOrganization.TradingBusinessName")

	DictionaryAdd(dictionary,"ProductEndUser.SpecifiedLegalOrganization.Postcode","ProductEndUser.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"ProductEndUser.SpecifiedLegalOrganization.ContactName","ProductEndUser.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"ProductEndUser.SpecifiedLegalOrganization.Street", "ProductEndUser.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"ProductEndUser.SpecifiedLegalOrganization.AddressLine3","ProductEndUser.SpecifiedLegalOrganization.AddressLine3")
	DictionaryAdd(dictionary,"ProductEndUser.SpecifiedLegalOrganization.City", "ProductEndUser.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"ProductEndUser.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"ProductEndUser.SpecifiedLegalOrganization.CountrySubdivisionName","ProductEndUser.SpecifiedLegalOrganization.CountrySubdivisionName")
	
	DictionaryAdd(dictionary,"ProductEndUser.Contact.Name",		 "ProductEndUser.Contact.Name")
	DictionaryAdd(dictionary,"ProductEndUser.Contact.DepartmentName","ProductEndUser.Contact.DepartmentName")
	DictionaryAdd(dictionary,"ProductEndUser.Contact.TypeCode",	 "ProductEndUser.Contact.TypeCode")		
	DictionaryAdd(dictionary,"ProductEndUser.Contact.PhonNo",		 "ProductEndUser.Contact.PhonNo")
	DictionaryAdd(dictionary,"ProductEndUser.Contact.FaxNo", 		 "ProductEndUser.Contact.FaxNo")
	DictionaryAdd(dictionary,"ProductEndUser.Contact.Emailaddress","ProductEndUser.Contact.Emailaddress")
	
	DictionaryAdd(dictionary,"ProductEndUser.Party.Postcode","ProductEndUser.Party.Postcode")
	DictionaryAdd(dictionary,"ProductEndUser.Party.ContactName","ProductEndUser.Party.ContactName")
	DictionaryAdd(dictionary,"ProductEndUser.Party.Street","ProductEndUser.Party.Street")
	DictionaryAdd(dictionary,"ProductEndUser.Party.City", "ProductEndUser.Party.City")
	DictionaryAdd(dictionary,"ProductEndUser.Party.Country","FR")
	DictionaryAdd(dictionary,"ProductEndUser.Party.AddressLine3","ProductEndUser.Party.AddressLine3")
	DictionaryAdd(dictionary,"ProductEndUser.Party.CountrySubdivisionName","ProductEndUser.Party.CountrySubdivisionName")

	DictionaryAdd(dictionary,"ProductEndUser.Party.URIID.ID",		"ProductEndUser.Party.URIID.ID")
	DictionaryAdd(dictionary,"ProductEndUser.Party.URIID.SchemeID","ProductEndUser.Party.URIID.SchemeID")
	
	;$ProductEndUser.Party.GlobalIDs
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$ProductEndUser.Party.GlobalIDs",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$ProductEndUser.Party.GlobalIDs.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$ProductEndUser.Party.GlobalIDs.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$ProductEndUser.Party.GlobalIDs.GlobalID_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

	;$ProductEndUser.TaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$ProductEndUser.TaxRegistrations",tostring(dictionarylisteitem))
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$ProductEndUser.TaxRegistrations.No_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$ProductEndUser.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$ProductEndUser.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
	
	;*BuyerTaxRepresentative;
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.Id", "BuyerTaxRepresentative.Party.Id")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.Name","BuyerTaxRepresentative.Party.Name")				;obligatoire
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.GlobalID.ID","BuyerTaxRepresentative.Party.GlobalID.ID")  ;obligatoire pour chorus pro , numero de siren 
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.GlobalID.SchemeID","0002")	
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.RoleCode","BuyerTaxRepresentative.Party.RoleCode")

	DictionaryAdd(dictionary,"BuyerTaxRepresentative.SpecifiedLegalOrganization.ID","BuyerTaxRepresentative.SpecifiedLegalOrganization.ID")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.SpecifiedLegalOrganization.TradingBusinessName","BuyerTaxRepresentative.SpecifiedLegalOrganization.TradingBusinessName")

	DictionaryAdd(dictionary,"BuyerTaxRepresentative.SpecifiedLegalOrganization.Postcode","BuyerTaxRepresentative.SpecifiedLegalOrganization.Postcode")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.SpecifiedLegalOrganization.ContactName","BuyerTaxRepresentative.SpecifiedLegalOrganization.ContactName")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.SpecifiedLegalOrganization.Street", "BuyerTaxRepresentative.SpecifiedLegalOrganization.Street")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.SpecifiedLegalOrganization.AddressLine3","BuyerTaxRepresentative.SpecifiedLegalOrganization.AddressLine3")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.SpecifiedLegalOrganization.City", "BuyerTaxRepresentative.SpecifiedLegalOrganization.City")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.SpecifiedLegalOrganization.CountrySubdivisionName","BuyerTaxRepresentative.SpecifiedLegalOrganization.CountrySubdivisionName")

	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Contact.Name",		 "BuyerTaxRepresentative.Contact.Name")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Contact.DepartmentName","BuyerTaxRepresentative.Contact.DepartmentName")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Contact.TypeCode",	 "BuyerTaxRepresentative.Contact.TypeCode")		
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Contact.PhonNo",		 "BuyerTaxRepresentative.Contact.PhonNo")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Contact.FaxNo", 		 "BuyerTaxRepresentative.Contact.FaxNo")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Contact.Emailaddress","BuyerTaxRepresentative.Contact.Emailaddress")
	
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.Postcode","BuyerTaxRepresentative.Party.Postcode")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.ContactName","BuyerTaxRepresentative.Party.ContactName") 
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.Street","BuyerTaxRepresentative.Party.Street")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.AddressLine3","BuyerTaxRepresentative.Party.AddressLine3")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.City", "BuyerTaxRepresentative.Party.City")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.Country","FR")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.CountrySubdivisionName","BuyerTaxRepresentative.Party.CountrySubdivisionName")

	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.URIID.ID",		"BuyerTaxRepresentative.Party.URIID.ID")
	DictionaryAdd(dictionary,"BuyerTaxRepresentative.Party.URIID.SchemeID","BuyerTaxRepresentative.Party.URIID.SchemeID")
	
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$BuyerTaxRepresentative.Party.GlobalIDs",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$BuyerTaxRepresentative.Party.GlobalIDs.GlobalID_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$BuyerTaxRepresentative.Party.GlobalIDs.GlobalID_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		
		
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","$BuyerTaxRepresentative.Party.GlobalIDs.GlobalID_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		
	
	;$BuyerTaxRepresentative.TaxRegistrations
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$BuyerTaxRepresentative.TaxRegistrations",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$BuyerTaxRepresentative.TaxRegistrations.No_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$BuyerTaxRepresentative.TaxRegistrations.No_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "$BuyerTaxRepresentative.TaxRegistrations.No_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		

	;DespatchAdviceReferencedDocument
	DictionaryAdd(dictionary,"DespatchAdviceReferencedDocument.ID","DespatchAdviceReferencedDocument.ID")
	DictionaryAdd(dictionary,"DespatchAdviceReferencedDocument.IssueDateTime","20240117")
	
	;ReceivingAdviceReferencedDocument
	DictionaryAdd(dictionary,"ReceivingAdviceReferencedDocument.ID","ReceivingAdviceReferencedDocument.ID")
	DictionaryAdd(dictionary,"ReceivingAdviceReferencedDocument.IssueDateTime","20240118")
	
	;DeliveryNoteReferenceDocumentdeliveryNote
	DictionaryAdd(dictionary,"DeliveryNoteReferenceDocumentdeliveryNote.No","DeliveryNoteReferenceDocumentdeliveryNote.No")
	DictionaryAdd(dictionary,"DeliveryNoteReferenceDocumentdeliveryNote.Date","20240119")
	
	;ContractReferencedDocument
	DictionaryAdd(dictionary,"ContractReferencedDocument.ID","ContractReferencedDocument.ID") 
	DictionaryAdd(dictionary,"ContractReferencedDocument.LineID","ContractReferencedDocument.LineID") 
	DictionaryAdd(dictionary,"ContractReferencedDocument.IssueDateTime","20240120")
	DictionaryAdd(dictionary,"ContractReferencedDocument.ReferenceTypeCode","AAA")
	
	;InvoiceReferencedDocument
	DictionaryAdd(dictionary,"InvoiceReferencedDocumentID", "InvoiceReferencedDocumentID")
	DictionaryAdd(dictionary,"InvoiceReferencedDocumentIssueDateTime","20240121")
	DictionaryAdd(dictionary,"InvoiceReferencedDocument.TypeCode","1")
	
	;SpecifiedProcuringProject
	DictionaryAdd(dictionary,"SpecifiedProcuringProject.ID","SpecifiedProcuringProject.ID")
	DictionaryAdd(dictionary,"SpecifiedProcuringProject.Name", "SpecifiedProcuringProject.Name")
	
	;SellerOrderReferencedDocument
	DictionaryAdd(dictionary,"SellerOrderReferencedDocument.ID","SellerOrderReferencedDocument.ID")
	DictionaryAdd(dictionary,"SellerOrderReferencedDocument.IssueDateTime","20240122")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
	
	;$Creditor.BankAccounts
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Creditor.BankAccounts",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"IBAN","$Creditor.BankAccounts.IBAN_idx1")
		DictionaryAdd(dictionaryitem,"BIC","$Creditor.BankAccounts.BIC_idx1")
		DictionaryAdd(dictionaryitem,"ID", "$Creditor.BankAccounts.ID_idx1")
		DictionaryAdd(dictionaryitem,"Bankleitzahl","$Creditor.BankAccounts.Bankleitzahl_idx1")  ;ne plus utiliser car c'etait les anciens parametres pour l'allemagne c'est Name maintenant
		DictionaryAdd(dictionaryitem,"BankName","$Creditor.BankAccounts.BankName_idx1")   ;ne plus utiliser car c'etait les anciens parametres pour l'allemagne c'est Name maintenant
		DictionaryAdd(dictionaryitem,"Name", "$Creditor.BankAccounts.Name_idx1")
			
		;ca existe que pour 1 fois c'est pas unbonded sauf pour extended
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"IBAN","$Creditor.BankAccounts.IBAN_idx2")
		DictionaryAdd(dictionaryitem,"BIC","$Creditor.BankAccounst.BIC_idx2")
		DictionaryAdd(dictionaryitem,"ID", "$Creditor.BankAccounst.ID_idx2")
		DictionaryAdd(dictionaryitem,"Bankleitzahl","$Creditor.BankAccounts.Bankleitzahl_idx2") ;ne plus utiliser car c'etait les anciens parametres pour l'allemagne c'est Name maintenant
		DictionaryAdd(dictionaryitem,"BankName","$Creditor.BankAccounts.BankName_idx2")  ;ne plus utiliser car c'etait les anciens parametres pour l'allemagne c'est Name maintenant
		DictionaryAdd(dictionaryitem,"Name", "$Creditor.BankAccounts.Name_idx2")

		;ca existe que pour 1 fois c'est pas unbonded sauf pour extended
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"IBAN","$Creditor.BankAccounts.IBAN_idx3")
		DictionaryAdd(dictionaryitem,"BIC","$Creditor.BankAccounst.BIC_idx3")
		DictionaryAdd(dictionaryitem,"ID", "$Creditor.BankAccounst.ID_idx3")
		DictionaryAdd(dictionaryitem,"Bankleitzahl","$Creditor.BankAccounts.Bankleitzahl_idx3") ;ne plus utiliser car c'etait les anciens parametres pour l'allemagne c'est Name maintenant
		DictionaryAdd(dictionaryitem,"BankName","$Creditor.BankAccounts.BankName_idx3")  ;ne plus utiliser car c'etait les anciens parametres pour l'allemagne c'est Name maintenant
		DictionaryAdd(dictionaryitem,"Name", "$Creditor.BankAccounts.Name_idx3")
	
	;$Debitor.BankAccounts
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Debitor.BankAccounts",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"IBAN", "$Debitor.BankAccounts.IBAN_idx1")
		DictionaryAdd(dictionaryitem,"BIC", "$Debitor.BankAccounts.BIC_idx1")  ;ca existe paspourl'instant
		DictionaryAdd(dictionaryitem,"ID", "$Debitor.BankAccounts.ID_idx1")
		DictionaryAdd(dictionaryitem,"Bankleitzahl","$Debitor.BankAccounts.Bankleitzahl_idx1")  ;ne plus utiliser car c'etait les anciens parametres pour l'allemagne c'est Name maintenant
		DictionaryAdd(dictionaryitem,"BankName","$Debitor.BankAccounts.BankName_idx1")  ;ne plus utiliser car c'etait les anciens parametres pour l'allemagne c'est Name maintenant
		DictionaryAdd(dictionaryitem,"Name","$Debitor.BankAccounts.Name_idx1")
	
	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
		
	;$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges
	dictionarylisteitem = DictionaryCreate()	 
	DictionaryAdd(dictionary,"$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))		
		DictionaryAdd(dictionaryitem,"IsDiscount", "false")	
		DictionaryAdd(dictionaryitem,"SequenceNumeric","1234567890")
		DictionaryAdd(dictionaryitem,"BasisQuantity","125")
		DictionaryAdd(dictionaryitem,"BasisQuantityunitCode","DAY")
		DictionaryAdd(dictionaryitem,"BasisAmount","121")
		DictionaryAdd(dictionaryitem,"ActualAmount","122")
	   DictionaryAdd(dictionaryitem,"CalculationPercent","123")  
		DictionaryAdd(dictionaryitem,"Reason","$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges.Reason_idx1")
		DictionaryAdd(dictionaryitem,"ReasonCode","AAA")
		DictionaryAdd(dictionaryitem,"Taxe.TypeCode","VAT")
		DictionaryAdd(dictionaryitem,"Taxe.CategoryCode","S")
		DictionaryAdd(dictionaryitem,"Taxe.Percent","124")
		DictionaryAdd(dictionaryitem,"Taxe.ExemptionReasonCode","$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges.Taxe.ExemptionReasonCode_idx1")
		DictionaryAdd(dictionaryitem,"Taxe.ExemptionReason","$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges.Taxe.ExemptionReason_idx1")
		;DictionaryAdd(dictionaryitem,"StrType","SpecifiedTradeAllowanceCharge")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))		
		DictionaryAdd(dictionaryitem,"IsDiscount", "false")	
		DictionaryAdd(dictionaryitem,"BasisAmount","126")
		DictionaryAdd(dictionaryitem,"ActualAmount","127")
	   DictionaryAdd(dictionaryitem,"CalculationPercent","128") 
		DictionaryAdd(dictionaryitem,"Reason","$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges.Reason_idx2")
		DictionaryAdd(dictionaryitem,"ReasonCode","AAA")
		DictionaryAdd(dictionaryitem,"Taxe.TypeCode","VAT")
		DictionaryAdd(dictionaryitem,"Taxe.CategoryCode","S")
		DictionaryAdd(dictionaryitem,"Taxe.Percent","129")
		DictionaryAdd(dictionaryitem,"Taxe.ExemptionReasonCode","$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges.Taxe.ExemptionReasonCode_idx2")
		DictionaryAdd(dictionaryitem,"Taxe.ExemptionReason","$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges.Taxe.ExemptionReason_idx2")
		;DictionaryAdd(dictionaryitem,"StrType","SpecifiedTradeAllowanceCharge")
		DictionaryAdd(dictionaryitem,"SequenceNumeric","1234567890")
		DictionaryAdd(dictionaryitem,"BasisQuantity","130")
		DictionaryAdd(dictionaryitem,"BasisQuantityunitCode","DAY")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))		
		DictionaryAdd(dictionaryitem,"IsDiscount", "false")	
		DictionaryAdd(dictionaryitem,"BasisAmount","131")
		DictionaryAdd(dictionaryitem,"ActualAmount","132")
	   DictionaryAdd(dictionaryitem,"CalculationPercent","133")
		DictionaryAdd(dictionaryitem,"Reason","$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges.Reason_idx3")
		DictionaryAdd(dictionaryitem,"ReasonCode","AAA")
		DictionaryAdd(dictionaryitem,"Taxe.TypeCode","VAT")
		DictionaryAdd(dictionaryitem,"Taxe.CategoryCode","S")
		DictionaryAdd(dictionaryitem,"Taxe.Percent","134")
		DictionaryAdd(dictionaryitem,"Taxe.ExemptionReasonCode","$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges.Taxe.ExemptionReasonCode_idx3")
		DictionaryAdd(dictionaryitem,"Taxe.ExemptionReason","$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges.Taxe.ExemptionReason_idx3")
		;DictionaryAdd(dictionaryitem,"StrType","SpecifiedTradeAllowanceCharge")
		DictionaryAdd(dictionaryitem,"SequenceNumeric","1234567890")
		DictionaryAdd(dictionaryitem,"BasisQuantity","135")
		DictionaryAdd(dictionaryitem,"BasisQuantityunitCode","DAY")
	
	;$TradeAllowanceCharges
	dictionarylisteitem = DictionaryCreate()	 
	DictionaryAdd(dictionary,"$TradeAllowanceCharges",tostring(dictionarylisteitem))
	
	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))		
	
		DictionaryAdd(dictionaryitem,"IsDiscount", "false")	
		DictionaryAdd(dictionaryitem,"Currency", "EUR")
		DictionaryAdd(dictionaryitem,"BasisAmount","136")
		DictionaryAdd(dictionaryitem,"ActualAmount","137")
		DictionaryAdd(dictionaryitem,"CalculationPercent","138") 
		DictionaryAdd(dictionaryitem,"Reason","$TradeAllowanceCharges.Reason_idx1")
		DictionaryAdd(dictionaryitem,"ReasonCode","AAA")
		DictionaryAdd(dictionaryitem,"Taxe.TypeCode","VAT")
		DictionaryAdd(dictionaryitem,"Taxe.CategoryCode","S")
		DictionaryAdd(dictionaryitem,"Taxe.Percent","139")
		DictionaryAdd(dictionaryitem,"Taxe.ExemptionReasonCode","$TradeAllowanceCharges.Taxe.ExemptionReasonCode_idx1")
		DictionaryAdd(dictionaryitem,"Taxe.ExemptionReason","$TradeAllowanceCharges.Taxe.ExemptionReason_idx1")
		DictionaryAdd(dictionaryitem,"SequenceNumeric","1234567891")
		DictionaryAdd(dictionaryitem,"BasisQuantity","140")
		DictionaryAdd(dictionaryitem,"BasisQuantityunitCode","DAY")
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))		
		DictionaryAdd(dictionaryitem,"IsDiscount", "false")	
		DictionaryAdd(dictionaryitem,"Currency", "EUR")
		DictionaryAdd(dictionaryitem,"BasisAmount","141")
		DictionaryAdd(dictionaryitem,"ActualAmount","142")
		DictionaryAdd(dictionaryitem,"CalculationPercent","143")  
		DictionaryAdd(dictionaryitem,"Reason","$TradeAllowanceCharges.Reason_idx2")
		DictionaryAdd(dictionaryitem,"ReasonCode","AAA")
		DictionaryAdd(dictionaryitem,"Taxe.TypeCode","VAT")
		DictionaryAdd(dictionaryitem,"Taxe.CategoryCode","S")
		DictionaryAdd(dictionaryitem,"Taxe.Percent","144")
		DictionaryAdd(dictionaryitem,"Taxe.ExemptionReasonCode","$TradeAllowanceCharges.Taxe.ExemptionReasonCode_idx2")
		DictionaryAdd(dictionaryitem,"Taxe.ExemptionReason","$TradeAllowanceCharges.Taxe.ExemptionReason_idx2")
		DictionaryAdd(dictionaryitem,"SequenceNumeric","1234567892")
		DictionaryAdd(dictionaryitem,"BasisQuantity","145")
		DictionaryAdd(dictionaryitem,"BasisQuantityunitCode","DAY")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))		
		DictionaryAdd(dictionaryitem,"IsDiscount", "false")	
		DictionaryAdd(dictionaryitem,"Currency", "EUR")
		DictionaryAdd(dictionaryitem,"BasisAmount","146")
		DictionaryAdd(dictionaryitem,"ActualAmount","147")
		DictionaryAdd(dictionaryitem,"CalculationPercent","148")  
		DictionaryAdd(dictionaryitem,"Reason","$TradeAllowanceCharges.Reason_idx3")
		DictionaryAdd(dictionaryitem,"ReasonCode","AAA")
		DictionaryAdd(dictionaryitem,"Taxe.TypeCode","VAT")
		DictionaryAdd(dictionaryitem,"Taxe.CategoryCode","S")
		DictionaryAdd(dictionaryitem,"Taxe.Percent","149")
		DictionaryAdd(dictionaryitem,"Taxe.ExemptionReasonCode","$TradeAllowanceCharges.Taxe.ExemptionReasonCode_idx3")
		DictionaryAdd(dictionaryitem,"Taxe.ExemptionReason","$TradeAllowanceCharges.Taxe.ExemptionReason_idx3")
		DictionaryAdd(dictionaryitem,"SequenceNumeric","1234567892")
		DictionaryAdd(dictionaryitem,"BasisQuantity","150")
		DictionaryAdd(dictionaryitem,"BasisQuantityunitCode","DAY")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
	
	;$Notes
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Notes",tostring(dictionarylisteitem))
	   
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"Content", "$Notes.Content_idx1")		
		DictionaryAdd(dictionaryitem,"SubjectCode","$Notes.SubjectCode_idx1")
		DictionaryAdd(dictionaryitem,"ContentCode", "ST3")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"Content", "$Notes.Content_idx2")		
		DictionaryAdd(dictionaryitem,"SubjectCode","$Notes.SubjectCode_idx2")
		DictionaryAdd(dictionaryitem,"ContentCode", "ST2")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"Content", "$Notes.Content_idx3")		
		DictionaryAdd(dictionaryitem,"SubjectCode","$Notes.SubjectCode_idx3")
		DictionaryAdd(dictionaryitem,"ContentCode", "ST3")
	
	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
	
	;QuotationReferencedDocument => mais sur l'entête de la facture dans /ram:ApplicableHeaderTradeAgreement/ram:QuotationReferencedDocument
	DictionaryAdd(dictionary,"QuotationReferencedDocument.ID","QuotationReferencedDocument.ID")
	DictionaryAdd(dictionary,"QuotationReferencedDocument.LineID","QuotationReferencedDocument.LineID")
	DictionaryAdd(dictionary,"QuotationReferencedDocument.IssueDateTime","20240123")

	;$ReceivableSpecifiedTradeAccountingAccounts
	dictionarylisteitem = DictionaryCreate()  
	DictionaryAdd(dictionary,"$ReceivableSpecifiedTradeAccountingAccounts",tostring(dictionarylisteitem))
	
	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	 

	DictionaryAdd(dictionaryitem,"ID", "$ReceivableSpecifiedTradeAccountingAccounts.ID_idx1")     
	DictionaryAdd(dictionaryitem,"TypeCode", "1")	
	
	;dans la doc c'est unbonded mais c'est faut c'est qu'une fois 
	dictionaryitem = DictionaryCreate() 
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	  
	DictionaryAdd(dictionaryitem,"ID", "$ReceivableSpecifiedTradeAccountingAccounts.ID_idx2")	
	DictionaryAdd(dictionaryitem,"TypeCode", "1")	

	;dans la doc c'est unbonded mais c'est faut c'est qu'une fois 
	dictionaryitem = DictionaryCreate() 
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	  
	DictionaryAdd(dictionaryitem,"ID", "$ReceivableSpecifiedTradeAccountingAccounts.ID_idx3")	
	DictionaryAdd(dictionaryitem,"TypeCode", "1")	

;$AdditionalReferencedDocuments	dans l'entete
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$AdditionalReferencedDocuments",tostring(dictionarylisteitem))

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))
	DictionaryAdd(dictionaryitem,"ID", "$AdditionalReferencedDocuments.ID_idx1")
	DictionaryAdd(dictionaryitem,"TypeCode", "917")
	DictionaryAdd(dictionaryitem,"ReferenceTypeCode", "AAA")
	DictionaryAdd(dictionaryitem,"IssueDateTime","20240130")
	DictionaryAdd(dictionaryitem,"URIID","$AdditionalReferencedDocuments.URIID.idx1")
	DictionaryAdd(dictionaryitem,"Name","$AdditionalReferencedDocuments.Name_idx1")
	DictionaryAdd(dictionaryitem,"AttachmentBinaryFile","c:\divalto\sys\extraitcompteexport.xlsx")
	DictionaryAdd(dictionaryitem,"Filename","extraitcompteexport.xlsx")
	;ps obligatoire por les types   .xlsx .pdf .jpg .jpeg .png .ods .csv 
	;plus les type chorusPro
	;.bmp" .gif .tif .tiff .svg .fax .xls .xlc .doc .docx .odt .odp .pps .ppt .pptx .bz2 .gz .tgz .gzip .zip .txt .rtf .xhtml .htm .html .p7s .xlm
	;sinon la dll met alors le mimeCode "application/octet-stream"
	;DictionaryAdd(dictionaryitem,"MimeCode","application/vnd.openxmlformats-officedocument.spreadsheetml.sheet")				

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))
	DictionaryAdd(dictionaryitem,"ID", "$AdditionalReferencedDocuments.ID_idx2")
	DictionaryAdd(dictionaryitem,"TypeCode", "917")
	DictionaryAdd(dictionaryitem,"ReferenceTypeCode", "AAA")
	DictionaryAdd(dictionaryitem,"IssueDateTime","20240130")
	DictionaryAdd(dictionaryitem,"URIID","$AdditionalReferencedDocuments.URIID.idx2")
	DictionaryAdd(dictionaryitem,"Name","$AdditionalReferencedDocuments.Name_idx2")
	DictionaryAdd(dictionaryitem,"AttachmentBinaryFile","c:\divalto\sys\extraitcompteexport.xlsx")
	DictionaryAdd(dictionaryitem,"Filename","extraitcompteexport.xlsx")
	;ps obligatoire por les types   .xlsx .pdf .jpg .jpeg .png .ods .csv 
	;plus les type chorusPro
	;.bmp" .gif .tif .tiff .svg .fax .xls .xlc .doc .docx .odt .odp .pps .ppt .pptx .bz2 .gz .tgz .gzip .zip .txt .rtf .xhtml .htm .html .p7s .xlm
	;sinon la dll met alors le mimeCode "application/octet-stream"
	;DictionaryAdd(dictionaryitem,"MimeCode","application/vnd.openxmlformats-officedocument.spreadsheetml.sheet")				

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))
	DictionaryAdd(dictionaryitem,"ID", "$AdditionalReferencedDocuments.ID_idx3")
	DictionaryAdd(dictionaryitem,"TypeCode", "917")
	DictionaryAdd(dictionaryitem,"ReferenceTypeCode", "AAA")
	DictionaryAdd(dictionaryitem,"IssueDateTime","20240130")
	DictionaryAdd(dictionaryitem,"URIID","$AdditionalReferencedDocuments.URIID.idx3")
	DictionaryAdd(dictionaryitem,"Name","$AdditionalReferencedDocuments.Name_idx3")
	DictionaryAdd(dictionaryitem,"AttachmentBinaryFile","c:\divalto\sys\extraitcompteexport.xlsx")
	DictionaryAdd(dictionaryitem,"Filename","extraitcompteexport.xlsx")
	;ps obligatoire por les types   .xlsx .pdf .jpg .jpeg .png .ods .csv 
	;plus les type chorusPro
	;.bmp" .gif .tif .tiff .svg .fax .xls .xlc .doc .docx .odt .odp .pps .ppt .pptx .bz2 .gz .tgz .gzip .zip .txt .rtf .xhtml .htm .html .p7s .xlm
	;sinon la dll met alors le mimeCode "application/octet-stream"
	;DictionaryAdd(dictionaryitem,"MimeCode","application/vnd.openxmlformats-officedocument.spreadsheetml.sheet")				

	FacturXWriteProps(dictionary)
	LectureErreur
	
	;
	;
	;      ligne  detail
	;
	;
	dictionary = DictionaryCreate()		
	   
	DictionaryAdd(dictionary,"Name", "line.Name_ligne1")		 ;obligatoire et au moins 1 article
	DictionaryAdd(dictionary,"UnitQuantity","151")
	
	DictionaryAdd(dictionary,"Description","line.Description_ligne1")
	DictionaryAdd(dictionary,"UnitCode", "C62")
	DictionaryAdd(dictionary,"NetUnitPrice","152")
	DictionaryAdd(dictionary,"BilledQuantity","153")
	DictionaryAdd(dictionary,"TaxType", "VAT")
	DictionaryAdd(dictionary,"TaxCalculatedAmount","154")
	DictionaryAdd(dictionary,"TaxCategoryCode","S")
	DictionaryAdd(dictionary,"TaxPercent","155")
	DictionaryAdd(dictionary,"TaxExemptionReason","line.TaxExemptionReason_ligne1")
	DictionaryAdd(dictionary,"TaxExemptionReasonCode","line.TaxExemptionReasonCode_ligne1")			
	DictionaryAdd(dictionary,"Comment","line.Comment_ligne1")
	DictionaryAdd(dictionary,"GlobalID.ID","line.GlobalID.ID_ligne1")
	DictionaryAdd(dictionary,"GlobalID.SchemeID","0088")
	DictionaryAdd(dictionary,"OriginTradeCountry.ID","CH")
	DictionaryAdd(dictionary,"ChargeFreeQuantity","156")
	DictionaryAdd(dictionary,"ChargeFreeQuantityUnitCode","KM")
	DictionaryAdd(dictionary,"PackageQuantity","157")
	DictionaryAdd(dictionary,"PackageQuantityUnitCode","KML")
	
	DictionaryAdd(dictionary,"SellerAssigned.ID", "line.SellerAssigned.ID_ligne1")
	DictionaryAdd(dictionary,"BuyerAssigned.ID", "line.BuyerAssigned.ID_ligne1")
	DictionaryAdd(dictionary,"DeliveryNoteID", "line.DeliveryNoteID_ligne1")
	DictionaryAdd(dictionary,"DeliveryNoteLineID", "line.DeliveryNoteLineID_ligne1")
	DictionaryAdd(dictionary,"DeliveryNoteDate","20240124")
	DictionaryAdd(dictionary,"BuyerOrderID","line.BuyerOrderID_ligne1")
	DictionaryAdd(dictionary,"BuyerOrderDate","20240125")
	DictionaryAdd(dictionary,"ActualDeliveryDate","20240126")
	DictionaryAdd(dictionary,"GrossUnitPrice","158")  ;obligatoire si on a des charges car on ecrit les charges
															;dans la section GrossPriceProductTradePrice
															;si il existe pas alors je met le NetUnitPrice a la place

	DictionaryAdd(dictionary,"BuyerOrderReferencedDocument.ID","line.BuyerOrderReferencedDocument.ID_ligne1")	
	DictionaryAdd(dictionary,"BuyerOrderReferencedDocument.LineID","line.BuyerOrderReferencedDocument.LineID_ligne1")	
	DictionaryAdd(dictionary,"BuyerOrderReferencedDocument.IssueDateTime","20240127")							

	DictionaryAdd(dictionary,"BillingPeriodStart","20240128")
	DictionaryAdd(dictionary,"BillingPeriodEnd","20240129")

	DictionaryAdd(dictionary,"SpecifiedTradeProduct.ID","line.SpecifiedTradeProduct.ID_ligne1")
	
	DictionaryAdd(dictionary,"LineTotalAmount","250")
	DictionaryAdd(dictionary,"ChargeTotalAmount","159")
	DictionaryAdd(dictionary,"AllowanceTotalAmount","160")
	DictionaryAdd(dictionary,"TaxBasisTotalAmount","161")
	DictionaryAdd(dictionary,"TaxTotalAmount","162")
	DictionaryAdd(dictionary,"GrandTotalAmount""163")
	DictionaryAdd(dictionary,"TotalAllowanceChargeAmount","164")
	
	;$TradeAllowanceCharges
	dictionarylisteitem = DictionaryCreate()	 
	DictionaryAdd(dictionary,"$TradeAllowanceCharges",tostring(dictionarylisteitem))
	
	;element 1
	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))		
	
	DictionaryAdd(dictionaryitem,"IsDiscount", "true")	
	DictionaryAdd(dictionaryitem,"Currency", "EUR")
	DictionaryAdd(dictionaryitem,"BasisAmount","165")
	DictionaryAdd(dictionaryitem,"ActualAmount","166")
	DictionaryAdd(dictionaryitem,"CalculationPercent","167")
	DictionaryAdd(dictionaryitem,"Reason","line.$TradeAllowanceCharges.Reason_ligne1_idx1")
	DictionaryAdd(dictionaryitem,"ReasonCode","AAA")
	DictionaryAdd(dictionaryitem,"Taxe.TypeCode","VAT")
	DictionaryAdd(dictionaryitem,"Taxe.CategoryCode","S")
	DictionaryAdd(dictionaryitem,"Taxe.Percent","168")
	DictionaryAdd(dictionaryitem,"Taxe.ExemptionReasonCode","line.$TradeAllowanceCharges.Taxe.ExemptionReasonCode_ligne1_idx1")
	DictionaryAdd(dictionaryitem,"Taxe.ExemptionReason","line.$TradeAllowanceCharges.Taxe.ExemptionReason_ligne1_idx1")
	DictionaryAdd(dictionaryitem,"SequenceNumeric","1234567893")
	DictionaryAdd(dictionaryitem,"BasisQuantity","169")
	DictionaryAdd(dictionaryitem,"BasisQuantityunitCode","DAY")
	
	DictionaryAdd(dictionaryitem,"IsDiscount", "true")	
	DictionaryAdd(dictionaryitem,"Currency", "EUR")
	DictionaryAdd(dictionaryitem,"BasisAmount","170")
	DictionaryAdd(dictionaryitem,"ActualAmount","171")
	DictionaryAdd(dictionaryitem,"CalculationPercent","172")
	DictionaryAdd(dictionaryitem,"Reason","line.$TradeAllowanceCharges.Reason_ligne1_idx2")
	DictionaryAdd(dictionaryitem,"ReasonCode","AAA")
	DictionaryAdd(dictionaryitem,"Taxe.TypeCode","VAT")
	DictionaryAdd(dictionaryitem,"Taxe.CategoryCode","S")
	DictionaryAdd(dictionaryitem,"Taxe.Percent","173")
	DictionaryAdd(dictionaryitem,"Taxe.ExemptionReasonCode","line.$TradeAllowanceCharges.Taxe.ExemptionReasonCode_ligne1_idx2")
	DictionaryAdd(dictionaryitem,"Taxe.ExemptionReason","line.$TradeAllowanceCharges.Taxe.ExemptionReason_ligne1_idx2")
	DictionaryAdd(dictionaryitem,"SequenceNumeric","1234567893")
	DictionaryAdd(dictionaryitem,"BasisQuantity","174")
	DictionaryAdd(dictionaryitem,"BasisQuantityunitCode","DAY")

	DictionaryAdd(dictionaryitem,"IsDiscount", "true")	
	DictionaryAdd(dictionaryitem,"Currency", "EUR")
	DictionaryAdd(dictionaryitem,"BasisAmount","175")
	DictionaryAdd(dictionaryitem,"ActualAmount","176")
	DictionaryAdd(dictionaryitem,"CalculationPercent","177")
	DictionaryAdd(dictionaryitem,"Reason","line.$TradeAllowanceCharges.Reason_ligne1_idx3")
	DictionaryAdd(dictionaryitem,"ReasonCode","AAA")
	DictionaryAdd(dictionaryitem,"Taxe.TypeCode","VAT")
	DictionaryAdd(dictionaryitem,"Taxe.CategoryCode","S")
	DictionaryAdd(dictionaryitem,"Taxe.Percent","178")
	DictionaryAdd(dictionaryitem,"Taxe.ExemptionReasonCode","line.$TradeAllowanceCharges.Taxe.ExemptionReasonCode_ligne1_idx3")
	DictionaryAdd(dictionaryitem,"Taxe.ExemptionReason","line.$TradeAllowanceCharges.Taxe.ExemptionReason_ligne1_idx3")
	DictionaryAdd(dictionaryitem,"SequenceNumeric","1234567893")
	DictionaryAdd(dictionaryitem,"BasisQuantity","179")
	DictionaryAdd(dictionaryitem,"BasisQuantityunitCode","DAY")
	
	;$ReceivableSpecifiedTradeAccountingAccounts
	dictionarylisteitem = DictionaryCreate()  
	DictionaryAdd(dictionary,"$ReceivableSpecifiedTradeAccountingAccounts",tostring(dictionarylisteitem))
	
	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	 	
	DictionaryAdd(dictionaryitem,"ID", "line.$ReceivableSpecifiedTradeAccountingAccounts.ID_ligne1_idx1")     
	DictionaryAdd(dictionaryitem,"TypeCode", "1")	
	
	;dans la doc c'est unbonded mais c'est faut c'est qu'une fois 
	dictionaryitem = DictionaryCreate() 
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	  
	DictionaryAdd(dictionaryitem,"ID", "line.$ReceivableSpecifiedTradeAccountingAccounts.ID_ligne1_idx2")	
	DictionaryAdd(dictionaryitem,"TypeCode", "1")

	;dans la doc c'est unbonded mais c'est faut c'est qu'une fois 
	dictionaryitem = DictionaryCreate() 
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	  
	DictionaryAdd(dictionaryitem,"ID", "line.$ReceivableSpecifiedTradeAccountingAccounts.ID_ligne1_idx3")	
	DictionaryAdd(dictionaryitem,"TypeCode", "1")
	
	;$ApplicableProductCharacteristics
	dictionarylisteitem = DictionaryCreate()  
	DictionaryAdd(dictionary,"$ApplicableProductCharacteristics",tostring(dictionarylisteitem))
		
	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	 
	;dans la doc c'est unbonded mais c'est faut c'est qu'une fois 
	dictionaryitem = DictionaryCreate() 
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	  
	DictionaryAdd(dictionaryitem,"TypeCode", "534")	
	DictionaryAdd(dictionaryitem,"Description", "line.$ApplicableProductCharacteristics.Description_ligne1_idx1")	
	DictionaryAdd(dictionaryitem,"ValueMeasureUnitCode", "DAY")	
	DictionaryAdd(dictionaryitem,"ValueMeasure", "180")	
	DictionaryAdd(dictionaryitem,"Value", "181")	

	dictionaryitem = DictionaryCreate() 
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	  
	DictionaryAdd(dictionaryitem,"TypeCode", "534")	
	DictionaryAdd(dictionaryitem,"Description", "line.$ApplicableProductCharacteristics.Description_ligne1_idx2")	
	DictionaryAdd(dictionaryitem,"ValueMeasureUnitCode", "DAY")	
	DictionaryAdd(dictionaryitem,"ValueMeasure", "182")	
	DictionaryAdd(dictionaryitem,"Value", "183")	

	dictionaryitem = DictionaryCreate() 
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	  
	DictionaryAdd(dictionaryitem,"TypeCode", "534")	
	DictionaryAdd(dictionaryitem,"Description", "line.$ApplicableProductCharacteristics.Description_ligne1_idx3")	
	DictionaryAdd(dictionaryitem,"ValueMeasureUnitCode", "DAY")	
	DictionaryAdd(dictionaryitem,"ValueMeasure", "184")	
	DictionaryAdd(dictionaryitem,"Value", "185")	

	;$DesignatedProductClassifications
	dictionarylisteitem = DictionaryCreate()  
	DictionaryAdd(dictionary,"$DesignatedProductClassifications",tostring(dictionarylisteitem))
		
		dictionaryitem = DictionaryCreate() 
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	  
		DictionaryAdd(dictionaryitem,"ClassCode", "line.$DesignatedProductClassifications.ClassCode_ligne1_idx1")	
		DictionaryAdd(dictionaryitem,"ClassName", "line.$DesignatedProductClassifications.ClassName_ligne1_idx1")	
		DictionaryAdd(dictionaryitem,"listID", "line.$DesignatedProductClassifications.listID_ligne1_idx1")	
		DictionaryAdd(dictionaryitem,"listVersionID", "line.$DesignatedProductClassifications.listVersionID_ligne1_idx1")	
	
		dictionaryitem = DictionaryCreate() 
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	  
		DictionaryAdd(dictionaryitem,"ClassCode", "line.$DesignatedProductClassifications.ClassCode_ligne1_idx2")	
		DictionaryAdd(dictionaryitem,"ClassName", "line.$DesignatedProductClassifications.ClassName_ligne1_idx2")	
		DictionaryAdd(dictionaryitem,"listID", "line.$DesignatedProductClassifications.listID_ligne1_idx2")	
		DictionaryAdd(dictionaryitem,"listVersionID", "line.$DesignatedProductClassifications.listVersionID_ligne1_idx2")	

		dictionaryitem = DictionaryCreate() 
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	  
		DictionaryAdd(dictionaryitem,"ClassCode", "line.$DesignatedProductClassifications.ClassCode_ligne1_idx3")	
		DictionaryAdd(dictionaryitem,"ClassName", "line.$DesignatedProductClassifications.ClassName_ligne1_idx3")	
		DictionaryAdd(dictionaryitem,"listID", "line.$DesignatedProductClassifications.listID_ligne1_idx3")	
		DictionaryAdd(dictionaryitem,"listVersionID", "line.$DesignatedProductClassifications.listVersionID_ligne1_idx3")	

	;$Settlement.AdditionalReferencedDocuments
   dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Settlement.AdditionalReferencedDocuments",tostring(dictionarylisteitem)) ;que 1 fois seulement 

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"ID","line.$Settlement.AdditionalReferencedDocuments.ID_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"TypeCode", 			"50")		; en mode confort ca commence que a partir de 50
		DictionaryAdd(dictionaryitem,"ReferenceTypeCode","AAA")
		
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"ID","line.$Settlement.AdditionalReferencedDocuments.ID_ligne1_idx2")
		DictionaryAdd(dictionaryitem,"TypeCode", 			"50")		; en mode confort ca commence que a partir de 50
		DictionaryAdd(dictionaryitem,"ReferenceTypeCode","AAA")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"ID","line.$Settlement.AdditionalReferencedDocuments.ID_ligne1_idx3")
		DictionaryAdd(dictionaryitem,"TypeCode", 			"50")		; en mode confort ca commence que a partir de 50
		DictionaryAdd(dictionaryitem,"ReferenceTypeCode","AAA")

	;AssociatedDocumentLineDocument
	DictionaryAdd(dictionary ,"AssociatedDocumentLineDocument.LineID", "line.AssociatedDocumentLineDocument.LineID_ligne1")	
	DictionaryAdd(dictionary ,"AssociatedDocumentLineDocument.ParentLineID", "line.AssociatedDocumentLineDocument.ParentLineID_ligne1")	
	DictionaryAdd(dictionary ,"AssociatedDocumentLineDocument.LineStatusCode", "line.AssociatedDocumentLineDocument.LineStatusCode_ligne1")	
	DictionaryAdd(dictionary ,"AssociatedDocumentLineDocument.LineStatusReasonCode", "line.AssociatedDocumentLineDocument.LineStatusReasonCode_ligne1")	

	FacturXWritePropsLine(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		

	;$Notes
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$Notes",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"Content", "line.$Notes.Content_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"SubjectCode","line.$Notes.SubjectCode_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"ContentCode", "AAA")		  

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"Content", "line.$Notes.Content_ligne1_idx2")
		DictionaryAdd(dictionaryitem,"SubjectCode","line.$Notes.SubjectCode_ligne1_idx2")
		DictionaryAdd(dictionaryitem,"ContentCode", "AAA")
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"Content", "line.$Notes.Content_ligne1_idx3")
		DictionaryAdd(dictionaryitem,"SubjectCode","line.$Notes.SubjectCode_ligne1_idx3")
		DictionaryAdd(dictionaryitem,"ContentCode", "AAA")
			
	;$AdditionalReferencedDocuments
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$AdditionalReferencedDocuments",tostring(dictionarylisteitem))

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))
	DictionaryAdd(dictionaryitem,"ID", "line.$AdditionalReferencedDocuments.ID_ligne1_idx1")
	DictionaryAdd(dictionaryitem,"TypeCode", "917")
	DictionaryAdd(dictionaryitem,"ReferenceTypeCode", "AAA")
	DictionaryAdd(dictionaryitem,"IssueDateTime","20240130")
	DictionaryAdd(dictionaryitem,"URIID","line.$AdditionalReferencedDocuments.URIID.ligne1_idx1")
	DictionaryAdd(dictionaryitem,"Name","line.$AdditionalReferencedDocuments.Name_ligne1_idx1")
	DictionaryAdd(dictionaryitem,"AttachmentBinaryFile","c:\divalto\sys\extraitcompteexport.xlsx")
	DictionaryAdd(dictionaryitem,"Filename","extraitcompteexport.xlsx")
	;ps obligatoire por les types   .xlsx .pdf .jpg .jpeg .png .ods .csv 
	;plus les type chorusPro
	;.bmp" .gif .tif .tiff .svg .fax .xls .xlc .doc .docx .odt .odp .pps .ppt .pptx .bz2 .gz .tgz .gzip .zip .txt .rtf .xhtml .htm .html .p7s .xlm
	;sinon la dll met alors le mimeCode "application/octet-stream"
	;DictionaryAdd(dictionaryitem,"MimeCode","application/vnd.openxmlformats-officedocument.spreadsheetml.sheet")				

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))
	DictionaryAdd(dictionaryitem,"ID", "line.$AdditionalReferencedDocuments.ID_ligne1_idx2")
	DictionaryAdd(dictionaryitem,"TypeCode", "917")
	DictionaryAdd(dictionaryitem,"ReferenceTypeCode", "AAA")
	DictionaryAdd(dictionaryitem,"IssueDateTime","20240223")
	DictionaryAdd(dictionaryitem,"URIID","line.$AdditionalReferencedDocuments.URIID.ligne1_idx2")
	DictionaryAdd(dictionaryitem,"Name","line.$AdditionalReferencedDocuments.Name_ligne1_idx2")
	DictionaryAdd(dictionaryitem,"AttachmentBinaryFile","c:\divalto\sys\extraitcompteexport.xlsx")
	DictionaryAdd(dictionaryitem,"Filename","extraitcompteexport.xlsx")
	;ps obligatoire por les types   .xlsx .pdf .jpg .jpeg .png .ods .csv 
	;plus les type chorusPro
	;.bmp" .gif .tif .tiff .svg .fax .xls .xlc .doc .docx .odt .odp .pps .ppt .pptx .bz2 .gz .tgz .gzip .zip .txt .rtf .xhtml .htm .html .p7s .xlm
	;sinon la dll met alors le mimeCode "application/octet-stream"
	;DictionaryAdd(dictionaryitem,"MimeCode","application/vnd.openxmlformats-officedocument.spreadsheetml.sheet")				

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))
	DictionaryAdd(dictionaryitem,"ID", "line.$AdditionalReferencedDocuments.ID_ligne1_idx3")
	DictionaryAdd(dictionaryitem,"TypeCode", "917")
	DictionaryAdd(dictionaryitem,"ReferenceTypeCode", "AAA")
	DictionaryAdd(dictionaryitem,"IssueDateTime","20240224")
	DictionaryAdd(dictionaryitem,"URIID","line.$AdditionalReferencedDocuments.URIID.ligne1_idx3")
	DictionaryAdd(dictionaryitem,"Name","line.$AdditionalReferencedDocuments.Name_ligne1_idx3")
	DictionaryAdd(dictionaryitem,"AttachmentBinaryFile","c:\divalto\sys\extraitcompteexport.xlsx")
	DictionaryAdd(dictionaryitem,"Filename","extraitcompteexport.xlsx")
	;ps obligatoire por les types   .xlsx .pdf .jpg .jpeg .png .ods .csv 
	;plus les type chorusPro
	;.bmp" .gif .tif .tiff .svg .fax .xls .xlc .doc .docx .odt .odp .pps .ppt .pptx .bz2 .gz .tgz .gzip .zip .txt .rtf .xhtml .htm .html .p7s .xlm
	;sinon la dll met alors le mimeCode "application/octet-stream"
	;DictionaryAdd(dictionaryitem,"MimeCode","application/vnd.openxmlformats-officedocument.spreadsheetml.sheet")				
	
	;$UltimateCustomerOrderReferencedDocuments
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$UltimateCustomerOrderReferencedDocuments",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"ID", 		"line.$UltimateCustomerOrderReferencedDocuments.ID_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"LineID", 	"line.$UltimateCustomerOrderReferencedDocuments.LineID_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"IssueDateTime","20240131")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"ID", 		"line.$UltimateCustomerOrderReferencedDocuments.ID_ligne1_idx2")
		DictionaryAdd(dictionaryitem,"LineID", 	"line.$UltimateCustomerOrderReferencedDocuments.LineID_ligne1_idx2")
		DictionaryAdd(dictionaryitem,"IssueDateTime","20240201")
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"ID", 		"line.$UltimateCustomerOrderReferencedDocuments.ID_ligne1_idx3")
		DictionaryAdd(dictionaryitem,"LineID", 	"line.$UltimateCustomerOrderReferencedDocuments.LineID_ligne1_idx3")
		DictionaryAdd(dictionaryitem,"IssueDateTime","20240202")
		
	;$InvoiceReferencedDocuments  , c'est un tableau que d'une seule ligne !il n'est pas multiple
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$InvoiceReferencedDocuments",tostring(dictionarylisteitem))

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"ID", 		"line.$InvoiceReferencedDocuments.ID_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"IssueDateTime","20240203")
		DictionaryAdd(dictionaryitem,"TypeCode","50")		; en mode confort ca commence que a partir de 50
	
	
	;DespatchAdviceReferencedDocument
	DictionaryAdd(dictionary,"DespatchAdviceReferencedDocument.ID","line.DespatchAdviceReferencedDocument.ID_ligne1")
	DictionaryAdd(dictionary,"DespatchAdviceReferencedDocument.LineID","line.DespatchAdviceReferencedDocument.LineID_ligne1")
	DictionaryAdd(dictionary,"DespatchAdviceReferencedDocument.IssueDateTime","20240204")
	
	;ReceivingAdviceReferencedDocument
	DictionaryAdd(dictionary,"ReceivingAdviceReferencedDocument.ID","line.ReceivingAdviceReferencedDocument.ID_ligne1")
	DictionaryAdd(dictionary,"ReceivingAdviceReferencedDocument.LineID","line.ReceivingAdviceReferencedDocument.LineID_ligne1")
	DictionaryAdd(dictionary,"ReceivingAdviceReferencedDocument.IssueDateTime","20240205")

	;$IndividualTradeProductInstances
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$IndividualTradeProductInstances",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"BatchID", 			"line.$IndividualTradeProductInstances.BatchID_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"SupplierAssignedSerialID","line.$IndividualTradeProductInstances.SupplierAssignedSerialID_ligne1_idx1")
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"BatchID", 			"line.$IndividualTradeProductInstances.BatchID_ligne1_idx2")
		DictionaryAdd(dictionaryitem,"SupplierAssignedSerialID","line.$IndividualTradeProductInstances.SupplierAssignedSerialID_ligne1_idx2")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"BatchID", 			"line.$IndividualTradeProductInstances.BatchID_ligne1_idx3")
		DictionaryAdd(dictionaryitem,"SupplierAssignedSerialID","line.$IndividualTradeProductInstances.SupplierAssignedSerialID_ligne1_idx3")
	
	;$IncludedReferencedProducts
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$IncludedReferencedProducts",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"ID", 			"line.$IncludedReferencedProducts.ID_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"SellerAssignedID","line.$IncludedReferencedProducts.SellerAssignedID_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"BuyerAssignedID","line.$IncludedReferencedProducts.BuyerAssignedID_ligne_idx1")
		DictionaryAdd(dictionaryitem,"Name", 			"line.$IncludedReferencedProducts.Name_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"Description", 	"line.$IncludedReferencedProducts.Description_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"UnitQuantity", 	"186")
		DictionaryAdd(dictionaryitem,"unitCode", 		"DAY")
		DictionaryAdd(dictionaryitem,"IndustryAssignedID","line.$IncludedReferencedProducts.IndustryAssignedID_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.ID","line.$IncludedReferencedProducts.GlobalID.ID.ligne1_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID","0088")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"ID", 			"line.$IncludedReferencedProducts.ID_ligne1_idx2")
		DictionaryAdd(dictionaryitem,"SellerAssignedID","line.$IncludedReferencedProducts.SellerAssignedID_ligne1_idx2")
		DictionaryAdd(dictionaryitem,"BuyerAssignedID","line.$IncludedReferencedProducts.BuyerAssignedID_ligne_idx2")
		DictionaryAdd(dictionaryitem,"Name", 			"line.$IncludedReferencedProducts.Name_ligne1_idx2")
		DictionaryAdd(dictionaryitem,"Description", 	"line.$IncludedReferencedProducts.Description_ligne1_idx2")
		DictionaryAdd(dictionaryitem,"UnitQuantity", 	"187")
		DictionaryAdd(dictionaryitem,"unitCode", 		"DAY")
		DictionaryAdd(dictionaryitem,"IndustryAssignedID","line.$IncludedReferencedProducts.IndustryAssignedID_ligne1_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.ID","line.$IncludedReferencedProducts.GlobalID.ID.ligne1_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID","0088")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"ID", 			"line.$IncludedReferencedProducts.ID_ligne1_idx3")
		DictionaryAdd(dictionaryitem,"SellerAssignedID","line.$IncludedReferencedProducts.SellerAssignedID_ligne1_idx3")
		DictionaryAdd(dictionaryitem,"BuyerAssignedID","line.$IncludedReferencedProducts.BuyerAssignedID_ligne_idx3")
		DictionaryAdd(dictionaryitem,"Name", 			"line.$IncludedReferencedProducts.Name_ligne1_idx3")
		DictionaryAdd(dictionaryitem,"Description", 	"line.$IncludedReferencedProducts.Description_ligne1_idx3")
		DictionaryAdd(dictionaryitem,"UnitQuantity", 	"188")
		DictionaryAdd(dictionaryitem,"unitCode", 		"DAY")
		DictionaryAdd(dictionaryitem,"IndustryAssignedID","line.$IncludedReferencedProducts.IndustryAssignedID_ligne1_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.ID","line.$IncludedReferencedProducts.GlobalID.ID.ligne1_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID","0088")

		;NetPriceProductTradePrices.IncludedTradeTaxs
		dictionarylisteitem = DictionaryCreate() 
		DictionaryAdd(dictionary,"$NetPriceProductTradePrices.IncludedTradeTaxs",tostring(dictionarylisteitem))  ;que 1 fois seulement 
	
			dictionaryitem = DictionaryCreate()		
			DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
			DictionaryAdd(dictionaryitem,"CalculatedAmount","189")
			DictionaryAdd(dictionaryitem,"TypeCode", 	"VAT")
			DictionaryAdd(dictionaryitem,"ExemptionReason","line.$NetPriceProductTradePrices.IncludedTradeTaxs.ExemptionReason_ligne1_idx1")
			DictionaryAdd(dictionaryitem,"CategoryCode", "S")
			DictionaryAdd(dictionaryitem,"ExemptionReasonCode","line.$NetPriceProductTradePrices.IncludedTradeTaxs.ExemptionReasonCode_ligne1_idx1")
			DictionaryAdd(dictionaryitem,"RateApplicablePercent","190")

	;QuotationReferencedDocument  => attention c'est sur la ligne dans //ram:IncludedSupplyChainTradeLineItem/ram:SpecifiedLineTradeAgreement/ram:QuotationReferencedDocument
	DictionaryAdd(dictionary,"QuotationReferencedDocument.ID","line.QuotationReferencedDocument.ID")
	DictionaryAdd(dictionary,"QuotationReferencedDocument.LineID","line.QuotationReferencedDocument.LineID")
	DictionaryAdd(dictionary,"QuotationReferencedDocument.IssueDateTime","20240206")
	
	;ContractReferencedDocument
	DictionaryAdd(dictionary,"ContractReferencedDocument.ID","line.ContractReferencedDocument.ID")
	DictionaryAdd(dictionary,"ContractReferencedDocument.LineID","line.ContractReferencedDocument.LineID")
	;DictionaryAdd(dictionary,"ContractReferencedDocument.ReferenceTypeCode","Line.ContractReferencedDocument.ReferenceTypeCode") => ca existe pas en mode ligne 
	DictionaryAdd(dictionary,"ContractReferencedDocument.IssueDateTime","20240207")

	FacturXWritePropsLine(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		

	;ShipTo
	DictionaryAdd(dictionary,"ShipTo.Party.Id","line.ShipTo.Party.Id_ligne1")
	DictionaryAdd(dictionary,"ShipTo.Party.GlobalID.ID", "line.ShipTo.Party.GlobalID.ID_ligne1")
	DictionaryAdd(dictionary,"ShipTo.Party.GlobalID.SchemeID", "0088")
	DictionaryAdd(dictionary,"ShipTo.Party.Name","line.ShipTo.Party.Namen_ligne1")

	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.ID"		,"line.ShipTo.SpecifiedLegalOrganization.ID_ligne1")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.TradingBusinessName","line.ShipTo.SpecifiedLegalOrganization.TradingBusinessName_ligne1")

	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.Postcode"	,"line.ShipTo.SpecifiedLegalOrganization.Postcode_ligne1")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.ContactName",	"line.ShipTo.SpecifiedLegalOrganization.ContactName_ligne1")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.Street"	,"line.ShipTo.SpecifiedLegalOrganization.Street_ligne1")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.AddressLine3","line.ShipTo.SpecifiedLegalOrganization.AddressLine3_ligne1")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.City"		,"line.ShipTo.SpecifiedLegalOrganization.City_ligne1")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"ShipTo.SpecifiedLegalOrganization.CountrySubdivisionName","line.ShipTo.SpecifiedLegalOrganization.CountrySubdivisionName_ligne1")
	
	DictionaryAdd(dictionary,"ShipTo.Contact.Name", 		"line.ShipTo.Contact.Name_ligne1")
	DictionaryAdd(dictionary,"ShipTo.Contact.DepartmentName","line.ShipTo.Contact.DepartmentName_ligne1")
	DictionaryAdd(dictionary,"ShipTo.Contact.TypeCode",	"line.ShipTo.Contact.TypeCode_ligne1")	
	DictionaryAdd(dictionary,"ShipTo.Contact.PhonNo", 		"line.ShipTo.PhonNo_ligne1")
	DictionaryAdd(dictionary,"ShipTo.Contact.FaxNo", 		"line.ShipTo.Contact.FaxNo_ligne1")
	DictionaryAdd(dictionary,"ShipTo.Contact.Emailaddress","line.ShipTo.Contact.Emailaddress_ligne1")
	
	DictionaryAdd(dictionary,"ShipTo.Party.Postcode","line.ShipTo.Party.Postcode_ligne1")
	DictionaryAdd(dictionary,"ShipTo.Party.ContactName","line.ShipTo.Party.ContactName_ligne1")
	DictionaryAdd(dictionary,"ShipTo.Party.Street", "line.ShipTo.Party.Street_ligne1")
	DictionaryAdd(dictionary,"ShipTo.Party.AddressLine3","line.ShipTo.Party.AddressLine3_ligne1")
	DictionaryAdd(dictionary,"ShipTo.Party.City", "line.ShipTo.Party.City_ligne1")
	DictionaryAdd(dictionary,"ShipTo.Party.Country", "FR")
	DictionaryAdd(dictionary,"ShipTo.Party.CountrySubdivisionName","line.ShipTo.Party.CountrySubdivisionName_ligne1")

	DictionaryAdd(dictionary,"ShipTo.Party.URIID.ID",		"line.ShipTo.Party.URIID.ID_ligne1")
	DictionaryAdd(dictionary,"ShipTo.Party.URIID.SchemeID","line.ShipTo.Party.URIID.SchemeID_ligne1")
	
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$ShipTo.Party.GlobalIDs",tostring(dictionarylisteitem))
		
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","line.$ShipTo.Party.GlobalIDs.GlobalID_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","line.$ShipTo.Party.GlobalIDs.GlobalID_ligne1_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","line.$ShipTo.Party.GlobalIDs.GlobalID_ligne1_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$ShipTo.TaxRegistrations",tostring(dictionarylisteitem))
		
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "line.$ShipTo.TaxRegistrations.No_ligne1_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "line.$ShipTo.TaxRegistrations.No_ligne1_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "line.$ShipTo.TaxRegistrations.No_ligne1_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

	FacturXWritePropsLine(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
	
	
	;UltimateShipTo
	DictionaryAdd(dictionary,"UltimateShipTo.Party.Id","line.UltimateShipTo.Party.Id_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.GlobalID.ID", "line.UltimateShipTo.Party.GlobalID.ID_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.GlobalID.SchemeID", "0088")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.Name","line.UltimateShipTo.Party.Name_ligne1")

	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.ID"			,"line.UltimateShipTo.SpecifiedLegalOrganization.ID_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.SchemeID","0088")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.TradingBusinessName","line.UltimateShipTo.SpecifiedLegalOrganization.TradingBusinessName_ligne1")

	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.Postcode"		,"line.UltimateShipTo.SpecifiedLegalOrganization.Postcode_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.ContactName",	"line.UltimateShipTo.SpecifiedLegalOrganization.ContactName_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.Street"		,"line.UltimateShipTo.SpecifiedLegalOrganization.Street_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.AddressLine3","line.UltimateShipTo.SpecifiedLegalOrganization.AddressLine3_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.City"			,"line.UltimateShipTo.SpecifiedLegalOrganization.City_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.Country","FR")
	DictionaryAdd(dictionary,"UltimateShipTo.SpecifiedLegalOrganization.CountrySubdivisionName","line.UltimateShipTo.SpecifiedLegalOrganization.CountrySubdivisionName_ligne1")

	DictionaryAdd(dictionary,"UltimateShipTo.Contact.Name", 		"line.UltimateShipTo.Contact.Name_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.Contact.DepartmentName","line.UltimateShipTo.Contact.DepartmentName_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.Contact.TypeCode",	"line.UltimateShipTo.Contact.TypeCode_ligne1")	
	DictionaryAdd(dictionary,"UltimateShipTo.Contact.PhonNo", 		"line.UltimateShipTo.PhonNo_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.Contact.FaxNo", 		"line.UltimateShipTo.Contact.FaxNo_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.Contact.Emailaddress","line.UltimateShipTo.Contact.Emailaddress_ligne1")

	DictionaryAdd(dictionary,"UltimateShipTo.Party.Postcode","line.UltimateShipTo.Party.Postcode_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.ContactName","line.UltimateShipTo.Party.ContactName_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.Street", "line.UltimateShipTo.Party.Street_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.AddressLine3","line.UltimateShipTo.Party.AddressLine3_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.City", "line.UltimateShipTo.Party.City_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.Country", "FR")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.CountrySubdivisionName","line.UltimateShipTo.Party.CountrySubdivisionName_ligne1")

	DictionaryAdd(dictionary,"UltimateShipTo.Party.URIID.ID",		"line.UltimateShipTo.Party.URIID.ID_ligne1")
	DictionaryAdd(dictionary,"UltimateShipTo.Party.URIID.SchemeID","line.UltimateShipTo.Party.URIID.SchemeID_ligne1")
	
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$UltimateShipTo.Party.GlobalIDs",tostring(dictionarylisteitem))
		
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","line.$UltimateShipTo.Party.GlobalIDs.GlobalID_ligne1_idx1")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		
			
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","line.$UltimateShipTo.Party.GlobalIDs.GlobalID_ligne1_idx2")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"GlobalID.ID","line.$UltimateShipTo.Party.GlobalIDs.GlobalID_ligne1_idx3")
		DictionaryAdd(dictionaryitem,"GlobalID.SchemeID", "0088")		
	
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$UltimateShipTo.TaxRegistrations",tostring(dictionarylisteitem))
		
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "line.$UltimateShipTo.TaxRegistrations.No_ligne1_idx1")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "line.$UltimateShipTo.TaxRegistrations.No_ligne1_idx2")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem ,"No", "line.$UltimateShipTo.TaxRegistrations.No_ligne1_idx3")
		DictionaryAdd(dictionaryitem  ,"SchemeID", "VA")


	;SpecifiedTradeAllowanceCharge
	dictionarylisteitem = DictionaryCreate()	 
	DictionaryAdd(dictionary,"$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges",tostring(dictionarylisteitem))
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))		
		DictionaryAdd(dictionaryitem,"IsDiscount", "false")	
	   DictionaryAdd(dictionaryitem,"CalculationPercent","195")
		DictionaryAdd(dictionaryitem,"BasisAmount","191")
		DictionaryAdd(dictionaryitem,"ActualAmount","192")
		DictionaryAdd(dictionaryitem,"ReasonCode","AAA")
		DictionaryAdd(dictionaryitem,"Reason","line.$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges.Reason_ligne1_idx1")

		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))		
		DictionaryAdd(dictionaryitem,"IsDiscount", "false")	
		DictionaryAdd(dictionaryitem,"CalculationPercent","200")
		DictionaryAdd(dictionaryitem,"BasisAmount","196")
		DictionaryAdd(dictionaryitem,"ActualAmount","197")
		DictionaryAdd(dictionaryitem,"ReasonCode","AAA")
		DictionaryAdd(dictionaryitem,"Reason","line.$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges.Reason_ligne1_idx2")
	
		dictionaryitem = DictionaryCreate()		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))		
		DictionaryAdd(dictionaryitem,"IsDiscount", "false")	
	   DictionaryAdd(dictionaryitem,"CalculationPercent","205") 
		DictionaryAdd(dictionaryitem,"BasisAmount","201")
		DictionaryAdd(dictionaryitem,"ActualAmount","202")
		DictionaryAdd(dictionaryitem,"ReasonCode","AAA")
		DictionaryAdd(dictionaryitem,"Reason","line.$SpecifiedTradeAllowanceCharge.TradeAllowanceCharges.Reason_ligne1_idx3")

	FacturXWritePropsLine(dictionary)
	LectureErreur

	;
	; fin ligne 1
	;
	FacturXWriteLine() 
	LectureErreur

	;*--------------------------------------------------------------
	

	;------------------------------------
	dictionary = DictionaryCreate()		
	DictionaryAdd(dictionary,"LineTotalAmount","206")   ;obligatoire ***
	DictionaryAdd(dictionary,"ChargeTotalAmount","207")
	DictionaryAdd(dictionary,"AllowanceTotalAmount","208")
	DictionaryAdd(dictionary,"TaxBasisAmount","209")
	DictionaryAdd(dictionary,"TaxTotalAmount","210")
	DictionaryAdd(dictionary,"GrandTotalAmount", "211")
	DictionaryAdd(dictionary,"TotalPrepaidAmount", "212")
	DictionaryAdd(dictionary,"RoundingAmount", "213")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		

	;PaymentTerms
	DictionaryAdd(dictionary,"PaymentTerms.Description","PaymentTerms.Description")
	DictionaryAdd(dictionary,"PaymentTerms.DueDate","20240220")
	
	;soit on utilise le mode direct
	DictionaryAdd(dictionary,"PaymentMeans.TypeCode","20")   ;****		 Cheque
	
	DictionaryAdd(dictionary,"PaymentMeans.Information", "PaymentMeans.Information")
	DictionaryAdd(dictionary,"PaymentMeans.IdentifikationsNummer","PaymentMeans.IdentifikationsNummer")
	DictionaryAdd(dictionary,"PaymentMeans.MandatsNummer","PaymentMeans.MandatsNummer")
	
	;soit on utilise le mode carte bleue
	DictionaryAdd(dictionary,"PaymentMeans.FinancialCardTypeCode","48")   ;*** BankCard (par exmple )
	
	DictionaryAdd(dictionary,"PaymentMeans.FinancialCardId","PaymentMeans.FinancialCardId")
	DictionaryAdd(dictionary,"PaymentMeans.FinancialCardCardholderName","PaymentMeans.FinancialCardCardholderName")
	DictionaryAdd(dictionary,"PaymentMeans.FinancialCardInformation","PaymentMeans.FinancialCardInformation")
	
	;soit on utilise le mode SEPA
	DictionaryAdd(dictionary,"PaymentMeans.SEPACreditorIdentifierTypeCode","58")   ;*** 58 SEPA credit   59 SEPA debit
	
	DictionaryAdd(dictionary,"PaymentMeans.SEPACreditorIdentifier","PaymentMeans.SEPACreditorIdentifier")
	DictionaryAdd(dictionary,"PaymentMeans.SEPAMandateReference","PaymentMeans.SEPAMandateReference")
	DictionaryAdd(dictionary,"PaymentMeans.SEPADirectDebitInformation","PaymentMeans.SEPADirectDebitInformation")
	;attention car ce sont les memes champs dans le fichier xml avec juste un type de payment différent et donc si on fait mélange, 
	;les valeurs écrasent les valeurs précedentes, ici c'est juste un exemple pour tester les props mais dans la réalité il ne doit y avoir qu'un seul mode de payement

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		
	
	;$LogisticsServiceCharges
	dictionarylisteitem = DictionaryCreate() 
	DictionaryAdd(dictionary,"$LogisticsServiceCharges",tostring(dictionarylisteitem))

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
	DictionaryAdd(dictionaryitem,"Amount","214")
	DictionaryAdd(dictionaryitem,"Description","$LogisticsServiceCharges.Description_idx1")
	DictionaryAdd(dictionaryitem,"TaxTypeCode", "VAT")
	DictionaryAdd(dictionaryitem,"TaxCategoryCode","S")
	DictionaryAdd(dictionaryitem,"TaxPercent", "215")

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
	DictionaryAdd(dictionaryitem,"Amount","216")
	DictionaryAdd(dictionaryitem,"Description","$LogisticsServiceCharges.Description_idx2")
	DictionaryAdd(dictionaryitem,"TaxTypeCode", "VAT")
	DictionaryAdd(dictionaryitem,"TaxCategoryCode","S")
	DictionaryAdd(dictionaryitem,"TaxPercent", "217")

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
	DictionaryAdd(dictionaryitem,"Amount","218")
	DictionaryAdd(dictionaryitem,"Description","$LogisticsServiceCharges.Description_idx3")
	DictionaryAdd(dictionaryitem,"TaxTypeCode", "VAT")
	DictionaryAdd(dictionaryitem,"TaxCategoryCode","S")
	DictionaryAdd(dictionaryitem,"TaxPercent", "219")

	FacturXWriteProps(dictionary)
	LectureErreur
	dictionary = DictionaryCreate()		

	;$Taxes
	dictionarylisteitem = DictionaryCreate()  
	DictionaryAdd(dictionary,"$Taxes",tostring(dictionarylisteitem))

	dictionaryitem = DictionaryCreate()		
	DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))	
		DictionaryAdd(dictionaryitem,"BasisAmount", "220")		
		DictionaryAdd(dictionaryitem,"TypeCode","VAT")		 ;obligatoire mais la dll met VAT par defaut
		DictionaryAdd(dictionaryitem,"Percent", "221")
		DictionaryAdd(dictionaryitem,"AllowanceChargeBasisAmount","222")
		DictionaryAdd(dictionaryitem,"ExemptionReasonCode","$Taxes.ExemptionReasonCode_idx1")
		DictionaryAdd(dictionaryitem,"ExemptionReason","$Taxes.ExemptionReason_idx1")
		DictionaryAdd(dictionaryitem,"TaxPointDate","20240219")
		DictionaryAdd(dictionaryitem,"LineTotalBasisAmount","223")
		DictionaryAdd(dictionaryitem,"DueDateTypeCode","5")
      ;DictionaryAdd(dictionaryitem,"TaxAmount","400")	 ;c'est en fait CalculatedAmount			

		dictionaryitem = DictionaryCreate() 		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))		
		DictionaryAdd(dictionaryitem,"BasisAmount", "224")		
		DictionaryAdd(dictionaryitem,"Percent", "225")
		DictionaryAdd(dictionaryitem,"TypeCode","VAT")
		DictionaryAdd(dictionaryitem,"CategoryCode","S")
		DictionaryAdd(dictionaryitem,"AllowanceChargeBasisAmount","226")
		DictionaryAdd(dictionaryitem,"ExemptionReasonCode","$Taxes.ExemptionReasonCode_idx2")
		DictionaryAdd(dictionaryitem,"ExemptionReason","$Taxes.ExemptionReason_idx2")
      ;DictionaryAdd(dictionaryitem,"TaxAmount","400")	 ;c'est en fait CalculatedAmount

		dictionaryitem = DictionaryCreate() 		
		DictionaryAdd(dictionarylisteitem,tostring(dictionaryitem),tostring(dictionaryitem))		
		DictionaryAdd(dictionaryitem,"BasisAmount", "227")		
		DictionaryAdd(dictionaryitem,"Percent", "228")
		DictionaryAdd(dictionaryitem,"TypeCode","VAT")
		DictionaryAdd(dictionaryitem,"CategoryCode","S")
		DictionaryAdd(dictionaryitem,"AllowanceChargeBasisAmount","229")
		DictionaryAdd(dictionaryitem,"ExemptionReasonCode","$Taxes.ExemptionReasonCode_idx3")
		DictionaryAdd(dictionaryitem,"ExemptionReason","$Taxes.ExemptionReason_idx3")
      ;DictionaryAdd(dictionaryitem,"TaxAmount","400")	 ;c'est en fait CalculatedAmount

	FacturXWriteProps(dictionary)
	LectureErreur

	;--------------------------------------------------------------
	   
	display "Ecriture du fichier " & left(fic)
	;retour = FacturXWriteEnd(left("zz:\ddd\txt.xml"))   ;pour tester erreur creation fichier 
	;if retour <> " " | display "erreur " & retour |	else | display "ok" | endif
	;LectureErreur

	retour = FacturXWriteEnd(left(fic))
	if retour <> " " | display "erreur " & retour |else | display "ok" | endif
	LectureErreur
	
	;input " " car
		
endp