Index: PV TBX Zaag.prj.xml
===================================================================
diff -u -r2808 -r2811
--- PV TBX Zaag.prj.xml	(.../PV TBX Zaag.prj.xml)	(revision 2808)
+++ PV TBX Zaag.prj.xml	(.../PV TBX Zaag.prj.xml)	(revision 2811)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="PV TBX Zaag" LastModified="2011-11-10 19:42:18">
+<Project name="PV TBX Zaag" LastModified="2011-11-11 15:38:34">
   <Items>
     <ProjectItem name="APPS.Halux.Opvolging.AStilstandenLijstHelper" type="CLS"/>
     <ProjectItem name="APPS.Halux.Opvolging.IStilstanden" type="CLS"/>
@@ -65,6 +65,7 @@
     <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.Error.INC" type="MAC"/>
     <ProjectItem name="WS.Halux.PPS.TBXZaagServer" type="CLS"/>
     <ProjectItem name="vhDeploy.PV.Deploy20111029x0920" type="CLS"/>
Index: TECH/ArrayMultiDimIterator.cls.xml
===================================================================
diff -u
--- TECH/ArrayMultiDimIterator.cls.xml	(revision 0)
+++ TECH/ArrayMultiDimIterator.cls.xml	(revision 2811)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.ArrayMultiDimIterator">
+<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 $Q(@..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 = $Name(..Array(""))
+	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 = $Q(@..Key)
+	Quit $S(..Key="":"",1:$G(@..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: BL/Sys/LabelPrinter.cls.xml
===================================================================
diff -u -r2808 -r2811
--- BL/Sys/LabelPrinter.cls.xml	(.../LabelPrinter.cls.xml)	(revision 2808)
+++ BL/Sys/LabelPrinter.cls.xml	(.../LabelPrinter.cls.xml)	(revision 2811)
@@ -277,7 +277,7 @@
 <Method name="GeefIterator">
 <Implementation><![CDATA[
 	Merge Data=..Data
-	Quit ##class(TECH.ArrayQueryIterator).%New(.Data)
+	Quit ##class(TECH.ArrayMultiDimIterator).%New(.Data)
 ]]></Implementation>
 </Method>