Index: vhUnitTest/APPS/TRANSP/GLS/UnitIDBepaler/TestUnitIDBepaler.cls.xml
===================================================================
diff -u -r29059 -r30995
--- vhUnitTest/APPS/TRANSP/GLS/UnitIDBepaler/TestUnitIDBepaler.cls.xml	(.../TestUnitIDBepaler.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TRANSP/GLS/UnitIDBepaler/TestUnitIDBepaler.cls.xml	(.../TestUnitIDBepaler.cls.xml)	(revision 30995)
@@ -1,8 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.TRANSP.GLS.UnitIDBepaler.TestUnitIDBepaler">
-<Description>
-d ##class(vhUnitTest.Manager).RunTest("/display=all/debug","APPS.TRANSP.GLS.Bericht.impl.TestUnitIDHelper")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
 <Property name="VerzendWijze">
@@ -35,87 +33,75 @@
 <Implementation><![CDATA[
 	Set UnitIDHelper = ##class(APPS.TRANSP.GLS.impl.UnitIDBepaler).%New()		
 	
-	#dim GLSEigenschappen As APPS.TRANSP.GLS.GLSEigenschappen = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen()
+	#dim GLSEigenschappen As APPS.TRANSP.GLS.GLSEigenschappen = ##class(vhUnitTest.APPS.TRANSP.GLS.UnitIDBepaler.GLSEigenschappen).%New()
 	#dim Bereik As TECH.Bereik = GLSEigenschappen.GeefBereikVoorVerzendWijze(..VerzendWijze)
 		
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534018)	
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534019)
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534020)	
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534021)
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534022)
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534023)
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534024)
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534025)
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534026)
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534027)
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534028)
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534029)
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534030)
-	
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534018)	
-	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),533534019)
+	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),1)	
+	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),2)
+	Do $$$AssertEquals(UnitIDHelper.GeefVolgendeID(..VerzendWijze,Bereik),3)
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefUnitID">
 <Implementation><![CDATA[
-	Set UnitIDHelper = ##class(APPS.TRANSP.GLS.impl.UnitIDBepaler).%New()		
+	#dim GLSEigenschappen As APPS.TRANSP.GLS.GLSEigenschappen = ##class(vhUnitTest.APPS.TRANSP.GLS.UnitIDBepaler.GLSEigenschappen).%New("00533534018","00533534025")
+	Set UnitIDBepaler = ##class(APPS.TRANSP.GLS.impl.UnitIDBepaler).%New(GLSEigenschappen)		
 	#dim Som = (((5*3)+(3*1)+(3*3)+(5*1)+(3*3)+(4*1)+(0*3)+(1*1)+(8*3)) + 1)
 	#dim EerstVolgendTiental = 80
 	#dim ControleGetal = EerstVolgendTiental - Som
-	Do $$$AssertEquals(UnitIDHelper.GeefUnitID(..VerzendWijze),"00533534018"_ControleGetal)
+	Do $$$AssertEquals(UnitIDBepaler.GeefUnitID(..VerzendWijze),"00533534018"_ControleGetal)
 	
-	Do $$$AssertEquals(UnitIDHelper.GeefUnitID(..VerzendWijze),"005335340196")
-	Do $$$AssertEquals(UnitIDHelper.GeefUnitID(..VerzendWijze),"005335340202")
+	Do $$$AssertEquals(UnitIDBepaler.GeefUnitID(..VerzendWijze),"005335340196")
+	Do $$$AssertEquals(UnitIDBepaler.GeefUnitID(..VerzendWijze),"005335340202")
 ]]></Implementation>
 </Method>
 
 <Method name="TestBerekenControleGetal">
 <Implementation><![CDATA[
-	Set UnitIDHelper = ##class(APPS.TRANSP.GLS.impl.UnitIDBepaler).%New()	
-	Do $$$AssertEquals(UnitIDHelper.BerekenControleGetal(80,70),0,"Should the difference be 10, the check digit is 0")
-	Do $$$AssertNotEquals(UnitIDHelper.BerekenControleGetal(80,70),10,"Should the difference be 10, the check digit is 0")
+	Set UnitIDBepaler = ##class(APPS.TRANSP.GLS.impl.UnitIDBepaler).%New()	
+	Do $$$AssertEquals(UnitIDBepaler.BerekenControleGetal(80,70),0,"Should the difference be 10, the check digit is 0")
+	Do $$$AssertNotEquals(UnitIDBepaler.BerekenControleGetal(80,70),10,"Should the difference be 10, the check digit is 0")
 	
-	Do $$$AssertEquals(UnitIDHelper.BerekenControleGetal(80,71),9,"The difference between the calculated sum and the next above deicmal power is het check digit.")
-	Do $$$AssertEquals(UnitIDHelper.BerekenControleGetal(150,144),6)
+	Do $$$AssertEquals(UnitIDBepaler.BerekenControleGetal(80,71),9,"The difference between the calculated sum and the next above deicmal power is het check digit.")
+	Do $$$AssertEquals(UnitIDBepaler.BerekenControleGetal(150,144),6)
 ]]></Implementation>
 </Method>
 
-<Method name="TestWaarschuwingRangeBijnaOpgebruikt">
+<Method name="TestWaarschuwingenRangeBijnaOpgebruikt">
 <Implementation><![CDATA[
+	#define Max 100
 	
-	Set UnitIDHelper = ##class(APPS.TRANSP.GLS.impl.UnitIDBepaler).%New()		
+	#dim MailAPI As vhUnitTest.TECH.Mail.impl.MailAPIMock = ##class(TECH.Context).Instance().GeefMailAPI()
 	
-	#dim GLSEigenschappen As APPS.TRANSP.GLS.GLSEigenschappen = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen()
-	#dim Bereik As TECH.Bereik = GLSEigenschappen.GeefBereikVoorVerzendWijze(..VerzendWijze)
+	#dim GLSEigenschappen As APPS.TRANSP.GLS.GLSEigenschappen = ##class(vhUnitTest.APPS.TRANSP.GLS.UnitIDBepaler.GLSEigenschappen).%New(1,$$$Max)
+	Set UnitIDBepaler = ##class(APPS.TRANSP.GLS.impl.UnitIDBepaler).%New(GLSEigenschappen)		
 		
-	For i=1:1:11 {
-		Do UnitIDHelper.GeefUnitID(..VerzendWijze)
-	}
+	#dim i As %Integer = 75
+	set ^APPS.TRANSP.GLS.Bericht.UnitID(..VerzendWijze) = i-1
+	For i = i : 1 : $$$Max Do UnitIDBepaler.GeefUnitID(..VerzendWijze)
 	
-	#dim MailAPI As vhUnitTest.TECH.Mail.impl.MailAPIMock = ##class(TECH.Context).Instance().GeefMailAPI()
-	Do $$$AssertEquals(MailAPI.GeefAantalVerzondenMails(),1)
-	#dim MailIt As TECH.Iterator = MailAPI.GeefVerzondenMailIterator()
-	If $$$AssertTrue(MailIt.HasNext()){
-		#dim VerzondenMail As TECH.Mail.Mail = MailIt.Next()
-		Do $$$AssertContains(VerzondenMail.GeefOnderwerp(),"80% range opgebruikt voor verzendwijze")
+	#dim VerzondenMails As %ListOfObjects = MailAPI.GeefVerzondenMails()
+	
+	if $$$AssertEquals(VerzondenMails.Count(),2) {
+		Do $$$AssertContains(VerzondenMails.GetAt(1).GeefOnderwerp(),"80% range opgebruikt voor verzendwijze")
+		Do $$$AssertContains(VerzondenMails.GetAt(2).GeefOnderwerp(),"95% range opgebruikt voor verzendwijze")
 	}
+]]></Implementation>
+</Method>
+
+<Method name="TestRangeOpgebruikt">
+<Implementation><![CDATA[
+	#define Max 10
+	#dim GLSEigenschappen As APPS.TRANSP.GLS.GLSEigenschappen = ##class(vhUnitTest.APPS.TRANSP.GLS.UnitIDBepaler.GLSEigenschappen).%New(1,$$$Max)
+	Set UnitIDBepaler = ##class(APPS.TRANSP.GLS.impl.UnitIDBepaler).%New(GLSEigenschappen)
 	
-	Do UnitIDHelper.GeefUnitID(..VerzendWijze)
-	Do $$$AssertEquals(MailAPI.GeefAantalVerzondenMails(),1,"Er wordt maar één keer gewaarschuuwd voor 80%")
+	set ^APPS.TRANSP.GLS.Bericht.UnitID(..VerzendWijze) = $$$Max-1
+	do $$$AssertEquals(UnitIDBepaler.GeefUnitID(..VerzendWijze),"000000000106")  ; laatste item van de range
 	
-	Do UnitIDHelper.GeefUnitID(..VerzendWijze)
-	Do $$$AssertEquals(MailAPI.GeefAantalVerzondenMails(),2,"95% range opgebruikt voor verzendwijze")
-	
-	Set MailIt  = MailAPI.GeefVerzondenMailIterator()
-	If $$$AssertTrue(MailIt.HasNext()){
-		Set VerzondenMail = MailIt.Next()
-		Do $$$AssertContains(VerzondenMail.GeefOnderwerp(),"80% range opgebruikt voor verzendwijze")
-		If $$$AssertTrue(MailIt.HasNext()){
-			Set VerzondenMail = MailIt.Next()
-			Do $$$AssertContains(VerzondenMail.GeefOnderwerp(),"95% range opgebruikt voor verzendwijze")
-		}
-	}
+	#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))
+
+	do UnitIDBepaler.GeefUnitID(..VerzendWijze)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/TRANSP/GLS/UnitIDBepaler/GLSEigenschappen.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/GLS/UnitIDBepaler/GLSEigenschappen.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/GLS/UnitIDBepaler/GLSEigenschappen.cls.xml	(revision 30995)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.GLS.UnitIDBepaler.GLSEigenschappen">
+<Super>vhUnitTest.APPS.TRANSP.GLS.Bericht.impl.GLSEigenschappen</Super>
+
+<Property name="Min">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Max">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Min:%Integer=1,Max:%Integer=10</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..Min = Min
+	set ..Max = Max
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefBereikVoorVerzendWijze">
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
+<ReturnType>TECH.Bereik</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.Bereik).%New(..Min,..Max)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/GLS/impl/UnitIDBepaler.cls.xml
===================================================================
diff -u -r29059 -r30995
--- APPS/TRANSP/GLS/impl/UnitIDBepaler.cls.xml	(.../UnitIDBepaler.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/impl/UnitIDBepaler.cls.xml	(.../UnitIDBepaler.cls.xml)	(revision 30995)
@@ -1,8 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.TRANSP.GLS.impl.UnitIDBepaler">
-<IncludeCode>vhLib.Macro</IncludeCode>
-<Super>%RegisteredObject,APPS.TRANSP.GLS.UnitIDBepaler</Super>
+<Super>TECH.RegisteredObject,APPS.TRANSP.GLS.UnitIDBepaler</Super>
 
 <Parameter name="WaarschuwingVanafProcentOpgebruikt">
 <Type>%Decimal</Type>
@@ -14,32 +13,48 @@
 <Default>0.95</Default>
 </Parameter>
 
+<Property name="GLSEigenschappen">
+<Type>APPS.TRANSP.GLS.GLSEigenschappen</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>GLSEigenschappen:APPS.TRANSP.GLS.GLSEigenschappen</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..GLSEigenschappen = $$$Implementation(GLSEigenschappen, ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefUnitID">
 <FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-		#dim GLSEigenschappen As APPS.TRANSP.GLS.GLSEigenschappen = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen()
-		#dim Bereik As TECH.Bereik = GLSEigenschappen.GeefBereikVoorVerzendWijze(VerzendWijze)
-		
-		If VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).FreightCashOnDelivery(){
-			Set VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight()
-		}		
-		If VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelDeposit(){
-			Set VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel()
-		}
-		
-		#dim VolgendeID As %Integer = ..GeefVolgendeID(VerzendWijze,Bereik)
-		If (VolgendeID > ..GeefGrensWaardeEindeRange(Bereik,..#WaarschuwingVanafProcentOpgebruikt)) {
-			Do ..RangeBijnaOpgebruikt(VerzendWijze,VolgendeID,Bereik,..#WaarschuwingVanafProcentOpgebruikt)			
-		}
-		If (VolgendeID > ..GeefGrensWaardeEindeRange(Bereik,..#AlarmVanafProcentOpgebruikt)) {
-			Do ..RangeBijnaOpgebruikt(VerzendWijze,VolgendeID,Bereik,..#AlarmVanafProcentOpgebruikt)			
-		}
-		
-		#dim ControleGetal As %Integer = ..GeefControleGetal(VolgendeID)
-		#dim UnitID As %String = VolgendeID_ControleGetal
-		Set UnitID = ##class(TECH.StringUtils).AddLeadingChar(UnitID,"0",12)
-		Quit UnitID
+    #dim Bereik As TECH.Bereik = ..GLSEigenschappen.GeefBereikVoorVerzendWijze(VerzendWijze)
+	
+	If VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).FreightCashOnDelivery(){
+		Set VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Freight()
+	}		
+	If VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).ParcelDeposit(){
+		Set VerzendWijze = ##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).Parcel()
+	}
+	
+	#dim VolgendeID As %Integer = ..GeefVolgendeID(VerzendWijze,Bereik)
+	If (VolgendeID > ..GeefGrensWaardeEindeRange(Bereik,..#WaarschuwingVanafProcentOpgebruikt)) {
+		Do ..RangeBijnaOpgebruikt(VerzendWijze,VolgendeID,Bereik,..#WaarschuwingVanafProcentOpgebruikt)			
+	}
+	If (VolgendeID > ..GeefGrensWaardeEindeRange(Bereik,..#AlarmVanafProcentOpgebruikt)) {
+		Do ..RangeBijnaOpgebruikt(VerzendWijze,VolgendeID,Bereik,..#AlarmVanafProcentOpgebruikt)			
+	}
+	
+	#dim ControleGetal As %Integer = ..GeefControleGetal(VolgendeID)
+	#dim UnitID As %String = VolgendeID_ControleGetal
+	Set UnitID = ##class(TECH.StringUtils).AddLeadingChar(UnitID,"0",12)
+	Quit UnitID
 ]]></Implementation>
 </Method>
 
@@ -50,38 +65,40 @@
 <FormalSpec>VolgendeID:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-		#dim Som As %Integer = 0
-		#dim ctrPos As %Integer
-		For ctrPos=1:1:$Length(VolgendeID){
-			#dim Digit As %Integer = ##class(TECH.StringUtils).CharAt(VolgendeID,ctrPos)
-			#dim Gewicht As %Integer = $Select((##class(TECH.Math).Modulo(ctrPos,2)=0):1,1:3)
-			Set Som = Som + (Digit * Gewicht)
-		
-		}
-		Set Som = Som + 1
-		#dim EerstVolgendTiental As %Integer = (##class(TECH.Math).Ceil(Som/10) * 10)
-		Quit ..BerekenControleGetal(EerstVolgendTiental,Som)
+	#dim Som As %Integer = 0
+	#dim ctrPos As %Integer
+	For ctrPos=1:1:$Length(VolgendeID){
+		#dim Digit As %Integer = ##class(TECH.StringUtils).CharAt(VolgendeID,ctrPos)
+		#dim Gewicht As %Integer = $Select((##class(TECH.Math).Modulo(ctrPos,2)=0):1,1:3)
+		Set Som = Som + (Digit * Gewicht)
+	
+	}
+	Set Som = Som + 1
+	#dim EerstVolgendTiental As %Integer = (##class(TECH.Math).Ceil(Som/10) * 10)
+	Quit ..BerekenControleGetal(EerstVolgendTiental,Som)
 ]]></Implementation>
 </Method>
 
 <Method name="BerekenControleGetal">
 <Description>
 Should the difference be 10, the check digit is 0 (ZERO)</Description>
 <FormalSpec>EerstVolgendTiental:%Integer,Som:%Integer</FormalSpec>
-<Implementation><![CDATA[		Quit ##class(TECH.Math).Modulo((EerstVolgendTiental - Som),10)
+<Implementation><![CDATA[	Quit ##class(TECH.Math).Modulo((EerstVolgendTiental - Som),10)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVolgendeID">
-<FormalSpec>GlobalSubNodeMetHuidigeUnitID:%String,Bereik:TECH.Bereik</FormalSpec>
+<FormalSpec>VerzendWijze:%String,Bereik:TECH.Bereik</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Set ^APPS.TRANSP.GLS.Bericht.UnitID(GlobalSubNodeMetHuidigeUnitID) = $Increment(^APPS.TRANSP.GLS.Bericht.UnitID(GlobalSubNodeMetHuidigeUnitID))
-
-	#dim VolgendeUnitID As %Integer = ^APPS.TRANSP.GLS.Bericht.UnitID(GlobalSubNodeMetHuidigeUnitID)
-	If 'Bereik.BevatInclGrenzen(VolgendeUnitID) {
-		Set ^APPS.TRANSP.GLS.Bericht.UnitID(GlobalSubNodeMetHuidigeUnitID) = Bereik.GeefOndergrens()
-		Set VolgendeUnitID = ^APPS.TRANSP.GLS.Bericht.UnitID(GlobalSubNodeMetHuidigeUnitID)
+	#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"))
+		}
 	}	
 	Quit VolgendeUnitID
 ]]></Implementation>
@@ -91,18 +108,17 @@
 <FormalSpec>VerzendWijze:APPS.TRANSP.GLS.Bericht.enu.VerzendWijze,VolgendeID:%Integer,Bereik:TECH.Bereik,ProcentOpgebruikt:%Decimal</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim GlobalSubNodeMetHuidigeUnitID As %String = VerzendWijze
-	If '$Data(^APPS.TRANSP.GLS.Bericht.UnitID(GlobalSubNodeMetHuidigeUnitID,"IsICTVerwittigd",ProcentOpgebruikt)) || ('^APPS.TRANSP.GLS.Bericht.UnitID(GlobalSubNodeMetHuidigeUnitID,"IsICTVerwittigd",ProcentOpgebruikt))
+	If '$Data(^APPS.TRANSP.GLS.Bericht.UnitID(VerzendWijze,"IsICTVerwittigd",ProcentOpgebruikt)) || ('^APPS.TRANSP.GLS.Bericht.UnitID(VerzendWijze,"IsICTVerwittigd",ProcentOpgebruikt))
 	{
 		#dim Procent As %String = (ProcentOpgebruikt*100)_"%"
 		#dim Onderwerp As %String = Procent_" range opgebruikt voor verzendwijze '"_##class(APPS.TRANSP.GLS.Bericht.enu.VerzendWijze).LogicalToDisplay(VerzendWijze)_"'."
-		#dim Inhoud As %String = Onderwerp_$C(13,10)_$C(13,10)
-		Set Inhoud = Inhoud_"Het bereik voor ID's gaat van '"_Bereik.GeefOndergrens()_"' tot '"_Bereik.GeefBovengrens()_"'."_$C(13,10)
+		#dim Inhoud As %String = Onderwerp_$$$CRLF_$$$CRLF
+		Set Inhoud = Inhoud_"Het bereik voor ID's gaat van '"_Bereik.GeefOndergrens()_"' tot '"_Bereik.GeefBovengrens()_"'."_$$$CRLF
 		Set Inhoud = Inhoud_"Nu is ID '"_VolgendeID_"' gebruikt, reeds "_Procent_" opgebruikt."
-		Set Inhoud = Inhoud_$C(13,10)_$C(13,10)		
+		Set Inhoud = Inhoud_$$$CRLF_$$$CRLF		
 		Set Inhoud = Inhoud_"Er moeten nieuwe ranges aan GLS aangevraagd worden."
-		Set Inhoud = Inhoud_$C(13,10)_$C(13,10)
-		Set Inhoud = Inhoud_"Als nieuwe ranges aangepast zijn in code moet deze node worden uitgezet : Set ^APPS.TRANSP.GLS.Bericht.UnitID("""_GlobalSubNodeMetHuidigeUnitID_""",""IsICTVerwittigd"","_ProcentOpgebruikt_")=0"
+		Set Inhoud = Inhoud_$$$CRLF_$$$CRLF
+		Set Inhoud = Inhoud_"Als nieuwe ranges aangepast zijn in code moet deze node worden uitgezet : Set ^APPS.TRANSP.GLS.Bericht.UnitID("""_VerzendWijze_""",""IsICTVerwittigd"","_ProcentOpgebruikt_")=0"
 
 		#dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
 		#dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMailVoorICT()
@@ -111,7 +127,7 @@
 		do Mail.ZetInhoud(Inhoud)
 		do MailAPI.VerstuurMail(Mail)
 	
-		Set ^APPS.TRANSP.GLS.Bericht.UnitID(GlobalSubNodeMetHuidigeUnitID,"IsICTVerwittigd",ProcentOpgebruikt)=1	
+		Set ^APPS.TRANSP.GLS.Bericht.UnitID(VerzendWijze,"IsICTVerwittigd",ProcentOpgebruikt)=1	
 	}
 ]]></Implementation>
 </Method>