MS_Dec2015

app/DD-Record-Organiser/frmConfig_Basic.vb

@@ -29,7 +29,7 @@
                     Dim pw As String = cipherText
                     con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
                 End If
-                SaveMySettingsValue("MyConnectionString", con)
+                SaveMySettingsValue("MyConnectionString", con, "ConfigMain")
                 Dim csb As New SqlClient.SqlConnectionStringBuilder
                 csb.ConnectionString = MyConnectionString
                 Dim constr = connection.ConnectionString
@@ -81,7 +81,7 @@
     End Sub
 
     Private Sub frmConfig_Basic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        SaveMySettingsValue("WDResultListCount", txtwdSearch_Count.Text)
+        SaveMySettingsValue("WDResultListCount", txtwdSearch_Count.Text, "ConfigMain")
     End Sub
 
     Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -132,7 +132,7 @@
 
     Private Sub chkbxloadWDDocs_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxloadWDDocs.CheckedChanged
         Sett_LoadWD_Docs = chkbxloadWDDocs.Checked
-        SaveMySettingsValue("Sett_LoadWD_Docs", Sett_LoadWD_Docs)
+        SaveMySettingsValue("Sett_LoadWD_Docs", Sett_LoadWD_Docs, "ConfigMain")
     End Sub
 
     Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
@@ -152,17 +152,17 @@
 
     Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
         LogErrorsOnly = chkLogErrorsOnly.Checked
-        SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly)
+        SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain")
     End Sub
 
     Private Sub chkboxQuickMenue_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxQuickMenue.CheckedChanged
         Sett_ShowQuickMenue = chkboxQuickMenue.Checked
-        SaveMySettingsValue("Sett_ShowQuickMenue", Sett_ShowQuickMenue)
+        SaveMySettingsValue("Sett_ShowQuickMenue", Sett_ShowQuickMenue, "ConfigMain")
     End Sub
 
     Private Sub CheckBoxWD_ShowEnitityDocs_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxWD_ShowEnitityDocs.CheckedChanged
         WD_ShowEnitityDocs = CheckBoxWD_ShowEnitityDocs.Checked
-        SaveMySettingsValue("WD_ShowEnitityDocs", WD_ShowEnitityDocs)
+        SaveMySettingsValue("WD_ShowEnitityDocs", WD_ShowEnitityDocs, "ConfigMain")
     End Sub
 
     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
@@ -173,7 +173,7 @@
         If cmbConstructor.SelectedIndex <> -1 And formloaded = True Then
             If Sett_ConstructorStart <> cmbConstructor.SelectedValue Then
                 Sett_ConstructorStart = cmbConstructor.SelectedValue
-                SaveMySettingsValue("Sett_ConstructorStart", Sett_ConstructorStart)
+                SaveMySettingsValue("Sett_ConstructorStart", Sett_ConstructorStart, "ConfigMain")
             End If
 
         End If
@@ -186,7 +186,121 @@
     Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
         Select Case TabControl1.SelectedIndex
             Case 1
+            Case 2
+                Dim SCAN_folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID, True)
+                If Not SCAN_folderwatch Is Nothing Then
+                    CURRENT_SCAN_FOLDERWATCH = SCAN_folderwatch
+                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 fbdialog.ShowDialog() = DialogResult.OK Then
+            CheckScanFolder(fbdialog.SelectedPath)
+        End If
+    End Sub
+    Sub CheckScanFolder(mypath As String)
+        Try
+            Try
+                If (Not System.IO.Directory.Exists(mypath)) Then
+                    System.IO.Directory.CreateDirectory(mypath)
+                End If
+            Catch ex As Exception
+                ClassLogger.Add(" >> Fehler beim Erstellen des Folderwatchordners: " & mypath, False)
+                ClassLogger.Add(" >> " & ex.Message, False)
+
+                MsgBox("Error in creating Hotfolder: " & mypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+
+
+                Exit Sub
+            End Try
+
+            Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'", True)
+            Dim sql As String
+            If folderwatch Is Nothing Then
+                sql = "INSERT INTO TBPMO_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE, ADDED_WHO) VALUES (" & USER_GUID & ",'" & mypath & "','SCAN','" & Environment.UserName & "')"
+            Else
+                sql = "UPDATE TBPMO_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', CHANGED_WHO = '" & Environment.UserName & "' where GUID = " & folderwatch
+            End If
+            If ClassDatabase.Execute_non_Query(sql) Then
+                folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'", True)
+
+                CURRENT_SCAN_FOLDERWATCH = folderwatch
+                Me.txtScanFolderWatch.Text = CURRENT_SCAN_FOLDERWATCH
+            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
+            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
 End Class