Index: TECH/Persistentie/GlobalPersistenceMgr.cls.xml
===================================================================
diff -u -r2317 -r3252
--- TECH/Persistentie/GlobalPersistenceMgr.cls.xml	(.../GlobalPersistenceMgr.cls.xml)	(revision 2317)
+++ TECH/Persistentie/GlobalPersistenceMgr.cls.xml	(.../GlobalPersistenceMgr.cls.xml)	(revision 3252)
@@ -89,7 +89,7 @@
 	If (..OpenNodes.IsDefined(NodeKey)) {
 		Quit ..OpenNodes.GetAt(NodeKey)
 	} Else {
-		Set Node = ##class(GlobalNode).%New()
+		Set Node = ##class(GlobalNode).%New(,$$$True)
 		Do Node.ZetPersistenteLokatie(GlobalNaam, Subscripts)
 		Do ..OpenNodes.SetAt(Node, NodeKey)
 		Quit Node
@@ -133,7 +133,7 @@
 
 <Method name="MaakLegeNode">
 <Implementation><![CDATA[
-	Set Node = ##class(GlobalNode).%New()
+	Set Node = ##class(GlobalNode).%New(,$$$True)
 	Quit Node
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/TECH/Persistentie/GlobalPersistenceMgr.cls.xml
===================================================================
diff -u -r2401 -r3252
--- vhTest/Mock/TECH/Persistentie/GlobalPersistenceMgr.cls.xml	(.../GlobalPersistenceMgr.cls.xml)	(revision 2401)
+++ vhTest/Mock/TECH/Persistentie/GlobalPersistenceMgr.cls.xml	(.../GlobalPersistenceMgr.cls.xml)	(revision 3252)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.TECH.Persistentie.GlobalPersistenceMgr">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Persistentie.GlobalPersistenceMgr,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
Index: vhUnitTest/TECH/Persistentie/GlobalPersistenceMgr/TestNieuw.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Persistentie/GlobalPersistenceMgr/TestNieuw.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Persistentie/GlobalPersistenceMgr/TestNieuw.cls.xml	(revision 3252)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Persistentie.GlobalPersistenceMgr.TestNieuw">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Kill ^vhUnitTestTECHGlobal
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Kill ^vhUnitTestTECHGlobal
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Een save van een node zorgt ervoor dat deze wordt aangemaakt - ook al is er geen enkele wijziging">
+<Implementation><![CDATA[
+	do $$$AssertFalse($data(^vhUnitTestTECHGlobal(1,"a")))
+	#dim Node As TECH.Persistentie.GlobalNode = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^vhUnitTestTECHGlobal", 1, "a")
+	
+	do $$$AssertFalse(Node.IsGewijzigd())
+	
+	do Node.Save()
+	
+	do $$$AssertTrue($data(^vhUnitTestTECHGlobal(1,"a")))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Een wijziging op een nieuwe node zal er voor zorgen dat deze als gewijzigd gemarkeerd wordt, ook al gaat het om een lege waarde">
+<Implementation><![CDATA[
+	do $$$AssertFalse($data(^vhUnitTestTECHGlobal(1,"a")))
+	
+	#dim Node As TECH.Persistentie.GlobalNode = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^vhUnitTestTECHGlobal", 1, "a")
+	do Node.ZetPiece(1,"")
+	
+	do $$$AssertTrue(Node.IsGewijzigd())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Het zetten van eenzelfde waarde op een bestaande node zal niet voor een wijziging zorgen">
+<Implementation><![CDATA[
+	set ^vhUnitTestTECHGlobal(1,"a")=""
+	
+	do $$$AssertTrue($data(^vhUnitTestTECHGlobal(1,"a")))
+	
+	#dim Node As TECH.Persistentie.GlobalNode = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^vhUnitTestTECHGlobal", 1, "a")
+	do Node.ZetPiece(1,"")
+	
+	do $$$AssertFalse(Node.IsGewijzigd())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Persistentie/GlobalNode.cls.xml
===================================================================
diff -u -r3241 -r3252
--- TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 3241)
+++ TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 3252)
@@ -42,6 +42,24 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="IsNieuw">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Delimiter:%String="\",IsNieuw:%Boolean=0</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Persistent = 0
+	Set ..IsNieuw = IsNieuw
+	Set ..Delimiter = Delimiter
+	Set ..NodeDataString = ""
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefPiece">
 <FormalSpec>Index:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -68,7 +86,7 @@
 		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("De meeggegeven Waarde mag geen '" _..Delimiter _"' bevatten bij het zetten van een piece!") 
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
-	If $Piece(..NodeDataString,..Delimiter,Index) '= Waarde {
+	If ($Piece(..NodeDataString,..Delimiter,Index) '= Waarde ) || ( ..IsNieuw ) {
 		Do ..DirtyPieces.SetAt(Waarde, Index)
 	} Else {
 		Do ..DirtyPieces.RemoveAt(Index)
@@ -106,8 +124,13 @@
 
 <Method name="Save">
 <Implementation><![CDATA[
+	if ..IsNieuw {
+		Set @..NodeKey=""
+		Set ..IsNieuw = $$$false
+	}
+
 	Set DirtyPiecesIterator = ##class(TECH.ListIterator).%New(..DirtyPieces)
-	While (DirtyPiecesIterator.HasNext()) {
+	while (DirtyPiecesIterator.HasNext()) {
 		#dim VolgendeWaarde As %String = DirtyPiecesIterator.Next()
 		#dim NodeDataStringProp As %String= ..NodeDataString
 		Set $Piece(NodeDataStringProp, ..Delimiter, DirtyPiecesIterator.Key()) = VolgendeWaarde
@@ -141,18 +164,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="%OnNew">
-<FormalSpec>Delimiter:%String="\"</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Persistent = 0
-	Set ..Delimiter = Delimiter
-	Set ..NodeDataString = ""
-
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <UDLText name="T">
 <Content><![CDATA[
 /* Dit betekent: heeft de node een persistente lokatie, en kan er dus ge-Save'd worden.
@@ -221,9 +232,12 @@
 	Set ..Persistent = 1
 	Set ..NodeKey = ##class(TECH.Persistentie.GlobalUtils).MaakNodeKey(GlobalNaam, Subscripts)
 	If (($Data(@..NodeKey) = 1) || ($Data(@..NodeKey) = 11)) { 
+		Set ..IsNieuw = $$$False
 		Set ..NodeDataString = @..NodeKey // Dit zou lazy kunnen, omwille van performantie.
 		// Eventuele logging: Write "Geopende node: ", ..NodeKey, " Data: ", ..NodeDataString, !
-	}		
+	} else {
+		Set ..IsNieuw = $$$True
+	}	
 	Quit $$$OK
 ]]></Implementation>
 </Method>