BL.Sys.FOP.Common TECH.RegisteredObject PrintGroepNaamLijst:%ListOfDataTypes %ListOfDataTypes 0) PrintGroepNrLijst.Insert(PrintGroepNr) } Quit PrintGroepNrLijst ]]> PrintGroepNrLijst:%ListOfDataTypes,LaatstePrintGroepNr:%Integer %ListOfDataTypes 0) TO DO Set OntbrekendeItems = ##class(%ListOfDataTypes).%New() If PrintGroepNrLijst.Count() > 0 { #dim KleinsteNr As %Integer = ##class(TECH.ListUtils).GeefMinimum(PrintGroepNrLijst,##class(TECH.Comparator.IntegerComparator).%New()) #dim i As %Integer = 0 For i = KleinsteNr : 1 : LaatstePrintGroepNr { Do:($$$Not(##class(TECH.ListUtils).Contains(PrintGroepNrLijst,i))) OntbrekendeItems.Insert(i) } } Quit OntbrekendeItems ]]> Powertool-method om de CHUI.FOP.Print log aan te vullen wanneer een Missing (Missing ...) mag weggewerkt worden. Via LogDatumDelta = -1 kan je de logging op de vorige dag zetten, anders heb je later ongewenste neveneffectent :-P Oproepen via Do ##class(CHUI.FOP.Print.MainForm.PrintGroepOntbrekendeItemsBepaler).%New().VervangOntbrekendItemDoorDummyLog(PrintGroepNr, 0) PrintGroepNr:%Integer,LogDatumDelta:%Integer=0