Index: APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml
===================================================================
diff -u -r40505 -r55534
--- APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 40505)
+++ APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 55534)
@@ -10,22 +10,28 @@
 
 <Parameter name="AlarmVanafProcentOpgebruikt">
 <Type>%Decimal</Type>
-<Default>0.95</Default>
+<Default>0.98</Default>
 </Parameter>
 
 <Property name="GLSEigenschappen">
 <Type>APPS.TRANSP.GLS.GLSv1.GLSEigenschappen</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>GLSEigenschappen:APPS.TRANSP.GLS.GLSv1.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())
+	Set ..GLSEigenschappen = $$$Implementation(GLSEigenschappen, ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen())
+	Set ..Logger = ##class(vhLib.Logger).%New("GLS")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -34,7 +40,7 @@
 <FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-#dim Bereik As TECH.Bereik = ..GLSEigenschappen.GeefBereikVoorVerzendWijze(VerzendWijze)
+	#dim Bereik As TECH.Bereik = ..GLSEigenschappen.GeefBereikVoorVerzendWijze(VerzendWijze)
 	
 	If VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery(){
 		Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight()
@@ -43,10 +49,27 @@
 		Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel()
 	}
 	
-	#dim VolgendeID As %Integer = ..GeefVolgendeID(VerzendWijze,Bereik)
+	try {
+		#dim VolgendeID As %Integer = ..GeefVolgendeID(VerzendWijze,Bereik)
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch(##class(APPS.TRANSP.GLS.GLSv1.impl.GlsUnitIdNietInRangeException).%ClassName($$$True))
+		
+		// BereikId verhogen 
+		Do ..GLSEigenschappen.VerhoogBereikIdVoorVerzendWijze(VerzendWijze)
+		Do ..LogBereikIdVerhoogd(VerzendWijze)
+		Do ..MailWarningsResetten(VerzendWijze)
+		
+		// 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)) {
 		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)			
 	}
@@ -93,21 +116,30 @@
 <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 {
+			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"))
 		}
 	}	
 	Quit VolgendeUnitID
 ]]></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>
 <Implementation><![CDATA[
+	Set ProcentOpgebruikt = ..GeefSubnodeVoorProcentOpgebruikt(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)_"%"
@@ -116,9 +148,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 node worden uitgezet : Set ^APPS.TRANSP.GLS.Bericht.UnitID("""_VerzendWijze_""",""IsICTVerwittigd"","_ProcentOpgebruikt_")=0"
+		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()
@@ -127,17 +167,51 @@
 		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="MailWarningsResetten">
+<FormalSpec>GlsVerzendwijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ^APPS.TRANSP.GLS.Bericht.UnitID(GlsVerzendwijze,"IsICTVerwittigd","0.8") = 0
+	Set ^APPS.TRANSP.GLS.Bericht.UnitID(GlsVerzendwijze,"IsICTVerwittigd","0.9") = 0
+    Set ^APPS.TRANSP.GLS.Bericht.UnitID(GlsVerzendwijze,"IsICTVerwittigd","0.98") = 0
+]]></Implementation>
+</Method>
+
+<Method name="GeefSubnodeVoorProcentOpgebruikt">
+<FormalSpec>ProcentOpgebruikt:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Case(+ProcentOpgebruikt, .8 : "0.8", .9 : "0.9", .98 : "0.98", : ProcentOpgebruikt )
+]]></Implementation>
+</Method>
+
+<Method name="LogBereikIdVerhoogd">
+<FormalSpec>GlsVerzendwijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim NieuwBereikId As %Integer = ..GLSEigenschappen.GeefBereikIdVoorVerzendWijze(GlsVerzendwijze)
+	Do ..Logger.Info("GLS BereikId verhoogd","De GLS-Range voor verzendwijze '"_GlsVerzendwijze_"' is aangepast. Het nieuwe bereikId is '"_NieuwBereikId_"'.")
+]]></Implementation>
+</Method>
+
 <Method name="GeefGrensWaardeEindeRange">
 <FormalSpec>Bereik:TECH.Bereik,ProcentOpgebruikt:%Decimal</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim Ondergrens As %Integer = Bereik.GeefOndergrens()
-	#dim AantalWaardenInBereik As %Integer = (Bereik.GeefBovengrens() - Ondergrens)
+	#dim AantalWaardenInBereik As %Integer = (Bereik.GeefBovengrens() - Ondergrens + 1)
 	#dim Grenswaarde As %Integer = Ondergrens + (AantalWaardenInBereik * ProcentOpgebruikt)
 	Quit Grenswaarde
 ]]></Implementation>