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>