Index: vhLib/LoggingGetalIndex.cls.xml
===================================================================
diff -u
--- vhLib/LoggingGetalIndex.cls.xml	(revision 0)
+++ vhLib/LoggingGetalIndex.cls.xml	(revision 3372)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhLib.LoggingGetalIndex">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<StorageStrategy>VHOpslag</StorageStrategy>
+<Super>TECH.Persistent</Super>
+
+<Property name="Logging">
+<Type>vhLib.Logging</Type>
+</Property>
+
+<Property name="Getal">
+<Type>%Integer</Type>
+</Property>
+
+<Index name="PrimKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>Getal,Logging</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="BouwOp">
+<Description>
+Do ##class(vhLib.LoggingGetalIndex).BouwOp()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim LoggingEntriesResultSet As TECH.ResultSet = ##class(TECH.ResultSet).%New("vhLib.Logging"_":"_"Extent")
+	Do LoggingEntriesResultSet.Execute()
+	While LoggingEntriesResultSet.Next() {
+		#dim Logging As vhLib.Logging = ##class(vhLib.Logging).%OpenId(LoggingEntriesResultSet.GetDataByName("ID"))
+		Do ..BouwOpVoorLogEntry(Logging)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BouwOpVoorLogEntry">
+<Description>
+Do ##class(vhLib.LoggingGetalIndex).BouwOpVoorLogEntry(##class(vhLib.Logging).%OpenId("PRA-W7_DEV1||64666||24"))</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Logging:vhLib.Logging</FormalSpec>
+<Implementation><![CDATA[
+	#dim GevondenGetallen As %String = "" 
+	Do ..GeefGetallenInTekst(Logging.Detail, .GevondenGetallen)
+	Set Getal=""
+	For {
+		Set Getal=$Order(GevondenGetallen(Getal)) 
+		Quit:(""=Getal)
+		If (Getal>1000) {
+		Set Idx = ##class(vhLib.LoggingGetalIndex).%New()
+		Set Idx.Logging = Logging
+		Set Idx.Getal = Getal
+			Do Idx.%Save()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefGetallenInTekst">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[Tekst:%String,&GevondenGetallen:%String]]></FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Einde As %Integer
+	#dim Waarde As %String
+	#Dim Start As %Integer = 0
+	#Dim Getal As %String = ""
+	#dim VorigWasCijfer, HuidigIsCijfer As %Boolean = ""
+	For i=0:1:$Length(Tekst) {
+		Set Karakter = $Extract(Tekst, i,i)
+		Set HuidigIsCijfer = Karakter?1N
+		If VorigWasCijfer {
+			If HuidigIsCijfer {
+				Set Getal = Getal _ Karakter
+			} Else {
+				Set GevondenGetallen(Getal) = "1"
+				Set Getal = ""
+			}
+		} Else {
+			If HuidigIsCijfer {
+				Set Getal = Karakter
+			}
+		}		
+		
+		Set VorigWasCijfer = HuidigIsCijfer
+	}
+	If ("" '= Getal) {
+		Set GevondenGetallen(Getal) = "1"
+	}
+]]></Implementation>
+</Method>
+
+<Storage name="VHOpslag">
+<Type>%CacheSQLStorage</Type>
+<StreamLocation>^vhLib.LoggingGetalIndexS</StreamLocation>
+<SQLMap name="Data">
+<Type>data</Type>
+<Global>^vhLib.LoggingGetalIndexD</Global>
+<Structure>delimited</Structure>
+<Subscript name="1">
+<Expression>{Getal}</Expression>
+</Subscript>
+<Subscript name="2">
+<Expression>{Logging}</Expression>
+</Subscript>
+</SQLMap>
+</Storage>
+</Class>
+
+
+</Export>