Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r48388 -r48481
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48388)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48481)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LeverAdresFactoryMock">
+<Type>DOM.VKP.impl.LeverAdresFactory</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -26,6 +31,7 @@
 	Set ..VerkoopApiMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
 	Set ..PartijApiMock = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).MockInstance()
 	Set ..KlantLevenCyclusServiceMock = ##class(vhTest.Mock.APPS.KlantBeheer.KlantLevenCyclusService).%New()
+	Set ..LeverAdresFactoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
 ]]></Implementation>
 </Method>
 
@@ -99,7 +105,8 @@
 	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
 	Do ..VerwachtMaakKlantMetDI1VerzendWijze(KlantMock)
 	
-	Do ..GeefConverter().Convert(..GeefCust("01111","Klant1"))
+	#dim Converter As AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter = ##class(AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter).%New(..PartijApiMock, ..VerkoopApiMock,..KlantLevenCyclusServiceMock,,,..LeverAdresFactoryMock)
+	Do Converter.Convert(..GeefCust("01111","Klant1"))
 	
 	Do ..VerkoopApiMock.Verifieer()
 	Do ..KlantLevenCyclusServiceMock.Verifieer()
@@ -109,16 +116,21 @@
 
 <Method name="VerwachtMaakKlantMetDI1VerzendWijze">
 <FormalSpec>KlantMock:vhTest.Mock.DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	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").DanReturn("K||1111")
 	
+	#dim LeverAdres As DOM.VKP.LeverAdres = ..GeefAddress()
+	Do ..LeverAdresFactoryMock.IndienMethodCall("MaakLeverAdres").DanReturn(LeverAdres)
+	
 	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetVerzendingWijze", "DI1").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("VoegToeLeverAdres", LeverAdres).DanDoeNiks()
 ]]></Implementation>
 </Method>
 
@@ -129,8 +141,10 @@
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefCust("01111","Klant1")
 	Set Cust.PostalAddress.GetAt(1).DlvModeId = "UnitTestOngekendeDlvMode"
-	Do ..GeefConverter().Convert(Cust)
 	
+	#dim Converter As AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter = ##class(AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter).%New(..PartijApiMock, ..VerkoopApiMock,..KlantLevenCyclusServiceMock,,,..LeverAdresFactoryMock)
+	Do Converter.Convert(Cust)
+	
 	Do ..VerkoopApiMock.Verifieer()
 	Do ..KlantLevenCyclusServiceMock.Verifieer()
 	Do KlantMock.Verifieer()
@@ -151,6 +165,7 @@
 	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetVerzendingWijze", "DI1").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("VoegToeLeverAdres", $$$ElkeWaarde).DanDoeNiks()
 	
 	#dim Cust as AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefCust("01111","Klant1")
 	Set Cust.Name = "Klant1 GEENBVBA"
@@ -220,7 +235,8 @@
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
 	Set Adres =  ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
-    Do Adres.ZetAanspreking("KLANT1 BVBA")
+	Do Adres.ZetNaam("KLANT1")
+    Do Adres.ZetAanspreking("BVBA")
 	Do Adres.ZetGemeente("PULDERBOS")
 	Do Adres.ZetLandNr(1019)
 	Do Adres.ZetPostcode("2242")