Index: BL/PPS/TBX/DocsV1.cls.xml =================================================================== diff -u -r2899 -r3264 --- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 2899) +++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 3264) @@ -551,7 +551,6 @@ Do:..HogePrioriteit blLabelPrinter.ZetHogePrioriteit() Set rs=##class(%ResultSet).%New("BL.PPS.TBX.Sequencer:GetSequence") Set sc=rs.Execute(..BatchID) - Set Count=0 For Quit:'rs.Next() Do . Set oQ=##class(DS.PPS.TBX.Queue).%OpenId(rs.Data("ID")) @@ -561,10 +560,9 @@ . Set pxLabel=..EtiketOne(oQ) . Quit:'$isObject(pxLabel) . Set pxLabel.VolgNr = VolgNr - . Set Count=Count+1 . If proc.Process(.pxLabel) Do - . . If $D(StartNr) Quit:CountEndNr + . . If $D(StartNr) Quit:VolgNrEndNr . . Do blLabelPrinter.Add(pxLabel) Do:proc.PostProcess(blLabelPrinter) blLabelPrinter.Print2Bartender() Set ..blLabelPrinter=blLabelPrinter