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