Index: APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml
===================================================================
diff -u -r55388 -r55484
--- APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 55388)
+++ APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 55484)
@@ -61,6 +61,7 @@
 		
 		// Volgende Id (van het nieuwe bereik) bepalen 
 		Set Bereik = ..GLSEigenschappen.GeefBereikVoorVerzendWijze(VerzendWijze)
+		Do ..ZetUnitIdNetVoorOndergrensVanBereik(VerzendWijze, Bereik)
 		Set VolgendeID = ..GeefVolgendeID(VerzendWijze,Bereik)
 	}
 	If (VolgendeID > ..GeefGrensWaardeEindeRange(Bereik,..#WaarschuwingVanafProcentOpgebruikt)) {
@@ -116,7 +117,7 @@
 	#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
+			Do ..ZetUnitIdNetVoorOndergrensVanBereik(VerzendWijze, Bereik)
 			Set VolgendeUnitID  = $Increment(^APPS.TRANSP.GLS.Bericht.UnitID(VerzendWijze))
 		} Else {
 			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"))
@@ -126,6 +127,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetUnitIdNetVoorOndergrensVanBereik">
+<FormalSpec>VerzendWijze:%String,Bereik:TECH.Bereik</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Set ^APPS.TRANSP.GLS.Bericht.UnitID(VerzendWijze) = Bereik.Ondergrens-1
+]]></Implementation>
+</Method>
+
 <Method name="RangeBijnaOpgebruikt">
 <FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze,VolgendeID:%Integer,Bereik:TECH.Bereik,ProcentOpgebruikt:%Decimal</FormalSpec>
 <Private>1</Private>