Index: vhTest/DOM/PM/Maatwerk/TAX/BaseLosseComponent.cls.xml
===================================================================
diff -u
--- vhTest/DOM/PM/Maatwerk/TAX/BaseLosseComponent.cls.xml	(revision 0)
+++ vhTest/DOM/PM/Maatwerk/TAX/BaseLosseComponent.cls.xml	(revision 30321)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.DOM.PM.Maatwerk.TAX.BaseLosseComponent">
+<Super>vhTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Method name="GeefLosseComponentProductieWijzeIterator">
+<Final>1</Final>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set ProductieWijzen = ##class(%ListOfDataTypes).%New()
+	Set Converter = ##class(DOM.PM.Maatwerk.TAX.impl.LosseComponentNaarProductieWijzeConverter).%New()
+	
+	#dim Iterator As TECH.Iterator = ##class(DOM.PM.Maatwerk.Lade.enu.LosseComponent).ValueListIterator()
+	while (Iterator.HasNext()) {
+		do ProductieWijzen.Insert(Converter.Convert(Iterator.Next()))
+	}
+	quit ##class(TECH.ListIterator).%New(ProductieWijzen)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml
===================================================================
diff -u -r30190 -r30321
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 30190)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 30321)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler.BepaalKorttekst.TestLosseComponenten">
-<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler.TestBase</Super>
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler.TestBase,vhTest.DOM.PM.Maatwerk.TAX.BaseLosseComponent</Super>
 
 <Property name="CUT">
 <Type>DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler</Type>
@@ -247,22 +247,6 @@
 	do $$$AssertEquals($extract(..BepaalKorttekst(), Van, Tot), VerwachteWaarde)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefLosseComponentProductieWijzeIterator">
-<Private>1</Private>
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[
-	#dim ProductieWijzen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	#dim Converter As DOM.PM.Maatwerk.TAX.impl.LosseComponentNaarProductieWijzeConverter = ##class(DOM.PM.Maatwerk.TAX.impl.LosseComponentNaarProductieWijzeConverter).%New()
-	#dim Iterator As TECH.Iterator = ##class(DOM.PM.Maatwerk.Lade.enu.LosseComponent).ValueListIterator()
-	
-	while (Iterator.HasNext()) {
-		do ProductieWijzen.Insert(Converter.Convert(Iterator.Next()))
-	}
-		
-	quit ##class(TECH.ListIterator).%New(ProductieWijzen)
-]]></Implementation>
-</Method>
 </Class>