Index: APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml
===================================================================
diff -u -r60858 -r60899
--- APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml	(.../LadeZijkantenPickingLijst.cls.xml)	(revision 60858)
+++ APPS/Halux/PPS/Document/impl/common/LadeZijkantenPickingLijst.cls.xml	(.../LadeZijkantenPickingLijst.cls.xml)	(revision 60899)
@@ -42,17 +42,23 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	do ##super()
+	Do ##super()
 	Set ..DocumentService = ##class(APPS.Halux.PPS.impl.DocumentService).%New()
-	set ..BatchService = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService()
-	set ..IngegevenKenmerkenBepaler = ##class(APPS.Halux.common.impl.ProductieAansturingIngegevenKenmerkenBepaler).%New()
-	set ..ProductieAansturingService = ##class(APPS.Halux.common.impl.ProductieAansturingService).%New()
+	Set ..BatchService = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService()
+	Set ..IngegevenKenmerkenBepaler = ##class(APPS.Halux.common.impl.ProductieAansturingIngegevenKenmerkenBepaler).%New()
+	Set ..ProductieAansturingService = ##class(APPS.Halux.common.impl.ProductieAansturingService).%New()
+	Set ..ProductAPI = ##class(DOM.DomeinContext).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -80,7 +86,7 @@
 		Set GesorteerdeLijst = ..SorteerVolgensSequentieNr(GesorteerdeLijst)
 		Set GesorteerdeLijst = ..GroepeerEenBladzijdePerLijstPerKar(GesorteerdeLijst)
 	}
-	#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(UitvoeringInfoLijst.GetAt(1).ProductID)
+	#dim Product As DOM.PM.Product = ..ProductAPI.GeefProductAPI().GeefProduct(UitvoeringInfoLijst.GetAt(1).ProductID)
 	Set ..Document = ##class(APPS.common.Print.Kolommen.Document).%New(..#DocumentID,..#Titel_" "_Product.GeefVerpakking(),SubTitel)
 	Do ..VoegDataToeAanDocument(GesorteerdeLijst)
 	quit ##class(TECH.ListUtils).CreateListOfObjects(..Document)
@@ -100,7 +106,7 @@
 <FormalSpec><![CDATA[LadeZijkantenUitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.LadeZijkantenUitvoeringInfo,&RijenLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.common.dto.LadeZijkanten")]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Lade As DOM.PM.MaatwerkProduct = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(LadeZijkantenUitvoeringInfo.ProductID)
+	#dim Lade As DOM.PM.MaatwerkProduct = ..ProductAPI.GeefProductAPI().GeefProduct(LadeZijkantenUitvoeringInfo.ProductID)
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..IngegevenKenmerkenBepaler.BepaalIngegevenKenmerken(..Batch,Lade.GeefProductSpecificatie().GeefIngegevenKenmerken())
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..ProductieAansturingService.GeefHalffabItemsBoom(LadeZijkantenUitvoeringInfo.BatchID,LadeZijkantenUitvoeringInfo.ProductID)
 	#dim ZijkantHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HalffabItemsBoom.GeefHalffabItem(..GeefLadeZijkantEnuType())
Index: APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml
===================================================================
diff -u -r60894 -r60899
--- APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 60894)
+++ APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 60899)
@@ -259,15 +259,15 @@
 		If ($Extract(LadeZijkantData.SequentieNummer, 1,2) = "--") {
 			Set TellerAantalStippelijnen = TellerAantalStippelijnen +1
 			If (TellerAantalProducten = ..#AantalZijkantenPerKar) {
-				
-				If $$$Not(..#AantalBeschrijfbareRegelsOpDocument-##class(TECH.Math).Abs(MaximaalAantalWitregels-TellerAantalStippelijnen) = (..#AantalBeschrijfbareRegelsOpDocument-1)) {
+				//Deze conditie voorkomt dat een extra pagina wordt afgedrukt met enkel en alleen een stippelijn op
+				If (($$$Not((..#AantalBeschrijfbareRegelsOpDocument - ##class(TECH.Math).Abs(MaximaalAantalWitregels-TellerAantalStippelijnen)) = (..#AantalBeschrijfbareRegelsOpDocument - 1))) || (TellerAantalStippelijnen = (MaximaalAantalWitregels - 1))) {
 					Do Rijen.Insert(LadeZijkantData)					
 				}
-				Set IsLadeToegevoegd = $$$True							//Dit voorkomt dat een extra pagina wordt afgedrukt met enkel en alleen een stippelijn op 
+				Set IsLadeToegevoegd = $$$True						 
 				If TellerAantalStippelijnen <= MaximaalAantalWitregels {
 					Set Rijen = ..VoegToeAantalLegeLijnen(MaximaalAantalWitregels-TellerAantalStippelijnen, Rijen)
 				} Else {
-					Set Rijen = ..VoegToeAantalLegeLijnen(..#AantalBeschrijfbareRegelsOpDocument-##class(TECH.Math).Abs(MaximaalAantalWitregels-TellerAantalStippelijnen), Rijen)
+					Set Rijen = ..VoegToeAantalLegeLijnen(..#AantalBeschrijfbareRegelsOpDocument - ##class(TECH.Math).Abs(MaximaalAantalWitregels-TellerAantalStippelijnen), Rijen)
 				}
 				Set MagLijnenToevoegen = $$$False
 				Set TellerAantalStippelijnen = 0