Index: zTryout/KCA/AxLeverAdresBepaler.cls.xml
===================================================================
diff -u
--- zTryout/KCA/AxLeverAdresBepaler.cls.xml	(revision 0)
+++ zTryout/KCA/AxLeverAdresBepaler.cls.xml	(revision 54927)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.AxLeverAdresBepaler">
+<Super>%Persistent</Super>
+
+<Method name="Do">
+<Description>
+Do ##class(zTryout.KCA.AxLeverAdresBepaler).%New().Do()</Description>
+<FormalSpec>AxId:%String="000088538"</FormalSpec>
+<Implementation><![CDATA[
+	#dim Klant As %String = ""
+	
+	Set Klant = $Order(^KKL(Klant))
+	
+	while (Klant '= "") {
+		
+		w !,"Klant " _Klant 
+		#dim id As %String = ""
+		
+		Set id = $Order(^KKL(Klant,id))
+		while (id '= "") {
+			w !,"id " _id 
+			if $Extract(id,1,1) = "L" {
+				w !,"adres " _id _" " _$P(^KKL(Klant,id),"\",29)
+				If $P(^KKL(Klant,id),"\",29) = AxId {
+					w !, "gevonden " _AxId
+					w !,"Klant " _Klant 
+					break
+				}
+			}
+	
+		Set id = $Order(^KKL(Klant,id))
+		}
+	Set Klant = $Order(^KKL(Klant))
+	}
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.KCA.AxLeverAdreF6BED</DataLocation>
+<DefaultData>AxLeverAdresBepalerDefaultData</DefaultData>
+<IdLocation>^zTryout.KCA.AxLeverAdreF6BED</IdLocation>
+<IndexLocation>^zTryout.KCA.AxLeverAdreF6BEI</IndexLocation>
+<StreamLocation>^zTryout.KCA.AxLeverAdreF6BES</StreamLocation>
+<Data name="AxLeverAdresBepalerDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>