Index: APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml
===================================================================
diff -u -r55386 -r55387
--- APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 55386)
+++ APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 55387)
@@ -58,6 +58,9 @@
 	If (VolgendeID > ..GeefGrensWaardeEindeRange(Bereik,..#WaarschuwingVanafProcentOpgebruikt)) {
 		Do ..RangeBijnaOpgebruikt(VerzendWijze,VolgendeID,Bereik,..#WaarschuwingVanafProcentOpgebruikt)			
 	}
+	If (VolgendeID > ..GeefGrensWaardeEindeRange(Bereik, 0.9)) {
+		Do ..RangeBijnaOpgebruikt(VerzendWijze,VolgendeID,Bereik,0.9)
+	}
 	If (VolgendeID > ..GeefGrensWaardeEindeRange(Bereik,..#AlarmVanafProcentOpgebruikt)) {
 		Do ..RangeBijnaOpgebruikt(VerzendWijze,VolgendeID,Bereik,..#AlarmVanafProcentOpgebruikt)			
 	}
@@ -127,10 +130,17 @@
 		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_$$$CRLF_$$$CRLF		
-		Set Inhoud = Inhoud_"Er moeten nieuwe ranges aan GLS aangevraagd worden."
+		If (ProcentOpgebruikt = 0.8) {
+			Set Inhoud = Inhoud_"Bij 80% moet nog niet meteen een nieuwe range aangevraagd worden. Best eerst een schatting maken van het aantal resterende dagen. "
+			Set Inhoud = Inhoud_"Bij 90% komt dan een volgende melding."
+		}
+		Else {
+			Set Inhoud = Inhoud_"Er moeten nieuwe ranges aan GLS aangevraagd worden."
+		}
 		Set Inhoud = Inhoud_"Mail hiervoor naar christa.vanlijsebeth@gls-belgium.com en vermeld het klantnummer van VanHoecke: 1202109(Freight) of 100610778(Parcel)"
 		Set Inhoud = Inhoud_$$$CRLF_$$$CRLF
 		Set Inhoud = Inhoud_"Als nieuwe ranges aangepast zijn in code moet deze code worden uitgevoerd : Set ^APPS.TRANSP.GLS.Bericht.UnitID("""_VerzendWijze_""",""IsICTVerwittigd"","_ProcentOpgebruikt_")=0"
+		Set Inhoud = Inhoud_$$$CRLF_"Voor meer info : zie http://wiki.vanhoecke.be/ICT_Development/Knowledge_Base/Magazijnier/Transport/GLS_transportopdrachten-integratie/GLS_Range_toevoegen "_$$$CRLF
 
 		#dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
 		#dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMailVoorICT()
@@ -139,11 +149,18 @@
 		do Mail.ZetInhoud(Inhoud)
 		do MailAPI.VerstuurMail(Mail)
 	
-		Set ^APPS.TRANSP.GLS.Bericht.UnitID(VerzendWijze,"IsICTVerwittigd",ProcentOpgebruikt)=1	
+		Do ..RegisteerMailWarningVerzonden(VerzendWijze,ProcentOpgebruikt)
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="RegisteerMailWarningVerzonden">
+<FormalSpec>GlsVerzendwijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze,ProcentOpgebruikt:%Decimal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set ^APPS.TRANSP.GLS.Bericht.UnitID(GlsVerzendwijze,"IsICTVerwittigd",ProcentOpgebruikt)=1
+]]></Implementation>
+</Method>
+
 <Method name="GeefGrensWaardeEindeRange">
 <FormalSpec>Bereik:TECH.Bereik,ProcentOpgebruikt:%Decimal</FormalSpec>
 <ReturnType>%Integer</ReturnType>
Index: vhUnitTest/APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler/Test.cls.xml
===================================================================
diff -u -r49888 -r55387
--- vhUnitTest/APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 49888)
+++ vhUnitTest/APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55387)
@@ -84,9 +84,10 @@
 	
 	#dim VerzondenMails As %ListOfObjects = MailAPI.GeefVerzondenMails()
 	
-	if $$$AssertEquals(VerzondenMails.Count(),2) {
+	if $$$AssertEquals(VerzondenMails.Count(),3) {
 		Do $$$AssertContains(VerzondenMails.GetAt(1).GeefOnderwerp(),"80% range opgebruikt voor verzendwijze")
-		Do $$$AssertContains(VerzondenMails.GetAt(2).GeefOnderwerp(),"98% range opgebruikt voor verzendwijze")
+		Do $$$AssertContains(VerzondenMails.GetAt(2).GeefOnderwerp(),"90% range opgebruikt voor verzendwijze")
+		Do $$$AssertContains(VerzondenMails.GetAt(3).GeefOnderwerp(),"98% range opgebruikt voor verzendwijze")
 	}
 ]]></Implementation>
 </Method>