From 5055a19959163a976250b3b3e230ba99b90d725e Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 5 Jan 2024 10:49:12 +0100
Subject: [PATCH 1/2] fix export to folder

---
 app/TaskFlow/ClassParamRefresh.vb |  2 +-
 app/TaskFlow/frmValidator.vb      | 10 ++++++++--
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/app/TaskFlow/ClassParamRefresh.vb b/app/TaskFlow/ClassParamRefresh.vb
index 98256e9..58f5323 100644
--- a/app/TaskFlow/ClassParamRefresh.vb
+++ b/app/TaskFlow/ClassParamRefresh.vb
@@ -222,7 +222,7 @@ Public Class ClassParamRefresh
                 ElseIf oMode.StartsWith("PM.ButtonExport2FolderCaption") Then
                     Dim oAfterReplace = oMode.Replace("PM.ButtonExport2FolderCaption=", "")
                     ButtonExport2Folder_Caption = oAfterReplace
-                ElseIf oMode.StartsWith("PM.ButtonExportMode") Then
+                ElseIf oMode.StartsWith("PM.ButtonExport2Folder_Mode") Then
                     Dim oAfterReplace = oMode.Replace("PM.ButtonExport2Folder_Mode=", "")
                     ButtonExport2Folder_Mode = oAfterReplace
                 ElseIf oMode.StartsWith("PM.ButtonExport2Folder_RootFolder") Then
diff --git a/app/TaskFlow/frmValidator.vb b/app/TaskFlow/frmValidator.vb
index 4c8921d..db66eaa 100644
--- a/app/TaskFlow/frmValidator.vb
+++ b/app/TaskFlow/frmValidator.vb
@@ -5657,14 +5657,20 @@ Public Class frmValidator
                                 Dim oConverter As New PDFConverter(LOGCONFIG)
                                 If oConverter.ConvertPDFADocumentToPDFDocument(WMDocPathWindows, oTempFullFilename) = False Then
                                     Logger.Warn("File [{0}] could not be converted to plain PDF!", WMDocPathWindows)
+                                    oFile2Export = WMDocPathWindows
+                                Else
+                                    oFile2Export = oTempPath
                                 End If
-
-                                oFile2Export = oTempPath
+                            Else
+                                oFile2Export = WMDocPathWindows
                             End If
+                        Else
+                            oFile2Export = WMDocPathWindows
                         End If
                     Else
                         oFile2Export = WMDocPathWindows
                     End If
+                    Logger.Info("Final export path is: [{0}]", oFile2Export)
                     File.Copy(oFile2Export, oTargetPath)
                     Logger.Info($"File {WMDocPathWindows} exported successfully!")
                     oCount += 1

From 88c7be1b3c8722b78bf62eb7136f57b1b2b436d3 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 5 Jan 2024 10:56:53 +0100
Subject: [PATCH 2/2] Version 2.4.6.8

---
 app/TaskFlow/My Project/AssemblyInfo.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/app/TaskFlow/My Project/AssemblyInfo.vb b/app/TaskFlow/My Project/AssemblyInfo.vb
index 05a1140..c64e5d8 100644
--- a/app/TaskFlow/My Project/AssemblyInfo.vb	
+++ b/app/TaskFlow/My Project/AssemblyInfo.vb	
@@ -13,8 +13,8 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("TaskFlow")>
-<Assembly: AssemblyCopyright("Copyright © Digital Data 2023")>
-<Assembly: AssemblyTrademark("2.4.6.7")>
+<Assembly: AssemblyCopyright("Copyright © Digital Data 2024")>
+<Assembly: AssemblyTrademark("2.4.6.8")>
 
 <Assembly: ComVisible(False)>
 
@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.4.6.7")>
+<Assembly: AssemblyVersion("2.4.6.8")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 <Assembly: NeutralResourcesLanguage("")>