Index: PV TBX Zaag.prj.xml
===================================================================
diff -u -r2811 -r2812
--- PV TBX Zaag.prj.xml	(.../PV TBX Zaag.prj.xml)	(revision 2811)
+++ PV TBX Zaag.prj.xml	(.../PV TBX Zaag.prj.xml)	(revision 2812)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="PV TBX Zaag" LastModified="2011-11-11 15:38:34">
+<Project name="PV TBX Zaag" LastModified="2011-11-11 15:51:18">
   <Items>
     <ProjectItem name="APPS.Halux.Opvolging.AStilstandenLijstHelper" type="CLS"/>
     <ProjectItem name="APPS.Halux.Opvolging.IStilstanden" type="CLS"/>
@@ -37,6 +37,7 @@
     <ProjectItem name="APPS.Halux.common.event.BatchRemovedData" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.event.BatchRemovedEvent" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.impl.BatchImpl" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.VHossControleurEnd" type="CLS"/>
     <ProjectItem name="BL.PPS.TBX.DocsProPlus" type="CLS"/>
     <ProjectItem name="BL.PPS.TBX.DocsV1" type="CLS"/>
     <ProjectItem name="BL.PPS.TBX.LeanBatch" type="CLS"/>
@@ -65,7 +66,9 @@
     <ProjectItem name="DOM.PM.impl.DataM.DataMProductAPI" type="CLS"/>
     <ProjectItem name="DS.PPS.TBX.Queue" type="CLS"/>
     <ProjectItem name="DS.PPS.TBX.sub.emWPZaag" type="CLS"/>
-    <ProjectItem name="TECH.ArrayQueryIterator" type="CLS"/>
+    <ProjectItem name="TECH.ArrayMultiDimIterator" type="CLS"/>
+    <ProjectItem name="TECH.ArrayOneDimIterator" type="CLS"/>
+    <ProjectItem name="TECH.ClassUtils" type="CLS"/>
     <ProjectItem name="TECH.Error.INC" type="MAC"/>
     <ProjectItem name="WS.Halux.PPS.TBXZaagServer" type="CLS"/>
     <ProjectItem name="vhDeploy.PV.Deploy20111029x0920" type="CLS"/>
Index: APPS/VisiDot/impl/VHossControleurEnd.cls.xml
===================================================================
diff -u -r2494 -r2812
--- APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 2494)
+++ APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 2812)
@@ -103,7 +103,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Kill All Merge All=..All
-	Set it=##class(TECH.ArrayIterator).%New(.All)
+	Set it=##class(TECH.ArrayOneDimIterator).%New(.All)
 	While it.HasNext()
 	{
 		Set AndereVHossSeqEnZijkant=it.Next()
FishEye: Tag 2812 refers to a dead (removed) revision in file `TECH/ArrayIterator.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TECH/ArrayOneDimIterator.cls.xml
===================================================================
diff -u
--- TECH/ArrayOneDimIterator.cls.xml	(revision 0)
+++ TECH/ArrayOneDimIterator.cls.xml	(revision 2812)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.ArrayOneDimIterator">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>Iterator,%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Array">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+<Private>1</Private>
+</Property>
+
+<Property name="Key">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="HasNext">
+<Description>
+Returns true if the iteration has more elements.</Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $O(..Array(..Key)) '= ""
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec><![CDATA[&Array:%String]]></FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Merge ..Array = Array
+	Set ..Key = ""
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<Description>
+Returns the next element in the iteration.
+Only returns a valid element if HasNext() returns true
+Causes an error if HasNext() returns false</Description>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	Set ..Key = $O(..Array(..Key))
+	Quit $S(..Key="":"",1:$G(..Array(..Key)))
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Returns the list key of the current object
+
+]]></Content>
+</UDLText>
+
+<Method name="Key">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Key
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2218 -r2812
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2218)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2812)
@@ -215,7 +215,7 @@
 		set PropertyValue = $zobjProperty(Object,Property.Name)
 		if (Property.Collection || (Property.Collection = "list") || (Property.Collection = "array")) {
 			If (Property.Collection = "array"){
-				set itCollection = ##class(TECH.ArrayIterator).%New(PropertyValue)
+				set itCollection = ##class(TECH.ArrayOneDimIterator).%New(PropertyValue)
 			}Else{
 				set itCollection = ##class(TECH.ListIterator).%New(PropertyValue)
 			}