Index: APPS/Halux/PPS/TBXVerpakking/impl/Werkpost.cls.xml
===================================================================
diff -u -r29059 -r49461
--- APPS/Halux/PPS/TBXVerpakking/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/TBXVerpakking/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 49461)
@@ -4,7 +4,7 @@
 <ClassType/>
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 <Inheritance>right</Inheritance>
 
 <Property name="Werkpost">
@@ -53,12 +53,53 @@
 <FormalSpec>QueueID</FormalSpec>
 <Implementation><![CDATA[
 	Set blVerpak=##class(BL.PPS.WPVerpak).Instantiate(..GeefConnectedKartonMachine())
-	For I=1:1:(..#VerpakLookAhead+1) Do  Quit:QueueID=""
+	#dim VerpakLookAhead As %Integer = ..GeefVerpakLookAheadVerhoogd(QueueID)
+	For I=1:1:(VerpakLookAhead+1) Do  Quit:QueueID=""
 	. Do blVerpak.VerwerkWachtend(QueueID)
 	. Set QueueID=blVerpak.GetNext(QueueID)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVerpakLookAheadVerhoogd">
+<FormalSpec>QueueID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim VerpakLookAheadInit As %Integer = ..#VerpakLookAhead   ; Beter: Setting of ConfigItem 
+	#dim VerpakLookAheadMax As %Integer = 8                     ; idem 
+	#dim EersteSequenceNummer As %Integer = 1   ; Mag vast zijn, want  beginnen altijd vooraan de sequentie, nooit middenin de batch 
+	
+	#dim VerpakLookAhead As %Integer = VerpakLookAheadInit
+	Try {
+		#dim SequenceNummer As %Integer = ..GeefSequenceNummer(QueueID)
+		If (SequenceNummer < 1)  { Set SequenceNummer = 1 }
+		Set VerpakLookAhead = $$$Min(VerpakLookAheadMax, (VerpakLookAhead + (SequenceNummer-EersteSequenceNummer)) )
+	}
+	Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).%New("").LogEnMailExceptie(Exception,"De VerpakLookAheadVerhoogd is gefaald voor QueueID '"_QueueID_"' op werkpost '"_..Werkpost_"'.")
+	}
+	Quit VerpakLookAhead
+]]></Implementation>
+</Method>
+
+<Method name="GeefSequenceNummer">
+<FormalSpec>QueueID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim SequenceNummer As %Integer = 0
+	
+	#dim SelectStatement As %String = "SELECT Sequence  FROM PPS.TBX_Queue WHERE ID = ?"
+	Set Query = ##class(TECH.DynamicQuery).%New(SelectStatement,$LB(QueueID))
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Query.impl.QueryAPI).%New().GetResultSet(Query)
+	If ResultSet.Next() {
+		Set SequenceNummer = ResultSet.GetDataByName("Sequence")
+	}
+	Quit SequenceNummer
+]]></Implementation>
+</Method>
+
 <Method name="GeefConnectedKartonMachine">
 <Private>1</Private>
 <Implementation><![CDATA[