Add placeholder for Report Filename

MultiTool.Common/Patterns.vb

@@ -14,7 +14,7 @@ Public Class Patterns
         GeneralConfig = pGeneralConfig
     End Sub
 
-    Public Function ReplaceForImport(pDocument As Documents.Document, pRow As DocumentRow, oString As String)
+    Public Function ReplaceForImport(pDocument As Documents.Document, pRow As DocumentRow, pReportFileName As String, oString As String)
         Dim oRegex = New Regex("{#(\w+)#([\w\s_-]+)}+")
         Dim oMatches As MatchCollection = oRegex.Matches(oString)
 
@@ -51,6 +51,9 @@ Public Class Patterns
                         Case "FILENAME"
                             oValue = pDocument.FileName
 
+                        Case "FILENAME_REPORT"
+                            oValue = pReportFileName
+
                         Case "MANDATORDB"
                             oValue = pDocument.Mandator.Database