Index: vhUnitTest/TECH/File/impl/FileWriter/XMLIgnoreNullIsRUNTIME.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/File/impl/FileWriter/XMLIgnoreNullIsRUNTIME.cls.xml	(revision 0)
+++ vhUnitTest/TECH/File/impl/FileWriter/XMLIgnoreNullIsRUNTIME.cls.xml	(revision 3174)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.File.impl.FileWriter.XMLIgnoreNullIsRUNTIME">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+<Inheritance>left</Inheritance>
+
+<Parameter name="XMLIGNORENULL">
+<Default>RUNTIME</Default>
+</Parameter>
+
+<Property name="LegeProperty">
+<Type>%String</Type>
+</Property>
+
+<Property name="OpgevuldeProperty">
+<Type>%String</Type>
+</Property>
+
+<Property name="Char0Property">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LegeProperty = ""
+	Set ..OpgevuldeProperty = "Opgevuld"
+	Set ..Char0Property = $char(0)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>XMLIgnoreNullIsRUNTIMEState</State>
+<StreamLocation>^vhUnitTestBF41.XMLIgnoreNu581AS</StreamLocation>
+<Data name="XMLIgnoreNullIsRUNTIMEState">
+<Value name="1">
+<Value>LegeProperty</Value>
+</Value>
+<Value name="2">
+<Value>OpgevuldeProperty</Value>
+</Value>
+<Value name="3">
+<Value>Char0Property</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/File/impl/FileWriter/WriteXML.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/File/impl/FileWriter/WriteXML.cls.xml	(revision 0)
+++ vhUnitTest/TECH/File/impl/FileWriter/WriteXML.cls.xml	(revision 3174)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.File.impl.FileWriter.WriteXML">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test Standaard gedrag class xmlignorenull 0">
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"result.xml"))
+	Do FileWriter.WriteXML(##class(vhUnitTest.TECH.File.impl.FileWriter.XMLIgnoreNullIsNul).%New())
+
+	Do FileWriter.GetStream().Rewind()
+	#dim BestandInhoud as %String = FileWriter.GetStream().Read()
+	Do FileWriter.Close()
+
+	Do $$$AssertNotContains(BestandInhoud,"<LegeProperty></LegeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<OpgevuldeProperty>Opgevuld</OpgevuldeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<Char0Property></Char0Property>")
+]]></Implementation>
+</Method>
+
+<Method name="Test Standaard gedrag class xmlignorenull 1">
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"result.xml"))
+	Do FileWriter.WriteXML(##class(vhUnitTest.TECH.File.impl.FileWriter.XMLIgnoreNullIsEen).%New())
+
+	Do FileWriter.GetStream().Rewind()
+	#dim BestandInhoud as %String = FileWriter.GetStream().Read()
+	Do FileWriter.Close()
+
+	Do $$$AssertContains(BestandInhoud,"<LegeProperty></LegeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<OpgevuldeProperty>Opgevuld</OpgevuldeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<Char0Property></Char0Property>")
+]]></Implementation>
+</Method>
+
+<Method name="Test Standaard gedrag class xmlignorenull runtime">
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"result.xml"))
+	Do FileWriter.WriteXML(##class(vhUnitTest.TECH.File.impl.FileWriter.XMLIgnoreNullIsRUNTIME).%New())
+	
+	Do FileWriter.GetStream().Rewind()
+	#dim BestandInhoud as %String = FileWriter.GetStream().Read()
+	Do FileWriter.Close()
+
+	Do $$$AssertNotContains(BestandInhoud,"<LegeProperty></LegeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<OpgevuldeProperty>Opgevuld</OpgevuldeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<Char0Property></Char0Property>")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/File/impl/FileWriter/XMLIgnoreNullIsNul.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/File/impl/FileWriter/XMLIgnoreNullIsNul.cls.xml	(revision 0)
+++ vhUnitTest/TECH/File/impl/FileWriter/XMLIgnoreNullIsNul.cls.xml	(revision 3174)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.File.impl.FileWriter.XMLIgnoreNullIsNul">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+<Inheritance>left</Inheritance>
+
+<Parameter name="XMLIGNORENULL">
+<Default>0</Default>
+</Parameter>
+
+<Property name="LegeProperty">
+<Type>%String</Type>
+</Property>
+
+<Property name="OpgevuldeProperty">
+<Type>%String</Type>
+</Property>
+
+<Property name="Char0Property">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LegeProperty = ""
+	Set ..OpgevuldeProperty = "Opgevuld"
+	Set ..Char0Property = $char(0)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>XMLIgnoreNullIsNulState</State>
+<StreamLocation>^vhUnitTestBF41.XMLIgnoreNulFC2S</StreamLocation>
+<Data name="XMLIgnoreNullIsNulState">
+<Value name="1">
+<Value>LegeProperty</Value>
+</Value>
+<Value name="2">
+<Value>OpgevuldeProperty</Value>
+</Value>
+<Value name="3">
+<Value>Char0Property</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/File/impl/FileWriter/XMLIgnoreNullIsEen.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/File/impl/FileWriter/XMLIgnoreNullIsEen.cls.xml	(revision 0)
+++ vhUnitTest/TECH/File/impl/FileWriter/XMLIgnoreNullIsEen.cls.xml	(revision 3174)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.File.impl.FileWriter.XMLIgnoreNullIsEen">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+<Inheritance>left</Inheritance>
+
+<Parameter name="XMLIGNORENULL">
+<Default>1</Default>
+</Parameter>
+
+<Property name="LegeProperty">
+<Type>%String</Type>
+</Property>
+
+<Property name="OpgevuldeProperty">
+<Type>%String</Type>
+</Property>
+
+<Property name="Char0Property">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LegeProperty = ""
+	Set ..OpgevuldeProperty = "Opgevuld"
+	Set ..Char0Property = $char(0)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>XMLIgnoreNullIsEenState</State>
+<StreamLocation>^vhUnitTestBF41.XMLIgnoreNuCC3FS</StreamLocation>
+<Data name="XMLIgnoreNullIsEenState">
+<Value name="1">
+<Value>LegeProperty</Value>
+</Value>
+<Value name="2">
+<Value>OpgevuldeProperty</Value>
+</Value>
+<Value name="3">
+<Value>Char0Property</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>