Index: vhUnitTest/AX/Uitgaand/PM/UOMConversie/impl/UOMConversieDixfConverter/Test.cls.xml
===================================================================
diff -u -r41162 -r42746
--- vhUnitTest/AX/Uitgaand/PM/UOMConversie/impl/UOMConversieDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41162)
+++ vhUnitTest/AX/Uitgaand/PM/UOMConversie/impl/UOMConversieDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42746)
@@ -3,20 +3,12 @@
 <Class name="vhUnitTest.AX.Uitgaand.PM.UOMConversie.impl.UOMConversieDixfConverter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-// UOM = Unit Of Measure
-
-]]></Content>
-</UDLText>
-
 <Method name="Test: Zijn alle defaults goed">
 <Implementation><![CDATA[
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
-	#dim LeverancierNummer As %String = "6332"
-	#dim UOMSeqGroupId As %String = "STK-KVP-NVP-GVP-PLT"
 	#dim Piece As %Integer = 4
-	#dim TestProduct As AXdixf.UOMConversie.UOMConversie = ##class(AX.Uitgaand.PM.UOMConversie.impl.UOMConversieDixfConverter).%New(LeverancierNummer).Convert(AxProduct,UOMSeqGroupId,Piece)
+	#dim UOMSeqGroupId As %String = "STK-KVP-NVP-GVP-PLT"
+	#dim TestProduct As AXdixf.UOMConversie.UOMConversie = ##class(AX.Uitgaand.PM.UOMConversie.impl.UOMConversieDixfConverter).%New().Convert(AxProduct,UOMSeqGroupId,Piece)
 	
 	Do $$$AssertEquals(TestProduct.Denominator,"1")
 	Do $$$AssertEquals(TestProduct.InnerOffset,"0")
Index: AX/Uitgaand/PM/UOMConversie/impl/UOMConversieDixfConverter.cls.xml
===================================================================
diff -u -r41168 -r42746
--- AX/Uitgaand/PM/UOMConversie/impl/UOMConversieDixfConverter.cls.xml	(.../UOMConversieDixfConverter.cls.xml)	(revision 41168)
+++ AX/Uitgaand/PM/UOMConversie/impl/UOMConversieDixfConverter.cls.xml	(.../UOMConversieDixfConverter.cls.xml)	(revision 42746)
@@ -3,49 +3,16 @@
 <Class name="AX.Uitgaand.PM.UOMConversie.impl.UOMConversieDixfConverter">
 <Super>TECH.RegisteredObject</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-// UOM = Unit Of Measure
-
-]]></Content>
-</UDLText>
-
 <Property name="AxProduct">
 <Type>AXdixf.UOMConversie.UOMConversie</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LeverancierNummer">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="FromUnitOfMeasureSymbol">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
-<FormalSpec>LeverancierNummer:%String=""</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Set ..LeverancierNummer = LeverancierNummer
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="GeefLeverancierNummer">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set:(..LeverancierNummer = "") ..LeverancierNummer = Product.Basis.LeverancierNummer
-	Quit ..LeverancierNummer
-]]></Implementation>
-</Method>
-
 <Method name="Convert">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,UOMSeqGroupId:%String,Piece:%Integer</FormalSpec>
 <ReturnType>AXdixf.UOMConversie.UOMConversie</ReturnType>
@@ -64,7 +31,6 @@
 	Set AxProduct.ToUnitOfMeasureSymbol = "STK"
 	
 	Set ..AxProduct = AxProduct
-	Set ..LeverancierNummer = ""
 	Quit ..AxProduct
 ]]></Implementation>
 </Method>
@@ -76,6 +42,7 @@
 	#dim FromUnitOfMeasureSymbol As %String
 	#dim AantalSoortenVerpakkingen As %Integer = $Length(UOMSeqGroupId,"-")
 	#dim UOMSeqGroupIdReversed As %String = ""
+	#dim I As %Integer
 		
 	For I=AantalSoortenVerpakkingen:-1:1{
 		Set UOMSeqGroupIdReversed = UOMSeqGroupIdReversed_$Piece(UOMSeqGroupId,"-",I)_" "