Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX productie_006_LBX_LadeZijkantenLijst.txt
===================================================================
diff -u -r60858 -r60862
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX productie_006_LBX_LadeZijkantenLijst.txt	(.../LBX productie_006_LBX_LadeZijkantenLijst.txt)	(revision 60858)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX productie_006_LBX_LadeZijkantenLijst.txt	(.../LBX productie_006_LBX_LadeZijkantenLijst.txt)	(revision 60862)
@@ -6,8 +6,8 @@
     ----|-----|----|------|------|-------------|--------
     Pos | Klr | Ho | LaDi | Type | Productnaam | Toe:Dos
     ----|-----|----|------|------|-------------|--------
-    1   |OG-M | C  | 400  |      |780C400 R+L  |222:LI7K |
-    2   |     |    |      |      |             |222:LI7L |
+    1   |OG-M | C  | 400  |Free  |780C400 R+L  |222:LI7K |
+    2   |     |    |      |FR/ZI |             |222:LI7L |
     ----|---- |--- |----- |----- |------------ |-------- |
     ----|-----|----|------|------|-------------|--------
 
Index: APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml
===================================================================
diff -u -r60858 -r60862
--- APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 60858)
+++ APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 60862)
@@ -66,21 +66,23 @@
 		Set LadeZijkant.LoopvolgordeNr = ..GeefLoopVolgordeNr(LadeZijkant.ProductId)
 	}
 	
-	If (($Extract(LadeZijkant.Korttekst, 1, 3) = "780")) {
-		Set LadeZijkant.Type = ""
+	If ((IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()) && ($$$Not(..IsInschuifElementZijkantMeegeleverd(IngegevenKenmerken)))) {
+		Set LadeZijkant.Type = "Free"
+	} ElseIf ((IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()) && (..IsInschuifElementZijkantMeegeleverd(IngegevenKenmerken))) {
+		Set LadeZijkant.Type = "FR/ZI"
 	} ElseIf (..IsFureAMesureProduct(LadeZijkant)) {
 		Set LadeZijkant.Type = "V1"
 	} Else {
 		Set LadeZijkant.Type = ""
 	}
+	
 	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()) {
 		Set LadeZijkant.ZijWandType = "FrZI"
 	} Else {
 		Set LadeZijkant.ZijWandType = IngegevenKenmerken.ZijWandType
 	}
-	
 	Do RijenLijst.Insert(LadeZijkant)
 ]]></Implementation>
 </Method>
@@ -113,6 +115,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsInschuifElementZijkantMeegeleverd">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((##class(TECH.ListUtils).Contains(IngegevenKenmerken.NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementZijkant())))
+]]></Implementation>
+</Method>
+
 <Method name="ZetOpeenvolgendeSequentienummers">
 <Description>
 Als er spoelbaklades en sifonlades in de batch zitten wordt soms gesprongen over sommige sequentienummer, deze method gaat alle sequentienummer opeenvolgend maken zonder gaten</Description>
@@ -200,7 +209,7 @@
 		If HulpLijst.Count() = 0 {
 			Do HulpLijst.Insert(LadeZijkantData)
 			Set HuidigTeVergelijkenLoopvolgordeNr = LadeZijkantData.LoopvolgordeNr
-		} ElseIf ((HuidigTeVergelijkenLoopvolgordeNr = LadeZijkantData.LoopvolgordeNr)) {
+		} ElseIf ((HuidigTeVergelijkenLoopvolgordeNr = LadeZijkantData.LoopvolgordeNr) ) {
 			Do HulpLijst.Insert(LadeZijkantData)
 		} Else {
 			Set HulpLijst = ..SorteerLijstVolgensSequentieNummer(HulpLijst)
@@ -241,6 +250,7 @@
 	#dim TellerAantalProducten,TellerAantalStippelijnen As %Integer = 0
 	#dim MagLijnenToevoegen As %Boolean = $$$False
 	#dim MaximaalAantalWitregels = ..#AantalBeschrijfbareRegelsOpDocument - ..#AantalZijkantenPerKar
+	
 	while RijenIterator.HasNext() {
 		Set LadeZijkantData = RijenIterator.Next()
 		Do Rijen.Insert(LadeZijkantData)
@@ -249,9 +259,9 @@
 			Set TellerAantalStippelijnen = TellerAantalStippelijnen +1
 			If (TellerAantalProducten = ..#AantalZijkantenPerKar) {
 				If TellerAantalStippelijnen <= MaximaalAantalWitregels {
-					Set Rijen = ..VoegToeAantalLegeLijnenIndienNodig(MaximaalAantalWitregels-TellerAantalStippelijnen, Rijen)
+					Set Rijen = ..VoegToeAantalLegeLijnen(MaximaalAantalWitregels-TellerAantalStippelijnen, Rijen)
 				} Else {
-					Set Rijen = ..VoegToeAantalLegeLijnenIndienNodig(..#AantalBeschrijfbareRegelsOpDocument-(MaximaalAantalWitregels-TellerAantalStippelijnen), Rijen)
+					Set Rijen = ..VoegToeAantalLegeLijnen(..#AantalBeschrijfbareRegelsOpDocument-(MaximaalAantalWitregels-TellerAantalStippelijnen), Rijen)
 				}
 				Set MagLijnenToevoegen = $$$False
 				Set TellerAantalStippelijnen = 0
@@ -276,15 +286,23 @@
 	#dim LadeZijkantData As APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten
 	#dim IsEersteProductVanReeks = $$$True
 	#dim RijenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(RijenLijst)
+	#dim HuidigTeVergelijkenLadeZijkantType As %String 
 	
 	If $$$Not(..IsFureAMesureProduct(RijenLijst.GetAt(1))) {
 		while RijenIterator.HasNext() {	
 			Set LadeZijkantData = RijenIterator.Next()
 			If IsEersteProductVanReeks {
 				Set LadeZijkantData.Korttekst = ..GeefVerkorteKorttekst(LadeZijkantData.Korttekst)
+				Set HuidigTeVergelijkenLadeZijkantType = LadeZijkantData.Type
 			} Else {
 				Set LadeZijkantData.Korttekst=""
-				Set LadeZijkantData = ..ZetLegeVeldenLadezijkant(LadeZijkantData)
+				If (LadeZijkantData.Type = HuidigTeVergelijkenLadeZijkantType) {
+					Set LadeZijkantData = ..ZetLegeVeldenLadezijkant(LadeZijkantData, $$$False)
+				} Else {
+					Set LadeZijkantData = ..ZetLegeVeldenLadezijkant(LadeZijkantData, $$$True)
+					Set HuidigTeVergelijkenLadeZijkantType = LadeZijkantData.Type
+				}
+				
 			}
 			Set IsEersteProductVanReeks = $$$False
 			Do Rijen.Insert(LadeZijkantData)
@@ -298,14 +316,18 @@
 </Method>
 
 <Method name="ZetLegeVeldenLadezijkant">
-<FormalSpec>LadeZijkant:APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten</FormalSpec>
+<FormalSpec>LadeZijkant:APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten,IsAnderSoortZijwandType:%Boolean</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten</ReturnType>
 <Implementation><![CDATA[
 	Set LadeZijkant.LadeKleur = ""
 	Set LadeZijkant.LadeDiepte = ""
 	Set LadeZijkant.LadeHoogte = ""
-	Set LadeZijkant.Type = ""
+	
+	If $$$Not(IsAnderSoortZijwandType) {
+		Set LadeZijkant.Type = ""
+	} 
+	
 	Quit LadeZijkant
 ]]></Implementation>
 </Method>
@@ -318,26 +340,33 @@
 <Implementation><![CDATA[
 	#dim Rijen As List of APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten = ##class(%ListOfObjects).%New()
 	#dim TotaleLijst As List of APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten = ##class(%ListOfObjects).%New()
-
 	#dim LadeZijkantData As APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten
 	#dim IsEersteProductVanReeks = $$$True
 	#dim RijenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(RijenLijst)
 	#dim KorttekstVorigProductVanLijst As %String
+	#dim HuidigTeVergelijkenLadeZijkantType As %String 
 	
 	while RijenIterator.HasNext() {	
 		Set LadeZijkantData = RijenIterator.Next()
 		If IsEersteProductVanReeks {
 			Set KorttekstVorigProductVanLijst = LadeZijkantData.Korttekst
-			Set LadeZijkantData.Korttekst = ..GeefVerkorteKorttekst(LadeZijkantData.Korttekst)			
+			Set LadeZijkantData.Korttekst = ..GeefVerkorteKorttekst(LadeZijkantData.Korttekst)
+			Set HuidigTeVergelijkenLadeZijkantType = LadeZijkantData.Type			
 		} ElseIf (KorttekstVorigProductVanLijst = LadeZijkantData.Korttekst) {
 			Set LadeZijkantData.Korttekst=""
-			Set LadeZijkantData = ..ZetLegeVeldenLadezijkant(LadeZijkantData)
+			If (LadeZijkantData.Type = HuidigTeVergelijkenLadeZijkantType) {
+					Set LadeZijkantData = ..ZetLegeVeldenLadezijkant(LadeZijkantData, $$$False)
+				} Else {
+					Set LadeZijkantData = ..ZetLegeVeldenLadezijkant(LadeZijkantData, $$$True)
+					Set HuidigTeVergelijkenLadeZijkantType = LadeZijkantData.Type
+				}
 		} Else {
 			Do Rijen.Insert(..GeefLijnVolStippelijnen())
 			Do ..VoegToeRijenAanTotaleLijst(Rijen, TotaleLijst)
 			Set Rijen = ##class(%ListOfObjects).%New()
 			Set KorttekstVorigProductVanLijst = LadeZijkantData.Korttekst
 			Set LadeZijkantData.Korttekst = ..GeefVerkorteKorttekst(LadeZijkantData.Korttekst) 
+			Set HuidigTeVergelijkenLadeZijkantType = LadeZijkantData.Type
 		}
 		Set IsEersteProductVanReeks = $$$False
 		Do Rijen.Insert(LadeZijkantData)
@@ -378,7 +407,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeAantalLegeLijnenIndienNodig">
+<Method name="VoegToeAantalLegeLijnen">
 <FormalSpec>AantalRijen:%Integer,Rijen:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten")</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX Sp+Si+Sl_002_LBX_LadeZijkantenLijst.txt
===================================================================
diff -u -r60858 -r60862
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX Sp+Si+Sl_002_LBX_LadeZijkantenLijst.txt	(.../LBX Sp+Si+Sl_002_LBX_LadeZijkantenLijst.txt)	(revision 60858)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX Sp+Si+Sl_002_LBX_LadeZijkantenLijst.txt	(.../LBX Sp+Si+Sl_002_LBX_LadeZijkantenLijst.txt)	(revision 60862)
@@ -6,7 +6,7 @@
     ----|-----|----|------|------|-------------|--------
     Pos | Klr | Ho | LaDi | Type | Productnaam | Toe:Dos
     ----|-----|----|------|------|-------------|--------
-    1   |OG-M | C  | 400  |      |780C400 R+L  |222:LI7M |
+    1   |OG-M | C  | 400  |Free  |780C400 R+L  |222:LI7M |
     ----|---- |--- |----- |----- |------------ |-------- |
     ----|-----|----|------|------|-------------|--------