Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml =================================================================== diff -u -r37943 -r37945 --- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 37943) +++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 37945) @@ -91,6 +91,7 @@ Do $$$AssertEquals(GeconverteerdeKlant.Fax,"012/345678") Do $$$AssertEquals(GeconverteerdeKlant.VerkortNummer,"7001") Do $$$AssertEquals(GeconverteerdeKlant.Email,"info@example.com") + Do $$$AssertEquals(GeconverteerdeKlant.Taal,"nl-be") Do $$$AssertEquals(GeconverteerdeKlant.BIDIMedewerker,"abcde") Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml =================================================================== diff -u -r37944 -r37945 --- AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml (.../DixfGenerator.cls.xml) (revision 37944) +++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml (.../DixfGenerator.cls.xml) (revision 37945) @@ -52,6 +52,7 @@ Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "BezoekadresPlaats") Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "BezoekadresStraat") Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "BezoekadresVerzendwijze") + Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "Taal") #dim AXKlantData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased Set AXKlantData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New() Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml =================================================================== diff -u -r37943 -r37945 --- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 37943) +++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 37945) @@ -78,6 +78,7 @@ Set ..Customer.Fax = ..Partij.GeefTelefax() Set ..Customer.VerkortNummer = ..Partij.GeefVerkortNummer() Set ..Customer.Email = ..Partij.GeefEmail() + Set ..Customer.Taal = ..Formatter.FormatLanguageId(..Partij.GeefTaal()) ]]> Index: AXBizTalk/Crm/Customer/Customer.cls.xml =================================================================== diff -u -r37943 -r37945 --- AXBizTalk/Crm/Customer/Customer.cls.xml (.../Customer.cls.xml) (revision 37943) +++ AXBizTalk/Crm/Customer/Customer.cls.xml (.../Customer.cls.xml) (revision 37945) @@ -145,6 +145,10 @@ list + +%String + + %Library.CacheSerialState CustomerState @@ -270,6 +274,9 @@ BezoekadresLandcode + +Taal +