Index: zTryout/JLM/KlantKostDataLooper.cls.xml
===================================================================
diff -u
--- zTryout/JLM/KlantKostDataLooper.cls.xml	(revision 0)
+++ zTryout/JLM/KlantKostDataLooper.cls.xml	(revision 66886)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JLM.KlantKostDataLooper">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="VindMeestRecenteJarenInKlantKostGlobals">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim GlobalLijst As %List = $ListBuild("^APPS.common.KlantB5C.MaandKostD",
+										   "^APPS.commonB5C.IndividueelK7A2D")
+	#dim IndexLijst As %List = $ListBuild(2, 9)
+	#dim i as %Integer
+	
+	For i = 1:1:$ListLength(GlobalLijst) {
+		Write "Global: ", $List(GlobalLijst, i), !
+		Do ..VindMeestRecenteJaarInGlobal($List(GlobalLijst, i), $List(IndexLijst, i))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VindMeestRecenteJaarInGlobal">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Global:%String,Index:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OrderId As %Integer = $Order(@Global@(""))
+	#dim MinJaar As %Integer = 9999		// Nu we toch bezig zijn krijgt ge het oudste jaar er gratis bij
+	#dim MaxJaar As %Integer = 0
+	#dim HuidigJaar As %Integer
+	
+	For { Set OrderId = $Order(@Global@(OrderId)) Quit:(OrderId="")
+		Try {
+			Set HuidigJaar = $List(@Global@(OrderId), Index)
+			If HuidigJaar > MaxJaar {
+				Set MaxJaar = HuidigJaar
+			} 
+			If 1800 < HuidigJaar && HuidigJaar < MinJaar {
+				Set MinJaar = HuidigJaar
+			}
+		} Catch {
+			Write "Error: HuidigJaar = ", HuidigJaar, !
+		}
+	}
+	
+	Write "MaxJaar = ", MaxJaar, " en MinJaar = ", MinJaar, !
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>