Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r48264 -r48305
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48264)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48305)
@@ -4,12 +4,12 @@
 <Super>vhUnitTest.TestCase</Super>
 
 <Property name="PartijApiMock">
-<Type>DOM.PARTIJ.PartijAPI</Type>
+<Type>vhTest.Mock.DOM.PARTIJ.PartijAPI</Type>
 <Private>1</Private>
 </Property>
 
 <Property name="VerkoopApiMock">
-<Type>DOM.VKP.VerkoopAPI</Type>
+<Type>vhTest.Mock.DOM.VKP.VerkoopAPI</Type>
 <Private>1</Private>
 </Property>
 
@@ -32,11 +32,19 @@
 <Method name="Test Standaard gedrag Bij update van bestaande klant">
 <Implementation><![CDATA[
 	Do ..VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1111").DanReturn($$$True)
-	#Dim PartijMock as DOM.PARTIJ.Partij = ..GeefPartij()
+	#Dim PartijMock as vhTest.Mock.DOM.PARTIJ.Partij = ..GeefPartij()
 	Do ..PartijApiMock.VerwachtMethodCall("GeefPartij","K||1111").DanReturn(PartijMock)
+	
+	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
+	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 
 	Do PartijMock.VerwachtMethodCall("ZetBTWNr","BE0430459769").DanDoeNiks()
 	Do PartijMock.VerwachtMethodCall("ZetTaal","N").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetAanspreking","BVBA").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetNaam","Klant1").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetToenaam","Toenaam").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetTelefoon1","03-464 00 91").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetAdres",..Matches.Object(..GeefAddress())).DanDoeNiks()
 	Do PartijMock.VerwachtMethodCall("Save").DanDoeNiks()
 
 	Do ..GeefConverter().Convert(..GeefCust("01111","Klant1"))
@@ -70,7 +78,6 @@
 	Do ..VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1111").DanReturn($$$False)
 		
 	#dim VerwachteKlantDto as DOM.common.dto.Partij = ..GeefKlantDto()
-
 	Set Matcher1 = ##class(vhUnitTest.AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter.PartijMatcher).%New(VerwachteKlantDto)
 	Do ..KlantLevenCyclusServiceMock.VerwachtMethodCall("MaakKlant",Matcher1,"ONDERNEMING").DanDoeNiks()
 	
@@ -112,25 +119,34 @@
     Set KlantDto.Fax = "03-464 12 34"
 	Set KlantDto.FrequentieAanbrengerCommissie = ""
     Set KlantDto.KlantNaam = "Klant1"
+    Set KlantDto.Toenaam = "Toenaam"
     Set KlantDto.KlantNummer = 1111
     Set KlantDto.Muntcode = "EUR"
     Set KlantDto.Opmerking1 = ""
     Set KlantDto.Prijsklase = ""
     Set KlantDto.Taal = "N"
     Set KlantDto.Telefoon1 = "03-464 00 91"
-    Set KlantDto.Toenaam = ""	
     
-    Set Adres =  ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+
+	Set KlantDto.Adres = ..GeefAddress()
+ 
+	Quit KlantDto
+]]></Implementation>
+</Method>
+
+<Method name="GeefAddress">
+<Private>1</Private>
+<ReturnType>DOM.common.Adres</ReturnType>
+<Implementation><![CDATA[
+	Set Adres =  ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
     Do Adres.ZetAanspreking("DU PONT BVBA")
 	Do Adres.ZetGemeente("PULDERBOS")
 	Do Adres.ZetLandNr(1019)
 	Do Adres.ZetPostcode("2242")
 	Do Adres.ZetStraat("KLEINHEIDE 24A")
 	Do Adres.ZetTaal("N")
 	Do Adres.ZetType("")
-	Set KlantDto.Adres = Adres
- 
-	Quit KlantDto
+	Quit Adres
 ]]></Implementation>
 </Method>
 
@@ -149,6 +165,7 @@
 	Set Cust.CustAccount = CustAccount
 	Set Cust.LanguageId = "nl-be"	
 	Set Cust.Name = Name _ " BVBA"
+	Set Cust.LastName = "Toenaam"
 	Set Cust.PartyNumber = "000000922"
     Set Cust.PriceException = "No"
 	Set Cust.VATNum = "0430.459.769"