Index: DOM/PM/Maatwerk/Calc/Kost/impl/PlatteLijstWriterVisitor.cls.xml
===================================================================
diff -u -r33068 -r63896
--- DOM/PM/Maatwerk/Calc/Kost/impl/PlatteLijstWriterVisitor.cls.xml	(.../PlatteLijstWriterVisitor.cls.xml)	(revision 33068)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/PlatteLijstWriterVisitor.cls.xml	(.../PlatteLijstWriterVisitor.cls.xml)	(revision 63896)
@@ -36,15 +36,14 @@
 <Method name="SchrijfHeader">
 <Implementation><![CDATA[
 	Set Kolommen = ##class(%ListOfDataTypes).%New()
-	Do Kolommen.Insert("Itemtype")
-	Do Kolommen.Insert("Itemsubtype")
+	Do Kolommen.Insert("Stuklijst/Tijden")
+	Do Kolommen.Insert("Lijn")
 	Do Kolommen.Insert("Naam")
 	Do Kolommen.Insert("Aantal")
+	Do Kolommen.Insert("Tijd")
 	Do Kolommen.Insert("Kost")
-	Do Kolommen.Insert("Extra")
 	Do Kolommen.Insert("Kostenplaats")
-	Do Kolommen.Insert("Details")
-	Do Kolommen.Insert("ActiviteitCode")
+	Do Kolommen.Insert("Formule")
 	Do ..SchrijfRij(Kolommen)
 ]]></Implementation>
 </Method>
@@ -55,15 +54,15 @@
 <Implementation><![CDATA[
 	Do ..ZetKostNaamBovenOpStapel(Item.GeefNaam())
 	Set Kolommen = ##class(%ListOfDataTypes).%New()
-	Do Kolommen.Insert("K")
-	Do Kolommen.Insert("ACT")
-	Do Kolommen.Insert(..GeefVolledigeKostNaam())
+	Do Kolommen.Insert("Tijden")
+	Do Kolommen.Insert(..GeefKostLijn())
+	Do Kolommen.Insert(..GeefKostNaam())
 	Do Kolommen.Insert($$$ExcelNum(Item.GeefAantal()))
-	Do Kolommen.Insert($$$ExcelNum(Item.GeefKost()))
 	Do Kolommen.Insert(Item.GeefTijd() _ " sec")
+	Do Kolommen.Insert($$$ExcelNum(Item.GeefKost()))
 	Do Kolommen.Insert(Item.GeefKostenPlaatsID())
 	Do Kolommen.Insert(Item.GeefDetails())
-	Do Kolommen.Insert(Item.GeefActiviteitCode())
+	
 	Do ..SchrijfRij(Kolommen)
 	Quit $$$OK
 ]]></Implementation>
@@ -75,13 +74,13 @@
 <Implementation><![CDATA[
 	Do ..ZetKostNaamBovenOpStapel(Item.GeefNaam())
 	Set Kolommen = ##class(%ListOfDataTypes).%New()
-	Do Kolommen.Insert("K")
-	Do Kolommen.Insert("BEW")
-	Do Kolommen.Insert(..GeefVolledigeKostNaam())
+	Do Kolommen.Insert("Tijden")
+	Do Kolommen.Insert(..GeefKostLijn())
+	Do Kolommen.Insert(..GeefKostNaam())
 	Do Kolommen.Insert("")
+	Do Kolommen.Insert("")
 	Do Kolommen.Insert($$$ExcelNum(Item.GeefKost()))
 	Do Kolommen.Insert("")
-	Do Kolommen.Insert("")
 	Do Kolommen.Insert(Item.GeefDetails())
 	Do ..SchrijfRij(Kolommen)
 	Quit $$$OK
@@ -94,11 +93,12 @@
 <Implementation><![CDATA[
 	Do ..ZetKostNaamBovenOpStapel(Item.GeefNaam())
 	Set Kolommen = ##class(%ListOfDataTypes).%New()
-	Do Kolommen.Insert("K")
-	Do Kolommen.Insert("EXT")
-	Do Kolommen.Insert(..GeefVolledigeKostNaam())
+	Do Kolommen.Insert("Tijden")
+	Do Kolommen.Insert(..GeefKostLijn())
+	Do Kolommen.Insert(..GeefKostNaam())
 	Do Kolommen.Insert($$$ExcelNum(Item.GeefAantal()))
-	Do Kolommen.Insert($$$ExcelNum(Item.GeefKost()))
+	Do Kolommen.Insert("")
+	Do Kolommen.Insert($$$ExcelNum(Item.GeefKost()))	
 	Do Kolommen.Insert(Item.GeefEenheidKost() _ " EUR/stuk")
 	Do Kolommen.Insert("")
 	Do Kolommen.Insert(Item.GeefDetails())
@@ -113,12 +113,12 @@
 <Implementation><![CDATA[
 	Do ..ZetKostNaamBovenOpStapel(Item.GeefNaam())
 	Set Kolommen = ##class(%ListOfDataTypes).%New()
-	Do Kolommen.Insert("K")
-	Do Kolommen.Insert("KPL")
-	Do Kolommen.Insert(..GeefVolledigeKostNaam())
+	Do Kolommen.Insert("Tijden")
+	Do Kolommen.Insert(..GeefKostLijn())
+	Do Kolommen.Insert(..GeefKostNaam())
 	Do Kolommen.Insert($$$ExcelNum(Item.GeefAantal()))
-	Do Kolommen.Insert($$$ExcelNum(Item.GeefKost()))
 	Do Kolommen.Insert(Item.GeefTijd() _ " sec")
+	Do Kolommen.Insert($$$ExcelNum(Item.GeefKost()))	
 	Do Kolommen.Insert(Item.GeefKostenPlaatsID())
 	Do Kolommen.Insert(Item.GeefDetails())
 	Do ..SchrijfRij(Kolommen)
@@ -141,10 +141,11 @@
 <Implementation><![CDATA[
 	Do ..ZetKostNaamBovenOpStapel(Item.GeefNaam())
 	Set Kolommen = ##class(%ListOfDataTypes).%New()
-	Do Kolommen.Insert("K")
-	Do Kolommen.Insert("PRC")
-	Do Kolommen.Insert(..GeefVolledigeKostNaam())
+	Do Kolommen.Insert("Tijden")
+	Do Kolommen.Insert(..GeefKostLijn())
+	Do Kolommen.Insert(..GeefKostNaam())
 	Do Kolommen.Insert("")
+	Do Kolommen.Insert("")
 	Do Kolommen.Insert($$$ExcelNum(Item.GeefKost()))
 	Do Kolommen.Insert((Item.GeefPercentage() * 100) _ "% op " _ Item.GeefSamengesteldKostItemOmPercentageOpTeBerekenen().GeefNaam())
 	Do Kolommen.Insert("")
@@ -169,13 +170,13 @@
 <Implementation><![CDATA[
 	Do ..ZetKostNaamBovenOpStapel(Item.GeefNaam())
 	Set Kolommen = ##class(%ListOfDataTypes).%New()
-	Do Kolommen.Insert("K")
-	Do Kolommen.Insert("STD")
-	Do Kolommen.Insert(..GeefVolledigeKostNaam())
+	Do Kolommen.Insert("Tijden")
+	Do Kolommen.Insert(..GeefKostLijn())
+	Do Kolommen.Insert(..GeefKostNaam())
 	Do Kolommen.Insert("")
+	Do Kolommen.Insert("")
 	Do Kolommen.Insert($$$ExcelNum(Item.GeefKost()))
 	Do Kolommen.Insert("")
-	Do Kolommen.Insert("")
 	Do Kolommen.Insert(Item.GeefDetails())
 	Do ..SchrijfRij(Kolommen)
 	Quit $$$OK
@@ -188,12 +189,13 @@
 <Implementation><![CDATA[
 	Do ..ZetKostNaamBovenOpStapel(Item.GeefNaam())
 	Set Kolommen = ##class(%ListOfDataTypes).%New()
-	Do Kolommen.Insert("K")
-	Do Kolommen.Insert(Label)
-	Do Kolommen.Insert(..GeefVolledigeKostNaam())
+	Do Kolommen.Insert("Tijden")
+	Do Kolommen.Insert(..GeefKostLijn())
+	Do Kolommen.Insert(..GeefKostNaam())
 	Do Kolommen.Insert(1)
+	Do Kolommen.Insert("")
 	Do Kolommen.Insert($$$ExcelNum(Item.GeefKost()))
-	Do ..SchrijfRij(Kolommen)
+	//Do ..SchrijfRij(Kolommen)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -207,12 +209,36 @@
 
 <Method name="GeefVolledigeKostNaam">
 <Private>1</Private>
+<Implementation><![CDATA[	Quit $P(##class(TECH.ListUtils).IteratorToPieces(##class(TECH.ListIterator).%New(..KostNamen),"."),".",1, ..Level)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKostLijn">
+<Private>1</Private>
 <Implementation><![CDATA[
+	#dim Naam As %String = ""
 	
-	Quit $P(##class(TECH.ListUtils).IteratorToPieces(##class(TECH.ListIterator).%New(..KostNamen),"."),".",1, ..Level)
+	If $$$HasLength(..KostNamen.GetAt(2)) {
+		Set Naam = ..KostNamen.GetAt(2)
+	}
+	
+	Quit Naam
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKostNaam">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Naam As %String = ""
+	
+	If $$$HasLength(..KostNamen.GetAt(3)) {
+		Set Naam = ..KostNamen.GetAt(3)
+	}
+	
+	Quit Naam
+]]></Implementation>
+</Method>
+
 <Method name="SchrijfRij">
 <FormalSpec>Kolommen:%ListOfDataTypes</FormalSpec>
 <Private>1</Private>
Index: WSimpl/PM/Maatwerk/Viewer/HFVisitor.cls.xml
===================================================================
diff -u -r61218 -r63896
--- WSimpl/PM/Maatwerk/Viewer/HFVisitor.cls.xml	(.../HFVisitor.cls.xml)	(revision 61218)
+++ WSimpl/PM/Maatwerk/Viewer/HFVisitor.cls.xml	(.../HFVisitor.cls.xml)	(revision 63896)
@@ -50,17 +50,14 @@
 	If ..IsTePrinten(Item) {
 		do ..RolNamen.Push(Item.GeefRol())
 		Set Kolommen = ##class(%ListOfDataTypes).%New()
-		Do Kolommen.Insert("H")
-		Do Kolommen.Insert("STD")
+		Do Kolommen.Insert("Stuklijst")
 		Do Kolommen.Insert(..GeefVolledigeRolNaam())
-		Do Kolommen.Insert($$$ExcelNum(Item.Aantal))
-		Do Kolommen.Insert($$$ExcelNum(Item.Gewicht))
-		Do Kolommen.Insert(Item.GeefHalffab().GeefProductID())
 		Do Kolommen.Insert(..GeefKorttekst(Item.GeefHalffab().GeefProductID()))
-		Do Kolommen.Insert(Item.GeefOmschrijvingVoorDocs())
-		Do Kolommen.Insert("")
-		Do Kolommen.Insert("")
+		Do Kolommen.Insert($$$ExcelNum(Item.Aantal))
+		Do Kolommen.Insert($$$ExcelNum(..GeefPrijsVanProduct(Item.GeefHalffab().GeefProductID())))
 		Do Kolommen.Insert($$$ExcelNum(..GeefKost(Item)))
+		Do Kolommen.Insert(..GeefPrijsVanProduct(Item.GeefHalffab().GeefProductID()) _" * "_Item.Aantal)
+		Do Kolommen.Insert("")
 		Do ..SchrijfRij(Kolommen)
 		Do ..ExcelWriter.RowBegin().TextCell("H").TextCell("STD").TextCell(..GeefVolledigeRolNaam()).NumberCell(Item.Aantal).NumberCell(Item.Gewicht).TextCell(Item.GeefHalffab().GeefProductID())
 		Do ..ExcelWriter.TextCell(..GeefKorttekst(Item.GeefHalffab().GeefProductID())).TextCell(Item.GeefOmschrijvingVoorDocs()).TextCell("").TextCell("").NumberCell(..GeefKost(Item)).RowEnd()
@@ -92,17 +89,14 @@
 <Method name="SchrijfHeader">
 <Implementation><![CDATA[
 	Set Kolommen = ##class(%ListOfDataTypes).%New()
-	Do Kolommen.Insert("Itemtype")
-	Do Kolommen.Insert("Itemsubtype")
-	Do Kolommen.Insert("Rol")
-	Do Kolommen.Insert("Aantal")
-	Do Kolommen.Insert("Gewicht")
-	Do Kolommen.Insert("ProductID")
+	Do Kolommen.Insert("Stuklijst/Tijden")
+	Do Kolommen.Insert("Naam")
 	Do Kolommen.Insert("Korttekst")
-	Do Kolommen.Insert("Omschrijving")
-	Do Kolommen.Insert("Te bekomen aantal")
-	Do Kolommen.Insert("Bewerkingen")
+	Do Kolommen.Insert("Aantal")
+	Do Kolommen.Insert("Eenheidsprijs")
 	Do Kolommen.Insert("Kost")
+	Do Kolommen.Insert("Formule")	
+	Do Kolommen.Insert("Details")
 	Do ..SchrijfRij(Kolommen)
 	Do ..ExcelWriter.RowBegin().TextCell("Itemtype").TextCell("Itemsubtype").TextCell("Rol").TextCell("Aantal").TextCell("Gewicht").TextCell("ProductID").TextCell("Korttekst").TextCell("Omschrijving").TextCell("Te bekomen aantal").TextCell("Bewerkingen").TextCell("Kost").RowEnd()
 ]]></Implementation>
@@ -115,17 +109,14 @@
 	If ..IsTePrinten(Item) {
 		Do ..RolNamen.Push(Item.GeefRol())
 		Set Kolommen = ##class(%ListOfDataTypes).%New()
-		Do Kolommen.Insert("H")
-		Do Kolommen.Insert("BEW")
+		Do Kolommen.Insert("Stuklijst")
 		Do Kolommen.Insert(..GeefVolledigeRolNaam())
-		Do Kolommen.Insert($$$ExcelNum(Item.Aantal))
-		Do Kolommen.Insert($$$ExcelNum(Item.Gewicht))
-		Do Kolommen.Insert(Item.GeefHalffab().GeefProductID())
 		Do Kolommen.Insert(..GeefKorttekst(Item.GeefHalffab().GeefProductID()))
-		Do Kolommen.Insert(Item.GeefOmschrijvingVoorDocs())
-		Do Kolommen.Insert($$$ExcelNum(Item.TeBekomenAantal))
-		Do Kolommen.Insert(Item.BewerkingDimensiesToString())
+		Do Kolommen.Insert($$$ExcelNum(Item.Aantal))
+		Do Kolommen.Insert($$$ExcelNum(..GeefPrijsVanProduct(Item.GeefHalffab().GeefProductID())))
 		Do Kolommen.Insert($$$ExcelNum(..GeefKost(Item)))
+		Do Kolommen.Insert(..GeefPrijsVanProduct(Item.GeefHalffab().GeefProductID()) _" * "_Item.Aantal)
+		Do Kolommen.Insert(Item.BewerkingDimensiesToString())
 		Do ..SchrijfRij(Kolommen)
 		Do ..ExcelWriter.RowBegin().TextCell("H").TextCell("BEW").TextCell(..GeefVolledigeRolNaam()).NumberCell(Item.Aantal).NumberCell(Item.Gewicht)
 		Do ..ExcelWriter.TextCell(Item.GeefHalffab().GeefProductID()).TextCell(..GeefKorttekst(Item.GeefHalffab().GeefProductID())).TextCell(Item.GeefOmschrijvingVoorDocs())
@@ -136,6 +127,14 @@
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPrijsVanProduct">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	Quit +($Piece(($$PRIJSGEG^KPRIJS(ProductID,"N")),"\",6))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/PM/Maatwerk/Viewer/Viewer.cls.xml
===================================================================
diff -u -r63879 -r63896
--- WSimpl/PM/Maatwerk/Viewer/Viewer.cls.xml	(.../Viewer.cls.xml)	(revision 63879)
+++ WSimpl/PM/Maatwerk/Viewer/Viewer.cls.xml	(.../Viewer.cls.xml)	(revision 63896)
@@ -96,6 +96,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SchrijfPlatteTekst">
+<FormalSpec>MaatwerkViewerRequest:WS.PM.Maatwerk.Viewer.MaatwerkViewerRequest</FormalSpec>
+<Implementation><![CDATA[
+	#dim FileWriter as TECH.File.impl.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	Do ..MaakTekst(MaatwerkViewerRequest)
+	
+	Do FileWriter.Open(MaatwerkViewerRequest.Filename)
+	Do FileWriter.Write(..Writer.GeefStream().Read())
+	Do FileWriter.Close()
+]]></Implementation>
+</Method>
+
 <Method name="SchrijfExcel">
 <FormalSpec>MaatwerkViewerRequest:WS.PM.Maatwerk.Viewer.MaatwerkViewerRequest,Filename:%String</FormalSpec>
 <Implementation><![CDATA[
Index: WS/PM/Maatwerk/Viewer/Viewer.cls.xml
===================================================================
diff -u -r61156 -r63896
--- WS/PM/Maatwerk/Viewer/Viewer.cls.xml	(.../Viewer.cls.xml)	(revision 61156)
+++ WS/PM/Maatwerk/Viewer/Viewer.cls.xml	(.../Viewer.cls.xml)	(revision 63896)
@@ -37,6 +37,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SchrijfPlatteTekst">
+<FormalSpec>MaatwerkViewerRequest:WS.PM.Maatwerk.Viewer.MaatwerkViewerRequest</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ..Service.SchrijfPlatteTekst(MaatwerkViewerRequest)
+]]></Implementation>
+</Method>
+
 <Method name="SchrijfExcel">
 <FormalSpec>MaatwerkViewerRequest:WS.PM.Maatwerk.Viewer.MaatwerkViewerRequest</FormalSpec>
 <WebMethod>1</WebMethod>