Index: BL/Sys/FOP/BeanRuntimeProperty.cls.xml
===================================================================
diff -u -r29059 -r53556
--- BL/Sys/FOP/BeanRuntimeProperty.cls.xml	(.../BeanRuntimeProperty.cls.xml)	(revision 29059)
+++ BL/Sys/FOP/BeanRuntimeProperty.cls.xml	(.../BeanRuntimeProperty.cls.xml)	(revision 53556)
@@ -72,6 +72,31 @@
 <Parameter name="XMLNAME" value="newPropertyValue"/>
 </Property>
 
+<Method name="DeleteStreamViaGlobal">
+<Implementation><![CDATA[
+	#dim StreamIdToOpen As %String = ""
+	#dim StreamIdInStorage As %String = ..StreamPropertyValueGetObjectId()
+	
+	If $L(StreamIdInStorage) && ($E(StreamIdInStorage,1) = $C(0)) {
+		Set StreamIdToOpen = $LG($E(StreamIdInStorage,2,*), 1)
+		
+		#dim Global As %String = $LI(StreamIdToOpen,1)   ; ##class(%Library.GlobalBinaryStream).GlobalFromSid(StreamIdInStorage)   ; Da werkt hier ni :-( 
+		#dim SubNode As %String = $LI(StreamIdToOpen,2)
+		
+		If ($L(Global)) && ($L(SubNode)) && ($E(Global,1) = "^") {
+			Write !,"Found: Global "_Global_"  Subnode '"_SubNode_"' ."
+			If ($D(@Global@(SubNode))) {
+				Write !,"Data in Global "_$Name(@Global@(SubNode)) _" wordt verwijderd."
+				Kill @Global@(SubNode)
+			}
+			Else {
+				Write !,"Geen data in Global "_Global_"  Subnode '"_SubNode_"' --> hier niets te verwijderen dus."
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="XMLExport">
 <Description><![CDATA[
 Serialize an XML enabled class as an XML document and write it to the current device.<p>]]></Description>
@@ -207,7 +232,6 @@
 <State>BeanRuntimePropertyState</State>
 <StreamLocation>^BL.Sys.FOP.BeanRuntimeP7BFS</StreamLocation>
 <Data name="BeanRuntimePropertyState">
-<Structure>listnode</Structure>
 <Subscript>"BL.Sys.FOP.BeanRuntimeProperty"</Subscript>
 <Value name="1">
 <Value>BoolPropertyValue</Value>