Index: APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml
===================================================================
diff -u -r49527 -r49888
--- APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 49527)
+++ APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 49888)
@@ -100,11 +100,11 @@
 <Implementation><![CDATA[
 	#dim VolgendeUnitID As %Integer = $Increment(^APPS.TRANSP.GLS.Bericht.UnitID(VerzendWijze))
 	If $$$Not(Bereik.BevatInclGrenzen(VolgendeUnitID)) {
-		if VolgendeUnitID < Bereik.Ondergrens {
-			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"))
+		If VolgendeUnitID < Bereik.Ondergrens {
+			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"))
 		}
 	}	
 	Quit VolgendeUnitID
Index: APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml
===================================================================
diff -u -r49506 -r49888
--- APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 49506)
+++ APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 49888)
@@ -173,7 +173,13 @@
 
 <Method name="VerhoogBereikIdVoorVerzendWijze">
 <FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
-<Implementation><![CDATA[	Set ^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze) = ^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze) + 1
+<Implementation><![CDATA[
+	#dim HuidigeRange As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze)
+	If $Data(^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze,HuidigeRange+1)) {
+		Set ^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze) = ^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze) + 1
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen nieuwe GLS range beschikbaar voor verzendwijze '"_VerzendWijze_"'. Huidge range = '"_HuidigeRange_"'."))
+	}
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler/Test.cls.xml
===================================================================
diff -u -r49527 -r49888
--- vhUnitTest/APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 49527)
+++ vhUnitTest/APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 49888)
@@ -101,8 +101,8 @@
 	set ^APPS.TRANSP.GLS.Bericht.UnitID(..VerzendWijze) = $$$Max-1
 	do $$$AssertEquals(UnitIDBepaler.GeefUnitID(..VerzendWijze),"000000000106")  ; laatste item van de range
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("GLS range voor 'UnitTestVerzendWijze' is opgebruikt, gelieve aan te passen in de GLSeigenschappen")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.GeneralErrorException,Substrings))
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen nieuwe GLS range beschikbaar voor verzendwijze 'UnitTestVerzendWijze'. Huidge range = '1'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
 
 	do UnitIDBepaler.GeefUnitID(..VerzendWijze)
 ]]></Implementation>