Index: BL/Sys/FOP/Test.cls.xml
===================================================================
diff -u -r29059 -r66530
--- BL/Sys/FOP/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ BL/Sys/FOP/Test.cls.xml	(.../Test.cls.xml)	(revision 66530)
@@ -128,7 +128,7 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	  d WLIP^vhDBG(97,"Begin TestDocMultiMail.")
+	  ;d WLIP^vhDBG(97,"Begin TestDocMultiMail.")
 	Set OverrideMailAdres="wv@vanhoecke.be"
 	set OverrideSubject="Subject Override"
 	
@@ -375,13 +375,13 @@
 	;New locIndx
 	set blnPeek=$G(blnPeek,0)   ; ..#UsePeekServer)
 	Set locIndx=$S(blnPeek:cl.PeekSOAPServer("",0,"-DFL-"), 1:0)
-	  d:(locIndx'=0) WL^vhDBG($G(%PrefixWL)_"XML="_locIndx_$S(locIndx<0:"  PeekServer Failed!!!",1:""))
+	  ;d:(locIndx'=0) WL^vhDBG($G(%PrefixWL)_"XML="_locIndx_$S(locIndx<0:"  PeekServer Failed!!!",1:""))
 	Quit:(locIndx<0) $$$ERROR($$$GeneralError,$$$msgSOAPTRAP_" - PeekServer failed on "_cl.%ClassName(1))   ; PeekServer geeft NEGATIEVE response --> SOAPService niet actief/bereikbaar
-	  d:(blnPeek) WL^vhDBG($G(%PrefixWL)_"PeekServer OK")
+	  ;d:(blnPeek) WL^vhDBG($G(%PrefixWL)_"PeekServer OK")
 	;Do cl.SetLocation($S(locIndx>0:$LG(lbLocs,locIndx),1:""))   ; Only one location, i.e. the default is already set
 	Do cl.SetTimeOut($G(TimeOut,60))
 	If $G(%blnProxy,0) Do
-	. d WL^vhDBG("Set Proxy")
+	. ;d WL^vhDBG("Set Proxy")
 	. Set cl.HttpProxyServer="192.168.1.97"
 	. Set cl.HttpProxyPort=8888	
 	;If $G(%blnProxy,..#UseProxy) Do
@@ -871,8 +871,8 @@
 	Set sc=$$ProxyToXMLStream^vhLib(pxDoc,.DataStream, "DOCS", 0)   ; blnIndentTags=0
 	Quit:($$$ISERR(sc)) sc
 
-	d WL^vhDBG("pxDoc")
-	d WL^vhDBG($$ObjToText^vhLib(pxDoc))
+	;d WL^vhDBG("pxDoc")
+	;d WL^vhDBG($$ObjToText^vhLib(pxDoc))
 
 	;Set scDebug=$$rppStreamToFile()
 
@@ -911,7 +911,7 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	d WLIP^vhDBG(97,"TestSaveStream() ... ")
+	;d WLIP^vhDBG(97,"TestSaveStream() ... ")
 	; Create Test px-object 
 	Set pxDoc=##class(BL.PPS.TBX.sub.pxVHossSlot).%New()
 	Set pxDoc.VolgNr=1
@@ -920,8 +920,8 @@
 	Set pxDoc.PRNr="99999"
 	Set pxDoc.KlantOrdRef="KlantOrdRef"
 	Set pxDoc.KlantProdRef="KlantProdRef"
-	d WL^vhDBG("pxDoc")
-	d WL^vhDBG($$ObjToText^vhLib(pxDoc))
+	;d WL^vhDBG("pxDoc")
+	;d WL^vhDBG($$ObjToText^vhLib(pxDoc))
 
 	; Build XML-stream from pxDoc
 	Set DataStream=##class(%GlobalBinaryStream).%New()   ; %GlobalBinaryStream   ; %GlobalCharacterStream   ;  %FileBinaryStream 
@@ -945,7 +945,7 @@
 	 ;d WL^vhDBG("StreamID="_$$$LCVT(DataStream.GetStreamId()))
 	
 	Set sc=Task.%Save()
-	 d WL^vhDBG("Save Task result="_$$ParseStatus^vhLib(sc))
+	 ;d WL^vhDBG("Save Task result="_$$ParseStatus^vhLib(sc))
 	 ;d WL^vhDBG("StreamID="_$$$LCVT(DataStream.GetStreamId()))
 	 
 	;Set Doc=Task.Docs.GetNext("")
@@ -980,8 +980,6 @@
 <IndexLocation>^BL.Sys.FOP.TestI</IndexLocation>
 <StreamLocation>^BL.Sys.FOP.TestS</StreamLocation>
 <Data name="TestDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>