Update CustomListBackup.cls

fixed error
SergeyMi37 · Apr 29, 2020 · 4157527 · 4157527
1 parent 54d0fe7
commit 4157527
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cls/Task/CustomListBackup.cls b/cls/Task/CustomListBackup.cls
@@ -148,8 +148,8 @@ Method OnTask() As %Status
 /// Get file names
 Method GetFileName(aBackupFile, ByRef aLogFile) As %Status
 {
-	set tmpName=..PrefixBackUpFile_"_"_..TypeBackup_"_"_$s(..AllDatabases:"All",1:"List")_"_"_$zd($h,8)_$tr($j($i(cnt),3)," ",0)
 	do {
+		set tmpName=..PrefixBackUpFile_"_"_..TypeBackup_"_"_$s(..AllDatabases:"All",1:"List")_"_"_$zd($h,8)_$tr($j($i(cnt),3)," ",0)
 		s aBackupFile=##class(%File).NormalizeFilename(..DirBackup_"/"_tmpName_".cbk")
 	} while ##class(%File).Exists(aBackupFile)
 	set aLogFile=##class(%File).NormalizeFilename(..DirBackupLog_"/"_tmpName_".log")