Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieStepTraverse.cls.xml
===================================================================
diff -u -r61885 -r61890
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieStepTraverse.cls.xml	(.../KolommenDefinitieStepTraverse.cls.xml)	(revision 61885)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieStepTraverse.cls.xml	(.../KolommenDefinitieStepTraverse.cls.xml)	(revision 61890)
@@ -12,7 +12,7 @@
 	Do ..VoegToe("MateriaalDwarsprofiel", "Materiaal",25, ##class(TECH.enu.TextAlignment).Left())
 	Do ..VoegToe("Breedte", "Breedte (B)",11, ##class(TECH.enu.TextAlignment).Left())
 	Do ..VoegToe("Hoogte", "Hoogte (H)",11, ##class(TECH.enu.TextAlignment).Left())
-	Do ..VoegToe("MateriaalSpaceStepSet", "Materiaal Space Step Set",33, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("MateriaalSpaceStepSet", "Materiaal Space Step Set",25, ##class(TECH.enu.TextAlignment).Left())
 	
 	Quit $$$OK
 ]]></Implementation>
Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieAluLat.cls.xml
===================================================================
diff -u -r61885 -r61890
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieAluLat.cls.xml	(.../KolommenDefinitieAluLat.cls.xml)	(revision 61885)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieAluLat.cls.xml	(.../KolommenDefinitieAluLat.cls.xml)	(revision 61890)
@@ -10,7 +10,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ..VoegToe("Materiaal", "Materiaal",25, ##class(TECH.enu.TextAlignment).Left())
-	Do ..VoegToe("Lengte", "Lengte",7, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Lengte", "Lengte",9, ##class(TECH.enu.TextAlignment).Left())
 	Do ..VoegToe("Opmerking", "Opmerking                              ",, ##class(TECH.enu.TextAlignment).Left())
 	
 	Quit $$$OK
Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/DocumentInhoudBuilder.cls.xml
===================================================================
diff -u -r61885 -r61890
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/DocumentInhoudBuilder.cls.xml	(.../DocumentInhoudBuilder.cls.xml)	(revision 61885)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/DocumentInhoudBuilder.cls.xml	(.../DocumentInhoudBuilder.cls.xml)	(revision 61890)
@@ -31,7 +31,7 @@
 	Set ..KolommenDocumentInhoudBuilder = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.impl.InhoudBuilder).%New()
 	Set ..SSTDataBepalerAPPS = ##class(APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.DataBepaler).%New(Productkenmerken)
 	
-	Set ..SSTKenmerken = Productkenmerken.IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())
+	Set ..SSTKenmerken = Productkenmerken.Ingegevenkenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieServodrive.cls.xml
===================================================================
diff -u -r61885 -r61890
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieServodrive.cls.xml	(.../KolommenDefinitieServodrive.cls.xml)	(revision 61885)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieServodrive.cls.xml	(.../KolommenDefinitieServodrive.cls.xml)	(revision 61890)
@@ -10,7 +10,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ..VoegToe("Materiaal", "Materiaal",25, ##class(TECH.enu.TextAlignment).Left())
-	Do ..VoegToe("Breedte", "Breedte",7, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Breedte", "Breedte",9, ##class(TECH.enu.TextAlignment).Left())
 	Do ..VoegToe("Opmerking", "Opmerking",29, ##class(TECH.enu.TextAlignment).Left())
 	
 	Quit $$$OK
Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieStepTablet.cls.xml
===================================================================
diff -u -r61885 -r61890
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieStepTablet.cls.xml	(.../KolommenDefinitieStepTablet.cls.xml)	(revision 61885)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieStepTablet.cls.xml	(.../KolommenDefinitieStepTablet.cls.xml)	(revision 61890)
@@ -10,10 +10,10 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ..VoegToe("Materiaal", "Materiaal",25, ##class(TECH.enu.TextAlignment).Left())
-	Do ..VoegToe("Breedte", "Breedte",7, ##class(TECH.enu.TextAlignment).Left())
-	Do ..VoegToe("Diepte", "Hoogte (H)",10, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Breedte", "Breedte(B)",10, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Diepte", "Diepte(D)",9, ##class(TECH.enu.TextAlignment).Left())
 	Do ..VoegToe("ProgrammaEKO", "Programma EKO",14, ##class(TECH.enu.TextAlignment).Left())
-	Do ..VoegToe("Opmerking", "Opmerking",50, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Opmerking", "Opmerking",37, ##class(TECH.enu.TextAlignment).Left())
 	
 	Quit $$$OK
 ]]></Implementation>
Index: APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml
===================================================================
diff -u -r61879 -r61890
--- APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml	(.../VoormontageSpaceStep.cls.xml)	(revision 61879)
+++ APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml	(.../VoormontageSpaceStep.cls.xml)	(revision 61890)
@@ -33,11 +33,14 @@
 	Set ..DocumentBuilder = ##class(APPS.ApplicatieContext).Instance().GeefDocumentAPI().GeefTagBasedDocumentBuilder()
 	#dim DocumentAfdrukker = ##class(APPS.ApplicatieContext).%New().GeefDocumentAPI().GeefPDFDocumentAfdrukker()
 	Set ..PrinterAPI = ##class(APPS.ApplicatieContext).%New().GeefPrintAPI()	
+	#dim AantalPaginasPerSpaceStep As %Integer = 2
+	#dim HuidigSpacestepNr = 1
 	
 	Set DocumentBundel = ##class(APPS.common.Document.impl.DocumentBundel).%New()
 	#dim LijstMetSpaceSteps As %ListOfObjects = ..GeefMaatwerkProductenLijstMetSpaceSteps(BatchID)
 	
 	If $$$HasLength(LijstMetSpaceSteps.Count()) {
+		#dim AantalSpaceSteps As %Integer = LijstMetSpaceSteps.Count()
 		#dim ProductIterator = ##class(TECH.ListIterator).%New(LijstMetSpaceSteps)
 	
 		while ProductIterator.HasNext() {
@@ -46,7 +49,8 @@
 			
 			Set ..DocumentInhoudBuilder = ##class(APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.DocumentInhoudBuilder).%New(Productkenmerken)
 			
-			Do DocumentBundel.VoegToeDocument(..MaakDocument(Productkenmerken))
+			Do DocumentBundel.VoegToeDocument(..MaakDocument(Productkenmerken,HuidigSpacestepNr,AantalSpaceSteps*AantalPaginasPerSpaceStep))
+			Set HuidigSpacestepNr = (HuidigSpacestepNr * AantalPaginasPerSpaceStep) + 1
 		}
 		#dim Printer As APPS.common.Print.Printer = ..PrinterAPI.GeefPrinter(98) //MOET NOG AANGEPAKT WORDEN?????????
 		Do DocumentAfdrukker.DrukAfBundel(DocumentBundel,Printer)
@@ -57,12 +61,12 @@
 </Method>
 
 <Method name="MaakDocument">
-<FormalSpec>Product:APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken</FormalSpec>
+<FormalSpec>Product:APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken,HuidigPaginaNr:%Integer,TotaalAantalBladzijden:%Integer</FormalSpec>
 <ReturnType>APPS.common.Document.Blad</ReturnType>
 <Implementation><![CDATA[
 	#dim Document As APPS.common.Document.Blad	
 	#dim KopTekst As APPS.common.Document.KopTekst = ..GeefKopTekst(Product)
-	#dim VoetTekst As APPS.common.Document.VoetTekst = ..GeefVoetTekst()
+	#dim VoetTekst As APPS.common.Document.VoetTekst = ..GeefVoetTekst(HuidigPaginaNr, TotaalAantalBladzijden)
 	#dim TagBasedDocumentInhoud As APPS.common.Document.Inhoud = ..DocumentInhoudBuilder.GeefInhoud()
 	
 	Do TagBasedDocumentInhoud.ZetFont($LB("8pt",##class(APPS.common.Document.TagBasedDocument.enu.DocBaseFontFamily).VeraSansMono()))
@@ -83,7 +87,7 @@
 	Set Tekst = Tekst_"BatchID: "_Product.BatchID
 	Set Tekst = Tekst_" Toelev: "_Product.ToeleveringID
 	Set Tekst = Tekst_" ProdSeqNr: "_Product.ProductiesequentieNr
-	Set Tekst = Tekst_" KlantNr: "_Product.KlantId
+	Set Tekst = Tekst_" KlantNr: "_$E(Product.KlantId,4,*)
 	Set Tekst = Tekst_" Korttekst: "_Product.Korttekst
 	Set Tekst = Tekst_" ProdID: "_Product.ProductID
 	Set Tekst = Tekst_" Aantal Stuks: "_Product.AantalStuks
@@ -95,9 +99,19 @@
 </Method>
 
 <Method name="GeefVoetTekst">
+<FormalSpec>HuidigPaginaNr:%Integer,TotaalAantalBladzijden:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.common.Document.VoetTekst</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.common.Document.impl.VoetTekst).%New("test voettekst")
+<Implementation><![CDATA[
+	#dim Tekst As %String = ""
+	Set VoetTekst = ##class(APPS.common.Document.impl.VoetTekst).%New()
+	
+	//Set Tekst = "blz. "_HuidigPaginaNr_"/"_TotaalAantalBladzijden
+	//Set Tekst = "p. "_ HuidigPaginaNr + <PAGENUM/> "_"/"_TotaalAantalBladzijden
+	
+	Do VoetTekst.ZetTekstRechts(Tekst)
+	
+	Quit VoetTekst
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/StepTablet.cls.xml
===================================================================
diff -u -r61879 -r61890
--- APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/StepTablet.cls.xml	(.../StepTablet.cls.xml)	(revision 61879)
+++ APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/StepTablet.cls.xml	(.../StepTablet.cls.xml)	(revision 61890)
@@ -3,7 +3,7 @@
 <Class name="APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.StepTablet">
 <Super>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijData</Super>
 
-<Property name="MateriaalAluLat">
+<Property name="Materiaal">
 <Type>%String</Type>
 </Property>
 
Index: APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/DataBepaler.cls.xml
===================================================================
diff -u -r61885 -r61890
--- APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/DataBepaler.cls.xml	(.../DataBepaler.cls.xml)	(revision 61885)
+++ APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/DataBepaler.cls.xml	(.../DataBepaler.cls.xml)	(revision 61890)
@@ -40,7 +40,8 @@
 	Set ..BatchCategorie = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Productkenmerken.BatchID).GeefCategorie()
 	Set ..ProductID = Productkenmerken.ProductID
 	
-	Do ..ZetHalffabBoomVoorProduct(Productkenmerken.ProductID)
+	Do ..ZetHalffabItemsBoomVoorProduct()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -52,29 +53,29 @@
 	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	
 	Set DataSokkelZijkantLinks.Materiaal 	= ..GeefKorttekstPlaatmateriaalZijkant()
-	Set DataSokkelZijkantLinks.Breedte 		= ..SSTKenmerken.Diepte
-	Set DataSokkelZijkantLinks.Hoogte 		= ..SSTKenmerken.Hoogte - 10
+	Set DataSokkelZijkantLinks.Breedte 		= ..SSTKenmerken.Diepte _" mm"
+	Set DataSokkelZijkantLinks.Hoogte 		= ..SSTKenmerken.Hoogte - 10 _" mm"
 	
 	If ( ..BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {
-		Set DataSokkelZijkantLinks.PositieGL 	= 41
+		Set DataSokkelZijkantLinks.PositieGL 	= 41 _" mm"
 	} Else {
-		Set DataSokkelZijkantLinks.PositieGL 	= 43
+		Set DataSokkelZijkantLinks.PositieGL 	= 43 _" mm"
 	}
 	
 	If ( ..BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
-		Set DataSokkelZijkantLinks.PositieSD 	= ..IngegevenKenmerken.LadeDiepte + 34 - 9
+		Set DataSokkelZijkantLinks.PositieSD 	= ..IngegevenKenmerken.LadeDiepte + 34 - 9 _" mm"
 	} Else {
-		Set DataSokkelZijkantLinks.PositieSD 	= ..IngegevenKenmerken.LadeDiepte + 37 - 9
+		Set DataSokkelZijkantLinks.PositieSD 	= ..IngegevenKenmerken.LadeDiepte + 37 - 9 _" mm"
 	}
 	
 	If ( ..BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {
 		If ..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).N() {
-			Set DataSokkelZijkantLinks.PositieSDH 	= DataSokkelZijkantLinks.PositieGL - 24
+			Set DataSokkelZijkantLinks.PositieSDH 	= DataSokkelZijkantLinks.PositieGL - 24 _" mm"
 		} Else {
-			Set DataSokkelZijkantLinks.PositieSDH 	= DataSokkelZijkantLinks.PositieGL - 16
+			Set DataSokkelZijkantLinks.PositieSDH 	= DataSokkelZijkantLinks.PositieGL - 16 _" mm"
 		}
 	} Else {
-		Set DataSokkelZijkantLinks.PositieSDH 	= DataSokkelZijkantLinks.PositieGL - 12
+		Set DataSokkelZijkantLinks.PositieSDH 	= DataSokkelZijkantLinks.PositieGL - 12 _" mm"
 	}
 	
 	Set DataSokkelZijkantLinks.ProgrammaEKO = "Sokkel_links (kantenband rechts)"
@@ -92,29 +93,29 @@
 	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	
 	Set DataSokkelZijkantRechts.Materiaal 	= ..GeefKorttekstPlaatmateriaalZijkant()
-	Set DataSokkelZijkantRechts.Breedte 	= ..SSTKenmerken.Diepte
-	Set DataSokkelZijkantRechts.Hoogte 		= ..SSTKenmerken.Hoogte - 10
+	Set DataSokkelZijkantRechts.Breedte 	= ..SSTKenmerken.Diepte _" mm"
+	Set DataSokkelZijkantRechts.Hoogte 		= ..SSTKenmerken.Hoogte - 10 _" mm"
 		
 	If ( ..BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {
-		Set DataSokkelZijkantRechts.PositieGL 	= 41
+		Set DataSokkelZijkantRechts.PositieGL 	= 41 _" mm"
 	} Else {
-		Set DataSokkelZijkantRechts.PositieGL 	= 43
+		Set DataSokkelZijkantRechts.PositieGL 	= 43 _" mm"
 	}
 	
 	If ( ..BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
-		Set DataSokkelZijkantRechts.PositieSD 	= ..IngegevenKenmerken.LadeDiepte + 34 - 9
+		Set DataSokkelZijkantRechts.PositieSD 	= ..IngegevenKenmerken.LadeDiepte + 34 - 9 _" mm"
 	} Else {
-		Set DataSokkelZijkantRechts.PositieSD 	= ..IngegevenKenmerken.LadeDiepte + 37 - 9
+		Set DataSokkelZijkantRechts.PositieSD 	= ..IngegevenKenmerken.LadeDiepte + 37 - 9 _" mm"
 	}
 	
 	If ( ..BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {
 		If ..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).N() {
-			Set DataSokkelZijkantRechts.PositieSDH 	= DataSokkelZijkantRechts.PositieGL - 24
+			Set DataSokkelZijkantRechts.PositieSDH 	= DataSokkelZijkantRechts.PositieGL - 24 _" mm"
 		} Else {
-			Set DataSokkelZijkantRechts.PositieSDH 	= DataSokkelZijkantRechts.PositieGL - 16
+			Set DataSokkelZijkantRechts.PositieSDH 	= DataSokkelZijkantRechts.PositieGL - 16 _" mm"
 		}
 	} Else {
-		Set DataSokkelZijkantRechts.PositieSDH 	= DataSokkelZijkantRechts.PositieGL - 12
+		Set DataSokkelZijkantRechts.PositieSDH 	= DataSokkelZijkantRechts.PositieGL - 12 _" mm"
 	}
 	
 	Set DataSokkelZijkantRechts.ProgrammaEKO = "Sokkel_rechts (kantenband links)"
@@ -132,8 +133,8 @@
 	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	
 	Set DataSokkelRug.Materiaal 	= ..GeefKorttekstPlaatmateriaalSokkelRug()
-	Set DataSokkelRug.Breedte 		= ..SSTKenmerken.Breedte - (2*17.6)
-	Set DataSokkelRug.Hoogte 		= ..SSTKenmerken.Hoogte - 10
+	Set DataSokkelRug.Breedte 		= ..SSTKenmerken.Breedte - (2*17.6) _" mm"
+	Set DataSokkelRug.Hoogte 		= ..SSTKenmerken.Hoogte - 10 _" mm"
 	Set DataSokkelRug.ProgrammaEKO 	= "Sokkel_Rug"
 		
 	Do RijDataLijst.Insert(DataSokkelRug)
@@ -148,9 +149,9 @@
 	#dim DataStepTablet As APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.StepTablet = ##class(APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.StepTablet).%New()
 	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	
-	Set DataStepTablet.Materiaal 	= ..GeefKorttekstAluLat()
-	Set DataStepTablet.Breedte		= ..SSTKenmerken.Breedte - (2*17.6) - 10
-	Set DataStepTablet.Diepte		= +(..SSTKenmerken.Diepte) - 80 
+	Set DataStepTablet.Materiaal 	= ..GeefKorttekstPlaatmateriaalTablet()
+	Set DataStepTablet.Breedte		= ..SSTKenmerken.Breedte - (2*17.6) - 10 _" mm"
+	Set DataStepTablet.Diepte		= ..SSTKenmerken.Diepte - 80  _" mm"
 	
 	If ..SSTKenmerken.Diepte = ##class(DOM.PM.enu.SSTDiepte).SpaceStepDiepte505() {
 		Set DataStepTablet.ProgrammaEKO	= "Tablet 410"	
@@ -159,7 +160,8 @@
 	} Else {
 		Set DataStepTablet.ProgrammaEKO	= "Ongekende Sokkeldiepte"	
 	}
-	Set DataStepTablet.Opmerking = "antislip naar buiten - magneet monteren"
+	
+	Set DataStepTablet.Opmerking = "antislip naar buiten-magneet monteren"
 	Do RijDataLijst.Insert(DataStepTablet)
 	
 	Quit RijDataLijst
@@ -173,9 +175,9 @@
 	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	
 	Set DataStepTravers.MateriaalDwarsprofiel 	= ..GeefKorttekstDwarsprofiel()
-	Set DataStepTravers.Breedte					= ..SSTKenmerken.Breedte - (2*17.6) - 130
-	Set DataStepTravers.MateriaalSpaceStepSet	= "korttekst gebruikte spacestepset"
-	Set DataStepTravers.Hoogte					= ..SSTKenmerken.Hoogte - 67
+	Set DataStepTravers.Breedte					= ..SSTKenmerken.Breedte - (2*17.6) - 130 _" mm"
+	Set DataStepTravers.MateriaalSpaceStepSet	= ..GeefKorttekstSpaceStepSet()
+	Set DataStepTravers.Hoogte					= ..SSTKenmerken.Hoogte - 67 _" mm"
 	
 	Do RijDataLijst.Insert(DataStepTravers)
 	
@@ -190,7 +192,7 @@
 	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	
 	Set DataStepServodrive.Materiaal	= ..GeefKorttekstHorizontaalDraagprofiel()
-	Set DataStepServodrive.Breedte		= ..SSTKenmerken - (2*17.6) - 19
+	Set DataStepServodrive.Breedte		= ..SSTKenmerken - (2*17.6) - 19 _" mm"
 	Set DataStepServodrive.Opmerking	= "monteren servo-drive + kabel"
 	
 	Do RijDataLijst.Insert(DataStepServodrive)
@@ -206,7 +208,7 @@
 	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	
 	Set DataAluLat.Materiaal 	= ..GeefKorttekstAluLat()
-	Set DataAluLat.Lengte 		= ..SSTKenmerken.Breedte - 1
+	Set DataAluLat.Lengte 		= ..SSTKenmerken.Breedte - 1 _" mm"
 	Set DataAluLat.Opmerking	= "middelste chanfrein aan de andere kant"
 	
 	Do RijDataLijst.Insert(DataAluLat)
@@ -264,12 +266,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetHalffabBoomVoorProduct">
-<FormalSpec>ProductID:%String</FormalSpec>
+<Method name="ZetHalffabItemsBoomVoorProduct">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
-	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductID)
+	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(..ProductID)
 	Set ..HalffabItemsBoom  = MaatwerkProduct.GeefHalffabItemsBoom().HalffabItems.GetAt("SpaceStep_SpaceStep")
 ]]></Implementation>
 </Method>