AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/TaskFlow

Browse Source
This commit is contained in:
SchreiberM 2024-01-15 08:37:17 +01:00
commit 2c9522d8e1
3 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/TaskFlow/ClassParamRefresh.vb
View File

@ -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

6
app/TaskFlow/My Project/AssemblyInfo.vb
View File

@ -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("")>

12
app/TaskFlow/frmValidator.vb
View File

@ -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)
End If
oFile2Export = WMDocPathWindows
Else
oFile2Export = oTempPath
End If
End If
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