Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiketSpaceStep.cls.xml
===================================================================
diff -u -r61930 -r61931
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiketSpaceStep.cls.xml	(.../KlantEtiketSpaceStep.cls.xml)	(revision 61930)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiketSpaceStep.cls.xml	(.../KlantEtiketSpaceStep.cls.xml)	(revision 61931)
@@ -6,33 +6,42 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Halux.PPS.impl.AansturingActie</Super>
 
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="VoerUit">
 <FormalSpec>BatchID:%String,ActieParameters:%ListOfDataTypes</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.ActieResultaat</ReturnType>
 <Implementation><![CDATA[
 	/*
+	Set ..ProductAPI = ##class(DOM.DomeinContext).%New().GeefProductAPI()
+	
 	Set EtiketAfdrukker = ##class(APPS.Halux.PPS.Document.impl.EtiketAfdrukker).%New()
 	Set WerklijstItemsUitvoerder = ##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemsUitvoerder).%New()
 	Set ActieUitvoerder = ##class(APPS.Halux.PPS.impl.AansturingActieVoorActiviteit).%New()
-	Set ActieUitvoerder.ActiviteitGroepID = "33" //LBX productiegroepID
-	Set ActieUitvoerder.ActiviteitID = "78" //LBX klantetiketten aansturingsactieID
+	Set ActieUitvoerder.ActiviteitGroepID = "33" 	//LBX productiegroepID
+	Set ActieUitvoerder.ActiviteitID = "78" 		//LBX klantetiketten aansturingsactieID
 	
 	#dim IsRework As %Boolean = ..GeefReworkFlag()
 	#dim WerklijstItemIDLijst As %ListOfDataTypes = ActieUitvoerder.GeefWerklijstItemIDLijst(BatchID,IsRework)
 	
-	#dim UitvoeringInfoLijstPerInformatieID = WerklijstItemsUitvoerder.GeefUitvoeringInfoLijstPerInformatieID(WerklijstItemIDLijst)
+	#dim UitvoeringInfoLijstPerInformatieID As %ArrayOfObjects = WerklijstItemsUitvoerder.GeefUitvoeringInfoLijstPerInformatieID(WerklijstItemIDLijst)
+	Set UitvoeringInfoLijstPerInformatieID = ..GeefUitvoeringInfoLijstMetEnkelSpaceSteps(UitvoeringInfoLijstPerInformatieID)
 	
-	set UitvoeringInfoLijstArrayIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijstPerInformatieID)
-	while UitvoeringInfoLijstArrayIterator.HasNext() {
+	Set UitvoeringInfoLijstArrayIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijstPerInformatieID)
+	While UitvoeringInfoLijstArrayIterator.HasNext() {
 		#dim UitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = UitvoeringInfoLijstArrayIterator.Next()
 		
 		Set ActiviteitParameters = ##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New()
-		Set ActiviteitParameters.Printer = 98
-
+		Set ActiviteitParameters.Printer = ..GeefUitvoeringParameter(##class(APPS.Halux.PPS.enu.UitvoeringParameter).Printer())
+		
 		Do ##class(APPS.Halux.PPS.Activiteit.impl.LBX.KlantEtiketten.LijstVerwerker).%New().VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst,ActiviteitParameters)
 	}
-	*/
+	
 	Quit ..GeefGeslaagdAansturingResultaat()
+	*/
 ]]></Implementation>
 </Method>
 
@@ -45,6 +54,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefUitvoeringInfoLijstMetEnkelSpaceSteps">
+<FormalSpec>UitvoeringInfoLijstPerInformatieID:%ArrayOfObjects</FormalSpec>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstMetEnkelSpaceSteps = ##class(%ArrayOfObjects).%New()	
+	Set UitvoeringInfoLijstArrayIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijstPerInformatieID)
+	
+	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()
+		
+		Set UitvoeringInfoLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+		While UitvoeringInfoLijstIterator.HasNext() {
+			#dim UitvoeringInfo As APPS.Halux.PPS.dto.UitvoeringInfoLijst = UitvoeringInfoLijstIterator.Next()
+			
+			If ($Extract(..GeefKortTekst(UitvoeringInfo.ProductID),1,3) = "SST") {
+				Do SpaceStepUitvoeringInfoLijst.Insert(UitvoeringInfo)
+				
+			}	
+		}
+		Do LijstMetEnkelSpaceSteps.SetAt(SpaceStepUitvoeringInfoLijst,Key)		
+	}
+	
+	Quit LijstMetEnkelSpaceSteps
+]]></Implementation>
+</Method>
+
+<Method name="GeefKortTekst">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductAPI.GeefProduct(PRNr).GeefKorttekst()
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>KlantEtiketSpaceStepDefaultData</DefaultData>
@@ -62,6 +107,12 @@
 <Value name="4">
 <Value>DocumentBuilder</Value>
 </Value>
+<Value name="5">
+<Value>ProductApi</Value>
+</Value>
+<Value name="6">
+<Value>ProductAPI</Value>
+</Value>
 </Data>
 </Storage>
 </Class>