Index: APPS/Halux/PPS/Document/impl/EtiketAfdrukker.cls.xml
===================================================================
diff -u -r61954 -r61965
--- APPS/Halux/PPS/Document/impl/EtiketAfdrukker.cls.xml	(.../EtiketAfdrukker.cls.xml)	(revision 61954)
+++ APPS/Halux/PPS/Document/impl/EtiketAfdrukker.cls.xml	(.../EtiketAfdrukker.cls.xml)	(revision 61965)
@@ -59,9 +59,9 @@
 	Set ..ActiviteitParameters = ActiviteitParameters
 	#dim UitvoeringStatus As APPS.Halux.PPS.enu.UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).InUitvoering()
 	Try {
-		/*If $$$Not(LijstBevatEnkelSpaceSteps) {
+		If $$$Not(LijstBevatEnkelSpaceSteps) {
 			Set Lijst = ..GeefUitvoeringInfoLijstZonderSpaceSteps(Lijst)
-		}*/
+		}
 		#dim Etiketten As %ListOfObjects = ..MaakEtikettenVoorUitvoeringInfoLijst(Lijst)
 		Do ..DrukAf(Etiketten)
 		Set UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes()
@@ -94,27 +94,19 @@
 </Method>
 
 <Method name="GeefUitvoeringInfoLijstZonderSpaceSteps">
-<FormalSpec>UitvoeringInfoLijstPerInformatieID:%ArrayOfObjects</FormalSpec>
+<FormalSpec>UitvoeringInfoLijst:%ListOfObjects</FormalSpec>
 <ReturnType>%ArrayOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set ..ProductAPI = ##class(DOM.DomeinContext).%New().GeefProductAPI()
-	Set LijstMetEnkelSpaceSteps = ##class(%ArrayOfObjects).%New()	
-	Set UitvoeringInfoLijstArrayIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijstPerInformatieID)
+	Set LijstMetEnkelSpaceSteps = ##class(%ListOfObjects).%New()	
+	Set UitvoeringInfoLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
 	
-	While UitvoeringInfoLijstArrayIterator.HasNext() {
-		#dim UitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = UitvoeringInfoLijstArrayIterator.Next()
-		Set SpaceStepUitvoeringInfoLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
-		#dim Key As %String = UitvoeringInfoLijstArrayIterator.Key()
+	While UitvoeringInfoLijstIterator.HasNext() {
+		#dim UitvoeringInfo As APPS.Halux.PPS.dto.UitvoeringInfoLijst = UitvoeringInfoLijstIterator.Next()
 		
-		Set UitvoeringInfoLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
-		While UitvoeringInfoLijstIterator.HasNext() {
-			#dim UitvoeringInfo As APPS.Halux.PPS.dto.UitvoeringInfoLijst = UitvoeringInfoLijstIterator.Next()
-			
-			If $$$Not($Extract(..GeefKortTekst(UitvoeringInfo.ProductID),1,3) = "SST") {
-				Do SpaceStepUitvoeringInfoLijst.Insert(UitvoeringInfo)				
-			}	
-		}
-		Do LijstMetEnkelSpaceSteps.SetAt(SpaceStepUitvoeringInfoLijst,Key)		
+		If $$$Not($Extract(..GeefKortTekst(UitvoeringInfo.ProductID),1,3) = "SST") {
+			Do LijstMetEnkelSpaceSteps.Insert(UitvoeringInfo)				
+		}			
 	}
 	
 	Quit LijstMetEnkelSpaceSteps