Index: zTryout/THB/Training/ToRefactorSample.cls.xml
===================================================================
diff -u -r63505 -r63516
--- zTryout/THB/Training/ToRefactorSample.cls.xml	(.../ToRefactorSample.cls.xml)	(revision 63505)
+++ zTryout/THB/Training/ToRefactorSample.cls.xml	(.../ToRefactorSample.cls.xml)	(revision 63516)
@@ -20,7 +20,10 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[	set ..IKIDService = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDService).%New()
+<Implementation><![CDATA[
+	set ..IKIDService = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDService).%New()
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -37,6 +40,7 @@
 		
 	#dim Repo As DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashDataRepository = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashDataRepository).%New()
 	#dim IDs As %ListOfDataTypes = Repo.GeefKenmerkIKIDHashDataSet(IngegevenKenmerk, LadeVariant)
+	
 	#dim IDIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(IDs)
 	while IDIterator.HasNext() {
 		#dim ID As %String = IDIterator.Next()
@@ -83,6 +87,7 @@
 	Quit // DEZE KLASSE NIET GEBRUIKEN AUB. DIENT LOUTER VOOR OPLEIDING IN FUNCTIE VAN CODING CONVENTIONS !!!
 	
 	#Dim Hash As %String = "Sample"
+	
 	quit Hash
 ]]></Implementation>
 </Method>
@@ -93,11 +98,13 @@
 <Implementation><![CDATA[
 	Quit // DEZE KLASSE NIET GEBRUIKEN AUB. DIENT LOUTER VOOR OPLEIDING IN FUNCTIE VAN CODING CONVENTIONS !!!
 	
-	if $$$Not(EenString = "")
-	{
-		set EenString = EenString_"1"
-	} elseif EenString = "A" {
-		set EenString = EenString _ "2"
+	#dim ItemVoorLeveradres As %String
+	#dim IsStringA As %Boolean = (EenString = "A")
+	
+	If (($$$Not(EenString = "") || (EenString = "0")) && (EenString = "")) {
+		Set EenString = EenString _ "1"
+	} ElseIf IsStringA {
+		Set EenString = EenString _ "2"
 	}
 	
 	#dim IdIterator As TECH.StringIterator = ##class(TECH.StringIterator).%New(EenString,"/")
@@ -108,6 +115,26 @@
 			Do Leveradres.ZetID(Id)
 		}
 	}
+	
+	Set MijnLijst = ##class(%ListOfDataTypes).%New()
+	Do MijnLijst.Insert("A")
+	Do MijnLijst.Insert("B")
+	
+	#dim ListIterator As TECH.StringIterator = ##class(TECH.ListIterator).%New(MijnLijst)
+	While IdIterator.HasNext(){
+		#dim Item As %String = IdIterator.Next()
+		If (Item = "A2") {
+			Do Leveradres.ZetID(Item)
+		}
+	}
+	
+	
+	Set MijnArray = ##class(%ArrayOfDataTypes).%New()
+	Do MijnArray.SetAt("A", "Leveradres A")
+	Do MijnArray.SetAt("B", "Leveradres B")
+	
+	Set ItemVoorLeveradres = MijnArray.GetAt(Leveradres.GeefID())
+	Do Leveradres.ZetID(ItemVoorLeveradres _ "Extra")
 ]]></Implementation>
 </Method>
 </Class>