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

MS Refresh

Browse Source
This commit is contained in:
SchreiberM
2023-11-24 12:49:42 +01:00
parent 516141a840
commit 3c06877732
6 changed files with 3665 additions and 4999 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
app/TaskFlow/ClassParamRefresh.vb
View File

@@ -222,6 +222,9 @@ Public Class ClassParamRefresh
ElseIf oMode.StartsWith("PM.ButtonExport2FolderCaption") Then ElseIf oMode.StartsWith("PM.ButtonExport2FolderCaption") Then
Dim oAfterReplace = oMode.Replace("PM.ButtonExport2FolderCaption=", "") Dim oAfterReplace = oMode.Replace("PM.ButtonExport2FolderCaption=", "")
ButtonExport2Folder_Caption = oAfterReplace 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 ElseIf oMode.StartsWith("PM.ButtonExport2Folder_RootFolder") Then
Dim oAfterReplace = oMode.Replace("PM.ButtonExport2Folder_RootFolder=", "") Dim oAfterReplace = oMode.Replace("PM.ButtonExport2Folder_RootFolder=", "")
ButtonExport2Folder_RootFolder = oAfterReplace ButtonExport2Folder_RootFolder = oAfterReplace

1
app/TaskFlow/ModuleRuntimeVariables.vb
View File

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

1750
app/TaskFlow/frmMain.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

6883
app/TaskFlow/frmMain.resx
View File

File diff suppressed because it is too large Load Diff

8
app/TaskFlow/frmMain.vb
View File

@@ -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 Private Sub BBtnItmNotfications_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BBtnItmNotfications.ItemClick
Open_Notifications_Form() Open_Notifications_Form()
End Sub 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 End Class

19
app/TaskFlow/frmValidator.vb
View File

@@ -3620,6 +3620,9 @@ Public Class frmValidator
If ButtonExport2Folder_Caption <> "" And WMDocPathWindows <> "" Then If ButtonExport2Folder_Caption <> "" And WMDocPathWindows <> "" Then
If File.Exists(WMDocPathWindows) Then If File.Exists(WMDocPathWindows) Then
barbtnitmExport.Caption = ButtonExport2Folder_Caption barbtnitmExport.Caption = ButtonExport2Folder_Caption
If ButtonExport2Folder_Mode <> String.Empty Then
barbtnitmExport.Tag = ButtonExport2Folder_Mode
End If
barbtnitmExport.Visibility = BarItemVisibility.Always barbtnitmExport.Visibility = BarItemVisibility.Always
Try Try
If ButtonExport2Folder_RootFolder <> "" Then If ButtonExport2Folder_RootFolder <> "" Then
@@ -5608,6 +5611,7 @@ Public Class frmValidator
Dim oFilenameOnly As String Dim oFilenameOnly As String
Dim oExtension As String Dim oExtension As String
Dim oTargetPath As String Dim oTargetPath As String
Dim oFile2Export As String
If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
Dim oCount As Integer = 0 Dim oCount As Integer = 0
oFilenameOnly = Path.GetFileName(WMDocPathWindows) oFilenameOnly = Path.GetFileName(WMDocPathWindows)
@@ -5624,7 +5628,20 @@ Public Class frmValidator
End If End If
If oExportFilename <> String.Empty Then If oExportFilename <> String.Empty Then
oTargetPath = FolderBrowserDialog1.SelectedPath & "\" & oExportFilename & oExtension 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 oCount += 1
Else Else
MsgBox("Error encountered while extracting Export-Filename!" & vbNewLine & "Please inform Admin-Team!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) MsgBox("Error encountered while extracting Export-Filename!" & vbNewLine & "Please inform Admin-Team!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)