Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestVerzendwijze.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestVerzendwijze.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestVerzendwijze.cls.xml	(revision 55676)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.Convert.TestVerzendwijze">
+<Super>vhUnitTest.AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.Convert.Base</Super>
+
+<Method name="Test: Verzendwijze DI1 wordt gezet voor GLS levering met adres in Belgie">
+<Implementation><![CDATA[
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder()
+	Do OrderMock.VerwachtMethodCall("ZetVerzendingWijze", "DI1").ExactAantalKeer(1)
+	
+	#dim StandaardOrder As AXif.Dynamics.SalesOrderIn.Envelope = ##class(vhTest.Utils.AXif.Dynamics.SalesOrderIn.Envelope).StandaardOrder()
+	Set StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).DlvMode = "DI1"
+	
+	Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock), ..GeefOrderLevensCyclusServiceMock(OrderMock), , ,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(),, ..GeefToeleveringService(), ,,..GeefSalesOrderLineStatusRepository(),,,..GeefLeverAdresMakerRepository(),..GeefLandRepository(##class(DOM.common.enu.Land).Belgie()))
+	Do SalesOrderConverter.Convert(StandaardOrder)
+	
+	Do OrderMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendwijze GL4 wordt gezet voor GLS levering met adres in Duitsland">
+<Implementation><![CDATA[
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder()
+	Do OrderMock.VerwachtMethodCall("ZetVerzendingWijze", "GL4").ExactAantalKeer(1)
+
+	#dim StandaardOrder As AXif.Dynamics.SalesOrderIn.Envelope = ##class(vhTest.Utils.AXif.Dynamics.SalesOrderIn.Envelope).StandaardOrder()
+	Set StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).DlvMode = "DI1"
+	
+	Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock), ..GeefOrderLevensCyclusServiceMock(OrderMock), , ,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(),, ..GeefToeleveringService(), ,,..GeefSalesOrderLineStatusRepository(),,,..GeefLeverAdresMakerRepository(),..GeefLandRepository(##class(DOM.common.enu.Land).Duitsland()))
+	Do SalesOrderConverter.Convert(StandaardOrder)
+	
+	Do OrderMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverAdresMakerRepository">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker</ReturnType>
+<Implementation><![CDATA[
+	#dim AfleverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	Do AfleverAdres.ZetTelefoon("+3237601900")
+	
+	Set LeverAdresMakerRepositoryStub = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker).%New()
+	Do LeverAdresMakerRepositoryStub.IndienMethodCall("MaakLeverAdres",$$$ElkeWaarde).DanReturn(AfleverAdres)
+	Quit LeverAdresMakerRepositoryStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefLandRepository">
+<FormalSpec>LandNr:DOM.common.enu.Land</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.common.Locatie.impl.LandRepository</ReturnType>
+<Implementation><![CDATA[
+	Set LandMock = ##class(vhTest.Mock.DOM.common.Land).%New()
+	Do LandMock.IndienMethodCall("GeefID").DanReturn(LandNr)
+
+	Set LandRepositoryMock = ##class(vhTest.Mock.DOM.common.Locatie.impl.LandRepository).%New()
+	Do LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso2", $$$ElkeWaarde).DanReturn(LandMock)
+	Quit LandRepositoryMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrder">
+<ReturnType>vhTest.Mock.DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.IndienMethodCall("ZetDocumentReferenties", $$$ElkeWaarde).DanDoeNiks()
+	Do OrderMock.IndienMethodCall("GeefDocumentReferenties").DanReturn("")
+	Do OrderMock.IndienMethodCall("ZetCreatieDatum", $$$ElkeWaarde).DanDoeNiks()
+	Do OrderMock.IndienMethodCall("ZetMunt", $$$ElkeWaarde).DanDoeNiks()
+	Do OrderMock.IndienMethodCall("ZetEDINummer", $$$ElkeWaarde).DanDoeNiks()
+	Do OrderMock.IndienMethodCall("ZetLeveringVoorwaarde", $$$ElkeWaarde).DanDoeNiks()
+	Do OrderMock.IndienMethodCall("ZetIngegevenDoor", $$$ElkeWaarde).DanDoeNiks()
+	Do OrderMock.IndienMethodCall("ZetIngegevenOpTijdstip", $$$ElkeWaarde).DanDoeNiks()
+	Do OrderMock.IndienMethodCall("ZetOorsprong", $$$ElkeWaarde).DanDoeNiks()
+	Do OrderMock.IndienMethodCall("ZetStatus", $$$ElkeWaarde).DanDoeNiks()
+	Do OrderMock.IndienMethodCall("ZetAxSalesId", $$$ElkeWaarde).DanDoeNiks()
+	Do OrderMock.IndienMethodCall("GeefAxSalesId").DanReturn("VO1600010000")
+	Do OrderMock.IndienMethodCall("ZetTekstVoorAfdrukDocumentType", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do OrderMock.IndienMethodCall("HerlaadLijnen").DanDoeNiks()
+	Do OrderMock.IndienMethodCall("BestaatOrderLijnViaAxInventTransId",$$$ElkeWaarde).DanReturn($$$False)
+
+	Do OrderMock.IndienMethodCall("GeefKlantID").DanReturn("DummyKlantID")
+	Do OrderMock.IndienMethodCall("GeefTypeOrderLijnIterator", $$$ElkeWaarde).DanReturn(..GeefDummyIterator($$$True))
+	Do OrderMock.IndienMethodCall("GeefID").DanReturn("DummyOrderID")
+
+	Do OrderMock.VerwachtMethodCall("ZetAfleveradres", $$$ElkeWaarde).DanDoeNiks()
+
+	Quit OrderMock
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/AxToAdminUtils.cls.xml
===================================================================
diff -u -r55645 -r55676
--- AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 55645)
+++ AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 55676)
@@ -243,7 +243,12 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>DlvMode:%String,LandNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..ConvertVerzendingWijze(DlvMode)
+<Implementation><![CDATA[
+	#dim VerzendWijze As %String = ..ConvertVerzendingWijze(DlvMode)
+	If LandNr = ##class(DOM.common.enu.Land).Duitsland() {
+		Set VerzendWijze = $Replace(VerzendWijze,"DI1","GL4")
+	}
+	Quit VerzendWijze
 ]]></Implementation>
 </Method>