Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37808 -r37809
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37808)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37809)
@@ -38,6 +38,7 @@
 	Do ..VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..Klant)
 	
 	Do ..Klant.IndienMethodCall("GeefInterneVerantwoordelijke").DanReturn("Verantwoordelijke")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
 ]]></Implementation>
 </Method>
@@ -138,6 +139,54 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.Status,"0")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: gekende activiteit omzetten naar specifieke Value">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Architect")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950000")
+]]></Implementation>
+</Method>
+
+<Method name="Test: onbekende activiteit omzetten naar &apos;Andere&apos; (969950021)">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn($$$DummyString)
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950021")
+]]></Implementation>
+</Method>
+
+<Method name="Test: geen activiteit omzetten naar &apos;Andere&apos; (969950021)">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950021")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwantitatief: indien niet gevonden, defaulten naar 969950014">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950021")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r37808 -r37809
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37808)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37809)
@@ -89,7 +89,32 @@
 
 <Method name="ConvertAdminSegmentering">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..Customer.Regio = ..Klant.GeefRegio()
+<Implementation><![CDATA[
+	Set ..Customer.Regio = ..Klant.GeefRegio()
+	Set ..Customer.Activiteit = $Case(..Klant.GeefActiviteit(),
+		"Architect"										: "969950000",
+		"Architectenbureau (projectbureau)" 			: "969950001",
+		"Badkamer" 										: "969950002",
+		"Bouwpromotor" 									: "969950003",
+		"Bureau" 										: "969950004",
+		"Consument" 									: "969950005",
+		"Handel" 										: "969950006",
+		"Interieur architectenbureau" 					: "969950007",
+		"Interieurbouw" 								: "969950008",
+		"Keuken" 										: "969950009",
+		"Keuken en badkamer" 							: "969950010",
+		"Leverancier" 									: "969950011",
+		"Meubelhandel" 									: "969950012",
+		"Openbare besturen" 							: "969950013",
+		"Projecten" 									: "969950014",
+		"Relatie" 										: "969950015",
+		"Scholen" 										: "969950016",
+		"Software" 										: "969950017",
+		"Winkelinrichting" 								: "969950018",
+		"Woon-en slaapkamer" 							: "969950019",
+		"Zelfstandig interieurarchitect" 				: "969950020",
+														: "969950021"
+		)
 ]]></Implementation>
 </Method>
 </Class>
Index: AXBizTalk/Customer.cls.xml
===================================================================
diff -u -r37808 -r37809
--- AXBizTalk/Customer.cls.xml	(.../Customer.cls.xml)	(revision 37808)
+++ AXBizTalk/Customer.cls.xml	(.../Customer.cls.xml)	(revision 37809)
@@ -55,6 +55,10 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="Activiteit">
+<Type>%String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>CustomerState</State>
@@ -93,6 +97,9 @@
 <Value name="11">
 <Value>Regio</Value>
 </Value>
+<Value name="12">
+<Value>Activiteit</Value>
+</Value>
 </Data>
 </Storage>
 </Class>