Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37945 -r37964
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37945)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37964)
@@ -59,6 +59,7 @@
 	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New())
 	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn("")
 	Do ..Klant.IndienMethodCall("GeefVerzendWijze").DanReturn("")
+	Do ..Klant.IndienMethodCall("GeefBTWNr").DanReturn("BE9600001234")
 	
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
 ]]></Implementation>
@@ -67,8 +68,9 @@
 <Method name="Test: toenaam max 50 lang">
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("Een toenaam die zeker meer dan 50 karakters lang zou moeten zijn")
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)	
 	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
 	
 	Do $$$AssertEquals(GeconverteerdeKlant.Toenaam,"Een toenaam die zeker meer dan 50 karakters lang z")
@@ -77,12 +79,12 @@
 
 <Method name="Test: properties die 1 op 1 worden overgenomen">
 <Implementation><![CDATA[
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)	
-	
 	Do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("012/345678")
 	Do ..Partij.IndienMethodCall("GeefVerkortNummer").DanReturn("7001")
 	Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("info@example.com")
 	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
 	
 	Do $$$AssertEquals(GeconverteerdeKlant.Klantnummer,"01234")
@@ -92,6 +94,7 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.VerkortNummer,"7001")
 	Do $$$AssertEquals(GeconverteerdeKlant.Email,"info@example.com")
 	Do $$$AssertEquals(GeconverteerdeKlant.Taal,"nl-be")	
+	Do $$$AssertEquals(GeconverteerdeKlant.BTWnummer,"9600.001.234")	
 	
 	Do $$$AssertEquals(GeconverteerdeKlant.BIDIMedewerker,"abcde")
 	
@@ -117,6 +120,15 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresPlaats,"")
 	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresStraat,"")
 	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresVerzendwijze,"")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitKeuken,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitHandel,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitMeubelhandel,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitScholen,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitOpenbareBesturen,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitConsument,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitLeverancier,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitSoftware,"")
 ]]></Implementation>
 </Method>
 
@@ -204,51 +216,51 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: onbekende activiteit omzetten naar &apos;Andere&apos; (969950021)">
+<Method name="Test: onbekende activiteit omzetten naar &apos;Leeg&apos; (969950022)">
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn($$$DummyString)
 	
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
 	
-	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950021")
+	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950022")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: geen activiteit omzetten naar &apos;Andere&apos; (969950021)">
+<Method name="Test: geen activiteit omzetten naar &apos;Leeg&apos; (969950022)">
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
 	
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
 	
-	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950021")
+	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950022")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Kwantitatief: indien niet gevonden, defaulten naar 969950014">
+<Method name="Test: Kwantitatief: indien niet gevonden, defaulten naar 969950015">
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("")
 	
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
 	
-	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950014")
+	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950015")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Kwantitatief: indien onbekend, defaulten naar 969950014">
+<Method name="Test: Kwantitatief: indien onbekend, defaulten naar 969950015">
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn($$$DummyString)
 	
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
 	
-	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950014")
+	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950015")
 ]]></Implementation>
 </Method>
 
@@ -264,35 +276,115 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Kwaliteit: indien bekend, omzetten">
+<Method name="Test: Kwaliteit bekend voor &apos;Handel&apos;">
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Handel")
 	
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
 	
-	Do $$$AssertEquals(GeconverteerdeKlant.Kwaliteit,"969950001")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitHandel,"969950001")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Kwaliteit: indien onbekend, leeg maken">
+<Method name="Test: Kwaliteit bekend voor &apos;Meubelhandel&apos;">
 <Implementation><![CDATA[
-	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("")
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Meubelhandel")
 	
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
 	
-	Do $$$AssertEquals(GeconverteerdeKlant.Kwaliteit,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitMeubelhandel,"969950001")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Kwaliteit bekend voor &apos;Keuken&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Keuken")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitKeuken,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit bekend voor &apos;Scholen&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Scholen")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitScholen,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit bekend voor &apos;Consument&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Consument")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitConsument,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit bekend voor &apos;Openbare Besturen&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Openbare besturen")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitOpenbareBesturen,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit bekend voor &apos;Leverancier&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Leverancier")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitLeverancier,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit bekend voor &apos;Software&apos;">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Software")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitSoftware,"969950001")
+]]></Implementation>
+</Method>
+
 <Method name="Test: 2 leveradressen aanwezig -&gt; 2 leveradressen in resultaat">
 <Implementation><![CDATA[
 	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(1))	
 	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(2))
-
+	
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
@@ -337,7 +429,7 @@
 
 <Method name="Test: 0 leveradressen en 1 bezoekadres aanwezig -&gt; 0 leveradressen in resultaat">
 <Implementation><![CDATA[
-	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New())	
+	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New())
 	
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
@@ -370,7 +462,7 @@
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
+		
 	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresLandcode,"BEL")
 ]]></Implementation>
 </Method>