Index: vhPowerTools/vhLib/LoggingDumper.cls.xml
===================================================================
diff -u
--- vhPowerTools/vhLib/LoggingDumper.cls.xml	(revision 0)
+++ vhPowerTools/vhLib/LoggingDumper.cls.xml	(revision 44750)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.vhLib.LoggingDumper">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="QueryApi">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FileApi">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..QueryApi = ##class(TECH.Context).Instance().GeefQueryAPI()
+	set ..FileApi = ##class(TECH.Context).Instance().GeefFileAPI()
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Dump">
+<FormalSpec>Days:%Integer,Substrings...:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Path As %String = "E:\Dump\"_$tr($zdt($$$CurrentDate,8),":","")_"\"
+	
+	set Ids = ##class(%ArrayOfDataTypes).%New()
+	
+	#dim Query As %String = "SELECT %NOLOCK SessionID from vhLib.Logging WHERE Datum > ? AND "_..BuildDetailString(Substrings...)
+	
+	#dim Resultset As TECH.ResultSet = ..QueryApi.GetResultSet(##class(TECH.DynamicQuery).%New(Query,$listbuild($$$CurrentDate-Days)))
+	while Resultset.Next() {
+		W !,Resultset.GetData(1)
+		do:$length(Resultset.GetData(1)) Ids.SetAt(Resultset.GetData(1),Resultset.GetData(1))
+	}
+	
+	set Iterator = ##class(TECH.ListIterator).%New(Ids)
+	while Iterator.HasNext() {
+		do ..DumpItemsFromSession(Iterator.Next(),Path)	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="DumpItemsFromSession">
+<FormalSpec>SessionId:%String,Path:%String="E:\Dump\"_$tr($zdt($$$CurrentDate,8),":","")_"\"</FormalSpec>
+<Implementation><![CDATA[
+	set Ids = ##class(%ArrayOfDataTypes).%New()
+	
+	#dim Resultset As TECH.ResultSet = ..QueryApi.GetResultSet(##class(TECH.DynamicQuery).%New("SELECT %NOLOCK ID FROM vhLib.Logging WHERE SessionId = ?",$listbuild(SessionId)))
+	while Resultset.Next() {
+		W !,Resultset.GetData(1)
+		do Ids.SetAt(Resultset.GetData(1),Resultset.GetData(1))		
+	}
+	
+	set Iterator = ##class(TECH.ListIterator).%New(Ids)
+	while Iterator.HasNext() {
+		set LogItem = ##class(vhLib.Logging).%OpenId(Iterator.Next())
+		#dim File As TECH.File.FileWriter = ..FileApi.GeefFileWriter()
+		#dim fn As %String = Path_$zdt(LogItem.Datum,8)_" "_$tr($zt(LogItem.Tijd,1),":")_" "_##class(TECH.StringUtils).GetLastPart(LogItem.%Id(),"|")_" "_LogItem.Groep_" "_LogItem.Actie_".txt"
+		do File.Open(fn)
+		do File.WriteStream(LogItem.DetailAsStream)
+		do File.Close()	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BuildDetailString">
+<FormalSpec>Substrings...:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim DetailString As %String = ""
+	set Iterator = ##class(TECH.ArrayOneDimIterator).%New(.Substrings)
+	while Iterator.HasNext() {
+		set DetailString = DetailString _ "( Detail [ '"_Iterator.Next()_"' )" 	
+		if Iterator.HasNext() set DetailString = DetailString _ " OR "
+	}
+	quit DetailString
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>