Index: APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/SokkelZijkant.cls.xml
===================================================================
diff -u -r61872 -r61879
--- APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/SokkelZijkant.cls.xml	(.../SokkelZijkant.cls.xml)	(revision 61872)
+++ APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/SokkelZijkant.cls.xml	(.../SokkelZijkant.cls.xml)	(revision 61879)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.SokkelZijkant">
-<Super>TECH.DataTransferObject</Super>
+<Super>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijData</Super>
 
 <Property name="Materiaal">
 <Type>%String</Type>
Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/DocumentBuilder.cls.xml
===================================================================
diff -u -r61872 -r61879
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/DocumentBuilder.cls.xml	(.../DocumentBuilder.cls.xml)	(revision 61872)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/DocumentBuilder.cls.xml	(.../DocumentBuilder.cls.xml)	(revision 61879)
@@ -3,13 +3,6 @@
 <Class name="APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.DocumentBuilder">
 <Super>TECH.Mockable</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-// extends (APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.DocumentBuilder, TECH.Mockable)
-
-]]></Content>
-</UDLText>
-
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -21,43 +14,6 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method GeefKopTekst(UitvoeringInfo As APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo) As APPS.common.Document.KopTekst [ Private ]
-{
-	#dim HuidigeKar As TECH.String = ..AssemblageKarRepository.GeefKarVolgnummerViaSequentieNr(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)
-	#dim TotaalAantalKarren As TECH.String = ..AssemblageKarRepository.GeefAantalKarren(UitvoeringInfo.BatchID)
-	
-	#dim Product As DOM.PM.TAORProduct.TAORLade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(UitvoeringInfo.ProductID)
-	#dim Verpakking As DOM.PM.enu.TAORVerpakkingType = Product.GeefVerpakking()
-	#dim Afwerking As TECH.String = ..AfwerkingBepaler.GeefAfwerking(Verpakking)
-	
-	#dim LaatsteVak As TECH.String = ..AssemblageKarRepository.GeefLaatsteItemNrInKarViaSequentieNr(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)
-	
-	Set KopTekst = ##class(APPS.common.Document.impl.KopTekst).%New()
-	Set KopTekst = "test koptekst PVR"
-	//Do KopTekst.ZetTekstLinks(..#DocumentNaam_..#KoptekstDelimiter_Afwerking_"-kar"_..#KoptekstDelimiter_"Batch "_..Batch.GeefCode()_..#KoptekstDelimiter_"kar "_HuidigeKar_"/"_TotaalAantalKarren_..#KoptekstDelimiter_$$$UPPER(..VerpakkingFormatter.Formatteer(Verpakking))_..#KoptekstDelimiter_"Laatste Vak: "_LaatsteVak)
-	Quit KopTekst
-}
-*/
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method GeefVoetTekst(UitvoeringInfo As APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo) As APPS.common.Document.KopTekst [ Private ]
-{
-	
-	Set VoetTekst = ##class(APPS.common.Document.impl.VoetTekst).%New()
-	Set VoetTekst = "test Voettekst PVR"
-	Quit VoetTekst
-}
-*/
-]]></Content>
-</UDLText>
-
 <Method name="GeefDocumentInhoudBuilder">
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.DocumentInhoudBuilder</ReturnType>
Index: APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/DataBepaler.cls.xml
===================================================================
diff -u -r61872 -r61879
--- APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/DataBepaler.cls.xml	(.../DataBepaler.cls.xml)	(revision 61872)
+++ APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/DataBepaler.cls.xml	(.../DataBepaler.cls.xml)	(revision 61879)
@@ -18,37 +18,48 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabItemsBoom">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,BatchID:%String</FormalSpec>
+<FormalSpec>Productkenmerken:APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken = IngegevenKenmerken
-	Set ..SSTKenmerken = IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt("Spacestep")
-	Set ..BatchCategorie = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID).GeefCategorie()
+	Set ..IngegevenKenmerken = Productkenmerken.IngegevenKenmerken	
+	Set ..SSTKenmerken = ..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())
+	Set ..BatchCategorie = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Productkenmerken.BatchID).GeefCategorie()
+	Set ..ProductID = Productkenmerken.ProductID
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDataSokkelZijkantLinks">
-<Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.SokkelZijkant</ReturnType>
 <Implementation><![CDATA[
 	#dim DataSokkelZijkantLinks As APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.SokkelZijkant = ##class(APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.SokkelZijkant).%New()
+	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	
-	Set DataSokkelZijkantLinks.Materiaal 	= "KORTTEKST PLAATMATERIAAL ZIJKANT"
+	Set DataSokkelZijkantLinks.Materiaal 	= ..GeefKorttekstPlaatmateriaalZijkant()
 	Set DataSokkelZijkantLinks.Breedte 		= ..SSTKenmerken.Diepte
 	Set DataSokkelZijkantLinks.Hoogte 		= ..SSTKenmerken.Hoogte - 10
-		
+	
 	If ( ..BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {
 		Set DataSokkelZijkantLinks.PositieGL 	= 41
 	} Else {
 		Set DataSokkelZijkantLinks.PositieGL 	= 43
 	}
 	
-	If ( ..BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).Taorbox()) {
+	If ( ..BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
 		Set DataSokkelZijkantLinks.PositieSD 	= ..IngegevenKenmerken.LadeDiepte + 34 - 9
 	} Else {
 		Set DataSokkelZijkantLinks.PositieSD 	= ..IngegevenKenmerken.LadeDiepte + 37 - 9
@@ -66,16 +77,19 @@
 	
 	Set DataSokkelZijkantLinks.ProgrammaEKO = "Sokkel_links (kantenband rechts)"
 	
-	Quit DataSokkelZijkantLinks
+	Do RijDataLijst.Insert(DataSokkelZijkantLinks)
+	
+	Quit RijDataLijst
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDataSokkelZijkantRechts">
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.SokkelZijkant</ReturnType>
 <Implementation><![CDATA[
 	#dim DataSokkelZijkantRechts As APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.SokkelZijkant = ##class(APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.SokkelZijkant).%New()
+	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	
-	Set DataSokkelZijkantRechts.Materiaal 	= "KORTTEKST PLAATMATERIAAL ZIJKANT"
+	Set DataSokkelZijkantRechts.Materiaal 	= ..GeefKorttekstPlaatmateriaalZijkant()
 	Set DataSokkelZijkantRechts.Breedte 	= ..SSTKenmerken.Diepte
 	Set DataSokkelZijkantRechts.Hoogte 		= ..SSTKenmerken.Hoogte - 10
 		
@@ -85,7 +99,7 @@
 		Set DataSokkelZijkantRechts.PositieGL 	= 43
 	}
 	
-	If ( ..BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).Taorbox()) {
+	If ( ..BatchCategorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
 		Set DataSokkelZijkantRechts.PositieSD 	= ..IngegevenKenmerken.LadeDiepte + 34 - 9
 	} Else {
 		Set DataSokkelZijkantRechts.PositieSD 	= ..IngegevenKenmerken.LadeDiepte + 37 - 9
@@ -102,31 +116,37 @@
 	}
 	
 	Set DataSokkelZijkantRechts.ProgrammaEKO = "Sokkel_rechts (kantenband links)"
+		
+	Do RijDataLijst.Insert(DataSokkelZijkantRechts)
 	
-	Quit DataSokkelZijkantRechts
+	Quit RijDataLijst
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDataSokkelRug">
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.SokkelRug</ReturnType>
 <Implementation><![CDATA[
 	#dim DataSokkelRug As APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.SokkelRug = ##class(APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.SokkelRug).%New()
+	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	
-	Set DataSokkelRug.Materiaal 	= "KORTTEKST PLAATMATERIAAL RUG"
+	Set DataSokkelRug.Materiaal 	= ..GeefKorttekstPlaatmateriaalSokkelRug()
 	Set DataSokkelRug.Breedte 		= ..SSTKenmerken.Breedte - (2*17.6)
 	Set DataSokkelRug.Hoogte 		= ..SSTKenmerken.Hoogte - 10
 	Set DataSokkelRug.ProgrammaEKO 	= "Sokkel_Rug"
+		
+	Do RijDataLijst.Insert(DataSokkelRug)
 	
-	Quit DataSokkelRug
+	Quit RijDataLijst
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDataStepTablet">
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.StepTablet</ReturnType>
 <Implementation><![CDATA[
 	#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 	= "Korttekst alu lat in tablet"
+	Set DataStepTablet.Materiaal 	= ..GeefKorttekstAluLat()
 	Set DataStepTablet.Breedte		= ..SSTKenmerken.Breedte - (2*17.6) - 10
 	Set DataStepTablet.Diepte		= +(..SSTKenmerken.Diepte) - 80 
 	
@@ -138,49 +158,122 @@
 		Set DataStepTablet.ProgrammaEKO	= "Ongekende Sokkeldiepte"	
 	}
 	
-	Quit DataStepTablet
+	Do RijDataLijst.Insert(DataStepTablet)
+	
+	Quit RijDataLijst
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDataStepTravers">
+<Method name="GeefDataStepTraverse">
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.StepTravers</ReturnType>
 <Implementation><![CDATA[
 	#dim DataStepTravers As APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.StepTravers = ##class(APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.StepTravers).%New()
+	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	
-	Set DataStepTravers.MateriaalDwarsprofiel 	= "korttekst materiaal dwarsprofiel"
+	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
 	
-	Quit DataStepTravers
+	Do RijDataLijst.Insert(DataStepTravers)
+	
+	Quit RijDataLijst
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDataStepServodrive">
+<Method name="GeefDataServodrive">
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.Servodrive</ReturnType>
 <Implementation><![CDATA[
 	#dim DataStepServodrive As APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.Servodrive = ##class(APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.Servodrive).%New()
+	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	
-	Set DataStepServodrive.Materiaal	= "korttekst draagprofiel"
+	Set DataStepServodrive.Materiaal	= ..GeefKorttekstHorizontaalDraagprofiel()
 	Set DataStepServodrive.Breedte		= ..SSTKenmerken - (2*17.6) - 19
-	Set DataStepServodrive.Opmerking	="monteren servo-drive + kabel"
+	Set DataStepServodrive.Opmerking	= "monteren servo-drive + kabel"
 	
-	Quit DataStepServodrive
+	Do RijDataLijst.Insert(DataStepServodrive)
+	
+	Quit RijDataLijst
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDataAluLat">
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.AluLat</ReturnType>
 <Implementation><![CDATA[
 	#dim DataAluLat As APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.AluLat = ##class(APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.AluLat).%New()
+	#dim RijDataLijst As APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	
-	Set DataAluLat.Materiaal 	= "Korttekst materiaal lat"
+	Set DataAluLat.Materiaal 	= ..GeefKorttekstAluLat()
 	Set DataAluLat.Lengte 		= ..SSTKenmerken.Breedte - 1
 	Set DataAluLat.Opmerking	= "middelste chanfrein aan de andere kant"
 	
-	Quit DataAluLat
+	Do RijDataLijst.Insert(DataAluLat)
+	
+	Quit RijDataLijst
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKorttekstPlaatmateriaalZijkant">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefKorttekstVanHalffab(..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.SSTRol).PlaatmateriaalZijkantSokkel()).GeefHalffab().GeefProductID())
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekstPlaatmateriaalSokkelRug">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefKorttekstVanHalffab(..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.SSTRol).PlaatmateriaalRugSokkel()).GeefHalffab().GeefProductID())
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekstAluLat">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefKorttekstVanHalffab(..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.SSTRol).AluminiumLat()).GeefHalffab().GeefProductID())
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekstPlaatmateriaalTablet">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefKorttekstVanHalffab(..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.SSTRol).PlaatmateriaalTablet()).GeefHalffab().GeefProductID())
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekstHorizontaalDraagprofiel">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefKorttekstVanHalffab(..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.SSTRol).HorizontaalDraagprofiel()).GeefHalffab().GeefProductID())
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekstDwarsprofiel">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefKorttekstVanHalffab(..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.SSTRol).Dwarsprofiel()).GeefHalffab().GeefProductID())
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabitemsVoorProduct">
+<FormalSpec>ProductID:%String</FormalSpec>
+<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)
+	Set ..HalffabItemsBoom  = MaatwerkProduct.GeefHalffabItemsBoom()
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekstVanHalffab">
+<FormalSpec>ProductID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)
+	Quit Product.GeefKorttekst()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml
===================================================================
diff -u -r61872 -r61879
--- APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml	(.../VoormontageSpaceStep.cls.xml)	(revision 61872)
+++ APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml	(.../VoormontageSpaceStep.cls.xml)	(revision 61879)
@@ -6,16 +6,6 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Halux.PPS.impl.AansturingActie</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Property BedrijfID As %String [ InitialExpression = "HALUX", Private, Required ];
-
-Property Document As APPS.common.Print.Kolommen.Document [ Private ];
-*/
-]]></Content>
-</UDLText>
-
 <Property name="AssemblageKarRepository">
 <Type>APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository</Type>
 <Private>1</Private>
@@ -32,7 +22,7 @@
 </Property>
 
 <Property name="DocumentBuilder">
-<Type>APPS.common.Document.DocumentAPI</Type>
+<Type>APPS.common.Document.DocumentBuilder</Type>
 <Private>1</Private>
 </Property>
 
@@ -46,20 +36,19 @@
 	
 	Set DocumentBundel = ##class(APPS.common.Document.impl.DocumentBundel).%New()
 	#dim LijstMetSpaceSteps As %ListOfObjects = ..GeefMaatwerkProductenLijstMetSpaceSteps(BatchID)
-	//Do ##class(Tools.Wlip).%New(110).String(LijstMetSpaceSteps.Count())
 	
 	If $$$HasLength(LijstMetSpaceSteps.Count()) {
 		#dim ProductIterator = ##class(TECH.ListIterator).%New(LijstMetSpaceSteps)
 	
 		while ProductIterator.HasNext() {
-			#dim Product As APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken = ProductIterator.Next()
-			#dim SSTKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken = Product.Ingegevenkenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())
+			#dim Productkenmerken As APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken = ProductIterator.Next()
+			#dim SSTKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken = Productkenmerken.Ingegevenkenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())
 			
-			Set ..DocumentInhoudBuilder = ##class(APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.DocumentInhoudBuilder).%New(,Product)
+			Set ..DocumentInhoudBuilder = ##class(APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.DocumentInhoudBuilder).%New(Productkenmerken)
 			
-			Do DocumentBundel.VoegToeDocument(..MaakDocument(Product))
+			Do DocumentBundel.VoegToeDocument(..MaakDocument(Productkenmerken))
 		}
-		#dim Printer As APPS.common.Print.Printer = ..PrinterAPI.GeefPrinter(ActieParameters.Printer) //WERK DIT?????????
+		#dim Printer As APPS.common.Print.Printer = ..PrinterAPI.GeefPrinter(98) //MOET NOG AANGEPAKT WORDEN?????????
 		Do DocumentAfdrukker.DrukAfBundel(DocumentBundel,Printer)
 	}	
 		
@@ -71,19 +60,14 @@
 <FormalSpec>Product:APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken</FormalSpec>
 <ReturnType>APPS.common.Document.Blad</ReturnType>
 <Implementation><![CDATA[
-	#dim Document As APPS.common.Document.Blad
-	
+	#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 TagBasedDocumentInhoud As APPS.common.Document.Inhoud = ..DocumentInhoudBuilder.GeefInhoud()
-	Do TagBasedDocumentInhoud.ZetFont($LB("12pt",##class(APPS.common.Document.TagBasedDocument.enu.DocBaseFontFamily).VeraSansMono()))
+	
+	Do TagBasedDocumentInhoud.ZetFont($LB("8pt",##class(APPS.common.Document.TagBasedDocument.enu.DocBaseFontFamily).VeraSansMono()))
 	Set Document = ..DocumentBuilder.MaakDocument("TAGBASEDDOC", TagBasedDocumentInhoud, KopTekst, VoetTekst)
 
-	/*
-	Else {
-		Set Document = ##class(APPS.common.Document.impl.InhoudsloosDocument).%New()
-	}
-*/
 	Quit Document
 ]]></Implementation>
 </Method>
@@ -99,7 +83,7 @@
 	Set Tekst = Tekst_"BatchID: "_Product.BatchID
 	Set Tekst = Tekst_" Toelev: "_Product.ToeleveringID
 	Set Tekst = Tekst_" ProdSeqNr: "_Product.ProductiesequentieNr
-	Set Tekst = Tekst_" KlanNr: "_Product.KlantId
+	Set Tekst = Tekst_" KlantNr: "_Product.KlantId
 	Set Tekst = Tekst_" Korttekst: "_Product.Korttekst
 	Set Tekst = Tekst_" ProdID: "_Product.ProductID
 	Set Tekst = Tekst_" Aantal Stuks: "_Product.AantalStuks
@@ -182,41 +166,6 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method VoegRijenToeAanDocument(BatchID As %String) [ Private ]
-{
-	
-	Set BatchService = ##class(APPS.Halux.Planning.impl.BatchService).%New()
-	#dim LijstToeleveringen As APPS.Halux.Planning.dto.BatchToeleveringen = BatchService.GeefToeleveringenInBatch(BatchID)
-	#dim ToeleveringIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(LijstToeleveringen.Toeleveringen)
-	
-	while ToeleveringIterator.HasNext() {		
-		#dim Toelevering As %String = ToeleveringIterator.Next()
-		Do ..Document.GeefKolom(1).Insert(Toelevering.Volgnummer)
-		Do ..Document.GeefKolom(2).Insert(Toelevering.ID)
-		
-		Do ..Document.GeefKolom(1).Insert("")
-		Do ..Document.GeefKolom(2).Insert("")
-					
-	}
-}
-*/
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method DocumentMagWordenAfgedrukt(ProductieGroep As APPS.Halux.common.enu.ProductieGroep) As %Boolean [ Private ]
-{
-	Quit $$$Not((ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials()) || (ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialsPM() || (ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk())))
-}
-*/
-]]></Content>
-</UDLText>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>VoormontageSpaceStepDefaultData</DefaultData>
Index: APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/Servodrive.cls.xml
===================================================================
diff -u -r61872 -r61879
--- APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/Servodrive.cls.xml	(.../Servodrive.cls.xml)	(revision 61872)
+++ APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/Servodrive.cls.xml	(.../Servodrive.cls.xml)	(revision 61879)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.Servodrive">
-<Super>TECH.DataTransferObject</Super>
+<Super>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijData</Super>
 
 <Property name="Materiaal">
 <Type>%String</Type>
Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieStepTablet.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieStepTablet.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieStepTablet.cls.xml	(revision 61879)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.dto.KolommenDefinitieStepTablet">
+<Super>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..VoegToe("MateriaalAluLat", "Materiaal AluLat",24, ##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("ProgrammaEKO", "Programma EKO",, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Opmerking", "Opmerking",16, ##class(TECH.enu.TextAlignment).Left())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieAluLat.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieAluLat.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieAluLat.cls.xml	(revision 61879)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.dto.KolommenDefinitieAluLat">
+<Super>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..VoegToe("Materiaal", "Materiaal",24, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Lengte", "Lengte",7, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Opmerking", "Opmerking (H)",, ##class(TECH.enu.TextAlignment).Left())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieSokkelRug.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieSokkelRug.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieSokkelRug.cls.xml	(revision 61879)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.dto.KolommenDefinitieSokkelRug">
+<Super>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..VoegToe("Materiaal", "Materiaal",24, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Breedte", "Breedte (B)",10, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Hoogte", "Hoogte (H)",10, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("ProgrammaEKO", "Programma EKO                  ",, ##class(TECH.enu.TextAlignment).Left())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/SokkelRug.cls.xml
===================================================================
diff -u -r61872 -r61879
--- APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/SokkelRug.cls.xml	(.../SokkelRug.cls.xml)	(revision 61872)
+++ APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/SokkelRug.cls.xml	(.../SokkelRug.cls.xml)	(revision 61879)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.SokkelRug">
-<Super>TECH.DataTransferObject</Super>
+<Super>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijData</Super>
 
 <Property name="Materiaal">
 <Type>%String</Type>
Index: APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep/dto/ProductKenmerken.cls.xml
===================================================================
diff -u -r61872 -r61879
--- APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep/dto/ProductKenmerken.cls.xml	(.../ProductKenmerken.cls.xml)	(revision 61872)
+++ APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep/dto/ProductKenmerken.cls.xml	(.../ProductKenmerken.cls.xml)	(revision 61879)
@@ -5,42 +5,34 @@
 
 <Property name="Ingegevenkenmerken">
 <Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="BatchID">
 <Type>%String</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="ToeleveringID">
 <Type>%String</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="ProductiesequentieNr">
 <Type>%String</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="KlantId">
 <Type>%String</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="Korttekst">
 <Type>%String</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="ProductID">
 <Type>%String</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="AantalStuks">
 <Type>%String</Type>
-<Private>1</Private>
 </Property>
 </Class>
 
FishEye: Tag 61879 refers to a dead (removed) revision in file `APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitie.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieSokkelZijkant.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieSokkelZijkant.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieSokkelZijkant.cls.xml	(revision 61879)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.dto.KolommenDefinitieSokkelZijkant">
+<Super>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..VoegToe("Materiaal", "Materiaal",24, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Breedte", "Breedte",7, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Hoogte", "Hoogte (H)",10, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("PositieGL", "Pos.GL",6, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("PositieSD", "Pos.SD",6, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("PositieSDH", "Pos.SDH",7, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("ProgrammaEKO", "Programma EKO                  ",, ##class(TECH.enu.TextAlignment).Left())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieStepTraverse.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieStepTraverse.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieStepTraverse.cls.xml	(revision 61879)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.dto.KolommenDefinitieStepTraverse">
+<Super>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..VoegToe("MateriaalDwarsprofiel", "Materiaal",24, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Breedte", "Breedte (B)",10, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Hoogte", "Hoogte (H)",10, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("MateriaalSpaceStepSet", "Materiaal Space Step Set",25, ##class(TECH.enu.TextAlignment).Left())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieServodrive.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieServodrive.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/dto/KolommenDefinitieServodrive.cls.xml	(revision 61879)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.dto.KolommenDefinitieServodrive">
+<Super>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..VoegToe("Materiaal", "Materiaal",24, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Breedte", "Breedte",7, ##class(TECH.enu.TextAlignment).Left())
+	Do ..VoegToe("Opmerking", "Hoogte (H)",10, ##class(TECH.enu.TextAlignment).Left())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/StepTravers.cls.xml
===================================================================
diff -u -r61872 -r61879
--- APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/StepTravers.cls.xml	(.../StepTravers.cls.xml)	(revision 61872)
+++ APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/StepTravers.cls.xml	(.../StepTravers.cls.xml)	(revision 61879)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.StepTravers">
-<Super>TECH.DataTransferObject</Super>
+<Super>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijData</Super>
 
 <Property name="MateriaalDwarsprofiel">
 <Type>%String</Type>
Index: APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/StepTablet.cls.xml
===================================================================
diff -u -r61872 -r61879
--- APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/StepTablet.cls.xml	(.../StepTablet.cls.xml)	(revision 61872)
+++ APPS/Halux/PPS/Activiteit/impl/SST/VoormontageSpaceStep/dto/StepTablet.cls.xml	(.../StepTablet.cls.xml)	(revision 61879)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.StepTablet">
-<Super>TECH.DataTransferObject</Super>
+<Super>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijData</Super>
 
 <Property name="MateriaalAluLat">
 <Type>%String</Type>
@@ -18,6 +18,10 @@
 <Property name="ProgrammaEKO">
 <Type>%String</Type>
 </Property>
+
+<Property name="Opmerking">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/DocumentInhoudBuilder.cls.xml
===================================================================
diff -u -r61872 -r61879
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/DocumentInhoudBuilder.cls.xml	(.../DocumentInhoudBuilder.cls.xml)	(revision 61872)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/DocumentInhoudBuilder.cls.xml	(.../DocumentInhoudBuilder.cls.xml)	(revision 61879)
@@ -1,7 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.DocumentInhoudBuilder">
-<Abstract>1</Abstract>
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="InhoudBuilder">
@@ -20,78 +19,60 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>InhoudBuilder:APPS.common.Document.TagBasedDocument.InhoudBuilder="",Product:APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken</FormalSpec>
+<FormalSpec>Productkenmerken:APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken,InhoudBuilder:APPS.common.Document.TagBasedDocument.InhoudBuilder=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..InhoudBuilder = $$$Inject(InhoudBuilder,##class(APPS.common.Document.TagBasedDocument.impl.InhoudBuilder).%New())
 	Set ..KolommenDocumentInhoudBuilder = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.impl.InhoudBuilder).%New()
-	Set ..SSTDataBepalerAPPS = ##class(APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.DataBepaler).%New(Product.IngegevenKenmerken, Product.BatchID)
+	Set ..SSTDataBepalerAPPS = ##class(APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.DataBepaler).%New(Productkenmerken)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Arg:   SequentieGebaseerdeUitvoeringInfoLijst As APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoLijst
-
-]]></Content>
-</UDLText>
-
 <Method name="GeefInhoud">
 <ReturnType>APPS.common.Document.Inhoud</ReturnType>
 <Implementation><![CDATA[
-	/*
-	#dim RijDataBepaler As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.DocumentInhoudBuilder.RijDataBepaler = ..GeefRijDataBepaler()
-	Do RijDataBepaler.BepaalRijData(SequentieGebaseerdeUitvoeringInfoLijst)
-	*/
 	Do ..InhoudBuilder.MaakNieuweTagBasedTekst()
 	
-	Do ..VoegToeRubriek("Zijkant links", ..GeefRijDataLijstZijkantLinks(), ..GeefKolommenDefinitie())
+	Do ..VoegToeRubriek("Zijkant links", ..GeefRijDataLijstZijkantLinks(), ..GeefKolommenDefinitieZijkant())
 	
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
-	/*
-	Do ..VoegToeRubriek("Zijkant rechts", ..GeefRijDataLijstZijkantRechts(), ..GeefKolommenDefinitie())
 	
+	Do ..VoegToeRubriek("Zijkant rechts", ..GeefRijDataLijstZijkantRechts(), ..GeefKolommenDefinitieZijkant())
+	
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
 	
-	Do ..VoegToeRubriek("Rug", RijDataBepaler.GeefRijDataLijstFronten(), ..GeefKolommenDefinitie())
+	Do ..VoegToeRubriek("Rug", ..GeefRijDataLijstSokkelRug(), ..GeefKolommenDefinitieSokkelRug())
 	
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
 	
-	Do ..VoegToeRubriek("Alu lat", ..GeefRijDataLijstAluLat(), ..GeefKolommenDefinitie())
+	Do ..VoegToeRubriek("Alu lat", ..GeefRijDataLijstAluLat(), ..GeefKolommenDefinitieAluLat())
 	
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
 	
 	
-	Do ..VoegToeRubriek("Tablet MEELEVEREN?!", RijDataBepaler.GeefRijDataLijstFronten(), ..GeefKolommenDefinitie())
+	Do ..VoegToeRubriek("Tablet MEELEVEREN?!", ..GeefRijDataStepTablet(), ..GeefKolommenDefinitieStepTablet())
 	
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
 	
-	Do ..VoegToeRubriek("Traverse", RijDataBepaler.GeefRijDataLijstFronten(), ..GeefKolommenDefinitie())
+	Do ..VoegToeRubriek("Traverse", ..GeefRijDataStepTraverse(), ..GeefKolommenDefinitieStepTraverse())
 	
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
 	
-	Do ..VoegToeRubriek("Servodrive profiel MEELEVEREN?!", RijDataBepaler.GeefRijDataLijstFronten(), ..GeefKolommenDefinitie())	
-	*/
+	Do ..VoegToeRubriek("Servodrive profiel MEELEVEREN?!", ..GeefRijDataLijstServodrive(), ..GeefKolommenDefinitieServodrive())	
+	
 	Quit ..InhoudBuilder.GeefInhoud()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRijDataLijstAluLat">
-<Implementation><![CDATA[
-	/*
-	Set ..RijDataLijstAluLat = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
-	
-	#dim RijData As APPS.Halux.PPS.Activiteit.impl.SST.VoormontageSpaceStep.dto.AluLat = ..GeefFrontRijData()
-	*/
-	//Do ..RijDataLijstAluLat.Insert(..SSTDataBepalerAPPS.GeefDataAluLat())
-	Quit ..SSTDataBepalerAPPS.GeefDataAluLat()
+<Implementation><![CDATA[	Quit ..SSTDataBepalerAPPS.GeefDataAluLat()
 ]]></Implementation>
 </Method>
 
@@ -110,8 +91,8 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRijDataLijstStepServodrive">
-<Implementation><![CDATA[	Quit ..SSTDataBepalerAPPS.GeefDataStepServodrive()
+<Method name="GeefRijDataLijstServodrive">
+<Implementation><![CDATA[	Quit ..SSTDataBepalerAPPS.GeefDataServodrive()
 ]]></Implementation>
 </Method>
 
@@ -120,8 +101,8 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRijDataStepTravers">
-<Implementation><![CDATA[	Quit ..SSTDataBepalerAPPS.GeefDataStepTravers()
+<Method name="GeefRijDataStepTraverse">
+<Implementation><![CDATA[	Quit ..SSTDataBepalerAPPS.GeefDataStepTraverse()
 ]]></Implementation>
 </Method>
 
@@ -132,9 +113,11 @@
 ]]></Content>
 </UDLText>
 
-<Method name="VoegToeBarcode">
-<FormalSpec>BarcodeDefinitie:%List</FormalSpec>
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method VoegToeBarcode(BarcodeDefinitie As %List)
+{
 	#define tagBARCODE   "BARCODE"
 	
 	#dim BarcodeType As APPS.common.Document.TagBasedDocument.enu.BarcodeType = $LG(BarcodeDefinitie,1)  
@@ -149,8 +132,10 @@
 	Do ..AppendStartTag($$$tagBARCODE_BarcodeTypeAttribute)
 	Do ..AppendSimpleTag("WAARDE",BarcodeWaarde)
 	Do ..AppendEndTag($$$tagBARCODE)
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="VoegToeRubriek">
 <FormalSpec>Titel:TECH.String,RijDataList:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList,KolommenDefinitie:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</FormalSpec>
@@ -175,44 +160,47 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKolommenDefinitie">
+<Method name="GeefKolommenDefinitieZijkant">
 <Private>1</Private>
 <ReturnType>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.dto.KolommenDefinitie).%New()
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.dto.KolommenDefinitieSokkelZijkant).%New()
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method GeefTitelVoorSokkel() As TECH.String [ Private ]
-{
-	Quit "Sokkel"
-}
+<Method name="GeefKolommenDefinitieAluLat">
+<Private>1</Private>
+<ReturnType>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.dto.KolommenDefinitieAluLat).%New()
+]]></Implementation>
+</Method>
 
-Method GeefTitelVoorSchroefKoppeling() As TECH.String [ Private ]
-{
-	Quit "Vakken met bodems met schroefkoppeling"
-}
+<Method name="GeefKolommenDefinitieServodrive">
+<Private>1</Private>
+<ReturnType>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.dto.KolommenDefinitieServodrive).%New()
+]]></Implementation>
+</Method>
 
-Method GeefTitelVoorZijkantLogos() As TECH.String [ Private ]
-{
-	Quit "Vakken met zijkanten voor logo"
-}
-*/
-]]></Content>
-</UDLText>
+<Method name="GeefKolommenDefinitieSokkelRug">
+<Private>1</Private>
+<ReturnType>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.dto.KolommenDefinitieSokkelRug).%New()
+]]></Implementation>
+</Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method GeefRijDataBepaler() As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.DocumentInhoudBuilder.RijDataBepaler [ Private ]
-{
-	Quit ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.DocumentInhoudBuilder.RijDataBepalerMetKar).%New()
-}
-*/
-]]></Content>
-</UDLText>
+<Method name="GeefKolommenDefinitieStepTablet">
+<Private>1</Private>
+<ReturnType>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.dto.KolommenDefinitieStepTablet).%New()
+]]></Implementation>
+</Method>
+
+<Method name="GeefKolommenDefinitieStepTraverse">
+<Private>1</Private>
+<ReturnType>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.SST.LijstVerwerkers.VoormontageSpaceStep.dto.KolommenDefinitieStepTraverse).%New()
+]]></Implementation>
+</Method>
 </Class>