Index: APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml
===================================================================
diff -u -r50495 -r55386
--- APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 50495)
+++ APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 55386)
@@ -25,7 +25,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..GLSEigenschappen = $$$Implementation(GLSEigenschappen, ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen())
+	Set ..GLSEigenschappen = $$$Implementation(GLSEigenschappen, ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -46,8 +46,12 @@
 	try {
 		#dim VolgendeID As %Integer = ..GeefVolgendeID(VerzendWijze,Bereik)
 	} catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch(##class(APPS.TRANSP.GLS.GLSv1.impl.GlsUnitIdNietInRangeException).%ClassName($$$True))
+		
+		// BereikId verhogen 
 		Do ..GLSEigenschappen.VerhoogBereikIdVoorVerzendWijze(VerzendWijze)
+		
+		// Volgende Id (van het nieuwe bereik) bepalen 
 		Set Bereik = ..GLSEigenschappen.GeefBereikVoorVerzendWijze(VerzendWijze)
 		Set VolgendeID = ..GeefVolgendeID(VerzendWijze,Bereik)
 	}
@@ -104,7 +108,7 @@
 			Set ^APPS.TRANSP.GLS.Bericht.UnitID(VerzendWijze) = Bereik.Ondergrens-1
 			Set VolgendeUnitID  = $Increment(^APPS.TRANSP.GLS.Bericht.UnitID(VerzendWijze))
 		} Else {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("GLS range voor '"_VerzendWijze_"' is opgebruikt, gelieve aan te passen in de GLSeigenschappen"))
+			Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.GLSv1.impl.GlsUnitIdNietInRangeException).%New("GLS range voor '"_VerzendWijze_"' is opgebruikt, gelieve aan te passen in de GLSeigenschappen"))
 		}
 	}	
 	Quit VolgendeUnitID
@@ -145,7 +149,7 @@
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim Ondergrens As %Integer = Bereik.GeefOndergrens()
-	#dim AantalWaardenInBereik As %Integer = (Bereik.GeefBovengrens() - Ondergrens)
+	#dim AantalWaardenInBereik As %Integer = (Bereik.GeefBovengrens() - Ondergrens + 1)
 	#dim Grenswaarde As %Integer = Ondergrens + (AantalWaardenInBereik * ProcentOpgebruikt)
 	Quit Grenswaarde
 ]]></Implementation>