Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r48481 -r48545
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48481)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48545)
@@ -18,11 +18,16 @@
 <Private>1</Private>
 </Property>
 
-<Property name="LeverAdresFactoryMock">
-<Type>DOM.VKP.impl.LeverAdresFactory</Type>
+<Property name="LandRepositoryMock">
+<Type>DOM.common.Locatie.impl.LandRepository</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="LeverAdresUtilsMock">
+<Type>vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -31,7 +36,8 @@
 	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()
+	Set ..LandRepositoryMock = ##class(vhTest.Mock.DOM.common.Locatie.impl.LandRepository).%New()
+	Set ..LeverAdresUtilsMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New()
 ]]></Implementation>
 </Method>
 
@@ -49,6 +55,15 @@
 	Do KlantMock.VerwachtMethodCall("ZetVerzendingWijze", "DI1").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	
+	Do ..LeverAdresUtilsMock.IndienMethodCall("GeefPrimairAdres",KlantMock,"Update").DanReturn(..GeefAddress())
+	
+	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
+	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
+	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
+	
+	Do ..LeverAdresUtilsMock.IndienMethodCall("GeefPrimairAdres",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressenBestaandeKlant",KlantMock,$$$ElkeWaarde).DanDoeNiks()
+	
 	Do ..GeefConverter().Convert(..GeefCust("01111","Klant1"))
 
 	Do ..PartijApiMock.Verifieer()
@@ -73,41 +88,63 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Geen update van verzendwijze bij update klant, indien ongekende verzendwijze">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test Geen update van verzendwijze bij update klant, indien ongekende verzendwijze"()
+{
 	Do ..VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1111").DanReturn($$$True)
 	#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 ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
+	
 	#dim Adres As DOM.VKP.LeverAdres = ..GeefAddress()
 	Do Adres.ZetVerzendingWijze("")
 
 	Do ..VerwachtZetNawGegevens(PartijMock, Adres)
 
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
+	;Do KlantMock.VerwachtMethodCall("GeefLeverAdressen").DanDoeNiks()
 	
+	Do ..LeverAdresUtilsMock.IndienMethodCall("GeefPrimairAdres",KlantMock,"Update").DanReturn(..GeefAddress())
+	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefCust("01111","Klant1")
 	Set Cust.PostalAddress.GetAt(1).DlvModeId = "UnitTestOngekendeDlvMode"
+	
+	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
+	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
+	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
+	
+	Do ..LeverAdresUtilsMock.IndienMethodCall("GeefPrimairAdres",Cust,$$$ElkeWaarde).DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressenBestaandeKlant",KlantMock,Cust).DanDoeNiks()
+	
 	Do ..GeefConverter().Convert(Cust)
 
 	Do ..PartijApiMock.Verifieer()
 	Do ..VerkoopApiMock.Verifieer()
 	Do PartijMock.Verifieer()
 	Do KlantMock.Verifieer()
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Test Standaard gedrag bij creatie nieuwe klant">
 <Implementation><![CDATA[
 	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
 	Do ..VerwachtMaakKlantMetDI1VerzendWijze(KlantMock)
 	
-	#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"))
+	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
+	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
+	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
 	
+	Do ..LeverAdresUtilsMock.IndienMethodCall("GeefPrimairAdres",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressenNieuweKlant",KlantMock,$$$ElkeWaarde).DanDoeNiks()
+	
+	Do ..GeefConverter().Convert(..GeefCust("01111","Klant1"))
+	
 	Do ..VerkoopApiMock.Verifieer()
 	Do ..KlantLevenCyclusServiceMock.Verifieer()
 	Do KlantMock.Verifieer()
@@ -125,12 +162,10 @@
 	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>
 
@@ -142,9 +177,15 @@
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefCust("01111","Klant1")
 	Set Cust.PostalAddress.GetAt(1).DlvModeId = "UnitTestOngekendeDlvMode"
 	
-	#dim Converter As AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter = ##class(AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter).%New(..PartijApiMock, ..VerkoopApiMock,..KlantLevenCyclusServiceMock,,,..LeverAdresFactoryMock)
-	Do Converter.Convert(Cust)
+	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
+	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
+	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
 	
+	Do ..LeverAdresUtilsMock.IndienMethodCall("GeefPrimairAdres",Cust,$$$ElkeWaarde).DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressenNieuweKlant",KlantMock,Cust).DanDoeNiks()
+	
+	Do ..GeefConverter().Convert(Cust)
+	
 	Do ..VerkoopApiMock.Verifieer()
 	Do ..KlantLevenCyclusServiceMock.Verifieer()
 	Do KlantMock.Verifieer()
@@ -165,10 +206,16 @@
 	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"
+	
+	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
+	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
+	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
+	
+	Do ..LeverAdresUtilsMock.IndienMethodCall("GeefPrimairAdres",Cust,$$$ElkeWaarde).DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressenNieuweKlant",KlantMock,Cust).DanDoeNiks()
 
 	Do ..GeefConverter().Convert(Cust)
 	
@@ -181,7 +228,7 @@
 <Method name="GeefConverter">
 <Private>1</Private>
 <ReturnType>AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter</ReturnType>
-<Implementation><![CDATA[	Quit ##class(AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter).%New(..PartijApiMock, ..VerkoopApiMock,..KlantLevenCyclusServiceMock,)
+<Implementation><![CDATA[	Quit ##class(AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter).%New(..PartijApiMock, ..VerkoopApiMock,..KlantLevenCyclusServiceMock, ..LandRepositoryMock, ..LeverAdresUtilsMock,)
 ]]></Implementation>
 </Method>
 
@@ -234,7 +281,7 @@
 <Private>1</Private>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
-	Set Adres =  ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	#dim Adres As DOM.VKP.LeverAdres =  ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	Do Adres.ZetNaam("KLANT1")
     Do Adres.ZetAanspreking("BVBA")
 	Do Adres.ZetGemeente("PULDERBOS")