Index: vhUnitTest/APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler/GLSEigenschappenMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler/GLSEigenschappenMock.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler/GLSEigenschappenMock.cls.xml	(revision 55483)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.GLS.GLSv1.impl.UnitIdBepaler.GLSEigenschappenMock">
+<Super>APPS.TRANSP.GLS.GLSv1.impl.GLSEigenschappen</Super>
+
+<Method name="GeefBereikVoorVerzendWijze">
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
+<ReturnType>TECH.Bereik</ReturnType>
+<Implementation><![CDATA[
+	#dim BereikId As %Integer = ..GeefBereikIdVoorVerzendWijze(VerzendWijze)
+	#dim Ondergrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze,BereikId,"Ondergrens")
+	#dim Bovengrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze,BereikId,"Bovengrens")
+	
+	Quit ##class(TECH.Bereik).%New(Ondergrens,Bovengrens,##class(TECH.Comparator.IntegerComparator).%New())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler/Test.cls.xml
===================================================================
diff -u -r55387 -r55483
--- vhUnitTest/APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55387)
+++ vhUnitTest/APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55483)
@@ -108,6 +108,54 @@
 	do UnitIDBepaler.GeefUnitID(..VerzendWijze)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Bij range opgebruikt schakelt automatisch over naar de volgende range">
+<Implementation><![CDATA[
+	#dim HuidigBereikId As %Integer = 1
+	#dim NieuwBereikId As %Integer = 2
+	#dim BovengrensHuidigBereik As %Integer = 10
+	
+	Set GLSEigenschappen = ##class(vhUnitTest.APPS.TRANSP.GLS.GLSv1.impl.UnitIdBepaler.GLSEigenschappenMock).%New()
+	Set UnitIDBepaler = ##class(APPS.TRANSP.GLS.GLSv1.impl.UnitIdBepaler).%New(GLSEigenschappen)
+	
+	Set ^APPS.TRANSP.GLS.Bericht.Range(..VerzendWijze,HuidigBereikId,"Ondergrens") = 1
+	Set ^APPS.TRANSP.GLS.Bericht.Range(..VerzendWijze,HuidigBereikId,"Bovengrens")=BovengrensHuidigBereik
+	
+	Set ^APPS.TRANSP.GLS.Bericht.Range(..VerzendWijze,NieuwBereikId,"Ondergrens") = 41
+	Set ^APPS.TRANSP.GLS.Bericht.Range(..VerzendWijze,NieuwBereikId,"Bovengrens") = 60
+	
+	Set ^APPS.TRANSP.GLS.Bericht.Range(..VerzendWijze) = HuidigBereikId
+	Set ^APPS.TRANSP.GLS.Bericht.UnitID(..VerzendWijze) = BovengrensHuidigBereik - 1
+	
+	Do $$$AssertEquals(UnitIDBepaler.GeefUnitID(..VerzendWijze),"000000000106")  ; laatste item van de range : "...10" + controle-getal 6 
+	// Overschakelen naar nieuwe range 
+	Do $$$AssertEquals(UnitIDBepaler.GeefUnitID(..VerzendWijze),"000000000416")  ; ...41 + controle-getal 6
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bij range opgebruikt schakelt automatisch over naar de volgende range, die kleiner is">
+<Implementation><![CDATA[
+	#dim HuidigBereikId As %Integer = 1
+	#dim NieuwBereikId As %Integer = 2
+	#dim BovengrensHuidigBereik As %Integer = 90
+	
+	Set GLSEigenschappen = ##class(vhUnitTest.APPS.TRANSP.GLS.GLSv1.impl.UnitIdBepaler.GLSEigenschappenMock).%New()
+	Set UnitIDBepaler = ##class(APPS.TRANSP.GLS.GLSv1.impl.UnitIdBepaler).%New(GLSEigenschappen)
+	
+	Set ^APPS.TRANSP.GLS.Bericht.Range(..VerzendWijze,HuidigBereikId,"Ondergrens") = 81
+	Set ^APPS.TRANSP.GLS.Bericht.Range(..VerzendWijze,HuidigBereikId,"Bovengrens")=BovengrensHuidigBereik
+	
+	Set ^APPS.TRANSP.GLS.Bericht.Range(..VerzendWijze,NieuwBereikId,"Ondergrens") = 41
+	Set ^APPS.TRANSP.GLS.Bericht.Range(..VerzendWijze,NieuwBereikId,"Bovengrens") = 60
+	
+	Set ^APPS.TRANSP.GLS.Bericht.Range(..VerzendWijze) = HuidigBereikId
+	Set ^APPS.TRANSP.GLS.Bericht.UnitID(..VerzendWijze) = BovengrensHuidigBereik - 1
+	
+	Do $$$AssertEquals(UnitIDBepaler.GeefUnitID(..VerzendWijze),"000000000902")  ; laatste item van de range : "...90" + controle-getal 2 
+	// Overschakelen naar nieuwe range 
+	Do $$$AssertEquals(UnitIDBepaler.GeefUnitID(..VerzendWijze),"000000000416")  ; ...41 + controle-getal 6
+]]></Implementation>
+</Method>
 </Class>