Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladBuilderTemplate.cls.xml
===================================================================
diff -u -r30064 -r30070
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladBuilderTemplate.cls.xml	(.../BladBuilderTemplate.cls.xml)	(revision 30064)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladBuilderTemplate.cls.xml	(.../BladBuilderTemplate.cls.xml)	(revision 30070)
@@ -4,11 +4,6 @@
 <Abstract>1</Abstract>
 <Super>TECH.RegisteredObject,APPS.common.Document.BladBuilder</Super>
 
-<Parameter name="Delimiter">
-<Type>%String</Type>
-<Default> - </Default>
-</Parameter>
-
 <Property name="InhoudBuilder">
 <Type>APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.BladInhoudBuilderTemplate</Type>
 <Private>1</Private>
@@ -98,20 +93,19 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim InputDataSummary As %String = ""
+	Set InputDataSummary = ##class(%ListOfDataTypes).%New()
+	Do InputDataSummary.Insert("Product: "_..InputParameters.ProductID)
 	
-	Set InputDataSummary = InputDataSummary_$select($length(InputDataSummary):..#Delimiter,1:"")_"Product: "_..InputParameters.ProductID
-	
 	If $Length(..InputParameters.ToeleveringID) {
 		#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBijhorendeBatchViaID(..InputParameters.ToeleveringID)
 		If $IsObject(Batch) {
-			Set InputDataSummary = InputDataSummary_..#Delimiter_"Batch: "_Batch.GeefID()
+			Do InputDataSummary.Insert("Batch: "_Batch.GeefID())
 		}
 		
-		Set InputDataSummary=InputDataSummary_..#Delimiter_"Toelev: "_..InputParameters.ToeleveringID
+		Do InputDataSummary.Insert("Toelev: "_..InputParameters.ToeleveringID)
 		
 		If $L(..InputParameters.SequentieNr) {
-			Set InputDataSummary=InputDataSummary_..#Delimiter_"SeqNr. "_..InputParameters.SequentieNr
+			Do InputDataSummary.Insert("SeqNr. "_..InputParameters.SequentieNr)
 		}
 		
 
@@ -121,24 +115,25 @@
 			set KlantID = Toelevering.GeefKlantID()
 		}	
 		If $Length(KlantID)>0 {
-			Set InputDataSummary=InputDataSummary_..#Delimiter_"Klant: "_##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
+			Do InputDataSummary.Insert("Klant: "_##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID))
 		}
 		
 		If $IsObject(Batch) && $L(..InputParameters.SequentieNr) {
-			#dim ExtraInfo As TECH.String = ..GeefExtraInfo(Batch,..InputParameters.SequentieNr)
-			If $Length(ExtraInfo) {
-				Set InputDataSummary=InputDataSummary_..#Delimiter_ExtraInfo
+			Set ExtraInfoIterator = ##class(TECH.ListIterator).%New(..GeefExtraInfo(Batch,..InputParameters.SequentieNr))
+			While ExtraInfoIterator.HasNext() {
+				Do InputDataSummary.Insert(ExtraInfoIterator.Next())
 			}
 		}
 	}
-	Quit InputDataSummary
+	Quit ##class(TECH.ListUtils).ListToPieces(InputDataSummary, " - ")
 ]]></Implementation>
 </Method>
 
 <Method name="GeefExtraInfo">
 <FormalSpec>Batch:APPS.Halux.common.Batch,SequentieNummer:TECH.String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Quit ""
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ##class(%ListOfDataTypes).%New()
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/BladBuilder.cls.xml
===================================================================
diff -u -r30019 -r30070
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/BladBuilder.cls.xml	(.../BladBuilder.cls.xml)	(revision 30019)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/BladBuilder.cls.xml	(.../BladBuilder.cls.xml)	(revision 30070)
@@ -38,9 +38,15 @@
 <Method name="GeefExtraInfo">
 <FormalSpec>Batch:APPS.Halux.common.Batch,SequentieNummer:TECH.String</FormalSpec>
 <Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+	#dim ExtraInfo As %ListOfDataTypes = ##super(Batch, SequentieNummer)
+	
 	#dim AssemblageKar As APPS.Halux.PPS.TAORProductie.data.AssemblageKar = ..AssemblageKarRepository.GeefKar(Batch.GeefID(), SequentieNummer)
-	Quit ##super(Batch)_"Kar "_..AssemblageKarRepository.GeefKarVolgnummer(Batch.GeefID(), AssemblageKar.Kar)_..#Delimiter_"Vak "_AssemblageKar.Vak
+	Do ExtraInfo.Insert("Kar "_..AssemblageKarRepository.GeefKarVolgnummer(Batch.GeefID(), AssemblageKar.Kar))
+	Do ExtraInfo.Insert("Vak "_AssemblageKar.Vak)
+	
+	Quit ExtraInfo
 ]]></Implementation>
 </Method>
 </Class>