Index: APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/DataBepaler.cls.xml
===================================================================
diff -u -r62348 -r62352
--- APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/DataBepaler.cls.xml	(.../DataBepaler.cls.xml)	(revision 62348)
+++ APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/DataBepaler.cls.xml	(.../DataBepaler.cls.xml)	(revision 62352)
@@ -206,12 +206,11 @@
 <Implementation><![CDATA[
 	#dim DataStepOnderdelenServodrive As APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.OnderdelenServodrive = ..GeefLegeOnderdelenServoDto()
 	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
-	Do ##class(Tools.Wlip).%New(110).String("ERINNNN")
+	
 	Set DataStepOnderdelenServodrive.Materiaal	= ..GeefKorttekstServodriveVeerdemper()
 	Set DataStepOnderdelenServodrive.Aantal		= ..GeefAantalServodriveVeerdemper()
-	Do ##class(Tools.Wlip).%New(110).String("Aantal???????")
 	Do RijDataLijst.Insert(DataStepOnderdelenServodrive)
-	Do ##class(Tools.Wlip).%New(110).ObjToText(DataStepOnderdelenServodrive)
+	
 	Set DataStepOnderdelenServodrive = ..GeefLegeOnderdelenServoDto()
 	Set DataStepOnderdelenServodrive.Materiaal	= ..GeefKorttekstServodriveHorizontaalDraagprofiel()
 	Set DataStepOnderdelenServodrive.Aantal		= ..GeefAantalServodriveHorizontaalDraagprofiel()
@@ -252,12 +251,13 @@
 	Set DataStepOnderdelenServodrive.Aantal		= ..GeefAantalServodriveElektroKabel() * 100 //1 product per 100m
 	Do RijDataLijst.Insert(DataStepOnderdelenServodrive)
 	
-	Set DataStepOnderdelenServodrive = ..GeefLegeOnderdelenServoDto()
-	Set DataStepOnderdelenServodrive.Materiaal	= ..GeefKorttekstServodriveStekkerType()
-	Set DataStepOnderdelenServodrive.Aantal		= ..GeefAantalServodriveStekkerType()
-	Do RijDataLijst.Insert(DataStepOnderdelenServodrive)
+	If (..SSTKenmerken.StekkerServodrive) {
+		Set DataStepOnderdelenServodrive = ..GeefLegeOnderdelenServoDto()
+		Set DataStepOnderdelenServodrive.Materiaal	= ..GeefKorttekstServodriveStekkerType()
+		Set DataStepOnderdelenServodrive.Aantal		= ..GeefAantalServodriveStekkerType()
+		Do RijDataLijst.Insert(DataStepOnderdelenServodrive)
+	}
 	
-	Do ##class(Tools.Wlip).%New(110).ListOfObjectsToText(RijDataLijst)
 	Quit RijDataLijst
 ]]></Implementation>
 </Method>