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
+