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"