From 55fc44ab459aa240b409a96ac252faf2fcca6abb Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 24 Nov 2023 10:33:47 +0100
Subject: [PATCH] add logging for  export button

---
 app/TaskFlow/frmValidator.resx |  2 +-
 app/TaskFlow/frmValidator.vb   | 10 ++++++++++
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/app/TaskFlow/frmValidator.resx b/app/TaskFlow/frmValidator.resx
index 3438a59..2ae76cb 100644
--- a/app/TaskFlow/frmValidator.resx
+++ b/app/TaskFlow/frmValidator.resx
@@ -344,7 +344,7 @@
     <value>DocumentViewerValidator</value>
   </data>
   <data name="&gt;&gt;DocumentViewerValidator.Type" xml:space="preserve">
-    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.9.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.9.2.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;DocumentViewerValidator.Parent" xml:space="preserve">
     <value>SplitContainer1.Panel2</value>
diff --git a/app/TaskFlow/frmValidator.vb b/app/TaskFlow/frmValidator.vb
index 22cdb84..d0810f2 100644
--- a/app/TaskFlow/frmValidator.vb
+++ b/app/TaskFlow/frmValidator.vb
@@ -3609,6 +3609,7 @@ Public Class frmValidator
         Catch ex As Exception
 
         End Try
+
         Try
             If RibbonPageCustTitle <> "" Then
                 RibbonPageGroupCustom.Text = RibbonPageCustTitle
@@ -3618,18 +3619,26 @@ Public Class frmValidator
             End If
             If Not (IsNothing(WMDocPathWindows) And ActiveWorkflowType = ConstAHWorkflow_BlindFile) Then
                 If ButtonExport2Folder_Caption <> "" And WMDocPathWindows <> "" Then
+                    Logger.Debug("Enabling Export2File, Caption set")
+                    Logger.Debug("Button Caption: [{0}]", ButtonExport2Folder_Caption)
+                    Logger.Debug("Export root folder: [{0}]", ButtonExport2Folder_RootFolder)
+
                     If File.Exists(WMDocPathWindows) Then
+                        Logger.Debug("File exists, Showing Export Button")
+
                         barbtnitmExport.Caption = ButtonExport2Folder_Caption
                         barbtnitmExport.Visibility = BarItemVisibility.Always
                         Try
                             If ButtonExport2Folder_RootFolder <> "" Then
                                 If Directory.Exists(ButtonExport2Folder_RootFolder) Then
                                     If CONFIG.Config.LastExportPath <> String.Empty Then
+                                        Logger.Debug("Last export path exists, using as default path")
                                         FolderBrowserDialog1.SelectedPath = CONFIG.Config.LastExportPath
                                     Else
                                         FolderBrowserDialog1.SelectedPath = ButtonExport2Folder_RootFolder
                                     End If
 
+                                    Logger.Debug("Setting default export path to [{0}]", FolderBrowserDialog1.SelectedPath)
                                 Else
                                     Logger.Warn($"### Dis/Enabale Export2Path - RootFolder {ButtonExport2Folder_RootFolder} not existing or accessible!###")
                                 End If
@@ -3642,6 +3651,7 @@ Public Class frmValidator
                     End If
                 End If
             End If
+
         Catch ex As Exception
             Logger.Error(ex)
         End Try