Index: vhTest/Integratie/Productie/Planning/ActieveBatches/ReferenceFileMover.cls.xml
===================================================================
diff -u -r32203 -r56517
--- vhTest/Integratie/Productie/Planning/ActieveBatches/ReferenceFileMover.cls.xml	(.../ReferenceFileMover.cls.xml)	(revision 32203)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/ReferenceFileMover.cls.xml	(.../ReferenceFileMover.cls.xml)	(revision 56517)
@@ -11,6 +11,7 @@
 <FormalSpec>Folder:%String,From:%Integer=1,Operation:%String(VALUELIST=",+,-")="+",FileMask:%String="*.*"</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)
@@ -25,7 +26,7 @@
 			#dim Number As %String = $$$TextBetween(FileName,"_","_")
 			if $case(Operation, "-" : (+Number>From) , "+" : $$$Not(+Number<From)) {
 				#dim Order As %String = $piece(FileName,"_",1,2)
-				#dim NewNumber As %String = ##class(TECH.StringUtils).AlignRight(+Number + (1 * $select(Operation="-":-1,1:1)),"0",3)
+				#dim NewNumber As %String = ##class(TECH.StringUtils).AlignRight(+Number + (ShiftNplaces * $select(Operation="-":-1,1:1)),"0",3)
 				
 				set FilesToMove(TestFolder,Number)= $get(FilesToMove(TestFolder,Number))_$listbuild($listbuild(FullName,$replace(FullName,"_"_Number_"_","_"_NewNumber_"_")))
 			}