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

MS Version 2.3.2 ConfigLastExportpath

Browse Source 
PRPMNEXT_DOC_INFO
This commit is contained in:
SchreiberM 2021-11-12 12:42:37 +01:00
parent 330df9be19
commit b33e87c5d2
3 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/ClassConfig.vb
View File

@ -33,4 +33,6 @@ Public Class ClassConfig
Public Property MonitorSplitter2_Distance As Integer = 270 Public Property MonitorSplitter2_Distance As Integer = 270
Public Property MonitorSplitter3_Distance As Integer = 400 Public Property MonitorSplitter3_Distance As Integer = 400
Public Property LastExportPath As String = ""
End Class End Class

2
app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.3.1.0")> <Assembly: AssemblyVersion("2.3.2.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

15
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -2204,10 +2204,8 @@ Public Class frmValidator
If PROFIL_sortbynewest = True Then If PROFIL_sortbynewest = True Then
oBIT = 1 oBIT = 1
End If End If
' 08.11.2021: Switch back to FNPM_GET_NEXT_DOC_INFO because the prodedure breaks a bunch of installations Dim oSQL = $"EXEC PRPM_GET_NEXT_DOC_INFO {CURRENT_ProfilGUID},{CURRENT_DOC_ID},{USER_ID}"
' Because it does not check for user rights ........,..... 'Dim oSQL = $"SELECT * from [dbo].[FNPM_GET_NEXT_DOC_INFO] ({CURRENT_ProfilGUID},{oBIT},{CURRENT_DOC_GUID},'{USER_USERNAME}')"
'Dim oSQL = $"EXEC PRPM_GET_NEXT_DOC_INFO {CURRENT_ProfilGUID},{CURRENT_DOC_ID},{USER_ID}"
Dim oSQL = $"SELECT * from [dbo].[FNPM_GET_NEXT_DOC_INFO] ({CURRENT_ProfilGUID},{oBIT},{CURRENT_DOC_GUID},'{USER_USERNAME}')"
Dim oDT As DataTable = Database_ECM.GetDatatable(oSQL) Dim oDT As DataTable = Database_ECM.GetDatatable(oSQL)
If oDT.Rows.Count > 0 Then If oDT.Rows.Count > 0 Then
@ -3567,7 +3565,12 @@ Public Class frmValidator
Try Try
If ButtonExport2Folder_RootFolder <> "" Then If ButtonExport2Folder_RootFolder <> "" Then
If Directory.Exists(ButtonExport2Folder_RootFolder) Then If Directory.Exists(ButtonExport2Folder_RootFolder) Then
FolderBrowserDialog1.SelectedPath = ButtonExport2Folder_RootFolder If CONFIG.Config.LastExportPath <> String.Empty Then
FolderBrowserDialog1.SelectedPath = CONFIG.Config.LastExportPath
Else
FolderBrowserDialog1.SelectedPath = ButtonExport2Folder_RootFolder
End If
Else Else
LOGGER.Warn($"### Dis/Enabale Export2Path - RootFolder {ButtonExport2Folder_RootFolder} not existing or accessible!###") LOGGER.Warn($"### Dis/Enabale Export2Path - RootFolder {ButtonExport2Folder_RootFolder} not existing or accessible!###")
End If End If
@ -5591,6 +5594,8 @@ Public Class frmValidator
End If End If
Next Next
End If End If
CONFIG.Config.LastExportPath = FolderBrowserDialog1.SelectedPath
CONFIG.Save()
MsgBox($"[{oCount}] file/s successfully exported to target [{FolderBrowserDialog1.SelectedPath}]!", MsgBoxStyle.Information, ADDITIONAL_TITLE) MsgBox($"[{oCount}] file/s successfully exported to target [{FolderBrowserDialog1.SelectedPath}]!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
End If End If
Catch ex As Exception Catch ex As Exception