Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/dto/RubriekData.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/dto/RubriekData.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/dto/RubriekData.cls.xml	(revision 68936)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.dto.RubriekData">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Titel">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="RijDataLijst">
+<Type>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList</Type>
+</Property>
+
+<Property name="KolommenDefinitie">
+<Type>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/DocumentInhoudBuilder.cls.xml
===================================================================
diff -u -r68928 -r68936
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/DocumentInhoudBuilder.cls.xml	(.../DocumentInhoudBuilder.cls.xml)	(revision 68928)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/DocumentInhoudBuilder.cls.xml	(.../DocumentInhoudBuilder.cls.xml)	(revision 68936)
@@ -4,6 +4,16 @@
 <Abstract>1</Abstract>
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="RubriekenLijst">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegeRubriekIndex">
+<Type>TECH.Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="InhoudBuilder">
 <Type>APPS.common.Document.TagBasedDocument.InhoudBuilder</Type>
 <Private>1</Private>
@@ -30,51 +40,31 @@
 <Implementation><![CDATA[
 	#dim RijDataBepaler As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.DocumentInhoudBuilder.RijDataBepaler = ..GeefRijDataBepaler()
 	Do RijDataBepaler.BepaalRijData(SequentieGebaseerdeUitvoeringInfoLijst)
+	Set ..LegeRubriekIndex = 1
 	Do ..InhoudBuilder.MaakNieuweTagBasedTekst()
 	
-	#dim IsRijDataLijstMattenLeeg As %Boolean = ..IsRijDataLijstLeeg(RijDataBepaler.GeefRijDataLijstMatten())
-	If (IsRijDataLijstMattenLeeg) {
-		Do ..VoegToeRubriek(..GeefTitelVoorMatten(), RijDataBepaler.GeefRijDataLijstMatten(), ..GeefKolommenDefinitieMatten())
+	#dim RubriekIterator As TECH.ListIterator = ..GeefRubriekIteratorMetLegeRubriekenBovenaan(RijDataBepaler)
+	While (RubriekIterator.HasNext()) {
+		#dim Rubriek As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.dto.RubriekData = RubriekIterator.Next()
+		Do ..VoegToeRubriek(Rubriek)
 		
-		Do ..InhoudBuilder.VoegToeNieuweLijn()
-		Do ..InhoudBuilder.VoegToeNieuweLijn()
+		If (RubriekIterator.HasNext()) {
+			Do ..InhoudBuilder.VoegToeNieuweLijn()
+			Do ..InhoudBuilder.VoegToeNieuweLijn()
+		}
 	}
 	
-	Do ..VoegToeRubriek(..GeefTitelVoorFront(), RijDataBepaler.GeefRijDataLijstFronten(), ..GeefKolommenDefinitieFront())
-	
-	Do ..InhoudBuilder.VoegToeNieuweLijn()
-	Do ..InhoudBuilder.VoegToeNieuweLijn()
-	
-	Do ..VoegToeRubriek(..GeefTitelVoorSchroefKoppeling(), RijDataBepaler.GeefRijDataLijstSchroefKoppeling(), ..GeefKolommenDefinitieSchroefKoppeling())
-	
-	Do ..InhoudBuilder.VoegToeNieuweLijn()
-	Do ..InhoudBuilder.VoegToeNieuweLijn()
-	
-	Do ..VoegToeRubriek(..GeefTitelVoorMoventoKoppeling(), RijDataBepaler.GeefRijDataLijstMoventoKoppeling(), ..GeefKolommenDefinitieMoventoKoppeling())
-	
-	Do ..InhoudBuilder.VoegToeNieuweLijn()
-	Do ..InhoudBuilder.VoegToeNieuweLijn()
-	
-	Do ..VoegToeRubriek(..GeefTitelVoorZijkantLogos(), RijDataBepaler.GeefRijDataLijstZijkantLogos(), ..GeefKolommenDefinitieZijkantLogos())
-	
-	If $$$Not(IsRijDataLijstMattenLeeg) {
-		Do ..InhoudBuilder.VoegToeNieuweLijn()
-		Do ..InhoudBuilder.VoegToeNieuweLijn()
-	
-		Do ..VoegToeRubriek(..GeefTitelVoorMatten(), RijDataBepaler.GeefRijDataLijstMatten(), ..GeefKolommenDefinitieMatten())
-	}
-	
 	Quit ..InhoudBuilder.GeefInhoud()
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeRubriek">
-<FormalSpec>Titel:TECH.String,RijDataList:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList,KolommenDefinitie:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</FormalSpec>
+<FormalSpec>Rubriek:APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.dto.RubriekData</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..InhoudBuilder.VoegToeTekstInBold(Titel _" :")
+	Do ..InhoudBuilder.VoegToeTekstInBold(Rubriek.Titel _" :")
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
-	Do ..InhoudBuilder.VoegToeTagBasedTekst(..GeefTagBasedTekst(RijDataList, KolommenDefinitie))
+	Do ..InhoudBuilder.VoegToeTagBasedTekst(..GeefTagBasedTekst(Rubriek.RijDataLijst, Rubriek.KolommenDefinitie))
 ]]></Implementation>
 </Method>
 
@@ -91,14 +81,50 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsRijDataLijstLeeg">
-<FormalSpec>RijDataLijst:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList</FormalSpec>
+<Method name="GeefRubriekIteratorMetLegeRubriekenBovenaan">
+<FormalSpec>RijDataBepaler:APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.DocumentInhoudBuilder.RijDataBepaler</FormalSpec>
 <Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (RijDataLijst.Count() = 0)
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	Set ..RubriekenLijst = ##class(%ListOfDataTypes).%New()
+	
+	Do ..VoegRubriekToeAanRubriekenLijst(..GeefRubriek(..GeefTitelVoorMatten(), RijDataBepaler.GeefRijDataLijstMatten(), ..GeefKolommenDefinitieMatten()))
+	Do ..VoegRubriekToeAanRubriekenLijst(..GeefRubriek(..GeefTitelVoorFront(), RijDataBepaler.GeefRijDataLijstFronten(), ..GeefKolommenDefinitieFront()))
+	Do ..VoegRubriekToeAanRubriekenLijst(..GeefRubriek(..GeefTitelVoorSchroefKoppeling(), RijDataBepaler.GeefRijDataLijstSchroefKoppeling(), ..GeefKolommenDefinitieSchroefKoppeling()))
+	Do ..VoegRubriekToeAanRubriekenLijst(..GeefRubriek(..GeefTitelVoorMoventoKoppeling(), RijDataBepaler.GeefRijDataLijstMoventoKoppeling(), ..GeefKolommenDefinitieMoventoKoppeling()))
+	Do ..VoegRubriekToeAanRubriekenLijst(..GeefRubriek(..GeefTitelVoorZijkantLogos(), RijDataBepaler.GeefRijDataLijstZijkantLogos(), ..GeefKolommenDefinitieZijkantLogos()))
+	
+	Quit ##class(TECH.ListIterator).%New(..RubriekenLijst)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefRubriek">
+<FormalSpec>Titel:TECH.String,RijDataLijst:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList,KolommenDefinitie:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.dto.RubriekData</ReturnType>
+<Implementation><![CDATA[
+	Set Rubriek = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.dto.RubriekData).%New()
+	Set Rubriek.Titel = Titel
+	Set Rubriek.RijDataLijst = RijDataLijst
+	Set Rubriek.KolommenDefinitie = KolommenDefinitie
+	Do ##class(Tools.Wlip).%New(252).String("Titel: " _ Titel)
+	Quit Rubriek
+]]></Implementation>
+</Method>
+
+<Method name="VoegRubriekToeAanRubriekenLijst">
+<FormalSpec>Rubriek:APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.dto.RubriekData</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (Rubriek.RijDataLijst.Count() = 0) {
+		Do ..RubriekenLijst.InsertAt(Rubriek, ..LegeRubriekIndex)
+		Set ..LegeRubriekIndex = ..LegeRubriekIndex + 1
+	} Else {
+		Do ..RubriekenLijst.Insert(Rubriek)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefRijDataBepaler">
 <Abstract>1</Abstract>
 <Private>1</Private>