TECH.RegisteredObject,APPS.TRANSP.GLS.GLSv1.UnitIdBepaler %Decimal 0.8 %Decimal 0.98 APPS.TRANSP.GLS.GLSv1.GLSEigenschappen 1 vhLib.Logger 1 GLSEigenschappen:APPS.TRANSP.GLS.GLSv1.GLSEigenschappen 1 1 %Status 1 VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze %Integer ..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) } #dim ControleGetal As %Integer = ..GeefControleGetal(VolgendeID) #dim UnitID As %String = VolgendeID_ControleGetal Set UnitID = ##class(TECH.StringUtils).AddLeadingChar(UnitID,"0",12) Quit UnitID ]]> The difference between the calculated sum and the next above decimal power i the check digit. The first .. digits of the number are multiplied by the weighting facttor (3,1,3,..) from the right to the left sarting with 3. VolgendeID:%Integer 1 Should the difference be 10, the check digit is 0 (ZERO) EerstVolgendTiental:%Integer,Som:%Integer VerzendWijze:%String,Bereik:TECH.Bereik %Integer VerzendWijze:%String,Bereik:TECH.Bereik 1 %Integer VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze,VolgendeID:%Integer,Bereik:TECH.Bereik,ProcentOpgebruikt:%Decimal 1 GlsVerzendwijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze,ProcentOpgebruikt:%Decimal 1 GlsVerzendwijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze 1 ProcentOpgebruikt:%Decimal 1 %String GlsVerzendwijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze 1 Bereik:TECH.Bereik,ProcentOpgebruikt:%Decimal %Integer