Index: WSimpl/PM/Maatwerk/Viewer/HFVisitor.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Maatwerk/Viewer/HFVisitor.cls.xml	(revision 0)
+++ WSimpl/PM/Maatwerk/Viewer/HFVisitor.cls.xml	(revision 61154)
@@ -0,0 +1,142 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Maatwerk.Viewer.HFVisitor">
+<Super>DOM.PM.Maatwerk.Calc.HF.impl.PlatteLijstWriterVisitor</Super>
+
+<Property name="KostBoom">
+<Type>DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KostItemZoeker">
+<Type>DOM.PM.Maatwerk.Calc.Kost.impl.KostItemZoekerOpVolledigeNaam</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ExcelWriter">
+<Type>WSimpl.PM.Maatwerk.Viewer.ExcelWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Writer:TECH.Output.Writer="",KostItemZoeker:DOM.PM.Maatwerk.Calc.Kost.impl.KostItemZoekerOpVolledigeNaam=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super(Writer)
+	set ..KostItemZoeker = $$$Inject(KostItemZoeker, ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostItemZoekerOpVolledigeNaam).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZetExcelWriter">
+<FormalSpec>ExcelWriter:WSimpl.PM.Maatwerk.Viewer.ExcelWriter</FormalSpec>
+<Implementation><![CDATA[	Set ..ExcelWriter = ExcelWriter
+]]></Implementation>
+</Method>
+
+<Method name="ZetKostBoom">
+<FormalSpec>KostBoom:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</FormalSpec>
+<Implementation><![CDATA[	Set ..KostBoom = KostBoom
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkStandaardHalffabItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If ..IsTePrinten(Item) {
+		do ..RolNamen.Push(Item.GeefRol())
+		Set Kolommen = ##class(%ListOfDataTypes).%New()
+		Do Kolommen.Insert("H")
+		Do Kolommen.Insert("STD")
+		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(..GeefKost(Item)))
+		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()
+		do ..RolNamen.Pop()
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefKost">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	#dim NaamTeZoeken as %String = "TotaleKost.Materiaal." _ ..GeefVolledigeRolNaam()
+	#dim KostItem as DOM.PM.Maatwerk.Calc.Kost.KostItem = ..KostItemZoeker.Zoek(..KostBoom,NaamTeZoeken)
+	if $$$Not($IsObject(KostItem)){
+		// raise exception -> er moet een kostitem zijn?
+	}
+	Quit KostItem.GeefKost()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolledigeRolNaam">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit $piece(##class(TECH.ListUtils).IteratorToPieces(##class(TECH.ReversedListIterator).%New(..RolNamen.GetItems()),"."),".") ;,1, ..RolNamen.Count())
+]]></Implementation>
+</Method>
+
+<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("Korttekst")
+	Do Kolommen.Insert("Omschrijving")
+	Do Kolommen.Insert("Te bekomen aantal")
+	Do Kolommen.Insert("Bewerkingen")
+	Do Kolommen.Insert("Kost")
+	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>
+</Method>
+
+<Method name="VerwerkBewerktHalffabItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If ..IsTePrinten(Item) {
+		Do ..RolNamen.Push(Item.GeefRol())
+		Set Kolommen = ##class(%ListOfDataTypes).%New()
+		Do Kolommen.Insert("H")
+		Do Kolommen.Insert("BEW")
+		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(..GeefKost(Item)))
+		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())
+		Do ..ExcelWriter.NumberCell(Item.TeBekomenAantal).TextCell(Item.BewerkingDimensiesToString()).NumberCell(..GeefKost(Item)).RowEnd()
+
+		do ..RolNamen.Pop()
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/PM/Maatwerk/Viewer/KostVisitor.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Maatwerk/Viewer/KostVisitor.cls.xml	(revision 0)
+++ WSimpl/PM/Maatwerk/Viewer/KostVisitor.cls.xml	(revision 61154)
@@ -0,0 +1,131 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Maatwerk.Viewer.KostVisitor">
+<Super>DOM.PM.Maatwerk.Calc.Kost.impl.PlatteLijstWriterVisitor</Super>
+
+<Property name="ExcelWriter">
+<Type>WSimpl.PM.Maatwerk.Viewer.ExcelWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Writer:TECH.Output.Writer="",KostItemZoeker:DOM.PM.Maatwerk.Calc.Kost.impl.KostItemZoekerOpVolledigeNaam=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super(Writer)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZetExcelWriter">
+<FormalSpec>ExcelWriter:WSimpl.PM.Maatwerk.Viewer.ExcelWriter</FormalSpec>
+<Implementation><![CDATA[	Set ..ExcelWriter = ExcelWriter
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfHeader">
+<Implementation><![CDATA[
+	Do ##super()
+	Do ..ExcelWriter.RowBegin().TextCell("Itemtype").TextCell("Itemsubtype").TextCell("Naam").TextCell("Aantal").TextCell("Kost").TextCell("Extra").TextCell("Kostenplaats").TextCell("Details").TextCell("ActiviteitCode").RowEnd()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkActiviteitKostItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Item)
+	Do ..ExcelWriter.RowBegin().TextCell("K").TextCell("ACT").TextCell(..GeefVolledigeKostNaam()).NumberCell(Item.GeefAantal()).NumberCell(Item.GeefKost()).TextCell(Item.GeefTijd() _ " sec")
+	Do ..ExcelWriter.TextCell(Item.GeefKostenPlaatsID()).TextCell(Item.GeefDetails()).TextCell(Item.GeefActiviteitCode()).RowEnd()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBewerktHalffabKostItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.Kost.BewerktHalffabKostItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Item)
+	Do ..ExcelWriter.RowBegin().TextCell("K").TextCell("BEW").TextCell(..GeefVolledigeKostNaam()).TextCell("").NumberCell(Item.GeefKost()).TextCell("").TextCell("").TextCell(Item.GeefDetails()).RowEnd()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkExtraKostItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Item)
+	Do ..ExcelWriter.RowBegin().TextCell("K").TextCell("EXT").TextCell(..GeefVolledigeKostNaam()).NumberCell(Item.GeefAantal()).NumberCell(Item.GeefKost()).TextCell(Item.GeefEenheidKost() _ " EUR/stuk")
+	Do ..ExcelWriter.TextCell("").TextCell(Item.GeefDetails()).RowEnd()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkKostenPlaatsKostItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.Kost.KostenPlaatsKostItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Item)
+	Do ..ExcelWriter.RowBegin().TextCell("K").TextCell("KPL").TextCell(..GeefVolledigeKostNaam()).NumberCell(Item.GeefAantal()).NumberCell(Item.GeefKost()).TextCell(Item.GeefTijd() _ " sec")
+	Do ..ExcelWriter.TextCell(Item.GeefKostenPlaatsID()).TextCell(Item.GeefDetails()).RowEnd()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkProductKostItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.Kost.MaatwerkProductKostItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..VerwerkSamengesteldBasis(Item, "MAA")
+	Do ##super(Item)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProcentueelKostItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Item)
+	Do ..ExcelWriter.RowBegin().TextCell("K").TextCell("PRC").TextCell(..GeefVolledigeKostNaam()).TextCell("").NumberCell(Item.GeefKost()).TextCell(Item.GeefPercentage() * 100 _ "% op " _ Item.GeefSamengesteldKostItemOmPercentageOpTeBerekenen().GeefNaam())
+	Do ..ExcelWriter.TextCell("").TextCell(Item.GeefDetails()).RowEnd()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkSamengesteldKostItemBegin">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..VerwerkSamengesteldBasis(Item, "SAM")
+	Do ##super(Item)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkStandaardHalffabKostItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Item)
+	Do ..ExcelWriter.RowBegin().TextCell("K").TextCell("STD").TextCell(..GeefVolledigeKostNaam()).TextCell("").NumberCell(Item.GeefKost()).TextCell("").TextCell("").TextCell(Item.GeefDetails()).RowEnd()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkSamengesteldBasis">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem,Label:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##super(Item,Label)
+	Do ..ExcelWriter.RowBegin().TextCell("K").TextCell(Label).TextCell(..GeefVolledigeKostNaam()).NumberCell(1).NumberCell(Item.GeefKost()).RowEnd()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>