Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37772 -r37782
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37772)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37782)
@@ -3,28 +3,81 @@
 <Class name="vhUnitTest.AXimpl.BizTalkMessage.Converter.CustomerConverter.Convert.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: properties die 1 op 1 worden overgenomen (wel met een maxlen)">
+<Property name="Partij">
+<Type>vhTest.Mock.DOM.PARTIJ.Partij</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Klant">
+<Type>vhTest.Mock.DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijAPI">
+<Type>vhTest.Mock.DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>vhTest.Mock.DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Partij As vhTest.Utils.DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
-	#dim Klant As vhTest.Utils.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do ##super(aTestName)
 	
-	Set PartijAPI = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
-	Do PartijAPI.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(Partij)
+	Set ..Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	Set ..Klant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
 	
-	Set VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
-	Do VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(Klant)
+	Set ..PartijAPI = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	Do ..PartijAPI.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(..Partij)
 	
-	Do Partij.IndienMethodCall("GeefToenaam").DanReturn("Een toenaam die zeker meer dan 50 karakters lang zou moeten zijn")
+	Set ..VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do ..VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..Klant)
+]]></Implementation>
+</Method>
+
+<Method name="Test: properties die 1 op 1 worden overgenomen (wel met een maxlen)">
+<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.Customer = Converter.Convert(Klant.GeefID())
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
 	
 	Do $$$AssertEquals(GeconverteerdeKlant.Klantnummer,"K||1234")
 	Do $$$AssertEquals(GeconverteerdeKlant.Naam,"DE NAAM")
 	Do $$$AssertEquals(GeconverteerdeKlant.Toenaam,"Een toenaam die zeker meer dan 50 karakters lang z")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: enkel eerste telefoonnummer meenemen als die ingevuld is">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("03/123489dnf9")
+	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("123456")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"03/123489dnf9")
+]]></Implementation>
+</Method>
+
+<Method name="Test: als eerste telefoonnummer leeg is, dan tweede overnemen">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
+	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("03/987654")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"03/987654")
+]]></Implementation>
+</Method>
 </Class>