MS Refresh

app/TaskFlow/ClassParamRefresh.vb

@@ -222,6 +222,9 @@ Public Class ClassParamRefresh
                 ElseIf oMode.StartsWith("PM.ButtonExport2FolderCaption") Then
                     Dim oAfterReplace = oMode.Replace("PM.ButtonExport2FolderCaption=", "")
                     ButtonExport2Folder_Caption = oAfterReplace
+                ElseIf oMode.StartsWith("PM.ButtonExportMode") Then
+                    Dim oAfterReplace = oMode.Replace("PM.ButtonExport2Folder_Mode=", "")
+                    ButtonExport2Folder_Mode = oAfterReplace
                 ElseIf oMode.StartsWith("PM.ButtonExport2Folder_RootFolder") Then
                     Dim oAfterReplace = oMode.Replace("PM.ButtonExport2Folder_RootFolder=", "")
                     ButtonExport2Folder_RootFolder = oAfterReplace

app/TaskFlow/ModuleRuntimeVariables.vb

@@ -100,6 +100,7 @@ Module ModuleRuntimeVariables
     Public Property RibbonPageCustTitle As String = ""
     Public Property RibbonPageCustItm1 As String = ""
     Public Property ButtonExport2Folder_Caption As String = ""
+    Public Property ButtonExport2Folder_Mode As String = ""
     Public Property ButtonExport2Folder_RootFolder As String = ""
 
 

app/TaskFlow/frmMain.vb

@@ -3280,4 +3280,12 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
     Private Sub BBtnItmNotfications_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BBtnItmNotfications.ItemClick
         Open_Notifications_Form()
     End Sub
+
+    Private Sub RibbonControl1_Click(sender As Object, e As EventArgs) Handles RibbonControl1.Click
+
+    End Sub
+
+    Private Sub BarButtonItem3_ItemClick_2(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+
+    End Sub
 End Class

app/TaskFlow/frmValidator.vb

@@ -3620,6 +3620,9 @@ Public Class frmValidator
                 If ButtonExport2Folder_Caption <> "" And WMDocPathWindows <> "" Then
                     If File.Exists(WMDocPathWindows) Then
                         barbtnitmExport.Caption = ButtonExport2Folder_Caption
+                        If ButtonExport2Folder_Mode <> String.Empty Then
+                            barbtnitmExport.Tag = ButtonExport2Folder_Mode
+                        End If
                         barbtnitmExport.Visibility = BarItemVisibility.Always
                         Try
                             If ButtonExport2Folder_RootFolder <> "" Then
@@ -5608,6 +5611,7 @@ Public Class frmValidator
                 Dim oFilenameOnly As String
                 Dim oExtension As String
                 Dim oTargetPath As String
+                Dim oFile2Export As String
                 If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
                     Dim oCount As Integer = 0
                     oFilenameOnly = Path.GetFileName(WMDocPathWindows)
@@ -5624,7 +5628,20 @@ Public Class frmValidator
                         End If
                         If oExportFilename <> String.Empty Then
                             oTargetPath = FolderBrowserDialog1.SelectedPath & "\" & oExportFilename & oExtension
-                            File.Copy(WMDocPathWindows, oTargetPath)
+                            If Not IsNothing(barbtnitmExport.Tag) Then
+                                If barbtnitmExport.Tag.ToString = "Convert to PDF" Then
+                                    If oExtension.EndsWith("pdf") Then
+                                        Dim oTempPath = System.IO.Path.GetTempPath()
+                                        Dim oTempFullFilename = oTempPath + "\" + oExportFilename & oExtension
+                                        'We assume that GdPicture has been correctly installed and unlocked.
+                                        NeueDLL
+                                    End If
+                                End If
+                            Else
+                                oFile2Export = WMDocPathWindows
+                            End If
+                            File.Copy(oFile2Export, oTargetPath)
+                            Logger.Info($"File {WMDocPathWindows} exported successfully!")
                             oCount += 1
                         Else
                             MsgBox("Error encountered while extracting Export-Filename!" & vbNewLine & "Please inform Admin-Team!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)