Index: vhUnitTest/CHUI/FOP/Print/MainForm/PrintGroepOntbrekendeItemsBepaler/BepaalOntbrekendeItems/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/CHUI/FOP/Print/MainForm/PrintGroepOntbrekendeItemsBepaler/BepaalOntbrekendeItems/Test.cls.xml	(revision 0)
+++ vhUnitTest/CHUI/FOP/Print/MainForm/PrintGroepOntbrekendeItemsBepaler/BepaalOntbrekendeItems/Test.cls.xml	(revision 35674)
@@ -0,0 +1,114 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.CHUI.FOP.Print.MainForm.PrintGroepOntbrekendeItemsBepaler.BepaalOntbrekendeItems.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ItemsBepaler">
+<Type>CHUI.FOP.Print.MainForm.PrintGroepOntbrekendeItemsBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..ItemsBepaler = ##class(CHUI.FOP.Print.MainForm.PrintGroepOntbrekendeItemsBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="TestGeenOntbrekendeItems">
+<Implementation><![CDATA[
+	#dim PrintGroepNrLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(2,3,4)
+	#dim LaatstePrintGroepNr As %Integer = 4
+
+	Do ..AssertOntbrekendeItems(PrintGroepNrLijst,LaatstePrintGroepNr, "")
+]]></Implementation>
+</Method>
+
+<Method name="TestLaatsteGroepNrOntbreekt">
+<Implementation><![CDATA[
+	#dim PrintGroepNrLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(2,3,4)
+	#dim LaatstePrintGroepNr As %Integer = 5
+
+	Do ..AssertOntbrekendeItems(PrintGroepNrLijst,LaatstePrintGroepNr, $LB(5))
+]]></Implementation>
+</Method>
+
+<Method name="TestGroepNrErgensInLijstOntbreekt">
+<Implementation><![CDATA[
+	#dim PrintGroepNrLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(6,8,9)
+	#dim LaatstePrintGroepNr As %Integer = 9
+
+	Do ..AssertOntbrekendeItems(PrintGroepNrLijst,LaatstePrintGroepNr, $LB(7))
+]]></Implementation>
+</Method>
+
+<Method name="TestTweeOntbrekendeItems">
+<Implementation><![CDATA[
+	#dim PrintGroepNrLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(6,8,9)
+	#dim LaatstePrintGroepNr As %Integer = 10
+
+	Do ..AssertOntbrekendeItems(PrintGroepNrLijst,LaatstePrintGroepNr, $LB(7,10))
+]]></Implementation>
+</Method>
+
+<Method name="Test GroepNrLijst Met TellerReset geeft geen ontbrekende items">
+<Implementation><![CDATA[
+	#dim PrintGroepNrLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(998,999,0,1,2,3)
+	#dim LaatstePrintGroepNr As %Integer = 3
+
+	Do ..AssertOntbrekendeItems(PrintGroepNrLijst,LaatstePrintGroepNr, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test GroepNrLijst Met TellerReset met ontbrekend item dicht bij 0 werkt correct">
+<Implementation><![CDATA[
+	#dim PrintGroepNrLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(998,999,0,1,3)
+	#dim LaatstePrintGroepNr As %Integer = 3
+
+	Do ..AssertOntbrekendeItems(PrintGroepNrLijst,LaatstePrintGroepNr, $LB(2))
+]]></Implementation>
+</Method>
+
+<Method name="Test GroepNrLijst Met TellerReset met ontbrekend item dicht bij 999 werkt nog niet correct">
+<Implementation><![CDATA[
+	#dim PrintGroepNrLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(996,998,999,0,1,2)
+	#dim LaatstePrintGroepNr As %Integer = 2
+
+	// Omdat de method slechts gedeeltelijk werkt, is het resultaat voorlopig leeg.  Uiteraard is het pas correct wanneer item 997 wordt teruggegeven.
+	Do ..AssertOntbrekendeItems(PrintGroepNrLijst,LaatstePrintGroepNr, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test Lege PrintGroepNrLijst geeft geen ontbrekende items">
+<Implementation><![CDATA[
+	#dim PrintGroepNrLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes()
+	#dim LaatstePrintGroepNr As %Integer = $$$DummyInteger
+
+	Do ..AssertOntbrekendeItems(PrintGroepNrLijst,LaatstePrintGroepNr, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test LaatstePrintGroepNr Is Nul (ongeldig) geeft voorlopig geen melding of ontbrekende items">
+<Implementation><![CDATA[
+	#dim PrintGroepNrLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(6,8,9)
+	#dim LaatstePrintGroepNr As %Integer = 0
+
+	Do ..AssertOntbrekendeItems(PrintGroepNrLijst,LaatstePrintGroepNr, "")
+]]></Implementation>
+</Method>
+
+<Method name="AssertOntbrekendeItems">
+<FormalSpec>PrintGroepNrLijst:%ListOfDataTypes,LaatstePrintGroepNr:%Integer,lbVerwachteOntbrekendeItems:%List</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim VerwachteLijstOntbrekendeItems As %ListOfDataTypes = ##class(TECH.ListUtils).ListbuildToList(lbVerwachteOntbrekendeItems)
+	#dim OntbrekendeItems As %ListOfDataTypes = ..ItemsBepaler.BepaalOntbrekendeItems(PrintGroepNrLijst,LaatstePrintGroepNr)
+
+	Do $$$AssertEqualsList(OntbrekendeItems,VerwachteLijstOntbrekendeItems)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: CHUI/FOP/Print/MainForm/PrintGroepOntbrekendeItemsBepaler.cls.xml
===================================================================
diff -u -r32017 -r35674
--- CHUI/FOP/Print/MainForm/PrintGroepOntbrekendeItemsBepaler.cls.xml	(.../PrintGroepOntbrekendeItemsBepaler.cls.xml)	(revision 32017)
+++ CHUI/FOP/Print/MainForm/PrintGroepOntbrekendeItemsBepaler.cls.xml	(.../PrintGroepOntbrekendeItemsBepaler.cls.xml)	(revision 35674)
@@ -19,13 +19,19 @@
 
 <Method name="BepaalOntbrekendeItems">
 <FormalSpec>PrintGroepNrLijst:%ListOfDataTypes,LaatstePrintGroepNr:%Integer</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+	// LET OP : deze method ondersteunt slechts gedeeltelijk het bepalen indien PrintGroepTeller RESET (999 --> 0)   TO DO 
+	
 	Set OntbrekendeItems = ##class(%ListOfDataTypes).%New()
-	Do OntbrekendeItems.Insert(999)   ; TestData 
 	
-	; PGNr lijst  -->  GeefMinimum  -->  VerwachteNrLijst = from Min to LaatstePrintGroepNr  -->  Ontbr = ListVerschil (Verwach - PGNr)
-	
-	
+	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
 ]]></Implementation>
 </Method>