Index: APPS/Halux/PPS/Document/impl/EtiketAfdrukker.cls.xml
===================================================================
diff -u -r29059 -r61954
--- APPS/Halux/PPS/Document/impl/EtiketAfdrukker.cls.xml	(.../EtiketAfdrukker.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Document/impl/EtiketAfdrukker.cls.xml	(.../EtiketAfdrukker.cls.xml)	(revision 61954)
@@ -21,6 +21,11 @@
 <InitialExpression>"Normaal"</InitialExpression>
 </Property>
 
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="DrukAf">
 <FormalSpec>Etiketten:%ListOfObjects</FormalSpec>
 <Implementation><![CDATA[
@@ -48,12 +53,15 @@
 
 <Method name="VerwerkUitvoeringInfoLijst">
 <Final>1</Final>
-<FormalSpec>Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters</FormalSpec>
+<FormalSpec>Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters,LijstBevatEnkelSpaceSteps:%Boolean=0</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.UitvoeringResultaat</ReturnType>
 <Implementation><![CDATA[
 	Set ..ActiviteitParameters = ActiviteitParameters
 	#dim UitvoeringStatus As APPS.Halux.PPS.enu.UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).InUitvoering()
 	Try {
+		/*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()
@@ -84,6 +92,42 @@
 	quit ##class(APPS.Halux.PPS.dto.UitvoeringResultaat).%New(UitvoeringStatus)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefUitvoeringInfoLijstZonderSpaceSteps">
+<FormalSpec>UitvoeringInfoLijstPerInformatieID:%ArrayOfObjects</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)
+	
+	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 $$$Not($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>
 </Class>