Index: BL/Sys/FOP/CommonTasks.cls.xml
===================================================================
diff -u -r53558 -r53559
--- BL/Sys/FOP/CommonTasks.cls.xml	(.../CommonTasks.cls.xml)	(revision 53558)
+++ BL/Sys/FOP/CommonTasks.cls.xml	(.../CommonTasks.cls.xml)	(revision 53559)
@@ -555,6 +555,79 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderFopStreamsVoorPDB">
+<Description>
+Eerst laten voorafgaan door :  DO DISABLE^%NOJRN   
+Do ##class(BL.Sys.FOP.CommonTasks).VerwijderFopStreamsVoorPDB()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim TaskDocIdBegin2018 As %String = 640000
+	#dim TaskDocIdHalfApril As %String = 919962
+	
+	#dim StreamMagWeg As %Boolean = $$$False
+	#dim i As %String = ""
+	
+	Write !,"Verwijder FopStreams van AX-documenten ... "
+	Write !,"++++++++++++++++++++++++++++++++++++++     "
+	Write !
+	
+	Set i = TaskDocIdBegin2018
+	For {
+		Set i = $O(^Sys.FOP.TaskDocS(i)) Quit:((i="") || (i > TaskDocIdHalfApril))
+		Set StreamMagWeg = ##class(TECH.StringUtils).Contains($E($G(^Sys.FOP.TaskDocS(i,1)),1,1000) , "<DOCS><ORDER><ORDERNR>VO1" , 
+																										"<DOCS><OFFERTE><ORDERNR>VO" , 
+																										"<DOCS><FACTUUR><DOCDATUM>" , 
+																										"<DOCS><TOELEVERING xsi:type=""pxToelevering"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""><DOCDATUM>" 
+																									)
+		If StreamMagWeg {
+			Write !,"Clean up "_i
+			Kill ^Sys.FOP.TaskDocS(i,1)
+		}
+	}
+
+	Write !,"Verwijder FopStreams van Halux Aansturing-documenten ... "
+	Write !,"++++++++++++++++++++++++++++++++++++++++++++++++++++     "
+	Write !
+
+	Set i = 10
+	For {
+		Set i = $O(^Sys.FOP.TaskDocS(i)) Quit:((i="") || (i > TaskDocIdHalfApril))
+		Set StreamMagWeg = ##class(TECH.StringUtils).Contains($E($G(^Sys.FOP.TaskDocS(i,1)),1,1000) , "<DOCS><PRODUCTIEDETAILDOCUMENT>" , 
+																										"<DOCS><OPGEMAAKTE_TEKSTDOC>" , 
+																										"<DOCS><ALUFREESVOORBEREIDINGEN>" ,
+																										"<DOCS><UNITS><UNIT" , 
+																										)
+		
+		Set StreamMagWeg = StreamMagWeg || ($G(^Sys.FOP.TaskDocS(i,1)) = ("<?xml version=""1.0"" encoding=""UTF-8""?>"_$c(13,10)_"<DOCS></DOCS>"))
+		If StreamMagWeg {
+			Write !,"Clean up "_i
+			Kill ^Sys.FOP.TaskDocS(i,1)
+		}
+	}
+
+	Write !,"Verwijder FopStreams van overige documenten ... "
+	Write !,"+++++++++++++++++++++++++++++++++++++++++++     "
+	Write !
+
+	Set i = 10
+	For {
+		Set i = $O(^Sys.FOP.TaskDocS(i)) Quit:((i="") || (i > TaskDocIdHalfApril))
+		Set StreamMagWeg = ##class(TECH.StringUtils).Contains($E($G(^Sys.FOP.TaskDocS(i,1)),1,1000) , "<DOCS><VOORRAADIDENTIFICATIE>" , 
+																										"<DOCS><BAKKEN><BAK>" , 
+																										"<DOCS><Werkgevers>" , 
+																										"</TAAL><SUBGROEPEN><SUBGROEP pagebreakbefore=""auto""><PRODUCTEN><PRODUCT><FOTO" , 
+																										("<DOCS>"_$c(13,10)_"  <BAKKEN>"_$c(13,10)_"    <BAK>")
+																										)
+		
+		Set StreamMagWeg = StreamMagWeg || ($G(^Sys.FOP.TaskDocS(i,1)) = ("<?xml version=""1.0"" encoding=""UTF-8""?>"_$c(13,10)_"<DOCS></DOCS>"))
+		If StreamMagWeg {
+			Write !,"Clean up "_i
+			Kill ^Sys.FOP.TaskDocS(i,1)
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderFopTaskEnVerwanten">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>TaskId:%String,TaskSequenceId:%String,QueueArchiveId:%String</FormalSpec>