Index: WS/Tools/ECPControle.cls.xml
===================================================================
diff -u
--- WS/Tools/ECPControle.cls.xml	(revision 0)
+++ WS/Tools/ECPControle.cls.xml	(revision 3806)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.Tools.ECPControle">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.WebService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Default>ECPControle</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/Tools</Default>
+</Parameter>
+
+<Method name="Controleer">
+<FormalSpec>ECPControle:Tools.dto.ECPControle</FormalSpec>
+<ReturnType>Tools.dto.ECPControle</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	set itGlobals = ##class(TECH.ListIterator).%New(ECPControle.Globals)
+
+	while itGlobals.HasNext() {
+
+		set GlobalInfo = itGlobals.Next()
+		set Global = itGlobals.Key()
+		
+		set EersteNode = $order(@("^"_Global_("""")))
+		set LaatsteNode = $order(@("^"_Global_("""")),-1)
+		
+		set GlobalInfo.Onbestaand = '$data(@("^"_Global))
+		
+		set GlobalInfo.EersteNodeInOrde = ( GlobalInfo.EersteNode = EersteNode )
+		set GlobalInfo.LaatsteNodeInOrder = ( GlobalInfo.LaatsteNode = LaatsteNode )
+	
+	}
+	
+	quit ECPControle
+]]></Implementation>
+</Method>
+</Class>
+</Export>