Index: APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml
===================================================================
diff -u -r69940 -r71561
--- APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 69940)
+++ APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 71561)
@@ -73,6 +73,7 @@
 		Set LadeZijkant.Type = "Free"
 	} ElseIf ((IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()) && (..IsInschuifElementZijkantMeegeleverd(IngegevenKenmerken))) {
 		Set LadeZijkant.Type = "FR/ZI"
+		Set LadeZijkant.LoopvolgordeNr = LadeZijkant.LoopvolgordeNr + 0.1
 	} ElseIf (..IsFureAMesureProduct(LadeZijkant)) {
 		Set LadeZijkant.Type = "V1"
 	} Else {
@@ -271,6 +272,88 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GroepeerFreeEnFreeZIZijkanten">
+<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()
+	#dim BlokTussenStippenlijnen As List of APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten = ##class(%ListOfObjects).%New()
+	#dim RijenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(RijenLijst)
+	#dim LadeZijkantData As APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten
+	#dim StippenlijnGevonden As %Boolean = $$$False
+	#dim BlokTussenStippenlijnenBevatFree As %Boolean = $$$False
+	#dim BlokTussenStippenlijnenBevatFreeZI As %Boolean = $$$False
+	
+	While RijenIterator.HasNext() {
+		Set LadeZijkantData = RijenIterator.Next()
+		
+		If (##class(TECH.StringUtils).Contains(LadeZijkantData.Korttekst, "--")) {
+			Set StippenlijnGevonden = $$$True
+		}
+		
+		If $$$Not(StippenlijnGevonden) {
+			If ($$$Not(BlokTussenStippenlijnenBevatFree) && (LadeZijkantData.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free())) {
+				Set BlokTussenStippenlijnenBevatFree = $$$True
+			}
+			If ($$$Not(BlokTussenStippenlijnenBevatFreeZI) && (LadeZijkantData.ZijWandType = "FrZI")) {
+				Set BlokTussenStippenlijnenBevatFreeZI = $$$True
+			}
+			
+			Do BlokTussenStippenlijnen.Insert(LadeZijkantData)
+					
+		} Else {
+			#dim BlokTussenStippenlijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BlokTussenStippenlijnen)
+			#dim AangepasteBlokTussenStippenlijnen As List of APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten = ##class(%ListOfObjects).%New()
+			#dim LadeZijkantDataFree, LadeZijkantDataFreeZI As APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten
+						
+			If (BlokTussenStippenlijnenBevatFree && BlokTussenStippenlijnenBevatFreeZI) {
+				While BlokTussenStippenlijnenIterator.HasNext() {
+					Set LadeZijkantDataFree = BlokTussenStippenlijnenIterator.Next()
+
+					If (LadeZijkantDataFree.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()) {
+						;Set LadeZijkantDataFreeCopy = LadeZijkantDataFree.%ConstructClone()
+						;Set LadeZijkantDataFreeCopy.Type = "Free"
+						Do AangepasteBlokTussenStippenlijnen.Insert(LadeZijkantDataFree)
+					}
+				}
+				
+				//Do AangepasteBlokTussenStippenlijnen.Insert(..GeefLijnVolStippelijnen())				
+				Set BlokTussenStippenlijnenIterator = ##class(TECH.ListIterator).%New(BlokTussenStippenlijnen)
+				
+				While BlokTussenStippenlijnenIterator.HasNext() {
+					Set LadeZijkantDataFreeZI = BlokTussenStippenlijnenIterator.Next()
+					
+					If (LadeZijkantDataFreeZI.ZijWandType = "FrZI") {
+						;Set LadeZijkantDataFreeZICopy = LadeZijkantDataFreeZI.%ConstructClone()
+						;Set LadeZijkantDataFreeZICopy.Type = "FrZI"
+						Do AangepasteBlokTussenStippenlijnen.Insert(LadeZijkantDataFreeZI)
+					}
+				}
+				//Set BlokTussenStippenlijnen = ..BehoudVerkorteKorttekstEnkelVoorEersteProduct(AangepasteBlokTussenStippenlijnen)
+
+				Set BlokTussenStippenlijnenBevatFree = $$$False
+				Set BlokTussenStippenlijnenBevatFreeZI = $$$False
+				Set BlokTussenStippenlijnen = AangepasteBlokTussenStippenlijnen
+			}
+			Do BlokTussenStippenlijnen.Insert(..GeefLijnVolStippelijnen())
+			Set BlokTussenStippenlijnenIterator = ##class(TECH.ListIterator).%New(BlokTussenStippenlijnen)
+			While BlokTussenStippenlijnenIterator.HasNext() {
+				Do Rijen.Insert(BlokTussenStippenlijnenIterator.Next())
+			}
+			
+			//Do Rijen.Insert(..GeefLijnVolStippelijnen())
+			Set StippenlijnGevonden = $$$False
+			
+			Set BlokTussenStippenlijnen = ##class(%ListOfObjects).%New()
+		}
+	}
+	
+	Quit Rijen
+]]></Implementation>
+</Method>
+
 <Method name="GroepeerEenBladzijdePerLijstPerKar">
 <FormalSpec>RijenLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten")</FormalSpec>
 <Private>1</Private>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX productie_005_LBX_LadeZijkantenLijst.txt
===================================================================
diff -u -r69633 -r71561
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX productie_005_LBX_LadeZijkantenLijst.txt	(.../LBX productie_005_LBX_LadeZijkantenLijst.txt)	(revision 69633)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX productie_005_LBX_LadeZijkantenLijst.txt	(.../LBX productie_005_LBX_LadeZijkantenLijst.txt)	(revision 71561)
@@ -7,8 +7,9 @@
     Nr | Kleur    | Ho | Di | Type  | Productnaam | Prod dsgn | Opm.   | Toe:Dos 
     ---|----------|----|----|-------|-------------|-----------|--------|---------
     1  |  OG-M    | C  |400 | Free  |780C400 R+L  |           |        |222:LI7K  |
-    2  |          |    |    |FR/ZI  |             |           |        |222:LI7L  |
     ---|--------- |--- |--- |------ |------------ |---------- |------- |--------- |
+    2  |  OG-M    | C  |400 |FR/ZI  |780C400 R+L  |           |        |222:LI7L  |
+    ---|--------- |--- |--- |------ |------------ |---------- |------- |--------- |
     ---|----------|----|----|-------|-------------|-----------|--------|---------
 
 
\ No newline at end of file
Index: APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml
===================================================================
diff -u -r68322 -r71561
--- APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml	(.../LadeZijkantenPickingLijst.cls.xml)	(revision 68322)
+++ APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml	(.../LadeZijkantenPickingLijst.cls.xml)	(revision 71561)
@@ -84,6 +84,7 @@
 		Set GesorteerdeLijst = ..SorteerVolgensLoopvolgordeNr(RijenLijst)
 		Set GesorteerdeLijst = ..SorteerPerVeertig(GesorteerdeLijst)
 		Set GesorteerdeLijst = ..SorteerVolgensSequentieNr(GesorteerdeLijst)
+		Set GesorteerdeLijst = ..GroepeerFreeEnFreeZIZijkanten(GesorteerdeLijst)
 		Set GesorteerdeLijst = ..GroepeerEenBladzijdePerLijstPerKar(GesorteerdeLijst)
 	}
 	#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(UitvoeringInfoLijst.GetAt(1).ProductID)