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>