Index: APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml
===================================================================
diff -u -r70047 -r70468
--- APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml	(.../PlaatmateriaalHelperVoorMVX.cls.xml)	(revision 70047)
+++ APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml	(.../PlaatmateriaalHelperVoorMVX.cls.xml)	(revision 70468)
@@ -79,12 +79,26 @@
 <Implementation><![CDATA[
 	#dim PlaatMateriaalLijst As List of APPS.Halux.PPS.TBXZaag.dto.MVXPlaatMateriaal = ##class(%ListOfObjects).%New()
 	#dim HalffabLijst, HalffabLijstZonderDubbels As list of DOM.PM.Maatwerk.Calc.HF.Halffab
+	#dim Sortering As TECH.MultiDim = ""
+	#dim PlaatMateriaalIterator As TECH.Iterator
+	
 	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)
 		Set HalffabLijstZonderDubbels = ..PlaatMateriaalHelper.GeefHalffabLijstZonderDubbels(HalffabLijst)
 		Do ..ConvertToDto(PlaatMateriaalLijst, HalffabLijstZonderDubbels, ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem(), BodemRol)
+		
+		Set PlaatMateriaalIterator = ##class(TECH.ListIterator).%New(PlaatMateriaalLijst)
+	
+		While (PlaatMateriaalIterator.HasNext()) {
+			#dim PlaatMateriaal As APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal = PlaatMateriaalIterator.Next()
+			
+			
+			Do ..VulAanSorteringVoorPlaatMateriaal(.Sortering, PlaatMateriaal)
+		}
+		
+		Set PlaatMateriaalLijst = ..PlaatMateriaalHelper.GeefGesorteerdePlaatMaterialenLijst(.Sortering)
 	}
 	If (BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())||(BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())||(BodemRug="")
 	{
@@ -97,6 +111,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSorteerSleutel">
+<FormalSpec>PlaatMateriaal:APPS.Halux.PPS.TBXZaag.dto.MVXPlaatMateriaal</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define LeftPad4(%v)    (10000-%v)
+	
+	#dim SorteerSleutel As %String = $Case(PlaatMateriaal.Kleuren,"IG/OG":"10000","IG/WI":"9000","OG":"8000",:"6000")_"-"
+	Set SorteerSleutel = SorteerSleutel_(PlaatMateriaal.Hoogte)
+	
+	Quit SorteerSleutel
+]]></Implementation>
+</Method>
+
+<Method name="VulAanSorteringVoorPlaatMateriaal">
+<FormalSpec><![CDATA[&Sortering:TECH.MultiDim,PlaatMateriaal:APPS.Halux.PPS.TBXZaag.dto.MVXPlaatMateriaal]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim SorteerSleutel As TECH.String = ..GeefSorteerSleutel(PlaatMateriaal)
+				
+	Set Sortering(SorteerSleutel) = PlaatMateriaal
+]]></Implementation>
+</Method>
+
 <Method name="GeefBewerkbareProducten">
 <FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.MVXRol</FormalSpec>
 <Private>1</Private>
@@ -138,7 +176,7 @@
 		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabIterator.Next()
 		// TODOPA codeduplicatie tov APPS.Halux.PPS.Activiteit.impl.LBX.LBXLadePersen => MVX?
 		#dim AftrekDiepte = $S(Halffab.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Staal(): 22, 1: 26)
-		#dim PlaatKleuren As %List = ##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_"_Rol, Halffab.GeefProductID(), "Kleur")
+		#dim PlaatKleuren As %List = ##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_"_Rol, Halffab.GeefProductID(), "BodemKleur")
 		// TODOPA FSC claim ophalen
 		#dim PlaatClaim = ""
 		#dim ProductID As %String = Halffab.GeefProductID()
Index: APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml
===================================================================
diff -u -r70118 -r70468
--- APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml	(.../PlaatMateriaalHelper.cls.xml)	(revision 70118)
+++ APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml	(.../PlaatMateriaalHelper.cls.xml)	(revision 70468)
@@ -153,6 +153,24 @@
 	Quit NieuweLijst
 ]]></Implementation>
 </Method>
+
+<Method name="GeefGesorteerdePlaatMaterialenLijst">
+<FormalSpec><![CDATA[&Sortering:TECH.MultiDim,&SequentieNummer:%Integer]]></FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim GesorteerdePlaatMaterialen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ArrayMultiDimIterator).%New(.Sortering)
+		
+	While (Iterator.HasNext()) {
+		#dim PlaatMateriaal As APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal = Iterator.Next()
+			
+		Do GesorteerdePlaatMaterialen.Insert(PlaatMateriaal)
+	}
+	
+	Quit GesorteerdePlaatMaterialen
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorLBX.cls.xml
===================================================================
diff -u -r70047 -r70468
--- APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorLBX.cls.xml	(.../PlaatmateriaalHelperVoorLBX.cls.xml)	(revision 70047)
+++ APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorLBX.cls.xml	(.../PlaatmateriaalHelperVoorLBX.cls.xml)	(revision 70468)
@@ -84,12 +84,26 @@
 <Implementation><![CDATA[
 	#dim PlaatMateriaalLijst As List of APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal = ##class(%ListOfObjects).%New()
 	#dim HalffabLijst, HalffabLijstZonderDubbels As list of DOM.PM.Maatwerk.Calc.HF.Halffab
+	#dim Sortering As TECH.MultiDim = ""
+	#dim PlaatMateriaalIterator As TECH.Iterator
+	
 	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)
 		Set HalffabLijstZonderDubbels = ..PlaatMateriaalHelper.GeefHalffabLijstZonderDubbels(HalffabLijst)
 		Do ..ConvertToDto(PlaatMateriaalLijst, HalffabLijstZonderDubbels, ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem(), BodemRol)
+		
+		Set PlaatMateriaalIterator = ##class(TECH.ListIterator).%New(PlaatMateriaalLijst)
+	
+		While (PlaatMateriaalIterator.HasNext()) {
+			#dim PlaatMateriaal As APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal = PlaatMateriaalIterator.Next()
+			
+			
+			Do ..VulAanSorteringVoorPlaatMateriaal(.Sortering, PlaatMateriaal)
+		}
+		
+		Set PlaatMateriaalLijst = ..PlaatMateriaalHelper.GeefGesorteerdePlaatMaterialenLijst(.Sortering)
 	}
 	If (BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())||(BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())||(BodemRug="")
 	{
@@ -98,10 +112,35 @@
 		Set HalffabLijstZonderDubbels = ..PlaatMateriaalHelper.GeefHalffabLijstZonderDubbels(HalffabLijst)
 		Do ..ConvertToDto(PlaatMateriaalLijst, HalffabLijstZonderDubbels, ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug(), RugRol)
 	}
+	
 	Quit PlaatMateriaalLijst
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSorteerSleutel">
+<FormalSpec>PlaatMateriaal:APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define LeftPad4(%v)    (10000-%v)
+	
+	#dim SorteerSleutel As %String = $Case(PlaatMateriaal.Kleuren,"BZ/DG":"10000","CS/DG":"9000","LG/WI":"8000","WI":"7000",:"6000")_"-"
+	Set SorteerSleutel = SorteerSleutel_(PlaatMateriaal.Hoogte)
+	
+	Quit SorteerSleutel
+]]></Implementation>
+</Method>
+
+<Method name="VulAanSorteringVoorPlaatMateriaal">
+<FormalSpec><![CDATA[&Sortering:TECH.MultiDim,PlaatMateriaal:APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim SorteerSleutel As TECH.String = ..GeefSorteerSleutel(PlaatMateriaal)
+				
+	Set Sortering(SorteerSleutel) = PlaatMateriaal
+]]></Implementation>
+</Method>
+
 <Method name="GeefBewerkbareProducten">
 <FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.LBXRol</FormalSpec>
 <Private>1</Private>