Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u -r48305 -r48388
--- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 48305)
+++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 48388)
@@ -80,9 +80,13 @@
 	Do KlantPartij.ZetToenaam(..GeefKlantToenaam(Cust))
 	Do KlantPartij.ZetTaal(..GeefTaal(Cust))
 	Do KlantPartij.ZetTelefoon1(..GeefTelefoon1(Cust))
+	#dim PrimairAdres As DOM.VKP.LeverAdres = ..GeefPrimairAdres(Cust, "Update")
 	;Do KlantPartij.Zet ??? (..GeefFax(Cust)) geen zetbare property op klant of partij
-	Do KlantPartij.ZetAdres(..GeefPrimairAdres(Cust))
+	Do KlantPartij.ZetAdres(PrimairAdres)
 	Do KlantPartij.Save()
+	
+	Do:($$$Not(""=PrimairAdres.GeefVerzendingWijze())) Klant.ZetVerzendingWijze(PrimairAdres.GeefVerzendingWijze())
+	Do Klant.Save()
 ]]></Implementation>
 </Method>
 
@@ -109,8 +113,12 @@
 	; Set dtoKlant.Opmerking1 = ???
 	; Set dtoKlant.FrequentieAanbrengerCommissie = ???
 
-	Set dtoKlant.Adres = ..GeefPrimairAdres(Cust)
+	Set dtoKlant.Adres = ..GeefPrimairAdres(Cust, "Insert")
 	#dim PartijID As DOM.common.PartijID = ..KlantLevenCyclusService.MaakKlant(dtoKlant,TypeTemplateKlant)
+	
+	#Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(PartijID)	
+	Do Klant.ZetVerzendingWijze(dtoKlant.Adres.GeefVerzendingWijze())
+	Do Klant.Save()
 ]]></Implementation>
 </Method>
 
@@ -145,7 +153,7 @@
 </Method>
 
 <Method name="GeefPrimairAdres">
-<FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
+<FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,InsertOfUpdate:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
@@ -162,6 +170,7 @@
 			Do Adres.ZetPostcode(Address.ZipCode)
 			Do Adres.ZetStraat(Address.Street)
 			Do Adres.ZetTaal(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId))
+			Do Adres.ZetVerzendingWijze(..MaakVerzendingWijze(Address.DlvModeId, Cust.CustAccount, InsertOfUpdate))
 			;??? Do Adres.ZetToenaam("AdresToenaam")
 			Do Adres.ZetType("")
 		}
@@ -170,6 +179,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakVerzendingWijze">
+<FormalSpec>DlvMode:%String,CustAccount:%String,InsertOfUpdate:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim VerzendWijzeAdmin = ""
+	Try {
+		Set VerzendWijzeAdmin = ..AxToAdminUtils.ConvertVerzendingWijze(DlvMode)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("AXimpl.AxToAdminUtils.ConvertVerzendingWijze.NeemDI1IndienNietGevondenActief") {
+			Do ..Logger.ErrorMail("MaakVerzendingWijze gefaald", "Klant='"_CustAccount_"', Probleem: "_Exception.ToString())
+		} Else {
+			Do ..Logger.Warning("MaakVerzendingWijze gefaald", "Klant='"_CustAccount_"', Probleem: "_Exception.ToString())
+		}
+		If ("Insert" = InsertOfUpdate) {
+			Set VerzendWijzeAdmin = $Translate(##class(DOM.VKP.enu.VerzendWijze).Distributeur1()," ")
+		} Else {
+			Set VerzendWijzeAdmin = ""
+		}
+	}
+	Quit VerzendWijzeAdmin
+]]></Implementation>
+</Method>
+
 <Method name="GeefFax">
 <FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
 <Private>1</Private>
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"
Index: vhTest/Fake/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u -r48261 -r48388
--- vhTest/Fake/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 48261)
+++ vhTest/Fake/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 48388)
@@ -9,8 +9,7 @@
 
 <Method name="Convert">
 <FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="ElecRolesContains">