Index: TECH/Persistentie/GlobalNode.cls.xml
===================================================================
diff -u -r1125 -r2319
--- TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 1125)
+++ TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 2319)
@@ -10,7 +10,7 @@
 Zal locking moeten doen.</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="Delimiter">
 <Type>%String</Type>
@@ -65,10 +65,10 @@
 <FormalSpec>Index:%Integer,Waarde:%String</FormalSpec>
 <Implementation><![CDATA[
 	// TODO: Controle op ongeldige karakters in Waarde, zoals delimiters...
-	if $piece(..NodeDataString,..Delimiter,Index) '= Waarde {
+	If $Piece(..NodeDataString,..Delimiter,Index) '= Waarde {
 		Do ..DirtyPieces.SetAt(Waarde, Index)
-	} else {
-		do ..DirtyPieces.RemoveAt(Index)
+	} Else {
+		Do ..DirtyPieces.RemoveAt(Index)
 	}
 ]]></Implementation>
 </Method>
@@ -105,11 +105,11 @@
 <Implementation><![CDATA[
 	Set DirtyPiecesIterator = ##class(TECH.ListIterator).%New(..DirtyPieces)
 	While (DirtyPiecesIterator.HasNext()) {
-		Set VolgendeWaarde = DirtyPiecesIterator.Next()
-		Set NodeDataStringProp = ..NodeDataString
+		#dim VolgendeWaarde As %String = DirtyPiecesIterator.Next()
+		#dim NodeDataStringProp As %String= ..NodeDataString
 		Set $Piece(NodeDataStringProp, ..Delimiter, DirtyPiecesIterator.Key()) = VolgendeWaarde
 		Set ..NodeDataString = NodeDataStringProp
-		Set NodeKeyProp = ..NodeKey
+		#dim NodeKeyProp As %String = ..NodeKey
 		Set $Piece(@NodeKeyProp, ..Delimiter, DirtyPiecesIterator.Key()) = VolgendeWaarde
 	}
 	Do ..DirtyPieces.Clear()
@@ -122,10 +122,10 @@
 N.B. Deze is inclusief de openstaande wijzigingen.</Description>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set GewijzigdeString = ..NodeDataString
+	#dim GewijzigdeString As %String = ..NodeDataString
 	Set DirtyPiecesIterator = ##class(TECH.ListIterator).%New(..DirtyPieces)
 	While (DirtyPiecesIterator.HasNext()) {
-		Set VolgendeWaarde = DirtyPiecesIterator.Next()
+		#dim VolgendeWaarde As %String = DirtyPiecesIterator.Next()
 		Set $Piece(GewijzigdeString, ..Delimiter, DirtyPiecesIterator.Key()) = VolgendeWaarde
 	}
 	Quit GewijzigdeString
@@ -143,10 +143,10 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Persistent = 0
-		Set ..Delimiter = Delimiter
-		Set ..NodeDataString = ""
-		
-		Quit $$$OK
+	Set ..Delimiter = Delimiter
+	Set ..NodeDataString = ""
+
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -174,9 +174,10 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set VolledigLeeg = 1
+	#dim VolledigLeeg As %Boolean = 1
 	
-	Set LengteVanOrigineleNode = $Length(..NodeDataString, ..Delimiter)
+	#dim LengteVanOrigineleNode As %Integer = $Length(..NodeDataString, ..Delimiter)
+	#dim Index As %Integer
 	For Index = 0 : 1 : LengteVanOrigineleNode
 	{
 		Set VolledigLeeg = (' ..HeeftPiece(Index))
@@ -191,12 +192,12 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set VolledigLeeg = 1
+	#dim VolledigLeeg As %Boolean = 1
 	
-	Set LengteVanOrigineleNode = $Length(..NodeDataString, ..Delimiter)
+	#dim LengteVanOrigineleNode As %Integer = $Length(..NodeDataString, ..Delimiter)
 	Set DirtyPiecesIterator = ##class(TECH.ListIterator).%New(..DirtyPieces)
 	While (VolledigLeeg && DirtyPiecesIterator.HasNext()) {
-		Set VolgendeWaarde = DirtyPiecesIterator.Next()
+		#dim VolgendeWaarde As %String = DirtyPiecesIterator.Next()
 		If (DirtyPiecesIterator.Key() >= LengteVanOrigineleNode)
 		{
 			Set VolledigLeeg = ("" = VolgendeWaarde)
@@ -215,12 +216,12 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Persistent = 1
-		Set ..NodeKey = ##class(TECH.Persistentie.GlobalUtils).MaakNodeKey(GlobalNaam, Subscripts)
-		If (($Data(@..NodeKey) = 1) || ($Data(@..NodeKey) = 11)) { 
-			Set ..NodeDataString = @..NodeKey // Dit zou lazy kunnen, omwille van performantie.
-			// Eventuele logging: Write "Geopende node: ", ..NodeKey, " Data: ", ..NodeDataString, !
-		}		
-		Quit $$$OK
+	Set ..NodeKey = ##class(TECH.Persistentie.GlobalUtils).MaakNodeKey(GlobalNaam, Subscripts)
+	If (($Data(@..NodeKey) = 1) || ($Data(@..NodeKey) = 11)) { 
+		Set ..NodeDataString = @..NodeKey // Dit zou lazy kunnen, omwille van performantie.
+		// Eventuele logging: Write "Geopende node: ", ..NodeKey, " Data: ", ..NodeDataString, !
+	}		
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -232,9 +233,9 @@
 
 <Method name="Delete">
 <Implementation><![CDATA[
-		Kill @..NodeKey
-		Set ..NodeDataString = ""
-		Do ..DirtyPieces.Clear()
+	Kill @..NodeKey
+	Set ..NodeDataString = ""
+	Do ..DirtyPieces.Clear()
 ]]></Implementation>
 </Method>
 </Class>