Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r49743 -r49786
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 49743)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 49786)
@@ -52,7 +52,6 @@
 
 	Do ..VerwachtZetNawGegevens(PartijMock, ..GeefAddress())
 
-	Do KlantMock.VerwachtMethodCall("ZetVerzendingWijze", "DI1").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock).DanReturn(..GeefAddress())
@@ -129,7 +128,7 @@
 <Method name="Test Standaard gedrag bij creatie nieuwe klant">
 <Implementation><![CDATA[
 	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
-	Do ..VerwachtMaakKlantMetDI1VerzendWijze(KlantMock)
+	Do ..VerwachtMaakKlant(KlantMock)
 	
 	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
 	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
@@ -146,7 +145,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwachtMaakKlantMetDI1VerzendWijze">
+<Method name="VerwachtMaakKlant">
 <FormalSpec>KlantMock:vhTest.Mock.DOM.VKP.VanHoeckeKlant</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -160,14 +159,13 @@
 	
 	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)
+	Do ..VerwachtMaakKlant(KlantMock)
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefCust("01111","Klant1")
 	Set Cust.PostalAddress.GetAt(1).DlvModeId = "UnitTestOngekendeDlvMode"
@@ -287,7 +285,6 @@
     Set Address.City="PULDERBOS"
     Set Address.CountryRegionId="BEL"
     Set Address.Description="KLANT1 BVBA"
-    Set Address.DlvModeId="DI1"
     Set Address.IsPrimary="Yes"
     Set Address.IsPrimaryForCountry="No"
     Set Address.Street="KLEINHEIDE 24A"
Index: AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml
===================================================================
diff -u -r49782 -r49786
--- AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml	(.../AdresZetter.cls.xml)	(revision 49782)
+++ AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml	(.../AdresZetter.cls.xml)	(revision 49786)
@@ -49,7 +49,6 @@
 	Do Adres.ZetGemeente(Address.City)
 	Do Adres.ZetLandNr(..LandRepository.GeefViaLandCodeIso3(Address.CountryRegionId).GeefID())
 	Do Adres.ZetTaal(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId))
-	Do Adres.ZetVerzendingWijze(..MaakVerzendingWijze(Address.DlvModeId, Cust.CustAccount, Address.LocationId))
 	Do Adres.ZetType("")
 	If $$$Not(IsPrimairAdres) {
 		Do Adres.ZetNaam($Extract(Address.Description,1,25))
@@ -59,6 +58,8 @@
 		Do Adres.ZetType(..AxToAdminUtils.ConvertLeverAdresType(Address.Role))
 		Do Adres.ZetAxLeveradresId(Address.LocationId)
 		Do Adres.ZetVolmacht($Extract(Address.TransporterAuth,1,35))
+		Do Adres.ZetVerzendingWijze(..MaakVerzendingWijze(Address.DlvModeId, Cust.CustAccount, Address.LocationId))
+		Do Adres.ZetKlantAdresNr(BestaandLeverAdres.GeefKlantAdresNr())
 	}
 	Quit Adres
 ]]></Implementation>
Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u -r49753 -r49786
--- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 49753)
+++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 49786)
@@ -91,7 +91,6 @@
 	Do KlantPartij.ZetAdres(PrimairAdres)
 	Do KlantPartij.Save()
 	
-	Do:($$$Not(""=PrimairAdres.GeefVerzendingWijze())) Klant.ZetVerzendingWijze(PrimairAdres.GeefVerzendingWijze())
 	Do Klant.Save()
 	Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust)
 ]]></Implementation>
@@ -124,7 +123,6 @@
 	#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()
 	Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust)
 ]]></Implementation>