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.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.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
|