Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r39533 -r39825
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 39533)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 39825)
@@ -68,7 +68,9 @@
 	Do ..Klant.IndienMethodCall("GeefOpmerking8").DanReturn("Opmerking8")
 	Do ..Klant.IndienMethodCall("GeefOpmerking9").DanReturn("Opmerking9")
 	Do ..Klant.IndienMethodCall("HeeftFactuurVerzendingViaMail").DanReturn($$$False)
-	Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn("email@example.com")	
+	#dim EmailAdressenLijst = ##class(%ListOfDataTypes).%New()
+	Do EmailAdressenLijst.Insert("email@example.com")
+	Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn(EmailAdressenLijst)
 	
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
 ]]></Implementation>
@@ -490,16 +492,42 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 2 facturatieadressen met komma ertussen -&gt; leegmaken">
+<Method name="Test: 1 facturatieadres -&gt; invullen">
 <Implementation><![CDATA[
-	Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn("email@example.com,email@example.com")	
+	#dim EmailAdressenLijst = ##class(%ListOfDataTypes).%New()
+	Do EmailAdressenLijst.Insert("email@example.com")
+	Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn(EmailAdressenLijst)
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
+	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieNaar,"email@example.com")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 2 facturatieadressen -&gt; leegmaken">
+<Implementation><![CDATA[
+	#dim EmailAdressenLijst = ##class(%ListOfDataTypes).%New()
+	Do EmailAdressenLijst.Insert("email@example.com")
+	Do EmailAdressenLijst.Insert("email2@example.com")
+	Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn(EmailAdressenLijst)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieNaar,"")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Geen facturatieadressen -&gt; leegmaken">
+<Implementation><![CDATA[
+	#dim EmailAdressenLijst = ##class(%ListOfDataTypes).%New()
+	Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn(EmailAdressenLijst)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieNaar,"")
+]]></Implementation>
+</Method>
+
 <Method name="GeefCustomer">
 <FormalSpec>KlantId:%String</FormalSpec>
 <ReturnType>AXBizTalk.Crm.Customer.Customer</ReturnType>