Index: vhUnitTest/AXimpl/AdminToAxUtils/Test.cls.xml
===================================================================
diff -u -r42172 -r48679
--- vhUnitTest/AXimpl/AdminToAxUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 42172)
+++ vhUnitTest/AXimpl/AdminToAxUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 48679)
@@ -26,6 +26,13 @@
 	Do $$$AssertEquals(ConvertedKlantID,"00000","")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Convert VerzendWijze: andere separator">
+<Implementation><![CDATA[
+	Set Converter = ##class(AXimpl.AdminToAxUtils).%New()
+	Do $$$AssertEquals(Converter.ConvertVerzendingWijze("DI1;1`DI1;2`DI1;4`DI1;5"), "DI1 NietWo")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXimpl/AdminToAxUtils.cls.xml
===================================================================
diff -u -r48670 -r48679
--- AXimpl/AdminToAxUtils.cls.xml	(.../AdminToAxUtils.cls.xml)	(revision 48670)
+++ AXimpl/AdminToAxUtils.cls.xml	(.../AdminToAxUtils.cls.xml)	(revision 48679)
@@ -216,8 +216,10 @@
 <ReturnType>%String</ReturnType>
 <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...
+	Quit:("AFC"=VerzendWijze) "AFH" // Uitzondering: geen 1-op-1 mapping bij AFC, want AFC bestaat in AX niet (wordt dus uitgefaseerd).
 	
+	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)
 	Do:(""=DlvMode) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen AX Delivery Mode gevonden voor Admin Verzendwijze '" _ VerzendWijze _ "'."))
 	Quit DlvMode
Index: AXimpl/AxToAdminUtils.cls.xml
===================================================================
diff -u -r48481 -r48679
--- AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 48481)
+++ AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 48679)
@@ -209,6 +209,7 @@
 		Quit:($Piece(^RES("KLANT","PI","VERZENDWAX","D",VerzendWijze), "`", 2) = DlvMode)
 	}
 	Do:(""=VerzendWijze) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen Admin verzendwijze gevonden voor AX DlvMod '" _ DlvMode _ "'."))
+	Set VerzendWijze = $Translate( VerzendWijze, "&", "`" ) // vhPOPEDIT aanvaardt geen single backquotes; daarom is gekozen voor een andere separator.
 	Quit VerzendWijze
 	
 	;Quit:(""=DlvMode) "AFC"
Index: vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml
===================================================================
diff -u -r47167 -r48679
--- vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 47167)
+++ vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 48679)
@@ -64,6 +64,13 @@
 	Do $$$AssertEquals(Converter.ConvertZuluTimeStampToTimeStamp("2017-10-30 10:23:13"),"2017-10-30 11:23:13")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Convert VerzendWijze: andere separator">
+<Implementation><![CDATA[
+	Set Converter = ##class(AXimpl.AxToAdminUtils).%New()
+	Do $$$AssertEquals(Converter.ConvertVerzendingWijze("DI1 NietWo"),"DI1;1`DI1;2`DI1;4`DI1;5")
+]]></Implementation>
+</Method>
 </Class>