Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r48309 -r48388
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48309)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48388)
@@ -38,35 +38,102 @@
 	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
 	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 
+	Do ..VerwachtZetNawGegevens(PartijMock, ..GeefAddress())
+
+	Do KlantMock.VerwachtMethodCall("ZetVerzendingWijze", "DI1").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
+	
+	Do ..GeefConverter().Convert(..GeefCust("01111","Klant1"))
+
+	Do ..PartijApiMock.Verifieer()
+	Do ..VerkoopApiMock.Verifieer()
+	Do PartijMock.Verifieer()
+	Do KlantMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="VerwachtZetNawGegevens">
+<FormalSpec>PartijMock:vhTest.Mock.DOM.PARTIJ.Partij,Adres:DOM.VKP.LeverAdres</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	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("ZetAdres",..Matches.Object(Adres)).DanDoeNiks()
 	Do PartijMock.VerwachtMethodCall("Save").DanDoeNiks()
+]]></Implementation>
+</Method>
 
-	Do ..GeefConverter().Convert(..GeefCust("01111","Klant1"))
+<Method name="Test Geen update van verzendwijze bij update klant, indien ongekende verzendwijze">
+<Implementation><![CDATA[
+	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)
 
+	#dim Adres As DOM.VKP.LeverAdres = ..GeefAddress()
+	Do Adres.ZetVerzendingWijze("")
+
+	Do ..VerwachtZetNawGegevens(PartijMock, Adres)
+
+	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
+	
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefCust("01111","Klant1")
+	Set Cust.PostalAddress.GetAt(1).DlvModeId = "UnitTestOngekendeDlvMode"
+	Do ..GeefConverter().Convert(Cust)
+
 	Do ..PartijApiMock.Verifieer()
 	Do ..VerkoopApiMock.Verifieer()
 	Do PartijMock.Verifieer()
+	Do KlantMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test Standaard gedrag bij creatie nieuwe klant">
 <Implementation><![CDATA[
+	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
+	Do ..VerwachtMaakKlantMetDI1VerzendWijze(KlantMock)
+	
+	Do ..GeefConverter().Convert(..GeefCust("01111","Klant1"))
+	
+	Do ..VerkoopApiMock.Verifieer()
+	Do ..KlantLevenCyclusServiceMock.Verifieer()
+	Do KlantMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="VerwachtMaakKlantMetDI1VerzendWijze">
+<FormalSpec>KlantMock:vhTest.Mock.DOM.VKP.VanHoeckeKlant</FormalSpec>
+<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").DanDoeNiks()
+	Do ..KlantLevenCyclusServiceMock.VerwachtMethodCall("MaakKlant",Matcher1,"ONDERNEMING").DanReturn("K||1111")
 	
-	Do ..GeefConverter().Convert(..GeefCust("01111","Klant1"))
+	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
+	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetVerzendingWijze", "DI1").DanDoeNiks()
+]]></Implementation>
+</Method>
+
+<Method name="Test Zet DI1 bij nieuwe klant indien gekregen verzendwijze ongekend is">
+<Implementation><![CDATA[
+	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
+	Do ..VerwachtMaakKlantMetDI1VerzendWijze(KlantMock)
 	
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefCust("01111","Klant1")
+	Set Cust.PostalAddress.GetAt(1).DlvModeId = "UnitTestOngekendeDlvMode"
+	Do ..GeefConverter().Convert(Cust)
+	
 	Do ..VerkoopApiMock.Verifieer()
 	Do ..KlantLevenCyclusServiceMock.Verifieer()
+	Do KlantMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -78,14 +145,21 @@
 	Set VerwachteKlantDto.KlantNaam = "Klant1 GEENBVBA"
 	Set VerwachteKlantDto.Aanspreking = ""
 	Set Matcher1 = ##class(vhUnitTest.AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter.PartijMatcher).%New(VerwachteKlantDto)
-	Do ..KlantLevenCyclusServiceMock.VerwachtMethodCall("MaakKlant",Matcher1,"ONDERNEMING").DanDoeNiks()
+	Do ..KlantLevenCyclusServiceMock.VerwachtMethodCall("MaakKlant",Matcher1,"ONDERNEMING").DanReturn("K||1111")
 	
+	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
+	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
+	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetVerzendingWijze", "DI1").DanDoeNiks()
+	
 	#dim Cust as AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefCust("01111","Klant1")
 	Set Cust.Name = "Klant1 GEENBVBA"
+
 	Do ..GeefConverter().Convert(Cust)
 	
 	Do ..VerkoopApiMock.Verifieer()
 	Do ..KlantLevenCyclusServiceMock.Verifieer()
+	Do KlantMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -143,7 +217,7 @@
 
 <Method name="GeefAddress">
 <Private>1</Private>
-<ReturnType>DOM.common.Adres</ReturnType>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
 	Set Adres =  ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
     Do Adres.ZetAanspreking("KLANT1 BVBA")
@@ -153,6 +227,7 @@
 	Do Adres.ZetStraat("KLEINHEIDE 24A")
 	Do Adres.ZetTaal("N")
 	Do Adres.ZetType("")
+	Do Adres.ZetVerzendingWijze("DI1")
 	Quit Adres
 ]]></Implementation>
 </Method>
@@ -187,7 +262,7 @@
     Set Address.City="PULDERBOS"
     Set Address.CountryRegionId="BEL"
     Set Address.Description="KLANT1 BVBA"
-    Set Address.DlvModeId="GLS"
+    Set Address.DlvModeId="DI1"
     Set Address.IsPrimary="Yes"
     Set Address.IsPrimaryForCountry="No"
     Set Address.Street="KLEINHEIDE 24A"