Index: APPS/Halux/PPS/TBXVerpakking/impl/Werkpost.cls.xml =================================================================== diff -u -r49461 -r49532 --- APPS/Halux/PPS/TBXVerpakking/impl/Werkpost.cls.xml (.../Werkpost.cls.xml) (revision 49461) +++ APPS/Halux/PPS/TBXVerpakking/impl/Werkpost.cls.xml (.../Werkpost.cls.xml) (revision 49532) @@ -72,12 +72,12 @@ #dim VerpakLookAhead As %Integer = VerpakLookAheadInit Try { #dim SequenceNummer As %Integer = ..GeefSequenceNummer(QueueID) - If (SequenceNummer < 1) { Set SequenceNummer = 1 } + If (SequenceNummer < EersteSequenceNummer) { Set SequenceNummer = EersteSequenceNummer } 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_"'.") + Do ##class(vhLib.Logger).%New("").LogEnMailExceptie(Exception,"De VerpakLookAheadVerhoogd is gefaald voor QueueID '"_QueueID_"' op werkpost '"_..Werkpost_"' (Init:"_VerpakLookAheadInit_" ; Max:"_VerpakLookAheadMax_").") } Quit VerpakLookAhead ]]>