Index: APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml
===================================================================
diff -u -r71561 -r71562
--- APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 71561)
+++ APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 71562)
@@ -272,88 +272,6 @@
 ]]></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: APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml
===================================================================
diff -u -r71561 -r71562
--- APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml	(.../LadeZijkantenPickingLijst.cls.xml)	(revision 71561)
+++ APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml	(.../LadeZijkantenPickingLijst.cls.xml)	(revision 71562)
@@ -84,7 +84,6 @@
 		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)