ms globix config
This commit is contained in:
@@ -1,4 +1,5 @@
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports DevExpress.XtraEditors
|
||||
Imports DigitalData.Modules.Logging
|
||||
|
||||
Public Class frmGlobixBasicConfig
|
||||
Private Logger As Logger
|
||||
@@ -13,25 +14,8 @@ Public Class frmGlobixBasicConfig
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Dim fbdialog As New FolderBrowserDialog
|
||||
If txtFolderWatch.Text <> "" Then
|
||||
fbdialog.SelectedPath = txtFolderWatch.Text
|
||||
End If
|
||||
If fbdialog.ShowDialog() = DialogResult.OK Then
|
||||
CheckFolder(fbdialog.SelectedPath, "DEFAULT")
|
||||
End If
|
||||
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
|
||||
CheckFolder(fbdialog.SelectedPath, "SCAN")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub CheckFolder(pMypath As String, FOLDER_TYPE As String)
|
||||
Try
|
||||
If pMypath = "" Then
|
||||
@@ -79,10 +63,10 @@ Public Class frmGlobixBasicConfig
|
||||
|
||||
If FOLDER_TYPE = "SCAN" Then
|
||||
My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = folderwatch
|
||||
Me.txtScanFolderWatch.Text = My.Application.Globix.CURRENT_SCAN_FOLDERWATCH
|
||||
Me.TextEditScanfolder.Text = My.Application.Globix.CURRENT_SCAN_FOLDERWATCH
|
||||
Else
|
||||
My.Application.Globix.CurrentFolderWatchPath = folderwatch
|
||||
Me.txtFolderWatch.Text = My.Application.Globix.CurrentFolderWatchPath
|
||||
Me.TextEditHotfolder.Text = My.Application.Globix.CurrentFolderWatchPath
|
||||
End If
|
||||
End If
|
||||
If My.Application.Globix.Folderwatchstarted = True And FOLDER_TYPE = "DEFAULT" Then
|
||||
@@ -106,114 +90,116 @@ Public Class frmGlobixBasicConfig
|
||||
If oFolderwatch IsNot Nothing Then
|
||||
My.Application.Globix.CurrentFolderWatchPath = oFolderwatch
|
||||
End If
|
||||
Me.txtFolderWatch.Text = My.Application.Globix.CurrentFolderWatchPath
|
||||
Me.TextEditHotfolder.Text = My.Application.Globix.CurrentFolderWatchPath
|
||||
Dim oSCANFolderwatch = My.DatabaseECM.GetScalarValue("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & My.Application.User.UserId)
|
||||
If oSCANFolderwatch IsNot Nothing Then
|
||||
My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = oSCANFolderwatch
|
||||
End If
|
||||
Me.txtFolderWatch.Text = My.Application.Globix.CurrentFolderWatchPath
|
||||
Me.txtScanFolderWatch.Text = My.Application.Globix.CURRENT_SCAN_FOLDERWATCH
|
||||
Me.TextEditHotfolder.Text = My.Application.Globix.CurrentFolderWatchPath
|
||||
Me.TextEditScanfolder.Text = My.Application.Globix.CURRENT_SCAN_FOLDERWATCH
|
||||
|
||||
If Not ClassFolderwatcher.FWFolderWatcher Is Nothing Then
|
||||
If ClassFolderwatcher.FWFolderWatcher.EnableRaisingEvents = True Then
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
btnstartstop1.Text = "Überwachung stoppen"
|
||||
Else
|
||||
btnstartstop1.Text = "Stop hotfolder"
|
||||
End If
|
||||
|
||||
btnstartstop1.Image = My.Resources.bell_delete
|
||||
ToggleSwitchScanfolder.IsOn = True
|
||||
Else
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
btnstartstop1.Text = "Überwachung starten"
|
||||
Else
|
||||
btnstartstop1.Text = "Start hotfolder"
|
||||
End If
|
||||
|
||||
btnstartstop1.Image = My.Resources.bell_go
|
||||
ToggleSwitchScanfolder.IsOn = False
|
||||
End If
|
||||
Else
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
btnstartstop1.Text = "Überwachung starten"
|
||||
Else
|
||||
btnstartstop1.Text = "Start hotfolder"
|
||||
End If
|
||||
|
||||
|
||||
btnstartstop1.Image = My.Resources.bell_go
|
||||
ToggleSwitchScanfolder.IsOn = False
|
||||
End If
|
||||
|
||||
If Not ClassFolderwatcher.FWScan Is Nothing Then
|
||||
If ClassFolderwatcher.FWScan.EnableRaisingEvents = True Then
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
btnstartstop2.Text = "Überwachung stoppen"
|
||||
Else
|
||||
btnstartstop2.Text = "Stop hotfolder"
|
||||
End If
|
||||
|
||||
btnstartstop2.Image = My.Resources.bell_delete
|
||||
ToggleSwitchScanfolder.IsOn = True
|
||||
Else
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
btnstartstop2.Text = "Überwachung starten"
|
||||
Else
|
||||
btnstartstop2.Text = "Stop hotfolder"
|
||||
End If
|
||||
|
||||
btnstartstop2.Image = My.Resources.bell_go
|
||||
ToggleSwitchScanfolder.IsOn = False
|
||||
End If
|
||||
Else
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
btnstartstop2.Text = "Überwachung starten"
|
||||
Else
|
||||
btnstartstop2.Text = "Stop hotfolder"
|
||||
End If
|
||||
|
||||
btnstartstop2.Image = My.Resources.bell_go
|
||||
ToggleSwitchScanfolder.IsOn = False
|
||||
End If
|
||||
oReload = False
|
||||
Me.DataGridView1.DataSource = My.Application.Globix.DTEXCLUDE_FILES
|
||||
If My.Application.GlobixDropAreaStyle = "PROGRESSIVE" Then
|
||||
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP3
|
||||
ToggleSwitchDropArea.IsOn = False
|
||||
Else
|
||||
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP2
|
||||
ToggleSwitchDropArea.IsOn = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub txtFolderWatch_TextChanged(sender As Object, e As EventArgs) Handles txtFolderWatch.TextChanged
|
||||
If oReload = True Then Exit Sub
|
||||
CheckFolder(txtFolderWatch.Text, "DEFAULT")
|
||||
|
||||
|
||||
|
||||
|
||||
Sub CheckFWSCAN_State()
|
||||
Select Case clsFW.StartStop_FolderWatchSCAN()
|
||||
Case 1
|
||||
ToggleSwitchHotfolder.IsOn = True
|
||||
Case 0
|
||||
ToggleSwitchHotfolder.IsOn = False
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub txtScanFolderWatch_TextChanged(sender As Object, e As EventArgs) Handles txtScanFolderWatch.TextChanged
|
||||
If oReload = True Then Exit Sub
|
||||
CheckFolder(txtScanFolderWatch.Text, "SCAN")
|
||||
End Sub
|
||||
|
||||
Private Sub btnSaveExclusionFiles_Click(sender As Object, e As EventArgs) Handles btnSaveExclusionFiles.Click
|
||||
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
|
||||
My.Application.Globix.DTEXCLUDE_FILES.AcceptChanges()
|
||||
My.Application.Globix.DTEXCLUDE_FILES.WriteXml(My.Application.Globix.PATH_FileExclusions)
|
||||
MsgBox("Changes saved.", MsgBoxStyle.Information)
|
||||
End Sub
|
||||
|
||||
Private Sub btnstartstop2_Click(sender As Object, e As EventArgs) Handles btnstartstop2.Click
|
||||
If My.Application.Globix.CURRENT_SCAN_FOLDERWATCH <> "" Then
|
||||
CheckFWSCAN_State()
|
||||
|
||||
Private Sub btnScanfolder_Click(sender As Object, e As EventArgs) Handles btnScanfolder.Click
|
||||
Dim fbdialog As New FolderBrowserDialog
|
||||
If TextEditScanfolder.Text <> "" Then
|
||||
fbdialog.SelectedPath = TextEditScanfolder.Text
|
||||
End If
|
||||
If fbdialog.ShowDialog() = DialogResult.OK Then
|
||||
CheckFolder(fbdialog.SelectedPath, "SCAN")
|
||||
End If
|
||||
End Sub
|
||||
Sub CheckFWSCAN_State()
|
||||
Select Case clsFW.StartStop_FolderWatchSCAN()
|
||||
Case 1
|
||||
If My.Application.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 My.Application.User.Language = "de-DE" Then
|
||||
btnstartstop2.Text = "Überwachung starten"
|
||||
Else
|
||||
btnstartstop2.Text = "Start Hotfolder"
|
||||
End If
|
||||
btnstartstop2.Image = My.Resources.bell_go
|
||||
End Select
|
||||
|
||||
|
||||
Private Sub ToggleSwitch1_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchScanfolder.Toggled
|
||||
Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch)
|
||||
If oToggle.IsOn Then
|
||||
If My.Application.Globix.CURRENT_SCAN_FOLDERWATCH <> "" Then
|
||||
CheckFWSCAN_State()
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnHotfolder_Click(sender As Object, e As EventArgs) Handles btnHotfolder.Click
|
||||
Dim fbdialog As New FolderBrowserDialog
|
||||
If TextEditHotfolder.Text <> "" Then
|
||||
fbdialog.SelectedPath = TextEditHotfolder.Text
|
||||
End If
|
||||
If fbdialog.ShowDialog() = DialogResult.OK Then
|
||||
CheckFolder(fbdialog.SelectedPath, "DEFAULT")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToggleSwitch1_Toggled_1(sender As Object, e As EventArgs) Handles ToggleSwitchDropArea.Toggled
|
||||
Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch)
|
||||
If oToggle.IsOn Then
|
||||
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP2
|
||||
Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = 'ALTERNATIVE'
|
||||
WHERE USR_ID = {My.Application.User.UserId} AND CAT_TITLE = '{ClassConstants.USER_CATALOG_GLOBIX_DROPAREA}'"
|
||||
If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
|
||||
My.Application.GlobixDropAreaStyle = "ALTERNATIVE"
|
||||
tsinfo.Text = "DropArea-Theme saved!"
|
||||
End If
|
||||
Else
|
||||
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP3
|
||||
Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = 'PROGRESSIVE'
|
||||
WHERE USR_ID = {My.Application.User.UserId} AND CAT_TITLE = '{ClassConstants.USER_CATALOG_GLOBIX_DROPAREA}'"
|
||||
If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
|
||||
My.Application.GlobixDropAreaStyle = "PROGRESSIVE"
|
||||
tsinfo.Text = "DropArea-Theme saved to progressive!"
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user