Index: DOM/Halux/LBXPickingZijkantenLoopvolgorde.cls.xml
===================================================================
diff -u
--- DOM/Halux/LBXPickingZijkantenLoopvolgorde.cls.xml	(revision 0)
+++ DOM/Halux/LBXPickingZijkantenLoopvolgorde.cls.xml	(revision 60773)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.Halux.LBXPickingZijkantenLoopvolgorde">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Korttekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="LoopvolgordeNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductId">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^DOM.Halux.LBXPickingZ11BED</DataLocation>
+<DefaultData>LBXPickingZijkantenLoopvolgordeDefaultData</DefaultData>
+<IdLocation>^DOM.Halux.LBXPickingZ11BED</IdLocation>
+<IndexLocation>^DOM.Halux.LBXPickingZ11BEI</IndexLocation>
+<StreamLocation>^DOM.Halux.LBXPickingZ11BES</StreamLocation>
+<Data name="LBXPickingZijkantenLoopvolgordeDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Korttekst</Value>
+</Value>
+<Value name="3">
+<Value>ProductId</Value>
+</Value>
+<Value name="4">
+<Value>LoopVolgorde</Value>
+</Value>
+<Value name="5">
+<Value>LoopvolgordeNr</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten/LoopvolgordeComparator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten/LoopvolgordeComparator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten/LoopvolgordeComparator.cls.xml	(revision 60773)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.LBX.LadeZijkanten.LoopvolgordeComparator">
+<Super>TECH.RegisteredObject,TECH.Comparator.IComparator</Super>
+
+<Method name="IsKleinerDan">
+<FormalSpec>Waarde1:APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten,Waarde2:APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit Waarde1.LoopvolgordeNr < Waarde2.LoopvolgordeNr
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml
===================================================================
diff -u -r29059 -r60773
--- APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml	(.../LadeZijkantenPickingLijst.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml	(.../LadeZijkantenPickingLijst.cls.xml)	(revision 60773)
@@ -73,7 +73,8 @@
 		do ..VoegToeLadeZijkantenUitvoeringInfo(UitvoeringInfoIt.Next(), .RijenLijst)
 	}
 	
-	#dim GesorteerdeLijst As list Of APPS.Halux.common.dto.LadeZijkanten = ..SorteerRijenLijst(RijenLijst)
+	#dim GesorteerdeLijst As list Of APPS.Halux.common.dto.LadeZijkanten = ..SorteerMetComparator(RijenLijst)
+	Set GesorteerdeLijst = ..SorteerPerVeertig(GesorteerdeLijst)
 	
 	#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(UitvoeringInfoLijst.GetAt(1).ProductID)
 	Set ..Document = ##class(APPS.common.Print.Kolommen.Document).%New(..#DocumentID,..#Titel_" "_Product.GeefVerpakking(),SubTitel)
Index: APPS/Halux/PPS/Document/impl/LBX/dto/LadeZijkanten.cls.xml
===================================================================
diff -u -r29059 -r60773
--- APPS/Halux/PPS/Document/impl/LBX/dto/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Document/impl/LBX/dto/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 60773)
@@ -10,6 +10,14 @@
 <Property name="ZijWandType">
 <Type>DOM.PM.enu.LBXZijWandType</Type>
 </Property>
+
+<Property name="ProductId">
+<Type>%String</Type>
+</Property>
+
+<Property name="LoopvolgordeNr">
+<Type>%Integer</Type>
+</Property>
 </Class>
 
 
Index: APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml
===================================================================
diff -u -r33588 -r60773
--- APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 33588)
+++ APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 60773)
@@ -31,6 +31,14 @@
 	Set LadeZijkant.LadeDiepte = IngegevenKenmerken.LadeDiepte
 	Set LadeZijkant.LadeHoogte = IngegevenKenmerken.LadeHoogte
 	Set LadeZijkant.Korttekst = ZijkantProduct.GeefKorttekst()
+	Set LadeZijkant.ProductId = Zijkant.GeefHalffab().GeefProductID()
+	
+	If (##class(TECH.StringUtils).Contains(LadeZijkant.Korttekst, "R+L")) { //fure a mesure producten (zijn niet altijd op stock dus hebben geen vaste plaats)
+		Set LadeZijkant.LoopvolgordeNr = 8
+	} Else { 
+		Set LadeZijkant.LoopvolgordeNr = ..GeefLoopVolgordeNr(LadeZijkant.ProductId)
+	}
+	
 	If IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure() {
 		Set LadeZijkant.ZijWandType = ""
 	} ElseIf (IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()) && ##class(TECH.ListUtils).Contains(IngegevenKenmerken.NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementZijkant()) {
@@ -65,33 +73,138 @@
 ]]></Implementation>
 </Method>
 
-<Method name="SorteerRijenLijst">
+<Method name="SorteerMetComparator">
 <FormalSpec>RijenLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten")</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten"</ReturnTypeParams>
+<Implementation><![CDATA[	Quit ##class(TECH.Algo.Sort.MergeSort).Sort(RijenLijst, ##class(APPS.Halux.PPS.Document.impl.LBX.LadeZijkanten.LoopvolgordeComparator).%New())
+]]></Implementation>
+</Method>
+
+<Method name="SorteerPerVeertig">
+<Description>
+De pickingkarren voor LBX zijkanten kunnen tot 40 zijkanten per kar bevatten, daarom moet op de lijst per 40 zijkanten gegroepeerd worden zodat per volledige kar kan worden gepicked</Description>
+<FormalSpec>RijenLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten")</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten"</ReturnTypeParams>
 <Implementation><![CDATA[
-	#dim Rijen As List of APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten = ##class(%ListOfObjects).%New()
-	If ..Batch.GeefLijn()=##class(APPS.Halux.common.enu.ProductieLijn).Een() {
-		Set RijenIt = ##class(TECH.ListIterator).%New(RijenLijst)
-		#dim AantalRijen As %Integer = 0
-		#dim BakNr As %Integer = 1
-		Set LadeZijkantDataLeeg = ##class(APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten).%New()
-		While RijenIt.HasNext() {
-			#dim LadeZijkantData As APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten = RijenIt.Next()
-			set LadeZijkantData.BakNr = BakNr
-			Do Rijen.Insert(LadeZijkantData)
-			If $Increment(AantalRijen)#..#GroepeerSequentieAantal=0 && RijenIt.HasNext() {
-				Do Rijen.Insert(LadeZijkantDataLeeg)
-				Set BakNr = BakNr + 1
-			}
+	#dim TotaleLijst As List of APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten = ##class(%ListOfObjects).%New()
+	#dim Rijen As List of APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten = ##class(%ListOfObjects).%New()	
+	#dim RijenLijstIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(RijenLijst)
+	#dim AantalLadesPerKar As %Integer = 40
+	#dim AantalKarrenNodig As %Integer = (RijenLijst.Count()\AantalLadesPerKar)+1	
+	#dim HuidigeKar As %Integer = 1
+	#dim Index As %Integer	
+	
+	For Index = 1:1:AantalKarrenNodig
+	{		
+		While RijenLijstIterator.HasNext() {
+			#dim LadeZijkantData As APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten = RijenLijstIterator.Next()				
+			
+			If ((LadeZijkantData.SequentieNummer <= (HuidigeKar*AantalLadesPerKar)) && (LadeZijkantData.SequentieNummer > ((HuidigeKar-1)*AantalLadesPerKar))) {
+				Do Rijen.Insert(LadeZijkantData)
+			}			
 		}
-	} Else {
-		Set Rijen = RijenLijst
+		
+		Set Rijen = ..VoegToeLegeLijnIndienNodig(HuidigeKar, AantalKarrenNodig, Rijen)		
+		Set TotaleLijst = ..VoegToeRijenAanTotaleLijst(Rijen, TotaleLijst)
+		
+		Set HuidigeKar = HuidigeKar + 1 
+		Set Rijen = ##class(%ListOfObjects).%New()
+
+		Do RijenLijstIterator.Reset()
 	}
-	Quit Rijen
+	
+	Quit TotaleLijst
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeRijenAanTotaleLijst">
+<FormalSpec>Rijen:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten"),TotaleLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten")</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim RijenLijst As List of APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten = TotaleLijst
+	#dim NieuweRijenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Rijen)
+	
+	while NieuweRijenIterator.HasNext() {
+		Do TotaleLijst.Insert(NieuweRijenIterator.Next())
+	}
+	Quit TotaleLijst
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLegeLijnIndienNodig">
+<FormalSpec>HuidigeKar:%Integer,AantalKarrenNodig:%Integer,Rijen:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten")</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim RijenLijst As List of APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten = Rijen	
+
+	If $$$Not(HuidigeKar = AantalKarrenNodig) {
+		Do RijenLijst.Insert(..GeefLegeLadeZijkantDataLijn())
+	}
+	Quit RijenLijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefLegeLadeZijkantDataLijn">
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten</ReturnType>
+<Implementation><![CDATA[
+	Set LadeZijkant = ##class(APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten).%New()
+	
+	Set LadeZijkant.SequentieNummer = " "
+	Set LadeZijkant.ToeleveringDossierCode = " "
+	Set LadeZijkant.LadeKleur = " "
+	Set LadeZijkant.LadeDiepte = " "
+	Set LadeZijkant.LadeHoogte = " "
+	Set LadeZijkant.Korttekst = " "
+	Set LadeZijkant.ProductId = " "
+	Set LadeZijkant.LoopvolgordeNr = " "
+	
+	Quit LadeZijkant
+]]></Implementation>
+</Method>
+
+<Method name="GeefLoopVolgordeNr">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim LoopvolgordeNrHuidigProduct As %Integer = 0
+	#dim QueryResultaat As TECH.ResultSet = ##class(TECH.ResultSet).%New()
+	Set QueryResultaat = ..VoerUitQuery(ProductId)
+	
+	If $$$HasLength(QueryResultaat) {
+		Set QueryResultaatIterator = ##class(TECH.ResultSetIterator).%New(QueryResultaat)
+		If QueryResultaatIterator.HasNext() {
+			Set LoopvolgordeNrHuidigProduct = QueryResultaatIterator.Next().LoopvolgordeNr
+		} 	
+	} 
+	If LoopvolgordeNrHuidigProduct = 0 {
+		#dim Logger = ##class(vhLib.Logger).%New("PICKING ZIJKANT LBX").WarningMail("Product met ProductId "_ProductId_" werd niet gevonden in de LBXPickingZijkantenLoopvolgorde tabel")
+	}
+	
+	Quit LoopvolgordeNrHuidigProduct
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ResultSet</ReturnType>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT * FROM DOM_Halux.LBXPickingZijkantenLoopvolgorde WHERE ProductId = "_ProductId
+	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(SqlStatement)
+	Quit ResultSet
+]]></Implementation>
+</Method>
 </Class>