TECH.RegisteredObject %String ^vhPowerTools.DOM.PM.Maatwerk.Calc.Common.IKIDService DOM.PM.Maatwerk.Calc.Common.impl.IKIDService 1 1 1 %Status 1 Voorbeeld: LBX met gekoppelde mat: de IKIDhash van de gekoppelde mat is zodanig geconstrueerd (tot op heden) dat bij een uitbreiding van de standalone matten geen herberekening nodig is van de lbx kenmerken met een gekoppelde mat. ALS er een wijziging zou gebeuren aan de algemene kenmerken van de matten dan moet de IKIDHash van de lades met matten WEL herberekend worden als ook de standalone matten IngegevenKenmerk:DOM.PM.Maatwerk.Calc.Common.enu.IngegevenKenmerk="",LadeVariant:%String="" ZijkantLogoID:%String 650: "_ ##class(TECH.DateTime).CurrentTimeStamp() While IDIterator.HasNext() { Set ID = IDIterator.Next() If $$$Not($Data(^HerberekeningLbxHashes(ID))) { do ..DoHerberekenHash(ID) Set ^HerberekeningLbxHashes(ID) = "Herberekend" } } Set IDs = Repo.GeefKenmerkIKIDHashDataSetVoorAlleKleineLBXMetV1() Set IDIterator = ##class(TECH.ListIterator).%New(IDs) Write !, "Start herberekenen LBX V1 <= 650: "_ ##class(TECH.DateTime).CurrentTimeStamp() While IDIterator.HasNext() { Set ID = IDIterator.Next() If $$$Not($Data(^HerberekeningLbxHashes(ID))) { do ..DoHerberekenHash(ID) Set ^HerberekeningLbxHashes(ID) = "Herberekend" } } Set IDs = Repo.GeefKenmerkIKIDHashDataSetVoorAlleGroteLBXMetV1() Set IDIterator = ##class(TECH.ListIterator).%New(IDs) Write !, "Start herberekenen LBX V1 > 650: "_ ##class(TECH.DateTime).CurrentTimeStamp() While IDIterator.HasNext() { Set ID = IDIterator.Next() If $$$Not($Data(^HerberekeningLbxHashes(ID))) { do ..DoHerberekenHash(ID) Set ^HerberekeningLbxHashes(ID) = "Herberekend" } } Set IDs = Repo.GeefKenmerkIKIDHashDataSetVoorAlleLBXPalletEnVHoss() Set IDIterator = ##class(TECH.ListIterator).%New(IDs) Write !, "Start herberekenen LBX Pallet en VHoss: "_ ##class(TECH.DateTime).CurrentTimeStamp() While IDIterator.HasNext() { Set ID = IDIterator.Next() If $$$Not($Data(^HerberekeningLbxHashes(ID))) { do ..DoHerberekenHash(ID) Set ^HerberekeningLbxHashes(ID) = "Herberekend" } } Write !, "Stop: "_ ##class(TECH.DateTime).CurrentTimeStamp() lock -@..#LockString ]]> IKIDid:%String IKIDid:%String 1 ",Omschrijving } ]]>