Index: APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml
===================================================================
diff -u -r55387 -r55388
--- APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 55387)
+++ APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 55388)
@@ -18,6 +18,11 @@
 <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>
@@ -26,6 +31,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..GLSEigenschappen = $$$Implementation(GLSEigenschappen, ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen())
+	Set ..Logger = ##class(vhLib.Logger).%New("GLS")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -50,6 +56,8 @@
 		
 		// BereikId verhogen 
 		Do ..GLSEigenschappen.VerhoogBereikIdVoorVerzendWijze(VerzendWijze)
+		Do ..LogBereikIdVerhoogd(VerzendWijze)
+		Do ..MailWarningsResetten(VerzendWijze)
 		
 		// Volgende Id (van het nieuwe bereik) bepalen 
 		Set Bereik = ..GLSEigenschappen.GeefBereikVoorVerzendWijze(VerzendWijze)
@@ -161,6 +169,25 @@
 ]]></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="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>