Index: vhUnitTest/vhLib/LoggingGetalIndex.cls.xml
===================================================================
diff -u
--- vhUnitTest/vhLib/LoggingGetalIndex.cls.xml	(revision 0)
+++ vhUnitTest/vhLib/LoggingGetalIndex.cls.xml	(revision 3533)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.vhLib.LoggingGetalIndex">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestBewaarEnVerwijderLoggingMetIndex">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/display=all","vhUnitTest.vhLib.LoggingGetalIndex")</Description>
+<Implementation><![CDATA[
+	#Dim LoggingId As %String = "Een MainIndex||65014||1"
+	Do ..VerwijderLoggingIndienNogAanwezigVanVorigeRun(LoggingId)
+
+	#Dim Logging As vhLib.Logging = ..MaakLogging()
+	Do $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingD("Een MainIndex",65014,1)) )
+	
+	Do ##class(vhLib.LoggingGetalIndex).BewaarIndex(Logging,1000)
+	Do ..AssertLoggingGetalIndexAanwezig(LoggingId)
+
+	Do Logging.DeleteLogging( Logging.%Id() )
+	Do ..AssertLoggingGetalIndexAfwezig(LoggingId)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderLoggingIndienNogAanwezigVanVorigeRun">
+<FormalSpec>LoggingId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	If ##class(vhLib.Logging).%ExistsId(LoggingId) {
+		Do ##class(vhLib.Logging).DeleteId(LoggingId)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakLogging">
+<Private>1</Private>
+<ReturnType>vhLib.Logging</ReturnType>
+<Implementation><![CDATA[
+	#Dim Logging As vhLib.Logging = ##class(vhLib.Logging).%New()
+	Set Logging.Datum = 65014 // =2019-01-01: ver genoeg in het verleden om niet met echte logging te mixen.
+	set Logging.Tijd = 0 // Middernacht.
+	Set Logging.Detail = "Een logging detail met 1000 of zelfs 2000 getallen."
+	Set Logging.Actie = "Een actie"
+	Set Logging.Niveau = "D"
+	Set Logging.MainIndex = "Een MainIndex"
+	Set Logging.SubID = "1"
+	Set Logging.Groep = "Een groep"
+	Do Logging.Save()
+	Quit Logging
+]]></Implementation>
+</Method>
+
+<Method name="AssertLoggingGetalIndexAanwezig">
+<FormalSpec>LoggingId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingGetalIndexD("1000", LoggingId)) )
+	Do $$$AssertEquals( "", ^LOG.vhLib.LoggingGetalIndexD("1000", LoggingId) )
+	
+	Do $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingGetalIndexD("2000", LoggingId)) )
+	Do $$$AssertEquals( "", ^LOG.vhLib.LoggingGetalIndexD("2000", LoggingId) )
+	
+	
+	#Dim GevondenGetallen As %ListOfDataTypes = ..ZoekGetallenVoorLoggingViaSql(LoggingId)
+	Do $$$AssertEquals( 2, GevondenGetallen.Count() )
+	Do $$$AssertTrue( GevondenGetallen.Find("1000") )
+	Do $$$AssertTrue( GevondenGetallen.Find("2000") )
+]]></Implementation>
+</Method>
+
+<Method name="AssertLoggingGetalIndexAfwezig">
+<FormalSpec>LoggingId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals( 0, $Data(^LOG.vhLib.LoggingGetalIndexD("1000", LoggingId)) )
+	Do $$$AssertEquals( 0, $Data(^LOG.vhLib.LoggingGetalIndexD("2000", LoggingId)) )
+
+	#Dim GevondenGetallen As %ListOfDataTypes = ..ZoekGetallenVoorLoggingViaSql(LoggingId)
+	Do $$$AssertEquals( 0, GevondenGetallen.Count() )
+]]></Implementation>
+</Method>
+
+<Method name="ZoekGetallenVoorLoggingViaSql">
+<FormalSpec>LoggingId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim GevondenGetallen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Set Query = ##class(TECH.DynamicQuery).%New("SELECT %NOLOCK ID FROM vhLib.LoggingGetalIndex WHERE Logging=?" ,$ListBuild(LoggingId))
+	#dim LoggingQueryResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
+	While LoggingQueryResultSet.Next() {
+		Do GevondenGetallen.Insert( ##class(vhLib.LoggingGetalIndex).%OpenId(LoggingQueryResultSet.GetDataByName("ID")).Getal )
+	}
+	Do LoggingQueryResultSet.Close()
+	Quit GevondenGetallen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/vhLib/Logger.cls.xml
===================================================================
diff -u
--- vhUnitTest/vhLib/Logger.cls.xml	(revision 0)
+++ vhUnitTest/vhLib/Logger.cls.xml	(revision 3533)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.vhLib.Logger">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestClearOldLogItemsMetGetalIndex">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/display=all","vhUnitTest.vhLib.Logger")</Description>
+<Implementation><![CDATA[
+	#Dim MainIndex As %String = $$$Server _ "_" _ $$$NSpace
+	#Dim LoggingId As %String = MainIndex _ "||65014||1"
+	Do ..VerwijderLoggingIndienNogAanwezigVanVorigeRun(LoggingId)
+
+	#Dim Logging As vhLib.Logging = ..MaakLogging(MainIndex)
+	Do $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingD(MainIndex,65014,1)) )
+	Do ..AssertLoggingGetalIndexAanwezig(Logging.%Id())
+
+	#Dim AantalDagenSinds20190101 = ($Piece($Horolog,",",1) - 65014) - 1
+	Do ##class(vhLib.Logger).ClearOldLogItems(9999,9999,9999,AantalDagenSinds20190101)
+	Do $$$AssertEquals( 0, $Data(^LOG.vhLib.LoggingD(MainIndex,65014,1)) )
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderLoggingIndienNogAanwezigVanVorigeRun">
+<FormalSpec>LoggingId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ##class(vhLib.Logging).%ExistsId(LoggingId) {
+		Do ##class(vhLib.Logging).DeleteId(LoggingId)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakLogging">
+<FormalSpec>MainIndex:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhLib.Logging</ReturnType>
+<Implementation><![CDATA[
+	#Dim Logging As vhLib.Logging = ##class(vhLib.Logging).%New()
+	Set Logging.Datum = 65014 // =2019-01-01: ver genoeg in het verleden om niet met echte logging te mixen.
+	set Logging.Tijd = 0 // Middernacht.
+	Set Logging.Detail = "Een logging detail met 1000 of zelfs 2000 getallen."
+	Set Logging.Actie = "Een actie"
+	Set Logging.Niveau = "D"
+	Set Logging.MainIndex = MainIndex
+	Set Logging.SubID = "1"
+	Set Logging.Groep = "Een groep"
+	Set Logging.Server = $$$Server
+	Set Logging.Namespace = $$$NSpace
+	Do Logging.Save()
+	Quit Logging
+]]></Implementation>
+</Method>
+
+<Method name="AssertLoggingGetalIndexAanwezig">
+<FormalSpec>LoggingId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:$$$Not( $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingGetalIndexD("1000", LoggingId))))
+	Quit:$$$Not( $$$AssertEquals( "", ^LOG.vhLib.LoggingGetalIndexD("1000", LoggingId) ) )
+	
+	Quit:$$$Not( $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingGetalIndexD("2000", LoggingId)) ))
+	Quit:$$$Not( $$$AssertEquals( "", ^LOG.vhLib.LoggingGetalIndexD("2000", LoggingId) ))
+	
+	
+	#Dim GevondenGetallen As %ListOfDataTypes = ..ZoekGetallenVoorLoggingViaSql(LoggingId)
+	Quit:$$$Not( $$$AssertEquals( 2, GevondenGetallen.Count() ))
+	Quit:$$$Not( $$$AssertTrue( GevondenGetallen.Find("1000") ))
+	Quit:$$$Not( $$$AssertTrue( GevondenGetallen.Find("2000") ))
+]]></Implementation>
+</Method>
+
+<Method name="ZoekGetallenVoorLoggingViaSql">
+<FormalSpec>LoggingId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim GevondenGetallen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Set Query = ##class(TECH.DynamicQuery).%New("SELECT %NOLOCK ID FROM vhLib.LoggingGetalIndex WHERE Logging=?" ,$ListBuild(LoggingId))
+	#dim LoggingQueryResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
+	While LoggingQueryResultSet.Next() {
+		Do GevondenGetallen.Insert( ##class(vhLib.LoggingGetalIndex).%OpenId(LoggingQueryResultSet.GetDataByName("ID")).Getal )
+	}
+	Do LoggingQueryResultSet.Close()
+	Quit GevondenGetallen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>