Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml
===================================================================
diff -u -r53166 -r55679
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml	(.../Test.cls.xml)	(revision 53166)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml	(.../Test.cls.xml)	(revision 55679)
@@ -107,6 +107,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Verzendwijze DI1 wordt GL4 voor leveradressen in duitsland">
+<Implementation><![CDATA[
+	Set AdresZetter = ##class(AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = ..GeefAxLeverAdresDuitsland()
+	Set Address.DlvModeId = "DI1 MaDiWo"
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCust()
+	#dim BestaandLeverAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	Do BestaandLeverAdres.ZetTelefoon("03/1234567")
+	Do BestaandLeverAdres.ZetUniekId("000099999")
+	#dim IsPrimairAdres As %Boolean = $$$False
+	#dim GezetAdres As DOM.VKP.LeverAdres = AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, IsPrimairAdres)
+	
+	Do $$$AssertEquals(GezetAdres.GeefPostcode(),"DE-57462")
+	Do $$$AssertEquals(GezetAdres.GeefLandNr(),"1052")
+	Do $$$AssertEquals(GezetAdres.GeefVerzendingWijze(),"GL4;1`GL4;2`GL4;3")
+]]></Implementation>
+</Method>
+
 <Method name="Test: LineFeed in de Straat worden vervangen door een spatie">
 <Implementation><![CDATA[
 	Set AdresZetter = ##class(AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
@@ -387,6 +406,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAxLeverAdresDuitsland">
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress</ReturnType>
+<Implementation><![CDATA[
+	Set AxPostalAddress = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress).%New()
+	Set AxPostalAddress.ZipCode = "57462"
+	Set AxPostalAddress.CountryRegionId = "DEU"
+	
+	Set AxRole = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityRole).%New()
+	Set AxRole.Name = "Delivery"
+	
+	Do AxPostalAddress.Role.Insert(AxRole)
+	
+	Quit AxPostalAddress
+]]></Implementation>
+</Method>
+
 <Method name="GeefAxElectronicAddressLijstMetInCacheGekendeLocationId">
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>