Index: TECH/Context.cls.xml
===================================================================
diff -u -r1534 -r1535
--- TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 1534)
+++ TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 1535)
@@ -77,6 +77,11 @@
 <Default>PersistentObjectAPI</Default>
 </Parameter>
 
+<Parameter name="VolgendIDBepalerAPI">
+<Type>%String</Type>
+<Default>VolgendIDBepalerAPI</Default>
+</Parameter>
+
 <Method name="Instance">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Context</ReturnType>
@@ -132,6 +137,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVolgendIDBepalerAPI">
+<ReturnType>TECH.VolgendIDBepaler.VolgendIDBepalerAPI</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefAPIObject(..#VolgendIDBepalerAPI)
+]]></Implementation>
+</Method>
+
+<Method name="PushVolgendIDBepalerAPIClassName">
+<FormalSpec>Naam:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..PushAPINaam(..#VolgendIDBepalerAPI,Naam)
+]]></Implementation>
+</Method>
+
+<Method name="PopVolgendIDBepalerAPIClassName">
+<Implementation><![CDATA[	Do ..PopAPINaam(..#VolgendIDBepalerAPI)
+]]></Implementation>
+</Method>
+
 <Method name="GeefPersistentObjectAPI">
 <ReturnType>TECH.Persistent.PersistentObjectAPI</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefAPIObject(..#PersistentObjectAPI)
@@ -327,6 +349,7 @@
 	Do ..PushCmdAPIClassName(##class(TECH.Cmd.impl.CmdAPI).%ClassName(1))
 	Do ..PushLoggingAPIClassName(##class(TECH.Logging.impl.LoggingAPI).%ClassName(1))
 	Do ..PushPersistentObjectAPIClassName(##class(TECH.Persistent.impl.PersistentObjectAPI).%ClassName(1))
+	Do ..PushVolgendIDBepalerAPIClassName(##class(TECH.VolgendIDBepaler.impl.VolgendIDBepalerAPI).%ClassName(1))
 ]]></Implementation>
 </Method>
 
Index: TECH/VolgendIDBepaler/VolgendIDBepalerAPI.cls.xml
===================================================================
diff -u
--- TECH/VolgendIDBepaler/VolgendIDBepalerAPI.cls.xml	(revision 0)
+++ TECH/VolgendIDBepaler/VolgendIDBepalerAPI.cls.xml	(revision 1535)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.VolgendIDBepaler.VolgendIDBepalerAPI">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="BepaalID">
+<Abstract>1</Abstract>
+<FormalSpec>Code:TECH.String(MINLEN=1),Minimum:TECH.Integer=1,Maximum:TECH.Integer=999999</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+</Method>
+
+<Method name="Reset">
+<Abstract>1</Abstract>
+<FormalSpec>Code:TECH.String(MINLEN=1)</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/VolgendIDBepaler/impl/VolgendIDBepalerAPI/BepaalID/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/VolgendIDBepaler/impl/VolgendIDBepalerAPI/BepaalID/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/VolgendIDBepaler/impl/VolgendIDBepalerAPI/BepaalID/Test.cls.xml	(revision 1535)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.VolgendIDBepaler.impl.VolgendIDBepalerAPI.BepaalID.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="Code">
+<Type>%String</Type>
+<Default>UTVolgendIDBepalerAPI</Default>
+</Parameter>
+
+<Property name="VolgendIDBepaler">
+<Type>TECH.VolgendIDBepaler.VolgendIDBepalerAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	set ..VolgendIDBepaler = ##class(TECH.VolgendIDBepaler.impl.VolgendIDBepalerAPI).%New()
+	do ..VolgendIDBepaler.Reset(..#Code)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ..VolgendIDBepaler.Reset(..#Code)
+	do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ID Bepaling , maximum bereikt opnieuw beginnen vanaf minimum">
+<Implementation><![CDATA[
+	#define Minimum 1
+	#define Maximum 2
+	
+	do $$$AssertEquals(..VolgendIDBepaler.BepaalID(..#Code,$$$Minimum,$$$Maximum),1)
+	do $$$AssertEquals(..VolgendIDBepaler.BepaalID(..#Code,$$$Minimum,$$$Maximum),2)
+	do $$$AssertEquals(..VolgendIDBepaler.BepaalID(..#Code,$$$Minimum,$$$Maximum),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ID Bepaling , minimum ingesteld">
+<Implementation><![CDATA[
+	#define Minimum 1001
+	#define Maximum 1002
+	
+	do $$$AssertEquals(..VolgendIDBepaler.BepaalID(..#Code,$$$Minimum,$$$Maximum),1001)
+	do $$$AssertEquals(..VolgendIDBepaler.BepaalID(..#Code,$$$Minimum,$$$Maximum),1002)
+	do $$$AssertEquals(..VolgendIDBepaler.BepaalID(..#Code,$$$Minimum,$$$Maximum),1001)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Controle global referentie">
+<Implementation><![CDATA[
+	#define Minimum 1
+	#define Maximum 2
+	
+	do ..VolgendIDBepaler.BepaalID(..#Code,$$$Minimum,$$$Maximum)
+	do $$$AssertEquals($zreference,"^TECH.VolgendIDBepalerD(""UTVolgendIDBepalerAPI"")")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Minimum gelijk aan maximum resulteert in een ongeldige ingave ">
+<Implementation><![CDATA[
+	#define Minimum 1
+	#define Maximum 1
+		
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Maximum '1' is niet groter dan minium '1'")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
+	
+	do ..VolgendIDBepaler.BepaalID(..#Code,$$$Minimum,$$$Maximum)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Minimum groter dan maximum resulteert in een ongeldige ingave ">
+<Implementation><![CDATA[
+	#define Minimum 2
+	#define Maximum 1
+		
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Maximum '1' is niet groter dan minium '2'")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
+	
+	do ..VolgendIDBepaler.BepaalID(..#Code,$$$Minimum,$$$Maximum)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Code is verplicht op te geven">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Code met minimum lengte 1 is verplicht op te geven")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
+	
+	do ..VolgendIDBepaler.BepaalID()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Code mag niet leeg zijn">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Code met minimum lengte 1 is verplicht op te geven")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
+	
+	do ..VolgendIDBepaler.BepaalID("")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/VolgendIDBepaler/impl/VolgendIDBepalerAPI.cls.xml
===================================================================
diff -u
--- TECH/VolgendIDBepaler/impl/VolgendIDBepalerAPI.cls.xml	(revision 0)
+++ TECH/VolgendIDBepaler/impl/VolgendIDBepalerAPI.cls.xml	(revision 1535)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.VolgendIDBepaler.impl.VolgendIDBepalerAPI">
+<Super>TECH.RegisteredObject,TECH.VolgendIDBepaler.VolgendIDBepalerAPI</Super>
+
+<Parameter name="Global">
+<Type>%String</Type>
+<Default>^TECH.VolgendIDBepalerD</Default>
+</Parameter>
+
+<Method name="BepaalID">
+<FormalSpec>Code:TECH.String(MINLEN=1),Minimum:TECH.Integer=1,Maximum:TECH.Integer=999999</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	do:$$$Not($length($get(Code))>0) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Code met minimum lengte 1 is verplicht op te geven"))
+	do:$$$Not(Maximum > Minimum) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Maximum '"_Maximum_"' is niet groter dan minium '"_Minimum_"'"))
+	
+	#dim Lock As TECH.Lock = ##class(TECH.Lock).%New($name(@..#Global(Code)))
+	do Lock.Lock()
+	if ( $get(@..#Global@(Code)) < ( Minimum-1 ) ) || ( $get(@..#Global@(Code)) > ( Maximum-1 ) ) {
+		set @..#Global@(Code) = Minimum-1
+	}
+	#dim VolgendID  As TECH.Integer = $Increment(@..#Global@(Code))
+	do Lock.UnLock()
+	quit VolgendID
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<FormalSpec>Code:TECH.String(MINLEN=1)</FormalSpec>
+<Implementation><![CDATA[
+	#dim Lock As TECH.Lock = ##class(TECH.Lock).%New($name(@..#Global(Code)))
+	do Lock.Lock()
+	kill @..#Global@(Code)
+	do Lock.UnLock()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>