Index: vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml
===================================================================
diff -u -r42111 -r45082
--- vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 42111)
+++ vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 45082)
@@ -26,6 +26,30 @@
 	Do $$$AssertEquals(ConvertedKlantID,"K||0","")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Convert Supplier default">
+<Implementation><![CDATA[
+	#dim SupplierID As %String = "1234"
+	#dim ConvertedLeverancierID As %String = ""
+	
+	Set Converter = ##class(AXimpl.AxToAdminUtils).%New()
+	Set ConvertedLeverancierID = Converter.ConvertSupplierID(SupplierID)
+	
+	Do $$$AssertEquals(ConvertedLeverancierID,"L||1234","")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Convert Supplier leeg">
+<Implementation><![CDATA[
+	#dim SupplierID As %String = ""
+	#dim ConvertedLeverancierID As %String = ""
+	
+	Set Converter = ##class(AXimpl.AxToAdminUtils).%New()
+	Set ConvertedLeverancierID = Converter.ConvertSupplierID(SupplierID)
+	
+	Do $$$AssertEquals(ConvertedLeverancierID,"L||0","")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXimpl/AxToAdminUtils.cls.xml
===================================================================
diff -u -r44303 -r45082
--- AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 44303)
+++ AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 45082)
@@ -11,6 +11,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertSupplierID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "L||"_+KlantID
+]]></Implementation>
+</Method>
+
 <Method name="ConvertZuluTimeStampToDate">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ZuluTimeStamp:%TimeStamp</FormalSpec>