Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37809 -r37810
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37809)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37810)
@@ -39,6 +39,7 @@
 	
 	Do ..Klant.IndienMethodCall("GeefInterneVerantwoordelijke").DanReturn("Verantwoordelijke")
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
+	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("")
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
 ]]></Implementation>
 </Method>
@@ -178,15 +179,39 @@
 
 <Method name="Test: Kwantitatief: indien niet gevonden, defaulten naar 969950014">
 <Implementation><![CDATA[
-	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
+	Do ..Klant.IndienMethodCall("GeefKwantitatief").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")
+	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950014")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Kwantitatief: indien onbekend, defaulten naar 969950014">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn($$$DummyString)
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950014")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwantitatief: indien bekend, omzetten">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("AR/BP A")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950008")
+]]></Implementation>
+</Method>
 </Class>