Index: vhTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml
===================================================================
diff -u
--- vhTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml	(revision 0)
+++ vhTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml	(revision 55368)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.TECH.XMLString.CreateIfNotEmpty.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Ingevulde waarde wordt in xml-tag gezet">
+<Implementation><![CDATA[
+	#dim Waarde As %String = "UT_Tekst01"
+	
+	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
+	
+	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
+	
+	Do ..AssertXmlContains(dtoDataTransferObject  , "<XmlString>UT_Tekst01</XmlString>")
+	Do ..AssertXmlContains(dtoObjectIgnoreNullIs0, "<XmlString>UT_Tekst01</XmlString>")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Lege waarde wordt NIET in xml-tag gezet">
+<Implementation><![CDATA[
+	#dim Waarde As %String = ""
+	
+	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
+	
+	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
+	
+	#dim Result1 As %Boolean = $$$AssertNotContains(..GeefXml(dtoDataTransferObject)  , "XmlString")
+	#dim Result2 As %Boolean = $$$AssertNotContains(..GeefXml(dtoObjectIgnoreNullIs0), "XmlString")
+	
+	// Volgende 2 checks zijn handig wanneer bovenstaande zou falen. 
+	Do:($$$Not(Result1)) ..AssertXml(dtoDataTransferObject  , "<UT_Object><GewoneString></GewoneString></UT_Object>")
+	Do:($$$Not(Result2)) ..AssertXml(dtoObjectIgnoreNullIs0, "<UT_Object></UT_Object>")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Lege waarde wordt WEL in xml-tag gezet indien toegevoegd via New i.p.v. via CreateOrEmpty">
+<Implementation><![CDATA[
+	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject.XmlString = ##class(TECH.XMLString).%New("")
+	
+	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).%New("")
+	
+	Do ..AssertXmlContains(dtoDataTransferObject  , "<XmlString></XmlString>")
+	Do ..AssertXmlContains(dtoObjectIgnoreNullIs0, "<XmlString></XmlString>")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschil met GewoneString - ingevulde waarde : OK">
+<Implementation><![CDATA[
+	#dim Waarde As %String = "UT_Tekst01"
+	
+	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject.GewoneString = Waarde
+	
+	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0.GewoneString = Waarde
+	
+	Do ..AssertXml(dtoDataTransferObject  , "<UT_Object><GewoneString>UT_Tekst01</GewoneString></UT_Object>")
+	Do ..AssertXml(dtoObjectIgnoreNullIs0, "<UT_Object><GewoneString>UT_Tekst01</GewoneString></UT_Object>")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschil met GewoneString - lege waarde : ander gedrag">
+<Implementation><![CDATA[
+	#dim Waarde As %String = ""
+	
+	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject.GewoneString = Waarde
+	
+	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0.GewoneString = Waarde
+	
+	Do ..AssertXml(dtoDataTransferObject  , "<UT_Object><GewoneString></GewoneString></UT_Object>")
+	Do ..AssertXml(dtoObjectIgnoreNullIs0, "<UT_Object></UT_Object>")
+]]></Implementation>
+</Method>
+
+<Method name="AssertXml">
+<FormalSpec>dtoObject:%RegisteredObject,VerwachteTekst:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefXml(dtoObject) , VerwachteTekst)
+]]></Implementation>
+</Method>
+
+<Method name="AssertXmlContains">
+<FormalSpec>dtoObject:%RegisteredObject,VerwachteTekst:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertContains(..GeefXml(dtoObject) , VerwachteTekst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefXml">
+<FormalSpec>dtoObject:%RegisteredObject,TopTag:%String="UT_Object"</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim fmt As %String = ""
+	Quit $$ObjToXML^vhLib(dtoObject,TopTag,fmt)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/TECH/XMLString/CreateIfNotEmpty/dtoObjectIgnoreNullIs0.cls.xml
===================================================================
diff -u
--- vhTest/TECH/XMLString/CreateIfNotEmpty/dtoObjectIgnoreNullIs0.cls.xml	(revision 0)
+++ vhTest/TECH/XMLString/CreateIfNotEmpty/dtoObjectIgnoreNullIs0.cls.xml	(revision 55368)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Constraint>,0,1,inputonly,runtime</Constraint>
+<Default>0</Default>
+<Flags>ENUM</Flags>
+</Parameter>
+
+<Property name="GewoneString">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="GewoneString"/>
+</Property>
+
+<Property name="XmlString">
+<Type>TECH.XMLString</Type>
+<Parameter name="XMLNAME" value="XmlString"/>
+</Property>
+</Class>
+
+
+</Export>
Index: vhTest/TECH/XMLString/CreateIfNotEmpty/dtoDataTransferObject.cls.xml
===================================================================
diff -u
--- vhTest/TECH/XMLString/CreateIfNotEmpty/dtoDataTransferObject.cls.xml	(revision 0)
+++ vhTest/TECH/XMLString/CreateIfNotEmpty/dtoDataTransferObject.cls.xml	(revision 55368)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject">
+<Super>TECH.DataTransferObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Deze klasse heeft : Parameter XMLIGNORENULL As STRING = 1;
+
+]]></Content>
+</UDLText>
+
+<Property name="GewoneString">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="GewoneString"/>
+</Property>
+
+<Property name="XmlString">
+<Type>TECH.XMLString</Type>
+<Parameter name="XMLNAME" value="XmlString"/>
+</Property>
+</Class>
+
+
+</Export>