Index: AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml
===================================================================
diff -u -r48894 -r55641
--- AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml	(.../KlantDixfConverter.cls.xml)	(revision 48894)
+++ AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml	(.../KlantDixfConverter.cls.xml)	(revision 55641)
@@ -373,38 +373,12 @@
 <Implementation><![CDATA[
 	#dim DlvModeId As %String
 	
-	Set DlvModeId = ..ConvertVerzendingWijze(KlantData.GeefVerzendingWijze())
+	Set DlvModeId = ##class(AXimpl.AdminToAxUtils).ConvertVerzendingWijze(KlantData.GeefVerzendingWijze(), $$$False)
 	Set DlvModeId = $$$If($$$HasLength(DlvModeId),DlvModeId,"DI1")
 	
 	Quit DlvModeId
 ]]></Implementation>
 </Method>
-
-<Method name="ConvertVerzendingWijze">
-<FormalSpec>VerzendWijze:%String</FormalSpec>
-<Private>1</Private>
-<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, 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>
-</Method>
 </Class>