Index: AXimpl/AdminToAxUtils.cls.xml
===================================================================
diff -u -r48679 -r48715
--- AXimpl/AdminToAxUtils.cls.xml	(.../AdminToAxUtils.cls.xml)	(revision 48679)
+++ AXimpl/AdminToAxUtils.cls.xml	(.../AdminToAxUtils.cls.xml)	(revision 48715)
@@ -217,10 +217,20 @@
 <Implementation><![CDATA[
 	Do:(""=VerzendWijze) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen AX Delivery Mode vindbaar voor lege Admin Verzendwijze!"))
 	Quit:("AFC"=VerzendWijze) "AFH" // Uitzondering: geen 1-op-1 mapping bij AFC, want AFC bestaat in AX niet (wordt dus uitgefaseerd).
+	Quit:("DI1;1`DI1;2`DI1;3`DI1;4`DI1;5"=VerzendWijze) "DI1"
+	Quit:("DI2;1`DI2;2`DI2;3`DI2;4`DI2;5"=VerzendWijze) "DI2"
+	Quit:("OD;1`OD;2`OD;3`OD;4`OD;5"=VerzendWijze) "OD"
+	Quit:("EX;"=$Extract(VerzendWijze,1,3)) "EX"
 	
 	Set VerzendWijze = $Translate( VerzendWijze, "`", "&" ) // vhPOPEDIT aanvaardt geen single backquotes; daarom is gekozen voor een andere separator.
 	
 	Set DlvMode=$Piece( $Get(^RES("KLANT","PI","VERZENDWAX","D",VerzendWijze), ""), "`", 2)
+	
+	Set:("Levermethode = OD1 Do"=DlvMode) DlvMode="OD1 Do"
+	Set:( (""=DlvMode) && (VerzendWijze?1"R"2N) ) DlvMode="AFH"
+	Set:( (""=DlvMode) && ##class(TECH.StringUtils).Equals(VerzendWijze, "TNC", "TPC", "TPU", "VT") ) DlvMode="DI1"
+
+	
 	Do:(""=DlvMode) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen AX Delivery Mode gevonden voor Admin Verzendwijze '" _ VerzendWijze _ "'."))
 	Quit DlvMode
 ]]></Implementation>