Index: vhTest/Integratie/Productie/Planning/ActieveBatches/ReferenceFileMover.cls.xml
===================================================================
diff -u -r60296 -r69029
--- vhTest/Integratie/Productie/Planning/ActieveBatches/ReferenceFileMover.cls.xml	(.../ReferenceFileMover.cls.xml)	(revision 60296)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/ReferenceFileMover.cls.xml	(.../ReferenceFileMover.cls.xml)	(revision 69029)
@@ -3,18 +3,40 @@
 <Class name="vhTest.Integratie.Productie.Planning.ActieveBatches.ReferenceFileMover">
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="VerwijderBestandEnHernummerVanafDaar">
+<Description>
+Do ##class(vhTest.Integratie.Productie.Planning.ActieveBatches.ReferenceFileMover).%New().VerwijderBestandEnHernummerVanafDaar(Folder, TeZoekenBestandNaam)</Description>
+<FormalSpec>Folder:%String,TeZoekenBestandNaam:%String,InclusiefSubFolders:%Boolean=1,FileMask:%String="*.*"</FormalSpec>
+<Implementation><![CDATA[
+	#dim BestandLijst As %ListOfObjects = ##class(TECH.Files).%New().GetFileList(Folder,, InclusiefSubFolders)
+	Set BestandIterator = ##class(TECH.ListIterator).%New(BestandLijst)
+	
+	while BestandIterator.HasNext() {
+		#dim BestandVolledigeNaam As %String = BestandIterator.Next().Name
+		#dim BestandPad = ##class(TECH.StringUtils).StripLastPart(BestandVolledigeNaam, "\")
+		#dim BestandNaam As %String = ##class(TECH.StringUtils).GetLastPart(BestandVolledigeNaam, "\")
+		
+		If (##class(TECH.StringUtils).Contains(BestandNaam, TeZoekenBestandNaam)) {
+			#dim GetalVanaf As %Integer = +$$$TextBetween(BestandNaam, "_", "_")
+			
+			Do ..Move(BestandPad, GetalVanaf, "-", FileMask)
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Move">
 <Description>
 Hernummeren van de vhTestFiles : 
 Oproepen via :
 	Do ##class(vhTest.Integratie.Productie.Planning.ActieveBatches.ReferenceFileMover).%New().Move(Folder,fr,op,fm)</Description>
-<FormalSpec>Folder:%String,From:%Integer=1,Operation:%String(VALUELIST=",+,-")="+",FileMask:%String="*.*"</FormalSpec>
+<FormalSpec>Folder:%String,From:%Integer=1,Operation:%String(VALUELIST=",+,-")="+",FileMask:%String="*.*",InclusiefSubFolders:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
 	#dim FilesToMove As TECH.MultiDim = ""
 	#dim ShiftNplaces As %Integer = 1   ; indien waarde = 2 dan hernummering : 2 wordt 4, 3 wordt 5, ... 
 	set FilesToDelete = ##class(%ListOfDataTypes).%New()
 	
-	#dim FileList As %ListOfObjects = ##class(TECH.Files).%New().GetFileList(Folder,FileMask,1,0)
+	#dim FileList As %ListOfObjects = ##class(TECH.Files).%New().GetFileList(Folder,FileMask,InclusiefSubFolders,0)
 	set FileIterator = ##class(TECH.ListIterator).%New(FileList)
 	while FileIterator.HasNext() {
 		#dim FullName As %String = FileIterator.Next().Name