Index: WSimpl/PM/Maatwerk/Viewer/ExcelWriter.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Maatwerk/Viewer/ExcelWriter.cls.xml	(revision 0)
+++ WSimpl/PM/Maatwerk/Viewer/ExcelWriter.cls.xml	(revision 61152)
@@ -0,0 +1,164 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Maatwerk.Viewer.ExcelWriter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="HuidigeRij">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HuidigeCell">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Writer">
+<Type>TECH.Output.impl.CaptureWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Writer:TECH.Output.impl.CaptureWriter=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Writer = $$$Inject(Writer,##class(TECH.Output.impl.CaptureWriter).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="WorkbookBegin">
+<ReturnType>WSimpl.PM.Maatwerk.Viewer.ExcelWriter</ReturnType>
+<Implementation><![CDATA[
+	#dim TextBlock as %String = ""
+	Set TextBlock = TextBlock _ "<?xml version=""1.0""?>"_$$$CRLF
+	Set TextBlock = TextBlock _ "<?mso-application progid=""Excel.Sheet""?>"_$$$CRLF
+	Set TextBlock = TextBlock _ "<Workbook xmlns=""urn:schemas-microsoft-com:office:spreadsheet"" xmlns:o=""urn:schemas-microsoft-com:office:office"" xmlns:x=""urn:schemas-microsoft-com:office:excel"" xmlns:ss=""urn:schemas-microsoft-com:office:spreadsheet"" xmlns:html=""http://www.w3.org/TR/REC-html40""> "_$$$CRLF
+	Set TextBlock = TextBlock _ "<DocumentProperties xmlns=""urn:schemas-microsoft-com:office:office""><Version>16.00</Version></DocumentProperties>" _$$$CRLF
+	Set TextBlock = TextBlock _ "<OfficeDocumentSettings xmlns=""urn:schemas-microsoft-com:office:office""><AllowPNG/></OfficeDocumentSettings>"_$$$CRLF
+	Set TextBlock = TextBlock _ "<ExcelWorkbook xmlns=""urn:schemas-microsoft-com:office:excel""><ActiveSheet>1</ActiveSheet><ProtectStructure>False</ProtectStructure><ProtectWindows>False</ProtectWindows></ExcelWorkbook>"_$$$CRLF
+	Set TextBlock = TextBlock _ "	<Styles>"_$$$CRLF
+	Set TextBlock = TextBlock _ "		<Style ss:ID=""Default"" ss:Name=""Normal"">"_$$$CRLF
+    Set TextBlock = TextBlock _ "			<Alignment ss:Vertical=""Bottom""/>"_$$$CRLF
+    Set TextBlock = TextBlock _ "			<Borders/>"_$$$CRLF
+   	Set TextBlock = TextBlock _ "			<Font ss:FontName=""Calibri"" x:Family=""Swiss"" ss:Size=""11"" ss:Color=""#000000""/>"_$$$CRLF
+   	Set TextBlock = TextBlock _ "			<Interior/>"_$$$CRLF
+   	Set TextBlock = TextBlock _ "			<NumberFormat/>"_$$$CRLF
+   	Set TextBlock = TextBlock _ "			<Protection/>"_$$$CRLF
+  	Set TextBlock = TextBlock _ "		</Style>"_$$$CRLF
+	Set TextBlock = TextBlock _ "	</Styles>"_$$$CRLF
+	Do ..Writer.Write(TextBlock)
+	Quit $This
+]]></Implementation>
+</Method>
+
+<Method name="WorkbookEnd">
+<ReturnType>WSimpl.PM.Maatwerk.Viewer.ExcelWriter</ReturnType>
+<Implementation><![CDATA[
+	Do ..Writer.Write("</Workbook>" _ $$$CRLF)
+	Quit $This
+]]></Implementation>
+</Method>
+
+<Method name="WorksheetBegin">
+<FormalSpec>WorksheetName:%String</FormalSpec>
+<ReturnType>WSimpl.PM.Maatwerk.Viewer.ExcelWriter</ReturnType>
+<Implementation><![CDATA[
+	Set ..HuidigeRij = 0
+	#dim TextBlock as %String = ""
+	Set TextBlock = "	<Worksheet ss:Name=""" _  WorksheetName _ """>" _$$$CRLF
+	Set TextBlock = TextBlock _ "		<Table x:FullColumns=""1"" x:FullRows=""1"" ss:DefaultRowHeight=""15"">" _ $$$CRLF
+	Do ..Writer.Write(TextBlock)
+	Quit $This
+]]></Implementation>
+</Method>
+
+<Method name="WorksheetEnd">
+<ReturnType>WSimpl.PM.Maatwerk.Viewer.ExcelWriter</ReturnType>
+<Implementation><![CDATA[
+	#dim TextBlock as %String = ""
+	Set TextBlock = TextBlock _ "		</Table>" _ $$$CRLF
+	Set TextBlock = TextBlock _ "		<WorksheetOptions xmlns=""urn:schemas-microsoft-com:office:excel"">" _ $$$CRLF
+    Set TextBlock = TextBlock _ "			<Unsynced/>" _ $$$CRLF
+    Set TextBlock = TextBlock _ "			<ProtectObjects>False</ProtectObjects>" _ $$$CRLF
+   	Set TextBlock = TextBlock _ "			<ProtectScenarios>False</ProtectScenarios>" _ $$$CRLF
+    Set TextBlock = TextBlock _ "		</WorksheetOptions>" _ $$$CRLF
+	Set TextBlock = TextBlock _ "	</Worksheet>" _ $$$CRLF
+	Do ..Writer.Write( TextBlock)
+	Quit $This
+]]></Implementation>
+</Method>
+
+<Method name="RowBegin">
+<ReturnType>WSimpl.PM.Maatwerk.Viewer.ExcelWriter</ReturnType>
+<Implementation><![CDATA[
+	Set ..HuidigeRij = ..HuidigeRij + 1
+	Set ..HuidigeCell = 0
+	#dim TextBlock as %String = ""
+	Set TextBlock = TextBlock _ "			<Row ss:AutoFitHeight=""0"">" _ $$$CRLF
+	Do ..Writer.Write( TextBlock)
+	Quit $This
+]]></Implementation>
+</Method>
+
+<Method name="RowEnd">
+<ReturnType>WSimpl.PM.Maatwerk.Viewer.ExcelWriter</ReturnType>
+<Implementation><![CDATA[
+	#dim TextBlock as %String = ""
+	Set TextBlock = TextBlock _ "			</Row>" _ $$$CRLF
+	Do ..Writer.Write( TextBlock)
+	Quit $This
+]]></Implementation>
+</Method>
+
+<Method name="TextCell">
+<FormalSpec>Value:%String,StyleId:%String=""</FormalSpec>
+<ReturnType>WSimpl.PM.Maatwerk.Viewer.ExcelWriter</ReturnType>
+<Implementation><![CDATA[
+	Set ..HuidigeCell = ..HuidigeCell + 1	
+	Do ..Writer.Write("				<Cell" _ ..MaakStyleTag(StyleId) _ "><Data ss:Type=""String"">" _ Value _ "</Data></Cell>" _$$$CRLF)
+	Quit $This
+]]></Implementation>
+</Method>
+
+<Method name="NumberCell">
+<FormalSpec>Value:%Decimal,StyleId:%String=""</FormalSpec>
+<ReturnType>WSimpl.PM.Maatwerk.Viewer.ExcelWriter</ReturnType>
+<Implementation><![CDATA[
+	Set ..HuidigeCell = ..HuidigeCell + 1	
+	Do ..Writer.Write("				<Cell" _ ..MaakStyleTag(StyleId) _ "><Data ss:Type=""Number"">" _ Value _ "</Data></Cell>"_$$$CRLF)
+	Quit $This
+]]></Implementation>
+</Method>
+
+<Method name="BewaarAlsBestand">
+<FormalSpec>Filename:%String</FormalSpec>
+<ReturnType>WSimpl.PM.Maatwerk.Viewer.ExcelWriter</ReturnType>
+<Implementation><![CDATA[
+	#dim FileWriter as TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	Do FileWriter.Open(Filename)
+	Do FileWriter.WriteStream(..Writer.GeefStream())
+	Do FileWriter.Close()	
+	Quit $This
+]]></Implementation>
+</Method>
+
+<Method name="MaakStyleTag">
+<FormalSpec>StyleId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim StyleTag As %String =""
+	If $$$HasLength(StyleId){
+		Set StyleTag = " ss:StyleID=""" _ StyleId _ """"
+	}
+	Quit StyleTag
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>