Index: APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorLBX.cls.xml
===================================================================
diff -u -r69916 -r70047
--- APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorLBX.cls.xml	(.../PlaatmateriaalHelperVoorLBX.cls.xml)	(revision 69916)
+++ APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorLBX.cls.xml	(.../PlaatmateriaalHelperVoorLBX.cls.xml)	(revision 70047)
@@ -11,6 +11,10 @@
 <Type>DOM.PM.Maatwerk.Calc.HF.HalffabContext</Type>
 </Property>
 
+<Property name="PlaatMateriaalHelper">
+<Type>APPS.Halux.PPS.TBXZaag.impl.PlaatMateriaalHelper</Type>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -20,6 +24,8 @@
 	#dim BerekeningSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,##class(DOM.VKP.enu.Klant).Halux(),##class(DOM.common.VanHoeckePersonality).Instance())
 	Set ..HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(##class(DOM.PM.enu.Familie).Lade(), ##class(DOM.PM.enu.LadeVariant).LBXPure(), BerekeningSpecificatie)
 	Set ..LBXHoofdBuilder = ..HalffabContext.GeefHalffabSpec().GeefBuilder()
+	Set ..PlaatMateriaalHelper = ##class(APPS.Halux.PPS.TBXZaag.impl.PlaatMateriaalHelper).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -82,41 +88,20 @@
 	{
 		#dim BodemRol As %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem()
 		Set HalffabLijst = ..GeefBewerkbareProducten(BodemRol)
-		Set HalffabLijstZonderDubbels = ..GeefLijstZonderDubbels(HalffabLijst)
+		Set HalffabLijstZonderDubbels = ..PlaatMateriaalHelper.GeefHalffabLijstZonderDubbels(HalffabLijst)
 		Do ..ConvertToDto(PlaatMateriaalLijst, HalffabLijstZonderDubbels, ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem(), BodemRol)
 	}
 	If (BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())||(BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())||(BodemRug="")
 	{
 		#dim RugRol As %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Rug()
 		Set HalffabLijst = ..GeefBewerkbareProducten(RugRol)
-		Set HalffabLijstZonderDubbels = ..GeefLijstZonderDubbels(HalffabLijst)
+		Set HalffabLijstZonderDubbels = ..PlaatMateriaalHelper.GeefHalffabLijstZonderDubbels(HalffabLijst)
 		Do ..ConvertToDto(PlaatMateriaalLijst, HalffabLijstZonderDubbels, ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug(), RugRol)
 	}
 	Quit PlaatMateriaalLijst
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLijstZonderDubbels">
-<FormalSpec>HalffabLijst:%ListOfObjects(ELEMENTTYPE="DOM.PM.Maatwerk.Calc.HF.Halffab")</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal"</ReturnTypeParams>
-<Implementation><![CDATA[
-	Set HalffabIterator = ##class(TECH.ListIterator).%New(HalffabLijst)
-	Set NieuweLijst = ##class(%ListOfObjects).%New()
-	Set LijstMetReedsToegevoegdeProductIds = ##class(%ListOfDataTypes).%New()
-	While (HalffabIterator.HasNext()) {
-		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabIterator.Next()
-		If $$$Not(##class(TECH.ListUtils).Contains(LijstMetReedsToegevoegdeProductIds, Halffab.GeefProductID())) {
-			Do NieuweLijst.Insert(Halffab)
-			Do LijstMetReedsToegevoegdeProductIds.Insert(Halffab.GeefProductID())
-		}
-	}
-	
-	Quit NieuweLijst
-]]></Implementation>
-</Method>
-
 <Method name="GeefBewerkbareProducten">
 <FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.LBXRol</FormalSpec>
 <Private>1</Private>
Index: APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml
===================================================================
diff -u -r69916 -r70047
--- APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml	(.../PlaatmateriaalHelperVoorMVX.cls.xml)	(revision 69916)
+++ APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml	(.../PlaatmateriaalHelperVoorMVX.cls.xml)	(revision 70047)
@@ -7,6 +7,10 @@
 <Type>DOM.PM.Maatwerk.Calc.HF.HalffabContext</Type>
 </Property>
 
+<Property name="PlaatMateriaalHelper">
+<Type>APPS.Halux.PPS.TBXZaag.impl.PlaatMateriaalHelper</Type>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -15,6 +19,7 @@
 <Implementation><![CDATA[
 	#dim BerekeningSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,##class(DOM.VKP.enu.Klant).Halux(),##class(DOM.common.VanHoeckePersonality).Instance())
 	Set ..HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(##class(DOM.PM.enu.Familie).Lade(), ##class(DOM.PM.enu.LadeVariant).MVX(), BerekeningSpecificatie)
+	Set ..PlaatMateriaalHelper = ##class(APPS.Halux.PPS.TBXZaag.impl.PlaatMateriaalHelper).%New()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -78,41 +83,20 @@
 	{
 		#dim BodemRol As %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Bodem()
 		Set HalffabLijst = ..GeefBewerkbareProducten(BodemRol)
-		Set HalffabLijstZonderDubbels = ..GeefLijstZonderDubbels(HalffabLijst)
+		Set HalffabLijstZonderDubbels = ..PlaatMateriaalHelper.GeefHalffabLijstZonderDubbels(HalffabLijst)
 		Do ..ConvertToDto(PlaatMateriaalLijst, HalffabLijstZonderDubbels, ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem(), BodemRol)
 	}
 	If (BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())||(BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())||(BodemRug="")
 	{
 		#dim RugRol As %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Rug()
 		Set HalffabLijst = ..GeefBewerkbareProducten(RugRol)
-		Set HalffabLijstZonderDubbels = ..GeefLijstZonderDubbels(HalffabLijst)
+		Set HalffabLijstZonderDubbels = ..PlaatMateriaalHelper.GeefHalffabLijstZonderDubbels(HalffabLijst)
 		Do ..ConvertToDto(PlaatMateriaalLijst, HalffabLijstZonderDubbels, ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug(), RugRol)
 	}
 	Quit PlaatMateriaalLijst
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLijstZonderDubbels">
-<FormalSpec>HalffabLijst:%ListOfObjects(ELEMENTTYPE="DOM.PM.Maatwerk.Calc.HF.Halffab")</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal"</ReturnTypeParams>
-<Implementation><![CDATA[
-	Set HalffabIterator = ##class(TECH.ListIterator).%New(HalffabLijst)
-	Set NieuweLijst = ##class(%ListOfObjects).%New()
-	Set LijstMetReedsToegevoegdeProductIds = ##class(%ListOfDataTypes).%New()
-	While (HalffabIterator.HasNext()) {
-		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabIterator.Next()
-		If $$$Not(##class(TECH.ListUtils).Contains(LijstMetReedsToegevoegdeProductIds, Halffab.GeefProductID())) {
-			Do NieuweLijst.Insert(Halffab)
-			Do LijstMetReedsToegevoegdeProductIds.Insert(Halffab.GeefProductID())
-		}
-	}
-	
-	Quit NieuweLijst
-]]></Implementation>
-</Method>
-
 <Method name="GeefBewerkbareProducten">
 <FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.MVXRol</FormalSpec>
 <Private>1</Private>
Index: APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml
===================================================================
diff -u -r29059 -r70047
--- APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml	(.../PlaatMateriaalHelper.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml	(.../PlaatMateriaalHelper.cls.xml)	(revision 70047)
@@ -134,6 +134,26 @@
 	Do ##class(Prod.Kenmerk.DataIndex).SPBeperk("TB","tB",1,ArrayRef)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHalffabLijstZonderDubbels">
+<FormalSpec>HalffabLijst:%ListOfObjects(ELEMENTTYPE="DOM.PM.Maatwerk.Calc.HF.Halffab")</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set HalffabIterator = ##class(TECH.ListIterator).%New(HalffabLijst)
+	Set NieuweLijst = ##class(%ListOfObjects).%New()
+	Set LijstMetReedsToegevoegdeProductIds = ##class(%ListOfDataTypes).%New()
+	While (HalffabIterator.HasNext()) {
+		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabIterator.Next()
+		If '(##class(TECH.ListUtils).Contains(LijstMetReedsToegevoegdeProductIds, Halffab.GeefProductID())) {
+			Do NieuweLijst.Insert(Halffab)
+			Do LijstMetReedsToegevoegdeProductIds.Insert(Halffab.GeefProductID())
+		}
+	}
+	
+	Quit NieuweLijst
+]]></Implementation>
+</Method>
 </Class>