Index: AXimpl/AdminToAxUtils.cls.xml
===================================================================
diff -u -r47731 -r48379
--- AXimpl/AdminToAxUtils.cls.xml	(.../AdminToAxUtils.cls.xml)	(revision 47731)
+++ AXimpl/AdminToAxUtils.cls.xml	(.../AdminToAxUtils.cls.xml)	(revision 48379)
@@ -209,6 +209,17 @@
 	Quit ##class(BL.Flow.Offerte.enu.Oorsprong).IngaveOV()
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertVerzendingWijze">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>VerzendWijze:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set DlvMode=$Piece( $Get(^RES("KLANT","PI","VERZENDWAX","D",VerzendWijze)), "\", 1)
+	Do:(""=DlvMode) ##class(TECH.ExceptionHandler).Throw("Geen AX Delivery Mode gevonden voor Admin Verzendwijze '" _ VerzendWijze _ "'.")
+	Quit DlvMode
+]]></Implementation>
+</Method>
 </Class>