Index: BL/PPS/TBX/DocsProPlus.cls.xml
===================================================================
diff -u -r2899 -r3011
--- BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2899)
+++ BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 3011)
@@ -127,11 +127,8 @@
 	
 	If Opties["D" Do   ; Print and Save as PDF-file
 	. Set sc=..VHossDocs()
-	;. Do WL^vhDBG("Status VHossDocs: "_$$ParseStatus^vhLib(sc))
 	. Set sc=..VHossDocsToFile() 
-	;. Do WL^vhDBG("Status VHossDocs: "_$$ParseStatus^vhLib(sc))
-	. Set sc=..VHossXMLToFile() 
-	;. Do WL^vhDBG("Status VHossDocs: "_$$ParseStatus^vhLib(sc))
+	//. Set sc=..VHossXMLToFile() 
 	;update in batch
 	Set PrintLijstInfo = ##class(BL.PPS.TBX.PrintLijstInfo).GeefPrintLijstInfo(..BatchID)
 	Set PrintList=PrintLijstInfo.PrintLijst