persistent 1 VHOpslag TECH.Persistent vhLib.Logging %Integer 1 1 Getal,Logging 1 Do ##class(vhLib.LoggingGetalIndex).BouwOp() 1 Do ##class(vhLib.LoggingGetalIndex).BouwOpVoorLogEntry(##class(vhLib.Logging).%OpenId("PRA-W7_DEV1||64666||24")) 1 Logging:vhLib.Logging 1000) { Set Idx = ##class(vhLib.LoggingGetalIndex).%New() Set Idx.Logging = Logging Set Idx.Getal = Getal Do Idx.%Save() } } ]]> Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorLogEntry(##class(vhLib.Logging).%OpenId("PRA-W7_DEV1||64877||102")) 1 Logging:vhLib.Logging Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorLogEntry("PRA-W7_DEV1||64877||102") 1 LoggingId:%String 1 ID:%String Set GG="" Do ##class(vhLib.LoggingGetalIndex).GeefGetallenInTekst("abc123456def987654hij",.GG) zw GG 1 %CacheSQLStorage ^vhLib.LoggingGetalIndexS data ^vhLib.LoggingGetalIndexD delimited {Getal} {Logging}