Index: TECH/File/impl/ExcelXml2003Writer.cls.xml
===================================================================
diff -u
--- TECH/File/impl/ExcelXml2003Writer.cls.xml	(revision 0)
+++ TECH/File/impl/ExcelXml2003Writer.cls.xml	(revision 1072)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.File.impl.ExcelXml2003Writer">
+<Description>
+TODO: checks op status, alvorens elementen te schrijven.</Description>
+<Super>%RegisteredObject</Super>
+
+<Property name="XmlWriter">
+<Type>%XML.Writer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+		// TODO: assert BestandNama kan geschreven worden (hangt indien folder niet bestaat!).
+		
+		Set ..XmlWriter = ##class(%XML.Writer).%New()
+		Set ..XmlWriter.Charset="UTF-8"
+		Do ..Try( ..XmlWriter.OutputToFile( BestandNaam ) )
+		
+		// Door een bug in Excel MOET er een namespace-prefix "ss" gebruikt worden bij de attributen van de elementen.
+		// En Excel kijkt blijkbaar niet na op welke namespace de prefix mapt.....
+		Do ..Try( ..XmlWriter.AddNamespace( "urn:schemas-microsoft-com:office:spreadsheet ", "ss" ) )
+		
+		Do ..Try( ..XmlWriter.RootElement( "Workbook", "urn:schemas-microsoft-com:office:spreadsheet" ) )
+		
+		
+		Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="EindigWerkboek">
+<Implementation><![CDATA[		Do ..Try( ..XmlWriter.EndRootElement() )
+]]></Implementation>
+</Method>
+
+<Method name="StartWerkblad">
+<FormalSpec>WerkbladNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+		Do ..Try( ..XmlWriter.Element( "Worksheet" ) )
+		Do ..Try( ..XmlWriter.WriteAttribute( "Name", WerkbladNaam, "urn:schemas-microsoft-com:office:spreadsheet " ) )
+		Do ..Try( ..XmlWriter.Element( "Table" ) )
+]]></Implementation>
+</Method>
+
+<Method name="EindigWerkblad">
+<FormalSpec>WerkbladNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+		Do ..Try( ..XmlWriter.EndElement() ) // Table
+		Do ..Try( ..XmlWriter.EndElement() ) // Worksheet
+]]></Implementation>
+</Method>
+
+<Method name="StartRij">
+<Implementation><![CDATA[		Do ..Try( ..XmlWriter.Element( "Row" ) )
+]]></Implementation>
+</Method>
+
+<Method name="EindigRij">
+<Implementation><![CDATA[		Do ..Try( ..XmlWriter.EndElement() ) // Row
+]]></Implementation>
+</Method>
+
+<Method name="Cel">
+<FormalSpec>InhoudTekst:%String</FormalSpec>
+<Implementation><![CDATA[
+		Do ..Try( ..XmlWriter.Element( "Cell" ) )
+		Do ..Try( ..XmlWriter.Element( "Data" ) )
+		Do ..Try( ..XmlWriter.WriteAttribute( "Type", "String", "urn:schemas-microsoft-com:office:spreadsheet " ) )
+		Do ..Try( ..XmlWriter.WriteChars( InhoudTekst ) )
+		Do ..Try( ..XmlWriter.EndElement() ) // Data
+		Do ..Try( ..XmlWriter.EndElement() ) // Cell
+]]></Implementation>
+</Method>
+
+<Method name="Try">
+<FormalSpec>Resultaat:%Status</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK( Resultaat )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>