Index: WSimpl/PM/Maatwerk/Viewer/Viewer.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Maatwerk/Viewer/Viewer.cls.xml	(revision 0)
+++ WSimpl/PM/Maatwerk/Viewer/Viewer.cls.xml	(revision 61155)
@@ -0,0 +1,122 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Maatwerk.Viewer.Viewer">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="EconConfiguratieConverter">
+<Type>WSimpl.Vhisie4.Winkelkar.EconConfiguratieConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IKConverter">
+<Type>APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MaatwerkService">
+<Type>APPS.PM.Maatwerk.MaatwerkService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalfFabVisitorWriter">
+<Type>WSimpl.PM.Maatwerk.Viewer.HFVisitor</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KostVisitorWriter">
+<Type>WSimpl.PM.Maatwerk.Viewer.KostVisitor</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.impl.MaatwerkCalcAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Writer">
+<Type>TECH.Output.impl.CaptureWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ExcelWriter">
+<Type>WSimpl.PM.Maatwerk.Viewer.ExcelWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>EconConfiguratieConverter:WSimpl.Vhisie4.Winkelkar.EconConfiguratieConverter="",IKConverter:APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter="",MaatwerkService:APPS.PM.Maatwerk.MaatwerkService="",LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI="",HalfFabVisitorWriter:WSimpl.PM.Maatwerk.Viewer.HFVisitor="",KostVisitorWriter:WSimpl.PM.Maatwerk.Viewer.KostVisitor="",MaatwerkCalcAPI:DOM.PM.impl.MaatwerkCalcAPI="",Writer:TECH.Output.Writer=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..EconConfiguratieConverter = $$$Inject(EconConfiguratieConverter,##class(WSimpl.Vhisie4.Winkelkar.EconConfiguratieConverter).%New())
+	Set ..IKConverter = $$$Inject(IKConverter,##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New())
+	Set ..MaatwerkService = $$$Inject(MaatwerkService,##class(APPS.PM.Maatwerk.MaatwerkService).%New())
+	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI, ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
+	set ..MaatwerkCalcAPI =$$$Inject(MaatwerkCalcAPI,##class(DOM.PM.impl.MaatwerkCalcAPI).%New())
+	Set ..Writer = $$$Inject(Writer,##class(TECH.Output.impl.CaptureWriter).%New())
+	Set ..HalfFabVisitorWriter = $$$Inject(HalfFabVisitorWriter,##class(WSimpl.PM.Maatwerk.Viewer.HFVisitor).%New(..Writer))
+	Set ..KostVisitorWriter = $$$Inject(KostVisitorWriter,##class(WSimpl.PM.Maatwerk.Viewer.KostVisitor).%New(..Writer))
+	Set ..ExcelWriter = ##class(WSimpl.PM.Maatwerk.Viewer.ExcelWriter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlatteTekst">
+<FormalSpec>MaatwerkViewerRequest:WS.PM.Maatwerk.Viewer.MaatwerkViewerRequest</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PlatteTekst as %String = ""
+	Do ..MaakTekst(MaatwerkViewerRequest)
+	Quit ..Writer.GeefStream().Read()
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfExcel">
+<FormalSpec>MaatwerkViewerRequest:WS.PM.Maatwerk.Viewer.MaatwerkViewerRequest,Filename:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..MaakTekst(MaatwerkViewerRequest)
+	Do ..ExcelWriter.BewaarAlsBestand(MaatwerkViewerRequest.Filename)
+]]></Implementation>
+</Method>
+
+<Method name="MaakTekst">
+<FormalSpec>MaatwerkViewerRequest:WS.PM.Maatwerk.Viewer.MaatwerkViewerRequest</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..EconConfiguratieConverter.Convert(MaatwerkViewerRequest.EconConfiguratie)
+									  
+	#dim DOMIngegevenKenmerken as DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..IKConverter.NaarObject(MaatwerkLijn.IngegevenKenmerken)
+	#Dim KlantID as %String = ..LegacyPartijAPI.GeefKlantPartijID(MaatwerkViewerRequest.KlantNummer)
+	
+	#dim HFBoom as DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(DOMIngegevenKenmerken,MaatwerkViewerRequest.Aantal,KlantID,,,MaatwerkViewerRequest.Datum)
+	#dim HFIterator as TECH.Iterator= HFBoom.GeefHalffabItemsIterator()
+
+	#dim KostenBoom as DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = ..MaatwerkCalcAPI.GeefKostItemsBoom(DOMIngegevenKenmerken,MaatwerkViewerRequest.Aantal,KlantID,,,MaatwerkViewerRequest.Datum)	
+
+	Do ..HalfFabVisitorWriter.ZetKostBoom(KostenBoom)
+	Do ..HalfFabVisitorWriter.ZetExcelWriter(..ExcelWriter)
+	
+	Do ..ExcelWriter.WorkbookBegin().WorksheetBegin("HalfFabs")	
+	While HFIterator.HasNext(){
+		#dim HFItem as DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = HFIterator.Next()
+		Do HFItem.Accept(..HalfFabVisitorWriter)		
+	}
+
+	Do ..ExcelWriter.WorksheetEnd().WorksheetBegin("Kosten")
+	Do ..KostVisitorWriter.ZetExcelWriter(..ExcelWriter)
+	Do KostenBoom.Accept(..KostVisitorWriter)
+	
+	Do ..ExcelWriter.WorksheetEnd().WorkbookEnd()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>