Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml
===================================================================
diff -u -r49790 -r49873
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml	(.../Test.cls.xml)	(revision 49790)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml	(.../Test.cls.xml)	(revision 49873)
@@ -75,6 +75,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Als voor een LeverAdres AX geen DlvMode meegeeft wordt een error gelogd">
+<Implementation><![CDATA[
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("Error","DlvMode is leeg","Klant='01234': Geen DlvMode meegegeven door AX voor LeverAdres met LocationId '"_..#AxLocationId_"'").DanDoeNiks()
+	
+	Set AdresZetter = ##class(AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New(,LoggerMock)
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = ..GeefAxLeverAdres()
+	Set Address.DlvModeId = ""
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCust()
+	#dim BestaandLeverAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	#dim IsPrimairAdres As %Boolean = $$$False
+	#dim GezetAdres As DOM.VKP.LeverAdres = AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, IsPrimairAdres)
+	
+	Do $$$AssertEquals(GezetAdres.GeefVerzendingWijze(),"")
+	Do $$$AssertEquals(GezetAdres.GeefAxLeveradresId(),..#AxLocationId)
+	Do LoggerMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Voor het HoofdAdres moet Naam  afgekapt worden op 27 karakters">
 <Implementation><![CDATA[
 	Set AdresZetter = ##class(AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
@@ -142,6 +162,7 @@
 <ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</ReturnType>
 <Implementation><![CDATA[
 	Set AxCust = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust).%New()
+	Set AxCust.CustAccount = "01234"
 	Set AxCust.LanguageId = "nl-be"
 	Quit AxCust
 ]]></Implementation>
Index: AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml
===================================================================
diff -u -r49790 -r49873
--- AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml	(.../AdresZetter.cls.xml)	(revision 49790)
+++ AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml	(.../AdresZetter.cls.xml)	(revision 49873)
@@ -63,7 +63,7 @@
 		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.ZetVerzendingWijze($$$If(Address.DlvModeId="",..GeefDlvModeIsLeeg(Cust.CustAccount, Address.LocationId),..MaakVerzendingWijze(Address.DlvModeId, Cust.CustAccount, Address.LocationId)))
 		Do Adres.ZetKlantAdresNr(BestaandLeverAdres.GeefKlantAdresNr())
 	}
 	Quit Adres
@@ -83,9 +83,9 @@
 	} 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())
+			Do ..Logger.ErrorMail("MaakVerzendingWijze gefaald", "Klant='"_CustAccount_"': Voor LeverAdres met LocationId '"_LocationId_"': "_Exception.ToString())
 		} Else {
-			Do ..Logger.Warning("MaakVerzendingWijze gefaald", "Klant='"_CustAccount_"', Probleem: "_Exception.ToString())
+			Do ..Logger.Warning("MaakVerzendingWijze gefaald", "Klant='"_CustAccount_"': Voor LeverAdres met LocationId '"_LocationId_"': "_Exception.ToString())
 		}
 		If ("Insert" = InsertOfUpdate) {
 			Set VerzendWijzeAdmin = $Translate(##class(DOM.VKP.enu.VerzendWijze).Distributeur1()," ")
@@ -96,6 +96,16 @@
 	Quit VerzendWijzeAdmin
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDlvModeIsLeeg">
+<FormalSpec>CustAccount:%String,LocationId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Do ..Logger.Error("DlvMode is leeg", "Klant='"_CustAccount_"': Geen DlvMode meegegeven door AX voor LeverAdres met LocationId '"_LocationId_"'")
+	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r49786 -r49873
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 49786)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 49873)
@@ -72,21 +72,6 @@
 ]]></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","").DanDoeNiks()
-	Do PartijMock.VerwachtMethodCall("ZetNaam","Klant1").DanDoeNiks()
-	Do PartijMock.VerwachtMethodCall("ZetToenaam","").DanDoeNiks()
-	Do PartijMock.VerwachtMethodCall("ZetTelefoon1","03-464 00 91").DanDoeNiks()
-	Do PartijMock.VerwachtMethodCall("ZetAdres",..Matches.Object(Adres)).DanDoeNiks()
-	Do PartijMock.VerwachtMethodCall("Save").DanDoeNiks()
-]]></Implementation>
-</Method>
-
 <Method name="Test Geen update van verzendwijze bij update klant, indien ongekende verzendwijze">
 <Implementation><![CDATA[
 	Do ..VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1111").DanReturn($$$True)
@@ -102,7 +87,6 @@
 	Do ..VerwachtZetNawGegevens(PartijMock, Adres)
 
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
-	;Do KlantMock.VerwachtMethodCall("GeefLeverAdressen").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock).DanReturn(..GeefAddress())
 	
@@ -145,46 +129,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwachtMaakKlant">
-<FormalSpec>KlantMock:vhTest.Mock.DOM.VKP.VanHoeckeKlant</FormalSpec>
-<Private>1</Private>
-<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").DanReturn("K||1111")
-	
-	#dim LeverAdres As DOM.VKP.LeverAdres = ..GeefAddress()
-	
-	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
-	Do KlantMock.VerwachtMethodCall("Save").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 ..VerwachtMaakKlant(KlantMock)
-	
-	#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("MaakPrimairAdres",Cust).DanReturn(..GeefAddress())
-	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressen",KlantMock,Cust).DanDoeNiks()
-	
-	Do ..GeefConverter().Convert(Cust)
-	
-	Do ..VerkoopApiMock.Verifieer()
-	Do ..KlantLevenCyclusServiceMock.Verifieer()
-	Do KlantMock.Verifieer()
-]]></Implementation>
-</Method>
-
 <Method name="GeefConverter">
 <Private>1</Private>
 <ReturnType>AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter</ReturnType>
@@ -201,6 +145,21 @@
 ]]></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","").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetNaam","Klant1").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetToenaam","").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetTelefoon1","03-464 00 91").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetAdres",..Matches.Object(Adres)).DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("Save").DanDoeNiks()
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlant">
 <Private>1</Private>
 <ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
@@ -210,6 +169,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwachtMaakKlant">
+<FormalSpec>KlantMock:vhTest.Mock.DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Private>1</Private>
+<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").DanReturn("K||1111")
+	
+	#dim LeverAdres As DOM.VKP.LeverAdres = ..GeefAddress()
+	
+	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
+	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantDto">
 <Private>1</Private>
 <ReturnType>DOM.common.dto.Partij</ReturnType>