Index: AXimpl/AxToAdminUtils.cls.xml
===================================================================
diff -u -r48288 -r48378
--- AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 48288)
+++ AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 48378)
@@ -202,6 +202,15 @@
 <FormalSpec>DlvMode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	Set VerzendWijze=""
+	For {
+		Set VerzendWijze=$O(^RES("KLANT","PI","VERZENDWAX","D",VerzendWijze))
+		Quit:(VerzendWijze="")
+		Quit:($Piece(^RES("KLANT","PI","VERZENDWAX","D",VerzendWijze), "\", 1) = DlvMode)
+	}
+	Do:(""=VerzendWijze) ##class(TECH.ExceptionHandler).Throw("Geen Admin verzendwijze gevonden voor AX DlvMod '" _ DlvMode _ "'.")
+	Quit VerzendWijze
+	
 	;Quit:(""=DlvMode) "AFC"
 	;Quit:(""=DlvMode) "DD1"
 	;Quit:(""=DlvMode) "DIR"