Index: APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml
===================================================================
diff -u -r63220 -r69916
--- APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml	(.../PlaatmateriaalHelperVoorMVX.cls.xml)	(revision 63220)
+++ APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml	(.../PlaatmateriaalHelperVoorMVX.cls.xml)	(revision 69916)
@@ -73,23 +73,46 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.TBXZaag.dto.MVXPlaatMateriaal"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim PlaatMateriaalLijst As List of APPS.Halux.PPS.TBXZaag.dto.MVXPlaatMateriaal = ##class(%ListOfObjects).%New()
-	#dim HalffabLijst As list of DOM.PM.Maatwerk.Calc.HF.Halffab
+	#dim HalffabLijst, HalffabLijstZonderDubbels As list of DOM.PM.Maatwerk.Calc.HF.Halffab
 	If (BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem())||(BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())||(BodemRug="")
 	{
 		#dim BodemRol As %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Bodem()
 		Set HalffabLijst = ..GeefBewerkbareProducten(BodemRol)
-		Do ..ConvertToDto(PlaatMateriaalLijst, HalffabLijst, ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem(), BodemRol)
+		Set HalffabLijstZonderDubbels = ..GeefLijstZonderDubbels(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)
-		Do ..ConvertToDto(PlaatMateriaalLijst, HalffabLijst, ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug(), RugRol)
+		Set HalffabLijstZonderDubbels = ..GeefLijstZonderDubbels(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/PlaatmateriaalHelperVoorLBX.cls.xml
===================================================================
diff -u -r29059 -r69916
--- APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorLBX.cls.xml	(.../PlaatmateriaalHelperVoorLBX.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorLBX.cls.xml	(.../PlaatmateriaalHelperVoorLBX.cls.xml)	(revision 69916)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.TBXZaag.impl.PlaatmateriaalHelperVoorLBX">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="LBXHoofdBuilder">
 <Type>DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</Type>
@@ -77,23 +77,46 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim PlaatMateriaalLijst As List of APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal = ##class(%ListOfObjects).%New()
-	#dim HalffabLijst As list of DOM.PM.Maatwerk.Calc.HF.Halffab
+	#dim HalffabLijst, HalffabLijstZonderDubbels As list of DOM.PM.Maatwerk.Calc.HF.Halffab
 	If (BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem())||(BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())||(BodemRug="")
 	{
 		#dim BodemRol As %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem()
 		Set HalffabLijst = ..GeefBewerkbareProducten(BodemRol)
-		Do ..ConvertToDto(PlaatMateriaalLijst, HalffabLijst, ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem(), BodemRol)
+		Set HalffabLijstZonderDubbels = ..GeefLijstZonderDubbels(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)
-		Do ..ConvertToDto(PlaatMateriaalLijst, HalffabLijst, ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug(), RugRol)
+		Set HalffabLijstZonderDubbels = ..GeefLijstZonderDubbels(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>