Index: APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml
===================================================================
diff -u -r55517 -r55534
--- APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 55517)
+++ APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 55534)
@@ -139,6 +139,7 @@
 <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)_"%"
@@ -188,6 +189,14 @@
 ]]></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>