AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

3.7.2 Optimierungen und Button Knoten hinzufügen

Browse Source
This commit is contained in:
Developer01
2026-03-16 09:49:12 +01:00
parent 570d1161f8
commit 3a44abf77b
26 changed files with 1051 additions and 4761 deletions
Download Patch File Download Diff File Expand all files Collapse all files

134
app/DD-Record-Organizer/frmConfig_Basic.vb
View File

@@ -214,140 +214,14 @@ Public Class frmConfig_Basic
Case 1
cmbLanguage.SelectedIndex = cmbLanguage.FindStringExact(USER_LANGUAGE)
CheckBox_ForceTemporaryMode.Checked = CONFIG.Config.Viewer_ForceTemporaryMode
Case 2
Dim DTSCAN_folderwatch As Data.DataTable = MYDB_ECM.GetDatatable("SELECT FOLDER_PATH,SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID)
If Not DTSCAN_folderwatch Is Nothing Then
If DTSCAN_folderwatch.Rows.Count = 1 Then
CURRENT_SCAN_FOLDERWATCH = DTSCAN_folderwatch.Rows(0).Item(0)
CURRENT_SCAN_FOLDERWATCH_SD = DTSCAN_folderwatch.Rows(0).Item(1)
End If
End If
Me.txtScanFolderWatch.Text = CURRENT_SCAN_FOLDERWATCH
If Not ClassFolderWatcher.FolderWatcher_SCAN Is Nothing Then
If ClassFolderWatcher.FolderWatcher_SCAN.EnableRaisingEvents = True Then
'If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung stoppen"
'Else
' btnstartstop2.Text = "Stop hotfolder"
'End If
btnstartstop2.Image = My.Resources.bell_delete
Else
' If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung starten"
'Else
'btnstartstop2.Text = "Stop hotfolder"
'End If
btnstartstop2.Image = My.Resources.bell_go
End If
Else
' If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung starten"
'Else
' btnstartstop2.Text = "Stop hotfolder"
'End If
btnstartstop2.Image = My.Resources.bell_go
End If
Me.DataGridView1.DataSource = DTEXCLUDE_FILES
End Select
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim fbdialog As New FolderBrowserDialog
If txtScanFolderWatch.Text <> "" Then
fbdialog.SelectedPath = txtScanFolderWatch.Text
End If
If fbdialog.ShowDialog() = DialogResult.OK Then
CheckScanFolder(fbdialog.SelectedPath, chkSubfolder.Checked)
End If
End Sub
Sub CheckScanFolder(mypath As String, SUBDIRECTORIES As Boolean)
Try
If mypath <> "" Then
Try
If (Not System.IO.Directory.Exists(mypath)) Then
System.IO.Directory.CreateDirectory(mypath)
End If
Catch ex As Exception
LOGGER.Warn("Fehler beim Erstellen des Folderwatchordners: " & mypath)
LOGGER.Warn("" & ex.Message)
MsgBox("Error in creating Hotfolder: " & mypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Exit Sub
End Try
End If
Dim _SUBDIRECTORIES
If SUBDIRECTORIES = False Then
_SUBDIRECTORIES = 0
Else
_SUBDIRECTORIES = 1
End If
Dim folderwatch = MYDB_ECM.GetScalarValue("SELECT GUID FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'")
Dim oSql As String
If folderwatch Is Nothing And mypath <> "" Then
oSql = "INSERT INTO TBPMO_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE,SUBDIRECTORIES, ADDED_WHO) VALUES (" & USER_GUID & ",'" & mypath & "','SCAN', " & _SUBDIRECTORIES & ",'" & USER_USERNAME & "')"
Else
oSql = "UPDATE TBPMO_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', SUBDIRECTORIES = " & _SUBDIRECTORIES & ", CHANGED_WHO = '" & USER_USERNAME & "' where GUID = " & folderwatch
End If
If MYDB_ECM.ExecuteNonQuery(oSql) Then
Dim DT As Data.DataTable = MYDB_ECM.GetDatatable("SELECT FOLDER_PATH, SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'")
CURRENT_SCAN_FOLDERWATCH = DT.Rows(0).Item(0)
CURRENT_SCAN_FOLDERWATCH_SD = DT.Rows(0).Item(1)
Me.txtScanFolderWatch.Text = CURRENT_SCAN_FOLDERWATCH
Me.chkSubfolder.Checked = CURRENT_SCAN_FOLDERWATCH_SD
End If
If FWSCAN_started = True Then
ClassFolderWatcher.Restart_FolderWatchSCAN()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CheckFolder:")
End Try
End Sub
Private Sub btnSaveExclusionFiles_Click(sender As Object, e As EventArgs) Handles btnSaveExclusionFiles.Click
Try
DTEXCLUDE_FILES.AcceptChanges()
DTEXCLUDE_FILES.WriteXml(PATH_FileExclusions)
MsgBox("Changes saved.", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Saving Exclusion files:")
End Try
End Sub
Private Sub btnstartstop2_Click(sender As Object, e As EventArgs) Handles btnstartstop2.Click
If CURRENT_SCAN_FOLDERWATCH <> "" Then
ClassFolderWatcher.DELETE_SCAN_File_User()
CheckScanFolder(CURRENT_SCAN_FOLDERWATCH, chkSubfolder.Checked)
CheckFWSCAN_State()
End If
End Sub
Sub CheckFWSCAN_State()
Select Case ClassFolderWatcher.StartStop_FolderWatchSCAN()
Case 1
'If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung stoppen"
' Else
'btnstartstop2.Text = "Stop Hotfolder"
' End If
btnstartstop2.Image = My.Resources.bell_delete
Case 0
' If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung starten"
'Else
' btnstartstop2.Text = "Start Hotfolder"
'End If
btnstartstop2.Image = My.Resources.bell_go
End Select
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim result As MsgBoxResult
@@ -415,13 +289,6 @@ Public Class frmConfig_Basic
Private Sub txtScanFolderWatch_TextChanged(sender As Object, e As EventArgs) Handles txtScanFolderWatch.TextChanged
CheckScanFolder(txtScanFolderWatch.Text, chkSubfolder.Checked)
End Sub
Private Sub chkSubfolder_CheckedChanged(sender As Object, e As EventArgs) Handles chkSubfolder.CheckedChanged
CheckScanFolder(txtScanFolderWatch.Text, chkSubfolder.Checked)
End Sub
Private Sub txtPasswort_TextChanged(sender As Object, e As EventArgs) Handles txtPasswort.TextChanged
@@ -550,4 +417,5 @@ Public Class frmConfig_Basic
CONFIG.Config.Viewer_ForceTemporaryMode = CheckBox_ForceTemporaryMode.Checked
CONFIG.Save()
End Sub
End Class