Index: vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml
===================================================================
diff -u -r50155 -r59570
--- vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 50155)
+++ vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 59570)
@@ -51,6 +51,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: ConvertSupplierIDHLX default">
+<Implementation><![CDATA[
+	#dim SupplierID As %String = "9999"
+	#dim ConvertedLeverancierID As %String = ""
+	
+	Set Converter = ##class(AXimpl.AxToAdminUtils).%New()
+	Set ConvertedLeverancierID = Converter.ConvertSupplierIDHLX(SupplierID)
+	
+	Do $$$AssertEquals(ConvertedLeverancierID,"L||9999")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ConvertSupplierIDHLX leeg =&gt; Exceptie">
+<Implementation><![CDATA[
+	#dim SupplierID As %String = ""
+	#dim ConvertedLeverancierID As %String = ""
+	
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Nieuwe leverancier met id '' gedefinieerd in AX Halux, die nog niet voorzien is in Admin Conversiecode.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	
+	Set Converter = ##class(AXimpl.AxToAdminUtils).%New()
+	Set ConvertedLeverancierID = Converter.ConvertSupplierIDHLX(SupplierID)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Convert ZuluTimeStamp voor zomertijd">
 <Implementation><![CDATA[
 	Set Converter = ##class(AXimpl.AxToAdminUtils).%New()