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

ms

Browse Source
This commit is contained in:
SchreiberM 2017-02-15 09:07:26 +01:00
parent a815c8ab5d
commit 81c3ebe35e
25 changed files with 7215 additions and 7503 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD-Record-Organizer/ClassDatabase.vb
View File

@ -182,8 +182,8 @@ Public Class ClassDatabase
If userInput = True Then If userInput = True Then
MsgBox("Error in Return_Datatable_Connection - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) MsgBox("Error in Return_Datatable_Connection - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Error in Return_Datatable_Connection: " & ex.Message, True) ClassLogger.Add("Error in Return_Datatable_Connection: " & ex.Message)
ClassLogger.Add("#SQL: " & Select_anweisung, False) ClassLogger.Add("#SQL: " & Select_anweisung)
Return Nothing Return Nothing
End Try End Try
End Function End Function
@ -214,8 +214,8 @@ Public Class ClassDatabase
'If Userinput = True Then 'If Userinput = True Then
' MsgBox("Error in Execute_non_Query: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical) ' MsgBox("Error in Execute_non_Query: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
'End If 'End If
ClassLogger.Add("Error in Execute_non_Query: " & ex.Message, True) ClassLogger.Add("Error in Execute_non_Query: " & ex.Message)
ClassLogger.Add("SQL: " & ExecuteCMD, False) ClassLogger.Add("SQL: " & ExecuteCMD)
Return False Return False
End Try End Try
End Function End Function

24
app/DD-Record-Organizer/ClassFolderWatcher.vb
View File

@ -1,10 +1,13 @@
Imports System.IO Imports System.IO
Imports Independentsoft Imports Independentsoft
Imports System.Threading Imports System.Threading
Imports DD_LIB_Standards
Public Class ClassFolderWatcher Public Class ClassFolderWatcher
Public Shared FolderWatcher_SCAN As FileSystemWatcher Public Shared FolderWatcher_SCAN As FileSystemWatcher
Public Shared NEW_FILES As Boolean = True
Public Shared Function Restart_FolderWatchSCAN() Public Shared Function Restart_FolderWatchSCAN()
Try Try
If FolderWatcher_SCAN.EnableRaisingEvents = True Then If FolderWatcher_SCAN.EnableRaisingEvents = True Then
'Gestartet also Stoppen 'Gestartet also Stoppen
@ -23,7 +26,7 @@ Public Class ClassFolderWatcher
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Restart_FolderWatchSCAN:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Restart_FolderWatchSCAN:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Function End Function
Public Shared Function StartStop_FolderWatchSCAN() Public Shared Function StartStop_FolderWatchSCAN()
Try Try
@ -74,7 +77,7 @@ Public Class ClassFolderWatcher
Exit Sub Exit Sub
End If End If
Next Next
Dim handleType As String Dim handleType As String
If e.FullPath.EndsWith(".msg") Then If e.FullPath.EndsWith(".msg") Then
handleType = "SCAN_OUTLOOK_MESSAGE" handleType = "SCAN_OUTLOOK_MESSAGE"
@ -89,12 +92,13 @@ Public Class ClassFolderWatcher
Console.WriteLine("File existiert bereits") Console.WriteLine("File existiert bereits")
End If End If
ClassHelper.Create_USER_FILE_TABLE() ClassHelper.Create_USER_FILE_TABLE()
NEW_FILES = True
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei folder_watch_Created") MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in folder_watch_Created")
End Try End Try
End Sub End Sub
Public Shared Function FileExistsinDropTable(Filename As String) Public Shared Function FileExistsinDropTable(Filename As String)
Dim check As String Dim check As String
Try Try
@ -136,11 +140,17 @@ Public Class ClassFolderWatcher
Return False Return False
End Try End Try
End Function End Function
Public Shared Function Check_Scan_Files() Public Shared Function Check_Scan_Files()
Try Try
Dim sql1 As String = String.Format("select * from TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' and WORKED = 0 AND UPPER(USER_WORK) = '{0}'", USER_USERNAME) Dim sql As String = String.Format("select * from TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' and WORKED = 0 AND UPPER(USER_WORK) = '{0}'", USER_USERNAME)
Return ClassDatabase.Return_Datatable(sql1, True) Dim DT As DataTable = clsDatabase.Return_Datatable(sql, True)
For Each row As DataRow In DT.Rows
If System.IO.File.Exists(row.Item("FILENAME2WORK")) = False Then
DELETE_SCAN_File(row.Item("FILENAME2WORK"))
End If
Next
CURRENT_SCAN_TABLE = clsDatabase.Return_Datatable(sql, True)
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in DELETE_SCAN_File_User: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in DELETE_SCAN_File_User: " & ex.Message, MsgBoxStyle.Critical)
Return Nothing Return Nothing

22
app/DD-Record-Organizer/ClassImport_Windream.vb
View File

@ -141,25 +141,37 @@ Public Class ClassImport_Windream
If CURRENT_CHECK_SUBFOLDER = True And CURRENT_SUBFOLDER <> "" Then If CURRENT_CHECK_SUBFOLDER = True And CURRENT_SUBFOLDER <> "" Then
Zielordner = Zielordner & "\" & CURRENT_SUBFOLDER Zielordner = Zielordner & "\" & CURRENT_SUBFOLDER
End If End If
Zielordner = Zielordner.Replace("\\", "\")
If Zielordner.Contains("/") Then
ClassLogger.Add(String.Format(">> Targetpath contains /-sign. / will be replaced with _"))
Zielordner = Zielordner.Replace("/", "_")
End If
Try Try
Select Case clsWD_GET.WD_PATH_EXISTS(Zielordner.Substring(2)) Select Case clsWD_GET.WD_PATH_EXISTS(Zielordner.Substring(2))
Case False Case False
ClassLogger.Add(String.Format(">> Targetpath ({0}) is not existing or result of WD_PATH_EXISTS was false.", Zielordner.Substring(2)))
Dim split() As String = Zielordner.Split("\") Dim split() As String = Zielordner.Split("\")
Dim Path_Combined As String = "" Dim Path_Combined As String = ""
For Each s As String In split For Each s As String In split
Path_Combined &= s & "\" Path_Combined &= s & "\"
If Path_Combined <> "W:\" Then If Path_Combined <> "W:\" Then
Dim temppath = Path_Combined.Substring(2)
Try Try
Select Case clsWD_GET.WD_PATH_EXISTS(Path_Combined.Substring(2)) temppath = Path_Combined.Substring(2).Substring(0, temppath.Length)
Select Case clsWD_GET.WD_PATH_EXISTS(temppath)
Case False Case False
clsWindream.MY_WDSESSION.GetNewWMObjectFS(2, Path_Combined.Substring(2), 0) 'WMEntityFolder,WMObjectEditModeNoEdit) clsWindream.MY_WDSESSION.GetNewWMObjectFS(2, temppath, 0) 'WMEntityFolder,WMObjectEditModeNoEdit)
Case -10 Case -10
Return False Return False
End Select End Select
Catch ex As Exception Catch ex As Exception
If Not ex.Message.Contains("Filename exists!") Then If Not ex.Message.Contains("Filename exists!") Then
ClassLogger.Add(String.Format(">> Could not create folder-part ({0}): " & ex.Message, Path_Combined.Substring(2)), True) ClassLogger.Add(String.Format(">> Could not create folder-part: {0} - Complete path is: ({1})", temppath, Zielordner.Substring(2)))
ClassLogger.Add(String.Format(">> ErrorMessage: {0}: ", ex.Message))
Return False Return False
End If End If
End Try End Try
@ -405,6 +417,10 @@ Public Class ClassImport_Windream
Try Try
'ungültige Zeichen entfernen 'ungültige Zeichen entfernen
DATEINAME = ClassHelper.CleanFilename(DATEINAME, "") DATEINAME = ClassHelper.CleanFilename(DATEINAME, "")
If DATEINAME.Contains("/") Then
ClassLogger.Add(String.Format(">> DATEINAME contains /-sign. / will be replaced with _"))
DATEINAME = DATEINAME.Replace("/", "_")
End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(" - Error in Versioning file - Error: " & vbNewLine & ex.Message) ClassLogger.Add(" - Error in Versioning file - Error: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Versioning file:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Versioning file:")

2
app/DD-Record-Organizer/ClassInit.vb
View File

@ -10,7 +10,7 @@ Public Class ClassInit
clsLogger.LOGFILE_PATH = ClassLogger.logDateiname clsLogger.LOGFILE_PATH = ClassLogger.logDateiname
End Sub End Sub
Public Function InitDatabase() Public Shared Function InitDatabase()
Try Try
Dim dbResult As Boolean Dim dbResult As Boolean

85
app/DD-Record-Organizer/frmConfig_Basic.Designer.vb generated
View File

@ -23,7 +23,7 @@ Partial Class frmConfig_Basic
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic))
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.lblLinkedServer = New System.Windows.Forms.Label() Me.lblLinkedServer = New System.Windows.Forms.Label()
@ -76,6 +76,10 @@ Partial Class frmConfig_Basic
Me.txtScanFolderWatch = New System.Windows.Forms.TextBox() Me.txtScanFolderWatch = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label()
Me.btnstartstop2 = New System.Windows.Forms.Button() Me.btnstartstop2 = New System.Windows.Forms.Button()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtwdFolder = New System.Windows.Forms.TextBox()
Me.btncheckWDFolderexists = New System.Windows.Forms.Button()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
@ -86,20 +90,21 @@ Partial Class frmConfig_Basic
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.TabPage3.SuspendLayout() Me.TabPage3.SuspendLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage4.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'TabControl1 'TabControl1
' '
resources.ApplyResources(Me.TabControl1, "TabControl1")
Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3) Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage4)
resources.ApplyResources(Me.TabControl1, "TabControl1")
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0 Me.TabControl1.SelectedIndex = 0
' '
'TabPage1 'TabPage1
' '
resources.ApplyResources(Me.TabPage1, "TabPage1")
Me.TabPage1.Controls.Add(Me.lblLinkedServer) Me.TabPage1.Controls.Add(Me.lblLinkedServer)
Me.TabPage1.Controls.Add(Me.txtLinkedServer) Me.TabPage1.Controls.Add(Me.txtLinkedServer)
Me.TabPage1.Controls.Add(Me.btndeleteProxy) Me.TabPage1.Controls.Add(Me.btndeleteProxy)
@ -117,6 +122,7 @@ Partial Class frmConfig_Basic
Me.TabPage1.Controls.Add(Me.txtUser) Me.TabPage1.Controls.Add(Me.txtUser)
Me.TabPage1.Controls.Add(Me.txtPasswort) Me.TabPage1.Controls.Add(Me.txtPasswort)
Me.TabPage1.Controls.Add(Me.BtnConnect) Me.TabPage1.Controls.Add(Me.BtnConnect)
resources.ApplyResources(Me.TabPage1, "TabPage1")
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
' '
@ -163,8 +169,8 @@ Partial Class frmConfig_Basic
' '
'cmbDatenbank 'cmbDatenbank
' '
resources.ApplyResources(Me.cmbDatenbank, "cmbDatenbank")
Me.cmbDatenbank.FormattingEnabled = True Me.cmbDatenbank.FormattingEnabled = True
resources.ApplyResources(Me.cmbDatenbank, "cmbDatenbank")
Me.cmbDatenbank.Name = "cmbDatenbank" Me.cmbDatenbank.Name = "cmbDatenbank"
' '
'Label4 'Label4
@ -196,33 +202,32 @@ Partial Class frmConfig_Basic
' '
'txtServer 'txtServer
' '
resources.ApplyResources(Me.txtServer, "txtServer")
Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText
resources.ApplyResources(Me.txtServer, "txtServer")
Me.txtServer.Name = "txtServer" Me.txtServer.Name = "txtServer"
' '
'txtUser 'txtUser
' '
resources.ApplyResources(Me.txtUser, "txtUser")
Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText
resources.ApplyResources(Me.txtUser, "txtUser")
Me.txtUser.Name = "txtUser" Me.txtUser.Name = "txtUser"
' '
'txtPasswort 'txtPasswort
' '
resources.ApplyResources(Me.txtPasswort, "txtPasswort")
Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText
resources.ApplyResources(Me.txtPasswort, "txtPasswort")
Me.txtPasswort.Name = "txtPasswort" Me.txtPasswort.Name = "txtPasswort"
Me.txtPasswort.UseSystemPasswordChar = True Me.txtPasswort.UseSystemPasswordChar = True
' '
'BtnConnect 'BtnConnect
' '
resources.ApplyResources(Me.BtnConnect, "BtnConnect")
Me.BtnConnect.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_go1 Me.BtnConnect.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_go1
resources.ApplyResources(Me.BtnConnect, "BtnConnect")
Me.BtnConnect.Name = "BtnConnect" Me.BtnConnect.Name = "BtnConnect"
Me.BtnConnect.UseVisualStyleBackColor = True Me.BtnConnect.UseVisualStyleBackColor = True
' '
'TabPage2 'TabPage2
' '
resources.ApplyResources(Me.TabPage2, "TabPage2")
Me.TabPage2.Controls.Add(Me.Button4) Me.TabPage2.Controls.Add(Me.Button4)
Me.TabPage2.Controls.Add(Me.GroupBox5) Me.TabPage2.Controls.Add(Me.GroupBox5)
Me.TabPage2.Controls.Add(Me.GroupBox4) Me.TabPage2.Controls.Add(Me.GroupBox4)
@ -233,22 +238,23 @@ Partial Class frmConfig_Basic
Me.TabPage2.Controls.Add(Me.Button1) Me.TabPage2.Controls.Add(Me.Button1)
Me.TabPage2.Controls.Add(Me.btnApplicationFolder) Me.TabPage2.Controls.Add(Me.btnApplicationFolder)
Me.TabPage2.Controls.Add(Me.LinkLabel1) Me.TabPage2.Controls.Add(Me.LinkLabel1)
resources.ApplyResources(Me.TabPage2, "TabPage2")
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
' '
'Button4 'Button4
' '
resources.ApplyResources(Me.Button4, "Button4")
Me.Button4.Image = Global.DD_Record_Organizer.My.Resources.Resources.email_go Me.Button4.Image = Global.DD_Record_Organizer.My.Resources.Resources.email_go
resources.ApplyResources(Me.Button4, "Button4")
Me.Button4.Name = "Button4" Me.Button4.Name = "Button4"
Me.Button4.UseVisualStyleBackColor = True Me.Button4.UseVisualStyleBackColor = True
' '
'GroupBox5 'GroupBox5
' '
resources.ApplyResources(Me.GroupBox5, "GroupBox5")
Me.GroupBox5.Controls.Add(Me.Label11) Me.GroupBox5.Controls.Add(Me.Label11)
Me.GroupBox5.Controls.Add(Me.Label10) Me.GroupBox5.Controls.Add(Me.Label10)
Me.GroupBox5.Controls.Add(Me.txtTask_Popup) Me.GroupBox5.Controls.Add(Me.txtTask_Popup)
resources.ApplyResources(Me.GroupBox5, "GroupBox5")
Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.TabStop = False Me.GroupBox5.TabStop = False
' '
@ -269,9 +275,9 @@ Partial Class frmConfig_Basic
' '
'GroupBox4 'GroupBox4
' '
resources.ApplyResources(Me.GroupBox4, "GroupBox4")
Me.GroupBox4.Controls.Add(Me.Button3) Me.GroupBox4.Controls.Add(Me.Button3)
Me.GroupBox4.Controls.Add(Me.cmbLanguage) Me.GroupBox4.Controls.Add(Me.cmbLanguage)
resources.ApplyResources(Me.GroupBox4, "GroupBox4")
Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.TabStop = False Me.GroupBox4.TabStop = False
' '
@ -283,17 +289,17 @@ Partial Class frmConfig_Basic
' '
'cmbLanguage 'cmbLanguage
' '
resources.ApplyResources(Me.cmbLanguage, "cmbLanguage")
Me.cmbLanguage.FormattingEnabled = True Me.cmbLanguage.FormattingEnabled = True
Me.cmbLanguage.Items.AddRange(New Object() {resources.GetString("cmbLanguage.Items"), resources.GetString("cmbLanguage.Items1")}) Me.cmbLanguage.Items.AddRange(New Object() {resources.GetString("cmbLanguage.Items"), resources.GetString("cmbLanguage.Items1")})
resources.ApplyResources(Me.cmbLanguage, "cmbLanguage")
Me.cmbLanguage.Name = "cmbLanguage" Me.cmbLanguage.Name = "cmbLanguage"
' '
'GroupBox3 'GroupBox3
' '
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Controls.Add(Me.Label7) Me.GroupBox3.Controls.Add(Me.Label7)
Me.GroupBox3.Controls.Add(Me.cmbConstructor) Me.GroupBox3.Controls.Add(Me.cmbConstructor)
Me.GroupBox3.Controls.Add(Me.CheckBox1) Me.GroupBox3.Controls.Add(Me.CheckBox1)
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.TabStop = False Me.GroupBox3.TabStop = False
' '
@ -304,8 +310,8 @@ Partial Class frmConfig_Basic
' '
'cmbConstructor 'cmbConstructor
' '
resources.ApplyResources(Me.cmbConstructor, "cmbConstructor")
Me.cmbConstructor.FormattingEnabled = True Me.cmbConstructor.FormattingEnabled = True
resources.ApplyResources(Me.cmbConstructor, "cmbConstructor")
Me.cmbConstructor.Name = "cmbConstructor" Me.cmbConstructor.Name = "cmbConstructor"
' '
'CheckBox1 'CheckBox1
@ -319,11 +325,11 @@ Partial Class frmConfig_Basic
' '
'GroupBox2 'GroupBox2
' '
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Controls.Add(Me.CheckBoxWD_ShowEnitityDocs) Me.GroupBox2.Controls.Add(Me.CheckBoxWD_ShowEnitityDocs)
Me.GroupBox2.Controls.Add(Me.chkbxloadWDDocs) Me.GroupBox2.Controls.Add(Me.chkbxloadWDDocs)
Me.GroupBox2.Controls.Add(Me.Label6) Me.GroupBox2.Controls.Add(Me.Label6)
Me.GroupBox2.Controls.Add(Me.txtwdSearch_Count) Me.GroupBox2.Controls.Add(Me.txtwdSearch_Count)
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False Me.GroupBox2.TabStop = False
' '
@ -351,8 +357,8 @@ Partial Class frmConfig_Basic
' '
'GroupBox1 'GroupBox1
' '
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Controls.Add(Me.chkboxQuickMenue) Me.GroupBox1.Controls.Add(Me.chkboxQuickMenue)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
' '
@ -370,15 +376,15 @@ Partial Class frmConfig_Basic
' '
'Button1 'Button1
' '
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_go Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_go
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.UseVisualStyleBackColor = True Me.Button1.UseVisualStyleBackColor = True
' '
'btnApplicationFolder 'btnApplicationFolder
' '
resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder")
Me.btnApplicationFolder.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_go Me.btnApplicationFolder.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_go
resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder")
Me.btnApplicationFolder.Name = "btnApplicationFolder" Me.btnApplicationFolder.Name = "btnApplicationFolder"
Me.btnApplicationFolder.UseVisualStyleBackColor = True Me.btnApplicationFolder.UseVisualStyleBackColor = True
' '
@ -390,7 +396,6 @@ Partial Class frmConfig_Basic
' '
'TabPage3 'TabPage3
' '
resources.ApplyResources(Me.TabPage3, "TabPage3")
Me.TabPage3.Controls.Add(Me.chkSubfolder) Me.TabPage3.Controls.Add(Me.chkSubfolder)
Me.TabPage3.Controls.Add(Me.Label9) Me.TabPage3.Controls.Add(Me.Label9)
Me.TabPage3.Controls.Add(Me.DataGridView1) Me.TabPage3.Controls.Add(Me.DataGridView1)
@ -399,6 +404,7 @@ Partial Class frmConfig_Basic
Me.TabPage3.Controls.Add(Me.txtScanFolderWatch) Me.TabPage3.Controls.Add(Me.txtScanFolderWatch)
Me.TabPage3.Controls.Add(Me.Label8) Me.TabPage3.Controls.Add(Me.Label8)
Me.TabPage3.Controls.Add(Me.btnstartstop2) Me.TabPage3.Controls.Add(Me.btnstartstop2)
resources.ApplyResources(Me.TabPage3, "TabPage3")
Me.TabPage3.Name = "TabPage3" Me.TabPage3.Name = "TabPage3"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
' '
@ -415,9 +421,9 @@ Partial Class frmConfig_Basic
' '
'DataGridView1 'DataGridView1
' '
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
resources.ApplyResources(Me.DataGridView1, "DataGridView1") resources.ApplyResources(Me.DataGridView1, "DataGridView1")
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Name = "DataGridView1" Me.DataGridView1.Name = "DataGridView1"
' '
@ -435,8 +441,8 @@ Partial Class frmConfig_Basic
' '
'txtScanFolderWatch 'txtScanFolderWatch
' '
resources.ApplyResources(Me.txtScanFolderWatch, "txtScanFolderWatch")
Me.txtScanFolderWatch.BackColor = System.Drawing.Color.LemonChiffon Me.txtScanFolderWatch.BackColor = System.Drawing.Color.LemonChiffon
resources.ApplyResources(Me.txtScanFolderWatch, "txtScanFolderWatch")
Me.txtScanFolderWatch.Name = "txtScanFolderWatch" Me.txtScanFolderWatch.Name = "txtScanFolderWatch"
' '
'Label8 'Label8
@ -446,11 +452,36 @@ Partial Class frmConfig_Basic
' '
'btnstartstop2 'btnstartstop2
' '
resources.ApplyResources(Me.btnstartstop2, "btnstartstop2")
Me.btnstartstop2.Image = Global.DD_Record_Organizer.My.Resources.Resources.bell_go Me.btnstartstop2.Image = Global.DD_Record_Organizer.My.Resources.Resources.bell_go
resources.ApplyResources(Me.btnstartstop2, "btnstartstop2")
Me.btnstartstop2.Name = "btnstartstop2" Me.btnstartstop2.Name = "btnstartstop2"
Me.btnstartstop2.UseVisualStyleBackColor = True Me.btnstartstop2.UseVisualStyleBackColor = True
' '
'TabPage4
'
Me.TabPage4.Controls.Add(Me.btncheckWDFolderexists)
Me.TabPage4.Controls.Add(Me.txtwdFolder)
Me.TabPage4.Controls.Add(Me.Label12)
resources.ApplyResources(Me.TabPage4, "TabPage4")
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.UseVisualStyleBackColor = True
'
'Label12
'
resources.ApplyResources(Me.Label12, "Label12")
Me.Label12.Name = "Label12"
'
'txtwdFolder
'
resources.ApplyResources(Me.txtwdFolder, "txtwdFolder")
Me.txtwdFolder.Name = "txtwdFolder"
'
'btncheckWDFolderexists
'
resources.ApplyResources(Me.btncheckWDFolderexists, "btncheckWDFolderexists")
Me.btncheckWDFolderexists.Name = "btncheckWDFolderexists"
Me.btncheckWDFolderexists.UseVisualStyleBackColor = True
'
'frmConfig_Basic 'frmConfig_Basic
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -476,6 +507,8 @@ Partial Class frmConfig_Basic
Me.TabPage3.ResumeLayout(False) Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout() Me.TabPage3.PerformLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage4.ResumeLayout(False)
Me.TabPage4.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@ -531,4 +564,8 @@ Partial Class frmConfig_Basic
Friend WithEvents btndeleteProxy As System.Windows.Forms.Button Friend WithEvents btndeleteProxy As System.Windows.Forms.Button
Friend WithEvents lblLinkedServer As System.Windows.Forms.Label Friend WithEvents lblLinkedServer As System.Windows.Forms.Label
Friend WithEvents txtLinkedServer As System.Windows.Forms.TextBox Friend WithEvents txtLinkedServer As System.Windows.Forms.TextBox
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
Friend WithEvents btncheckWDFolderexists As System.Windows.Forms.Button
Friend WithEvents txtwdFolder As System.Windows.Forms.TextBox
Friend WithEvents Label12 As System.Windows.Forms.Label
End Class End Class

2889
app/DD-Record-Organizer/frmConfig_Basic.resx
View File

File diff suppressed because it is too large Load Diff

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

@ -523,4 +523,14 @@ Public Class frmConfig_Basic
SaveMySettingsValue("MyLinkedServer", txtLinkedServer.Text, "ConfigMain") SaveMySettingsValue("MyLinkedServer", txtLinkedServer.Text, "ConfigMain")
ClassProxy.MyLinkedServer = txtLinkedServer.Text ClassProxy.MyLinkedServer = txtLinkedServer.Text
End Sub End Sub
Private Sub btncheckWDFolderexists_Click(sender As Object, e As EventArgs) Handles btncheckWDFolderexists.Click
If txtwdFolder.Text <> String.Empty And clsWindream.SESSION_CREATED = True Then
If clsWD_GET.WD_PATH_EXISTS(txtwdFolder.Text.Replace("W:", "")) Then
MsgBox("Folder exists in windream!")
Else
MsgBox("Folder is not existing in windream!", MsgBoxStyle.Critical)
End If
End If
End Sub
End Class End Class

36
app/DD-Record-Organizer/frmConstructor_Main.resx
View File

@ -525,7 +525,7 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1074, 212</value> <value>1067, 212</value>
</data> </data>
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -665,7 +665,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>1074, 25</value> <value>1067, 25</value>
</data> </data>
<data name="ToolStripRecords.TabIndex" type="System.Int32, mscorlib"> <data name="ToolStripRecords.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -749,7 +749,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>786, 343</value> <value>786, 336</value>
</data> </data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -779,7 +779,7 @@
<value>0, 26</value> <value>0, 26</value>
</data> </data>
<data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
<value>561, 293</value> <value>554, 286</value>
</data> </data>
<data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -826,10 +826,10 @@
<value>Ansicht eingeschränkt - Klick Bearbeiten für Entsperren</value> <value>Ansicht eingeschränkt - Klick Bearbeiten für Entsperren</value>
</data> </data>
<data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing"> <data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 319</value> <value>0, 312</value>
</data> </data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing"> <data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>561, 24</value> <value>554, 24</value>
</data> </data>
<data name="statStripDoc.TabIndex" type="System.Int32, mscorlib"> <data name="statStripDoc.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -856,7 +856,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>561, 26</value> <value>554, 26</value>
</data> </data>
<data name="pnlDocToolStrip.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDocToolStrip.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -877,7 +877,7 @@
<value>Panel2</value> <value>Panel2</value>
</data> </data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1356, 340</value>
</data> </data>
<data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib"> <data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -1050,7 +1050,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value> <value>1356, 365</value>
</data> </data>
<data name="TabDetails.Text" xml:space="preserve"> <data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value> <value>Detailansicht</value>
@ -1068,7 +1068,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1362, 403</value> <value>1362, 396</value>
</data> </data>
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib"> <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -1083,7 +1083,7 @@
<value>Cyan</value> <value>Cyan</value>
</data> </data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1356, 340</value>
</data> </data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -1107,7 +1107,7 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1356, 340</value>
</data> </data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib"> <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@ -1352,7 +1352,7 @@
</value> </value>
</data> </data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value> <value>1356, 365</value>
</data> </data>
<data name="TabPos.Text" xml:space="preserve"> <data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value> <value>Positionen</value>
@ -1414,7 +1414,7 @@
<value>Aqua</value> <value>Aqua</value>
</data> </data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1356, 340</value>
</data> </data>
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
<value>7</value> <value>7</value>
@ -1516,7 +1516,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value> <value>1356, 365</value>
</data> </data>
<data name="TabWindream.Text" xml:space="preserve"> <data name="TabWindream.Text" xml:space="preserve">
<value>Dateien</value> <value>Dateien</value>
@ -1947,7 +1947,7 @@
<value>2</value> <value>2</value>
</data> </data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value> <value>1356, 365</value>
</data> </data>
<data name="TabFollowUp.Text" xml:space="preserve"> <data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value> <value>Wiedervorlage</value>
@ -2058,7 +2058,7 @@
<value>5</value> <value>5</value>
</data> </data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1356, 340</value>
</data> </data>
<data name="GridControl1.TabIndex" type="System.Int32, mscorlib"> <data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
<value>90</value> <value>90</value>
@ -2130,7 +2130,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value> <value>1356, 365</value>
</data> </data>
<data name="TabPageVariant.Text" xml:space="preserve"> <data name="TabPageVariant.Text" xml:space="preserve">
<value>Vorgängervarianten</value> <value>Vorgängervarianten</value>

39
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@ -2354,8 +2354,6 @@ Public Class frmConstructor_Main
If WD_ShowEnitityDocs = True Then If WD_ShowEnitityDocs = True Then
Clear_Windream_ResultList() Clear_Windream_ResultList()
GridControlDocSearch.Visible = True GridControlDocSearch.Visible = True
'RUN_WD_SEARCH("", "ENTITY")
' RUN_WDSEARCH_GRID("ENTITY")
End If End If
End If End If
End If End If
@ -2493,9 +2491,6 @@ Public Class frmConstructor_Main
'ToolStripDokumente.Dock = DockStyle.None 'ToolStripDokumente.Dock = DockStyle.None
pnlDocToolStrip.Controls.Add(ToolStripDokumente) pnlDocToolStrip.Controls.Add(ToolStripDokumente)
pnlDocFill.Controls.Add(GridControlDocSearch) pnlDocFill.Controls.Add(GridControlDocSearch)
'ToolStripDokumente.Dock = DockStyle.Top
'GridControlDocSearch.Dock = DockStyle.None
'GridControlDocSearch.Dock = DockStyle.Top
TabWindream.PageVisible = False TabWindream.PageVisible = False
@ -2506,9 +2501,7 @@ Public Class frmConstructor_Main
'ToolStripDokumente.Dock = DockStyle.None 'ToolStripDokumente.Dock = DockStyle.None
TabWindream.Controls.Add(ToolStripDokumente) TabWindream.Controls.Add(ToolStripDokumente)
'ToolStripDokumente.Dock = DockStyle.Top 'ToolStripDokumente.Dock = DockStyle.Top
'GridControlDocSearch.Dock = DockStyle.None
TabWindream.Controls.Add(GridControlDocSearch) TabWindream.Controls.Add(GridControlDocSearch)
'GridControlDocSearch.Dock = DockStyle.Top
TabWindream.PageVisible = True TabWindream.PageVisible = True
End If End If
If RIGHT_READ_ONLY_DOC = False Then If RIGHT_READ_ONLY_DOC = False Then
@ -3718,7 +3711,7 @@ Public Class frmConstructor_Main
Dim CheckBox As CheckEdit = sender Dim CheckBox As CheckEdit = sender
Dim value As Boolean = CheckBox.EditValue Dim value As Boolean = CheckBox.EditValue
' Config id über mainView -> detailView herausfinden 'Config id über mainView -> detailView herausfinden
Dim mainView As GridView = GridControlDocSearch.MainView Dim mainView As GridView = GridControlDocSearch.MainView
Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails")) Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails"))
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle) Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
@ -6554,35 +6547,6 @@ Public Class frmConstructor_Main
End Try End Try
End Sub End Sub
'Private Sub GridViewDoc_Search_MasterRowExpanded(sender As Object, e As CustomMasterRowEventArgs) Handles GridViewDoc_Search.MasterRowExpanded
' Dim focusedRow = GridViewDoc_Search.GetDataRow(e.RowHandle)
' Dim docID As Integer = focusedRow(3)
' Dim DT_DETAILS_SQL = String.Format("SELECT T.[GUID],{2},T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " &
' "FROM TBPMO_DOC_VALUES T RIGHT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}'", CURRENT_ENTITY_ID, USER_LANGUAGE, docID)
' Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL, True)
'End Sub
'Private Sub GridViewDoc_Search_MasterRowGetChildList(sender As Object, e As MasterRowGetChildListEventArgs) Handles GridViewDoc_Search.MasterRowGetChildList
' Try
' Dim focusedRow = GridViewDoc_Search.GetDataRow(e.RowHandle)
' Dim docID As Integer = focusedRow(3)
' Dim DT_DETAILS_SQL = String.Format("SELECT T.[GUID],{2},T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " &
' "FROM TBPMO_DOC_VALUES T RIGHT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}'", CURRENT_ENTITY_ID, USER_LANGUAGE, docID)
' Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL, True)
' e.ChildList = DT_DETAILS
' Catch ex As Exception
' ClassHelper.MSGBOX_Handler("ERROR", "", ex.Message, ex.StackTrace)
' End Try
'End Sub
Private Sub TimerClearResultfiles_Tick(sender As Object, e As EventArgs) Handles TimerClearResultfiles.Tick Private Sub TimerClearResultfiles_Tick(sender As Object, e As EventArgs) Handles TimerClearResultfiles.Tick
Try Try
For Each row As DataRow In CURRENT_TBPMO_FILES_USER.Rows For Each row As DataRow In CURRENT_TBPMO_FILES_USER.Rows
@ -6600,6 +6564,7 @@ Public Class frmConstructor_Main
End If End If
Next Next
CURRENT_TBPMO_FILES_USER.AcceptChanges() CURRENT_TBPMO_FILES_USER.AcceptChanges()
ClassFolderWatcher.Check_Scan_Files()
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "", "Unexpected Error in clearing User-Files: " & ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "", "Unexpected Error in clearing User-Files: " & ex.Message, ex.StackTrace)
Finally Finally

70
app/DD-Record-Organizer/frmDoctype_NameConvention.designer.vb generated
View File

@ -104,10 +104,10 @@ Partial Class frmDoctype_NameConvention
' '
'GroupBox1 'GroupBox1
' '
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Controls.Add(Me.Label2) Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.btnAddIndexM) Me.GroupBox1.Controls.Add(Me.btnAddIndexM)
Me.GroupBox1.Controls.Add(Me.cmbIndex_AUTO) Me.GroupBox1.Controls.Add(Me.cmbIndex_AUTO)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
' '
@ -118,8 +118,8 @@ Partial Class frmDoctype_NameConvention
' '
'btnAddIndexM 'btnAddIndexM
' '
Me.btnAddIndexM.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD
resources.ApplyResources(Me.btnAddIndexM, "btnAddIndexM") resources.ApplyResources(Me.btnAddIndexM, "btnAddIndexM")
Me.btnAddIndexM.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD
Me.btnAddIndexM.Name = "btnAddIndexM" Me.btnAddIndexM.Name = "btnAddIndexM"
Me.btnAddIndexM.UseVisualStyleBackColor = True Me.btnAddIndexM.UseVisualStyleBackColor = True
' '
@ -146,8 +146,8 @@ Partial Class frmDoctype_NameConvention
' '
'cmbEntity 'cmbEntity
' '
Me.cmbEntity.DisplayMember = "GUID"
resources.ApplyResources(Me.cmbEntity, "cmbEntity") resources.ApplyResources(Me.cmbEntity, "cmbEntity")
Me.cmbEntity.DisplayMember = "GUID"
Me.cmbEntity.FormattingEnabled = True Me.cmbEntity.FormattingEnabled = True
Me.cmbEntity.Name = "cmbEntity" Me.cmbEntity.Name = "cmbEntity"
Me.cmbEntity.ValueMember = "GUID" Me.cmbEntity.ValueMember = "GUID"
@ -161,9 +161,9 @@ Partial Class frmDoctype_NameConvention
' '
'cmbIndex_Controls 'cmbIndex_Controls
' '
resources.ApplyResources(Me.cmbIndex_Controls, "cmbIndex_Controls")
Me.cmbIndex_Controls.DataSource = Me.TBDD_INDEX_AUTOMBindingSource Me.cmbIndex_Controls.DataSource = Me.TBDD_INDEX_AUTOMBindingSource
Me.cmbIndex_Controls.DisplayMember = "INDEXNAME" Me.cmbIndex_Controls.DisplayMember = "INDEXNAME"
resources.ApplyResources(Me.cmbIndex_Controls, "cmbIndex_Controls")
Me.cmbIndex_Controls.FormattingEnabled = True Me.cmbIndex_Controls.FormattingEnabled = True
Me.cmbIndex_Controls.Name = "cmbIndex_Controls" Me.cmbIndex_Controls.Name = "cmbIndex_Controls"
Me.cmbIndex_Controls.ValueMember = "DOCTYPE_ID" Me.cmbIndex_Controls.ValueMember = "DOCTYPE_ID"
@ -175,20 +175,20 @@ Partial Class frmDoctype_NameConvention
' '
'GroupBox2 'GroupBox2
' '
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Controls.Add(Me.btnAddDivers) Me.GroupBox2.Controls.Add(Me.btnAddDivers)
Me.GroupBox2.Controls.Add(Me.cmbdivers) Me.GroupBox2.Controls.Add(Me.cmbdivers)
Me.GroupBox2.Controls.Add(Me.Label8) Me.GroupBox2.Controls.Add(Me.Label8)
Me.GroupBox2.Controls.Add(Me.Button1) Me.GroupBox2.Controls.Add(Me.Button1)
Me.GroupBox2.Controls.Add(Me.cmbDate) Me.GroupBox2.Controls.Add(Me.cmbDate)
Me.GroupBox2.Controls.Add(Me.Label20) Me.GroupBox2.Controls.Add(Me.Label20)
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False Me.GroupBox2.TabStop = False
' '
'btnAddDivers 'btnAddDivers
' '
Me.btnAddDivers.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD
resources.ApplyResources(Me.btnAddDivers, "btnAddDivers") resources.ApplyResources(Me.btnAddDivers, "btnAddDivers")
Me.btnAddDivers.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD
Me.btnAddDivers.Name = "btnAddDivers" Me.btnAddDivers.Name = "btnAddDivers"
Me.btnAddDivers.UseVisualStyleBackColor = True Me.btnAddDivers.UseVisualStyleBackColor = True
' '
@ -206,8 +206,8 @@ Partial Class frmDoctype_NameConvention
' '
'Button1 'Button1
' '
Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD
resources.ApplyResources(Me.Button1, "Button1") resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.UseVisualStyleBackColor = True Me.Button1.UseVisualStyleBackColor = True
' '
@ -225,22 +225,22 @@ Partial Class frmDoctype_NameConvention
' '
'btndelete 'btndelete
' '
Me.btndelete.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete
resources.ApplyResources(Me.btndelete, "btndelete") resources.ApplyResources(Me.btndelete, "btndelete")
Me.btndelete.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete
Me.btndelete.Name = "btndelete" Me.btndelete.Name = "btndelete"
Me.btndelete.UseVisualStyleBackColor = True Me.btndelete.UseVisualStyleBackColor = True
' '
'btnOK 'btnOK
' '
Me.btnOK.Image = Global.DD_Record_Organizer.My.Resources.Resources.save
resources.ApplyResources(Me.btnOK, "btnOK") resources.ApplyResources(Me.btnOK, "btnOK")
Me.btnOK.Image = Global.DD_Record_Organizer.My.Resources.Resources.save
Me.btnOK.Name = "btnOK" Me.btnOK.Name = "btnOK"
Me.btnOK.UseVisualStyleBackColor = True Me.btnOK.UseVisualStyleBackColor = True
' '
'btnclose 'btnclose
' '
Me.btnclose.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel
resources.ApplyResources(Me.btnclose, "btnclose") resources.ApplyResources(Me.btnclose, "btnclose")
Me.btnclose.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel
Me.btnclose.Name = "btnclose" Me.btnclose.Name = "btnclose"
Me.btnclose.UseVisualStyleBackColor = True Me.btnclose.UseVisualStyleBackColor = True
' '
@ -256,6 +256,7 @@ Partial Class frmDoctype_NameConvention
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Me.TBDD_INDEX_AUTOMTableAdapter Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Me.TBDD_INDEX_AUTOMTableAdapter
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_APPOINTMENTSTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
@ -269,6 +270,7 @@ Partial Class frmDoctype_NameConvention
Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RIGHT_GROUPTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RIGHT_GROUPTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RIGHT_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing
@ -278,6 +280,7 @@ Partial Class frmDoctype_NameConvention
Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
@ -288,29 +291,29 @@ Partial Class frmDoctype_NameConvention
' '
'VERSION_DELIMITERTextBox 'VERSION_DELIMITERTextBox
' '
resources.ApplyResources(Me.VERSION_DELIMITERTextBox, "VERSION_DELIMITERTextBox")
Me.VERSION_DELIMITERTextBox.BorderStyle = System.Windows.Forms.BorderStyle.None Me.VERSION_DELIMITERTextBox.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.VERSION_DELIMITERTextBox.ForeColor = System.Drawing.SystemColors.Control Me.VERSION_DELIMITERTextBox.ForeColor = System.Drawing.SystemColors.Control
resources.ApplyResources(Me.VERSION_DELIMITERTextBox, "VERSION_DELIMITERTextBox")
Me.VERSION_DELIMITERTextBox.Name = "VERSION_DELIMITERTextBox" Me.VERSION_DELIMITERTextBox.Name = "VERSION_DELIMITERTextBox"
Me.VERSION_DELIMITERTextBox.ReadOnly = True Me.VERSION_DELIMITERTextBox.ReadOnly = True
' '
'FILE_DELIMITERTextBox 'FILE_DELIMITERTextBox
' '
resources.ApplyResources(Me.FILE_DELIMITERTextBox, "FILE_DELIMITERTextBox")
Me.FILE_DELIMITERTextBox.BorderStyle = System.Windows.Forms.BorderStyle.None Me.FILE_DELIMITERTextBox.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.FILE_DELIMITERTextBox.ForeColor = System.Drawing.SystemColors.Control Me.FILE_DELIMITERTextBox.ForeColor = System.Drawing.SystemColors.Control
resources.ApplyResources(Me.FILE_DELIMITERTextBox, "FILE_DELIMITERTextBox")
Me.FILE_DELIMITERTextBox.Name = "FILE_DELIMITERTextBox" Me.FILE_DELIMITERTextBox.Name = "FILE_DELIMITERTextBox"
Me.FILE_DELIMITERTextBox.ReadOnly = True Me.FILE_DELIMITERTextBox.ReadOnly = True
' '
'GroupBox3 'GroupBox3
' '
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Controls.Add(Me.Label5) Me.GroupBox3.Controls.Add(Me.Label5)
Me.GroupBox3.Controls.Add(Me.btnAddIndexA) Me.GroupBox3.Controls.Add(Me.btnAddIndexA)
Me.GroupBox3.Controls.Add(Me.Label4) Me.GroupBox3.Controls.Add(Me.Label4)
Me.GroupBox3.Controls.Add(Me.cmbEntity) Me.GroupBox3.Controls.Add(Me.cmbEntity)
Me.GroupBox3.Controls.Add(Me.cmbIndex_Controls) Me.GroupBox3.Controls.Add(Me.cmbIndex_Controls)
Me.GroupBox3.Controls.Add(Me.Label3) Me.GroupBox3.Controls.Add(Me.Label3)
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.TabStop = False Me.GroupBox3.TabStop = False
' '
@ -333,6 +336,18 @@ Partial Class frmDoctype_NameConvention
' '
resources.ApplyResources(Me.GridControl1, "GridControl1") resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.DataSource = Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource Me.GridControl1.DataSource = Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource
Me.GridControl1.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControl1.EmbeddedNavigator.AccessibleDescription")
Me.GridControl1.EmbeddedNavigator.AccessibleName = resources.GetString("GridControl1.EmbeddedNavigator.AccessibleName")
Me.GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControl1.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControl1.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControl1.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControl1.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControl1.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControl1.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControl1.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControl1.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControl1.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControl1.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControl1.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControl1.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControl1.EmbeddedNavigator.ToolTip = resources.GetString("GridControl1.EmbeddedNavigator.ToolTip")
Me.GridControl1.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControl1.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControl1.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControl1.EmbeddedNavigator.ToolTipTitle")
Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1" Me.GridControl1.Name = "GridControl1"
Me.GridControl1.ShowOnlyPredefinedDetails = True Me.GridControl1.ShowOnlyPredefinedDetails = True
@ -346,7 +361,12 @@ Partial Class frmDoctype_NameConvention
'GridView1 'GridView1
' '
Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color) Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.EvenRow.FontSizeDelta = CType(resources.GetObject("GridView1.Appearance.EvenRow.FontSizeDelta"), Integer)
Me.GridView1.Appearance.EvenRow.FontStyleDelta = CType(resources.GetObject("GridView1.Appearance.EvenRow.FontStyleDelta"), System.Drawing.FontStyle)
Me.GridView1.Appearance.EvenRow.GradientMode = CType(resources.GetObject("GridView1.Appearance.EvenRow.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.GridView1.Appearance.EvenRow.Image = CType(resources.GetObject("GridView1.Appearance.EvenRow.Image"), System.Drawing.Image)
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridView1, "GridView1")
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colPATTERN, Me.colFORMAT_RULE, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHEN}) Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colPATTERN, Me.colFORMAT_RULE, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHEN})
Me.GridView1.GridControl = Me.GridControl1 Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1" Me.GridView1.Name = "GridView1"
@ -405,11 +425,11 @@ Partial Class frmDoctype_NameConvention
' '
'BindingNavigator1 'BindingNavigator1
' '
resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1")
Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem
Me.BindingNavigator1.BindingSource = Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource Me.BindingNavigator1.BindingSource = Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource
Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem
Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem
resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1")
Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.ToolStripButtonSave}) Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.ToolStripButtonSave})
Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem
@ -420,37 +440,37 @@ Partial Class frmDoctype_NameConvention
' '
'BindingNavigatorAddNewItem 'BindingNavigatorAddNewItem
' '
Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem") resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem")
Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
' '
'BindingNavigatorCountItem 'BindingNavigatorCountItem
' '
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem") resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem")
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
' '
'BindingNavigatorDeleteItem 'BindingNavigatorDeleteItem
' '
Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem") resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem")
Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
' '
'BindingNavigatorMoveFirstItem 'BindingNavigatorMoveFirstItem
' '
Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem") resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem")
Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
' '
'BindingNavigatorMovePreviousItem 'BindingNavigatorMovePreviousItem
' '
Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem") resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem")
Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
' '
'BindingNavigatorSeparator 'BindingNavigatorSeparator
' '
Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator") resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator")
Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
' '
'BindingNavigatorPositionItem 'BindingNavigatorPositionItem
' '
@ -459,31 +479,31 @@ Partial Class frmDoctype_NameConvention
' '
'BindingNavigatorSeparator1 'BindingNavigatorSeparator1
' '
Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1") resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1")
Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
' '
'BindingNavigatorMoveNextItem 'BindingNavigatorMoveNextItem
' '
Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem") resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem")
Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
' '
'BindingNavigatorMoveLastItem 'BindingNavigatorMoveLastItem
' '
Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem") resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem")
Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
' '
'BindingNavigatorSeparator2 'BindingNavigatorSeparator2
' '
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2") resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2")
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
' '
'ToolStripButtonSave 'ToolStripButtonSave
' '
resources.ApplyResources(Me.ToolStripButtonSave, "ToolStripButtonSave")
Me.ToolStripButtonSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.ToolStripButtonSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButtonSave.Image = Global.DD_Record_Organizer.My.Resources.Resources.save Me.ToolStripButtonSave.Image = Global.DD_Record_Organizer.My.Resources.Resources.save
resources.ApplyResources(Me.ToolStripButtonSave, "ToolStripButtonSave")
Me.ToolStripButtonSave.Name = "ToolStripButtonSave" Me.ToolStripButtonSave.Name = "ToolStripButtonSave"
' '
'lblSave 'lblSave

74
app/DD-Record-Organizer/frmDoctype_NameConvention.en-US.resx
View File

@ -151,9 +151,6 @@ and can also be used for filenames</value>
<data name="GroupBox2.Text" xml:space="preserve"> <data name="GroupBox2.Text" xml:space="preserve">
<value>Insert variables:</value> <value>Insert variables:</value>
</data> </data>
<data name="btnTrennzeichen.Text" xml:space="preserve">
<value>File separator</value>
</data>
<data name="Label20.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label20.Size" type="System.Drawing.Size, System.Drawing">
<value>84, 17</value> <value>84, 17</value>
</data> </data>
@ -164,13 +161,13 @@ and can also be used for filenames</value>
<value>Delete convention</value> <value>Delete convention</value>
</data> </data>
<data name="btnOK.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnOK.Location" type="System.Drawing.Point, System.Drawing">
<value>498, 276</value> <value>497, 264</value>
</data> </data>
<data name="btnOK.Text" xml:space="preserve"> <data name="btnOK.Text" xml:space="preserve">
<value>Save</value> <value>Save</value>
</data> </data>
<data name="btnclose.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnclose.Location" type="System.Drawing.Point, System.Drawing">
<value>498, 308</value> <value>498, 312</value>
</data> </data>
<data name="btnclose.Text" xml:space="preserve"> <data name="btnclose.Text" xml:space="preserve">
<value>Cancel</value> <value>Cancel</value>
@ -190,6 +187,73 @@ and can also be used for filenames</value>
<data name="Label7.Text" xml:space="preserve"> <data name="Label7.Text" xml:space="preserve">
<value>.file extension</value> <value>.file extension</value>
</data> </data>
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
/5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
rkJggg==
</value>
</data>
<data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
</value>
</data>
<data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
oAc0QjgAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value>
</data>
<data name="lblSave.Location" type="System.Drawing.Point, System.Drawing">
<value>495, 294</value>
</data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>Assistant for name convention/filenames</value> <value>Assistant for name convention/filenames</value>
</data> </data>

2433
app/DD-Record-Organizer/frmDoctype_NameConvention.resx
View File

File diff suppressed because it is too large Load Diff

19
app/DD-Record-Organizer/frmDoctype_NameConvention.vb
View File

@ -47,8 +47,6 @@
Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
Dim autoIIndex = "SELECT GUID, CASE WHEN INDEXNAME = '(ONLY for Nameconvention)' THEN 'NC_' + COMMENT ELSE INDEXNAME END as INDEXNAME FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & frmWD_Dokumentart_Konfig.akt_DokartID Dim autoIIndex = "SELECT GUID, CASE WHEN INDEXNAME = '(ONLY for Nameconvention)' THEN 'NC_' + COMMENT ELSE INDEXNAME END as INDEXNAME FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & frmWD_Dokumentart_Konfig.akt_DokartID
Dim DTAUTOINDEX As DataTable = ClassDatabase.Return_Datatable(autoIIndex) Dim DTAUTOINDEX As DataTable = ClassDatabase.Return_Datatable(autoIIndex)
@ -59,12 +57,17 @@
cmbEntity.ValueMember = DT_ENTITIES.Columns(0).ColumnName cmbEntity.ValueMember = DT_ENTITIES.Columns(0).ColumnName
cmbEntity.SelectedIndex = 0 cmbEntity.SelectedIndex = 0
If DTAUTOINDEX.Rows.Count > 0 Then
cmbIndex_AUTO.DataSource = DTAUTOINDEX cmbIndex_AUTO.DataSource = DTAUTOINDEX
cmbIndex_AUTO.DisplayMember = DTAUTOINDEX.Columns(1).ColumnName cmbIndex_AUTO.DisplayMember = DTAUTOINDEX.Columns(1).ColumnName
cmbIndex_AUTO.ValueMember = DTAUTOINDEX.Columns(0).ColumnName cmbIndex_AUTO.ValueMember = DTAUTOINDEX.Columns(0).ColumnName
cmbIndex_AUTO.SelectedIndex = 0 cmbIndex_AUTO.SelectedIndex = 0
'txtnamenKonv.Text = frmDokumentart_Konfig.akt_Namenkonvention cmbIndex_AUTO.Enabled = True
btnAddIndexA.Enabled = True
Else
cmbIndex_AUTO.Enabled = False
btnAddIndexA.Enabled = False
End If
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler beim Laden der Grunddaten zur Dokumentart: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Fehler beim Laden der Grunddaten zur Dokumentart: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try

46
app/DD-Record-Organizer/frmMain.Designer.vb generated
View File

@ -97,6 +97,7 @@ Partial Class frmMain
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
Me.TimerInformation = New System.Windows.Forms.Timer(Me.components) Me.TimerInformation = New System.Windows.Forms.Timer(Me.components)
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cmsSystray.SuspendLayout() Me.cmsSystray.SuspendLayout()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -107,26 +108,26 @@ Partial Class frmMain
'NotifyIcon 'NotifyIcon
' '
Me.NotifyIcon.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info Me.NotifyIcon.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
resources.ApplyResources(Me.NotifyIcon, "NotifyIcon")
Me.NotifyIcon.ContextMenuStrip = Me.cmsSystray Me.NotifyIcon.ContextMenuStrip = Me.cmsSystray
resources.ApplyResources(Me.NotifyIcon, "NotifyIcon")
' '
'cmsSystray 'cmsSystray
' '
resources.ApplyResources(Me.cmsSystray, "cmsSystray")
Me.cmsSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ADDIBeendenToolStripMenuItem, Me.CockpitAnzeigenToolStripMenuItem}) Me.cmsSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ADDIBeendenToolStripMenuItem, Me.CockpitAnzeigenToolStripMenuItem})
Me.cmsSystray.Name = "cmsSystray" Me.cmsSystray.Name = "cmsSystray"
resources.ApplyResources(Me.cmsSystray, "cmsSystray")
' '
'ADDIBeendenToolStripMenuItem 'ADDIBeendenToolStripMenuItem
' '
resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem")
Me.ADDIBeendenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel1 Me.ADDIBeendenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel1
Me.ADDIBeendenToolStripMenuItem.Name = "ADDIBeendenToolStripMenuItem" Me.ADDIBeendenToolStripMenuItem.Name = "ADDIBeendenToolStripMenuItem"
resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem")
' '
'CockpitAnzeigenToolStripMenuItem 'CockpitAnzeigenToolStripMenuItem
' '
resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem")
Me.CockpitAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.WebUserControl_ascx__11270_16x Me.CockpitAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.WebUserControl_ascx__11270_16x
Me.CockpitAnzeigenToolStripMenuItem.Name = "CockpitAnzeigenToolStripMenuItem" Me.CockpitAnzeigenToolStripMenuItem.Name = "CockpitAnzeigenToolStripMenuItem"
resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem")
' '
'TimerTasks 'TimerTasks
' '
@ -190,11 +191,11 @@ Partial Class frmMain
' '
'ribbonMain 'ribbonMain
' '
resources.ApplyResources(Me.ribbonMain, "ribbonMain")
Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
Me.ribbonMain.ExpandCollapseItem.Id = 0 Me.ribbonMain.ExpandCollapseItem.Id = 0
Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.bbtnItemViewsUser, Me.BarButtonItem23, Me.itemRefreshProxy, Me.LabelProxyServer, Me.BarSubItem2, Me.BarButtonItem24, Me.BarButtonItem25, Me.StatusPersonifiedLogin}) Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.bbtnItemViewsUser, Me.BarButtonItem23, Me.itemRefreshProxy, Me.LabelProxyServer, Me.BarSubItem2, Me.BarButtonItem24, Me.BarButtonItem25, Me.StatusPersonifiedLogin})
resources.ApplyResources(Me.ribbonMain, "ribbonMain")
Me.ribbonMain.MaxItemId = 6 Me.ribbonMain.MaxItemId = 6
Me.ribbonMain.Name = "ribbonMain" Me.ribbonMain.Name = "ribbonMain"
Me.ribbonMain.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1}) Me.ribbonMain.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1})
@ -211,10 +212,6 @@ Partial Class frmMain
Me.MainMenu.ItemLinks.Add(Me.itemInfo) Me.MainMenu.ItemLinks.Add(Me.itemInfo)
Me.MainMenu.ItemLinks.Add(Me.itemAbout) Me.MainMenu.ItemLinks.Add(Me.itemAbout)
Me.MainMenu.ItemLinks.Add(Me.itemExit) Me.MainMenu.ItemLinks.Add(Me.itemExit)
Me.MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta"), Integer)
Me.MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.MainMenu.MenuAppearance.HeaderItemAppearance.Image = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.Image"), System.Drawing.Image)
Me.MainMenu.Name = "MainMenu" Me.MainMenu.Name = "MainMenu"
Me.MainMenu.Ribbon = Me.ribbonMain Me.MainMenu.Ribbon = Me.ribbonMain
' '
@ -439,10 +436,6 @@ Partial Class frmMain
resources.ApplyResources(Me.BarSubItem1, "BarSubItem1") resources.ApplyResources(Me.BarSubItem1, "BarSubItem1")
Me.BarSubItem1.Id = 38 Me.BarSubItem1.Id = 38
Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem14), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem21), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem22), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem9), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem23)}) Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem14), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem21), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem22), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem9), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem23)})
Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.FontSizeDelta = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.FontSizeDelta"), Integer)
Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.FontStyleDelta = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.GradientMode = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.Image = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.Image"), System.Drawing.Image)
Me.BarSubItem1.Name = "BarSubItem1" Me.BarSubItem1.Name = "BarSubItem1"
Me.BarSubItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Me.BarSubItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
' '
@ -519,8 +512,6 @@ Partial Class frmMain
Me.LabelProxyServer.Glyph = CType(resources.GetObject("LabelProxyServer.Glyph"), System.Drawing.Image) Me.LabelProxyServer.Glyph = CType(resources.GetObject("LabelProxyServer.Glyph"), System.Drawing.Image)
Me.LabelProxyServer.Id = 1 Me.LabelProxyServer.Id = 1
Me.LabelProxyServer.ItemAppearance.Normal.Font = CType(resources.GetObject("LabelProxyServer.ItemAppearance.Normal.Font"), System.Drawing.Font) Me.LabelProxyServer.ItemAppearance.Normal.Font = CType(resources.GetObject("LabelProxyServer.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.LabelProxyServer.ItemAppearance.Normal.FontSizeDelta = CType(resources.GetObject("LabelProxyServer.ItemAppearance.Normal.FontSizeDelta"), Integer)
Me.LabelProxyServer.ItemAppearance.Normal.FontStyleDelta = CType(resources.GetObject("LabelProxyServer.ItemAppearance.Normal.FontStyleDelta"), System.Drawing.FontStyle)
Me.LabelProxyServer.ItemAppearance.Normal.ForeColor = CType(resources.GetObject("LabelProxyServer.ItemAppearance.Normal.ForeColor"), System.Drawing.Color) Me.LabelProxyServer.ItemAppearance.Normal.ForeColor = CType(resources.GetObject("LabelProxyServer.ItemAppearance.Normal.ForeColor"), System.Drawing.Color)
Me.LabelProxyServer.ItemAppearance.Normal.Options.UseFont = True Me.LabelProxyServer.ItemAppearance.Normal.Options.UseFont = True
Me.LabelProxyServer.ItemAppearance.Normal.Options.UseForeColor = True Me.LabelProxyServer.ItemAppearance.Normal.Options.UseForeColor = True
@ -533,10 +524,6 @@ Partial Class frmMain
resources.ApplyResources(Me.BarSubItem2, "BarSubItem2") resources.ApplyResources(Me.BarSubItem2, "BarSubItem2")
Me.BarSubItem2.Id = 2 Me.BarSubItem2.Id = 2
Me.BarSubItem2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem24), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem25)}) Me.BarSubItem2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem24), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem25)})
Me.BarSubItem2.MenuAppearance.HeaderItemAppearance.FontSizeDelta = CType(resources.GetObject("BarSubItem2.MenuAppearance.HeaderItemAppearance.FontSizeDelta"), Integer)
Me.BarSubItem2.MenuAppearance.HeaderItemAppearance.FontStyleDelta = CType(resources.GetObject("BarSubItem2.MenuAppearance.HeaderItemAppearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.BarSubItem2.MenuAppearance.HeaderItemAppearance.GradientMode = CType(resources.GetObject("BarSubItem2.MenuAppearance.HeaderItemAppearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.BarSubItem2.MenuAppearance.HeaderItemAppearance.Image = CType(resources.GetObject("BarSubItem2.MenuAppearance.HeaderItemAppearance.Image"), System.Drawing.Image)
Me.BarSubItem2.Name = "BarSubItem2" Me.BarSubItem2.Name = "BarSubItem2"
' '
'BarButtonItem24 'BarButtonItem24
@ -553,12 +540,9 @@ Partial Class frmMain
' '
'StatusPersonifiedLogin 'StatusPersonifiedLogin
' '
resources.ApplyResources(Me.StatusPersonifiedLogin, "StatusPersonifiedLogin")
Me.StatusPersonifiedLogin.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.user_16xLG Me.StatusPersonifiedLogin.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.user_16xLG
Me.StatusPersonifiedLogin.Id = 5 Me.StatusPersonifiedLogin.Id = 5
Me.StatusPersonifiedLogin.ItemAppearance.Normal.Font = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.Font"), System.Drawing.Font) Me.StatusPersonifiedLogin.ItemAppearance.Normal.Font = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.StatusPersonifiedLogin.ItemAppearance.Normal.FontSizeDelta = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.FontSizeDelta"), Integer)
Me.StatusPersonifiedLogin.ItemAppearance.Normal.FontStyleDelta = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.FontStyleDelta"), System.Drawing.FontStyle)
Me.StatusPersonifiedLogin.ItemAppearance.Normal.ForeColor = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.ForeColor"), System.Drawing.Color) Me.StatusPersonifiedLogin.ItemAppearance.Normal.ForeColor = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.ForeColor"), System.Drawing.Color)
Me.StatusPersonifiedLogin.ItemAppearance.Normal.Options.UseFont = True Me.StatusPersonifiedLogin.ItemAppearance.Normal.Options.UseFont = True
Me.StatusPersonifiedLogin.ItemAppearance.Normal.Options.UseForeColor = True Me.StatusPersonifiedLogin.ItemAppearance.Normal.Options.UseForeColor = True
@ -602,10 +586,6 @@ Partial Class frmMain
'pageForms 'pageForms
' '
Me.pageForms.Appearance.BackColor = CType(resources.GetObject("pageForms.Appearance.BackColor"), System.Drawing.Color) Me.pageForms.Appearance.BackColor = CType(resources.GetObject("pageForms.Appearance.BackColor"), System.Drawing.Color)
Me.pageForms.Appearance.FontSizeDelta = CType(resources.GetObject("pageForms.Appearance.FontSizeDelta"), Integer)
Me.pageForms.Appearance.FontStyleDelta = CType(resources.GetObject("pageForms.Appearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.pageForms.Appearance.GradientMode = CType(resources.GetObject("pageForms.Appearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.pageForms.Appearance.Image = CType(resources.GetObject("pageForms.Appearance.Image"), System.Drawing.Image)
Me.pageForms.Appearance.Options.UseBackColor = True Me.pageForms.Appearance.Options.UseBackColor = True
Me.pageForms.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.groupQuickAccessForm2}) Me.pageForms.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.groupQuickAccessForm2})
Me.pageForms.Image = Global.DD_Record_Organizer.My.Resources.Resources.application_form Me.pageForms.Image = Global.DD_Record_Organizer.My.Resources.Resources.application_form
@ -668,7 +648,6 @@ Partial Class frmMain
' '
'RibbonStatusBar1 'RibbonStatusBar1
' '
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelMachine) Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelMachine)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelUser) Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelUser)
Me.RibbonStatusBar1.ItemLinks.Add(Me.StatusPersonifiedLogin) Me.RibbonStatusBar1.ItemLinks.Add(Me.StatusPersonifiedLogin)
@ -676,6 +655,7 @@ Partial Class frmMain
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelVersion) Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelVersion)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLanguage) Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLanguage)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelProxyServer) Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelProxyServer)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.ribbonMain Me.RibbonStatusBar1.Ribbon = Me.ribbonMain
' '
@ -711,16 +691,17 @@ Partial Class frmMain
' '
Me.TimerInformation.Interval = 1000 Me.TimerInformation.Interval = 1000
' '
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
'
'frmMain 'frmMain
' '
resources.ApplyResources(Me, "$this")
Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color) Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color)
Me.Appearance.FontSizeDelta = CType(resources.GetObject("frmMain.Appearance.FontSizeDelta"), Integer)
Me.Appearance.FontStyleDelta = CType(resources.GetObject("frmMain.Appearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.Appearance.GradientMode = CType(resources.GetObject("frmMain.Appearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.Appearance.Image = CType(resources.GetObject("frmMain.Appearance.Image"), System.Drawing.Image)
Me.Appearance.Options.UseBackColor = True Me.Appearance.Options.UseBackColor = True
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.ribbonMain) Me.Controls.Add(Me.ribbonMain)
@ -812,6 +793,7 @@ Partial Class frmMain
Friend WithEvents BarButtonItem25 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem25 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents StatusPersonifiedLogin As DevExpress.XtraBars.BarStaticItem Friend WithEvents StatusPersonifiedLogin As DevExpress.XtraBars.BarStaticItem
Friend WithEvents TimerInformation As System.Windows.Forms.Timer Friend WithEvents TimerInformation As System.Windows.Forms.Timer
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
End Class End Class

5390
app/DD-Record-Organizer/frmMain.resx
View File

File diff suppressed because it is too large Load Diff

23
app/DD-Record-Organizer/frmMain.vb
View File

@ -40,11 +40,11 @@ Public Class frmMain
End Sub End Sub
Private Shared Sub Scan_TickHandler(sender As Object, e As EventArgs) Private Shared Sub Scan_TickHandler(sender As Object, e As EventArgs)
Try Try
Dim DT As DataTable = ClassFolderWatcher.Check_Scan_Files If ClassFolderWatcher.NEW_FILES = False Then Exit Sub
If Not IsNothing(DT) Then ClassFolderWatcher.Check_Scan_Files()
CURRENT_SCAN_TABLE = DT Dim open As Boolean = False
If DT.Rows.Count > 0 Then If Not IsNothing(CURRENT_SCAN_TABLE) Then
Dim open As Boolean = False If CURRENT_SCAN_TABLE.Rows.Count > 0 Then
For Each form In My.Application.OpenForms For Each form In My.Application.OpenForms
If (form.name = frmScanFiles.Name) Then If (form.name = frmScanFiles.Name) Then
'form is loaded so can do work 'form is loaded so can do work
@ -66,9 +66,10 @@ Public Class frmMain
frm.Show() frm.Show()
End If End If
End If End If
If DT.Rows.Count = 0 Then If CURRENT_SCAN_TABLE.Rows.Count = 0 And open = True Then
frmScanFiles.Close() frmScanFiles.Close()
End If End If
ClassFolderWatcher.NEW_FILES = False
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Scan_TickHandler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Scan_TickHandler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -649,8 +650,14 @@ Public Class frmMain
End If End If
If CONNECTION_CHANGED = True Then If CONNECTION_CHANGED = True Then
' Den User neu laden, damit MenuItems korrekt geladen werden können ' Den User neu laden, damit MenuItems korrekt geladen werden können
ClassInit.InitUserLogin() If ClassInit.InitDatabase = True Then
Load_Connection_Dep_Data() ClassInit.InitUserLogin()
Load_Connection_Dep_Data()
Else
MsgBox("Unexpected Error when new Initialize Database!", MsgBoxStyle.Critical)
End If
End If End If
If Task_Popup_minutes <> 0 Then If Task_Popup_minutes <> 0 Then
TimerTasks.Stop() TimerTasks.Stop()

68
app/DD-Record-Organizer/frmScanFiles.Designer.vb generated
View File

@ -25,7 +25,7 @@ Partial Class frmScanFiles
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmScanFiles)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmScanFiles))
Me.ListView1 = New System.Windows.Forms.ListView() Me.ListView1 = New System.Windows.Forms.ListView()
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.PdfViewer1 = New DevExpress.XtraPdfViewer.PdfViewer() Me.PdfViewer1 = New DevExpress.XtraPdfViewer.PdfViewer()
@ -69,29 +69,29 @@ Partial Class frmScanFiles
Me.PdfBarController2 = New DevExpress.XtraPdfViewer.Bars.PdfBarController() Me.PdfBarController2 = New DevExpress.XtraPdfViewer.Bars.PdfBarController()
Me.btndelete = New System.Windows.Forms.Button() Me.btndelete = New System.Windows.Forms.Button()
Me.chkInFront = New System.Windows.Forms.CheckBox() Me.chkInFront = New System.Windows.Forms.CheckBox()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.TimerCheckScanFiles = New System.Windows.Forms.Timer(Me.components)
Me.Timer2 = New System.Windows.Forms.Timer(Me.components) Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout
Me.StatusStrip2.SuspendLayout() Me.StatusStrip2.SuspendLayout
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PdfBarController1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PdfBarController2,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout() Me.SuspendLayout
' '
'ListView1 'ListView1
' '
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader2}) Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader2})
resources.ApplyResources(Me.ListView1, "ListView1") resources.ApplyResources(Me.ListView1, "ListView1")
Me.ListView1.FullRowSelect = True Me.ListView1.FullRowSelect = true
Me.ListView1.GridLines = True Me.ListView1.GridLines = true
Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
Me.ListView1.LargeImageList = Me.ImageList1 Me.ListView1.LargeImageList = Me.ImageList1
Me.ListView1.MultiSelect = False Me.ListView1.MultiSelect = false
Me.ListView1.Name = "ListView1" Me.ListView1.Name = "ListView1"
Me.ListView1.SmallImageList = Me.ImageList1 Me.ListView1.SmallImageList = Me.ImageList1
Me.ListView1.UseCompatibleStateImageBehavior = False Me.ListView1.UseCompatibleStateImageBehavior = false
Me.ListView1.View = System.Windows.Forms.View.Details Me.ListView1.View = System.Windows.Forms.View.Details
' '
'ColumnHeader2 'ColumnHeader2
@ -100,7 +100,7 @@ Partial Class frmScanFiles
' '
'ImageList1 'ImageList1
' '
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"),System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "doc_pdf.png") Me.ImageList1.Images.SetKeyName(0, "doc_pdf.png")
' '
@ -193,7 +193,7 @@ Partial Class frmScanFiles
'PdfExactZoomListBarSubItem1 'PdfExactZoomListBarSubItem1
' '
Me.PdfExactZoomListBarSubItem1.Id = 9 Me.PdfExactZoomListBarSubItem1.Id = 9
Me.PdfExactZoomListBarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom10CheckItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom25CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom50CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom75CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom100CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom125CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom150CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom200CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom400CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom500CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetActualSizeZoomModeCheckItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetPageLevelZoomModeCheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitWidthZoomModeCheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitVisibleZoomModeCheckItem1)}) Me.PdfExactZoomListBarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom10CheckItem1, true), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom25CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom50CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom75CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom100CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom125CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom150CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom200CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom400CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom500CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetActualSizeZoomModeCheckItem1, true), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetPageLevelZoomModeCheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitWidthZoomModeCheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitVisibleZoomModeCheckItem1)})
Me.PdfExactZoomListBarSubItem1.Name = "PdfExactZoomListBarSubItem1" Me.PdfExactZoomListBarSubItem1.Name = "PdfExactZoomListBarSubItem1"
Me.PdfExactZoomListBarSubItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu Me.PdfExactZoomListBarSubItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu
' '
@ -307,7 +307,7 @@ Partial Class frmScanFiles
' '
Me.PdfFormDataRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.PdfFormDataBarPageGroup1}) Me.PdfFormDataRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.PdfFormDataBarPageGroup1})
Me.PdfFormDataRibbonPage1.Name = "PdfFormDataRibbonPage1" Me.PdfFormDataRibbonPage1.Name = "PdfFormDataRibbonPage1"
Me.PdfFormDataRibbonPage1.Visible = False Me.PdfFormDataRibbonPage1.Visible = false
' '
'PdfFormDataBarPageGroup1 'PdfFormDataBarPageGroup1
' '
@ -320,7 +320,7 @@ Partial Class frmScanFiles
Me.btnrefresh.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG Me.btnrefresh.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.btnrefresh, "btnrefresh") resources.ApplyResources(Me.btnrefresh, "btnrefresh")
Me.btnrefresh.Name = "btnrefresh" Me.btnrefresh.Name = "btnrefresh"
Me.btnrefresh.UseVisualStyleBackColor = True Me.btnrefresh.UseVisualStyleBackColor = true
' '
'PdfBarController2 'PdfBarController2
' '
@ -357,19 +357,19 @@ Partial Class frmScanFiles
resources.ApplyResources(Me.btndelete, "btndelete") resources.ApplyResources(Me.btndelete, "btndelete")
Me.btndelete.Name = "btndelete" Me.btndelete.Name = "btndelete"
Me.ToolTip1.SetToolTip(Me.btndelete, resources.GetString("btndelete.ToolTip")) Me.ToolTip1.SetToolTip(Me.btndelete, resources.GetString("btndelete.ToolTip"))
Me.btndelete.UseVisualStyleBackColor = True Me.btndelete.UseVisualStyleBackColor = true
' '
'chkInFront 'chkInFront
' '
resources.ApplyResources(Me.chkInFront, "chkInFront") resources.ApplyResources(Me.chkInFront, "chkInFront")
Me.chkInFront.Checked = Global.DD_Record_Organizer.My.MySettings.Default.User_InBoxScan_NotinFront Me.chkInFront.Checked = Global.DD_Record_Organizer.My.MySettings.Default.User_InBoxScan_NotinFront
Me.chkInFront.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.DD_Record_Organizer.My.MySettings.Default, "User_InBoxScan_NotinFront", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.chkInFront.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.DD_Record_Organizer.My.MySettings.Default, "User_InBoxScan_NotinFront", true, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.chkInFront.Name = "chkInFront" Me.chkInFront.Name = "chkInFront"
Me.chkInFront.UseVisualStyleBackColor = True Me.chkInFront.UseVisualStyleBackColor = true
' '
'Timer1 'TimerCheckScanFiles
' '
Me.Timer1.Interval = 1000 Me.TimerCheckScanFiles.Interval = 5000
' '
'Button1 'Button1
' '
@ -377,7 +377,7 @@ Partial Class frmScanFiles
resources.ApplyResources(Me.Button1, "Button1") resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.ToolTip1.SetToolTip(Me.Button1, resources.GetString("Button1.ToolTip")) Me.ToolTip1.SetToolTip(Me.Button1, resources.GetString("Button1.ToolTip"))
Me.Button1.UseVisualStyleBackColor = True Me.Button1.UseVisualStyleBackColor = true
' '
'frmScanFiles 'frmScanFiles
' '
@ -389,19 +389,19 @@ Partial Class frmScanFiles
Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.btnrefresh) Me.Controls.Add(Me.btnrefresh)
Me.Controls.Add(Me.ListView1) Me.Controls.Add(Me.ListView1)
Me.MaximizeBox = False Me.MaximizeBox = false
Me.Name = "frmScanFiles" Me.Name = "frmScanFiles"
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(false)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout
Me.StatusStrip2.ResumeLayout(False) Me.StatusStrip2.ResumeLayout(false)
Me.StatusStrip2.PerformLayout() Me.StatusStrip2.PerformLayout
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PdfBarController1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PdfBarController2,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(False) Me.ResumeLayout(false)
Me.PerformLayout() Me.PerformLayout
End Sub End Sub
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents btnrefresh As System.Windows.Forms.Button Friend WithEvents btnrefresh As System.Windows.Forms.Button
@ -447,7 +447,7 @@ Partial Class frmScanFiles
Friend WithEvents btndelete As System.Windows.Forms.Button Friend WithEvents btndelete As System.Windows.Forms.Button
Friend WithEvents chkInFront As System.Windows.Forms.CheckBox Friend WithEvents chkInFront As System.Windows.Forms.CheckBox
Private WithEvents ListView1 As System.Windows.Forms.ListView Private WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents Timer1 As System.Windows.Forms.Timer Friend WithEvents TimerCheckScanFiles As System.Windows.Forms.Timer
Friend WithEvents Timer2 As System.Windows.Forms.Timer Friend WithEvents Timer2 As System.Windows.Forms.Timer
Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip

24
app/DD-Record-Organizer/frmScanFiles.resx
View File

@ -136,7 +136,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADm ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADm
BwAAAk1TRnQBSQFMAwEBAAEMAQEBDAEBARABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA BwAAAk1TRnQBSQFMAwEBAAE0AQEBNAEBARABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA
AUADAAEQAwABAQEAAQgGAAEEGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA AUADAAEQAwABAQEAAQgGAAEEGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA
AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA
AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm
@ -201,10 +201,10 @@
<value>Fill</value> <value>Fill</value>
</data> </data>
<data name="PdfViewer1.Location" type="System.Drawing.Point, System.Drawing"> <data name="PdfViewer1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 141</value> <value>0, 140</value>
</data> </data>
<data name="PdfViewer1.Size" type="System.Drawing.Size, System.Drawing"> <data name="PdfViewer1.Size" type="System.Drawing.Size, System.Drawing">
<value>565, 390</value> <value>565, 391</value>
</data> </data>
<data name="PdfViewer1.TabIndex" type="System.Int32, mscorlib"> <data name="PdfViewer1.TabIndex" type="System.Int32, mscorlib">
<value>5</value> <value>5</value>
@ -270,7 +270,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>565, 141</value> <value>565, 140</value>
</data> </data>
<data name="&gt;&gt;RibbonControl1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonControl1.Name" xml:space="preserve">
<value>RibbonControl1</value> <value>RibbonControl1</value>
@ -312,7 +312,7 @@
<value>12, 227</value> <value>12, 227</value>
</data> </data>
<data name="btnrefresh.Size" type="System.Drawing.Size, System.Drawing"> <data name="btnrefresh.Size" type="System.Drawing.Size, System.Drawing">
<value>117, 23</value> <value>149, 23</value>
</data> </data>
<data name="btnrefresh.TabIndex" type="System.Int32, mscorlib"> <data name="btnrefresh.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -345,16 +345,16 @@
<value>MiddleRight</value> <value>MiddleRight</value>
</data> </data>
<data name="btndelete.Location" type="System.Drawing.Point, System.Drawing"> <data name="btndelete.Location" type="System.Drawing.Point, System.Drawing">
<value>144, 227</value> <value>207, 227</value>
</data> </data>
<data name="btndelete.Size" type="System.Drawing.Size, System.Drawing"> <data name="btndelete.Size" type="System.Drawing.Size, System.Drawing">
<value>213, 23</value> <value>150, 23</value>
</data> </data>
<data name="btndelete.TabIndex" type="System.Int32, mscorlib"> <data name="btndelete.TabIndex" type="System.Int32, mscorlib">
<value>4</value> <value>4</value>
</data> </data>
<data name="btndelete.Text" xml:space="preserve"> <data name="btndelete.Text" xml:space="preserve">
<value>Entferne Eintrag aus Überwachung</value> <value>Entferne Eintrag</value>
</data> </data>
<data name="btndelete.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="btndelete.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value> <value>MiddleLeft</value>
@ -404,7 +404,7 @@
<data name="&gt;&gt;chkInFront.ZOrder" xml:space="preserve"> <data name="&gt;&gt;chkInFront.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerCheckScanFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>540, 17</value> <value>540, 17</value>
</metadata> </metadata>
<metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@ -1132,10 +1132,10 @@
<data name="&gt;&gt;PdfBarController2.Type" xml:space="preserve"> <data name="&gt;&gt;PdfBarController2.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.Bars.PdfBarController, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraPdfViewer.Bars.PdfBarController, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;Timer1.Name" xml:space="preserve"> <data name="&gt;&gt;TimerCheckScanFiles.Name" xml:space="preserve">
<value>Timer1</value> <value>TimerCheckScanFiles</value>
</data> </data>
<data name="&gt;&gt;Timer1.Type" xml:space="preserve"> <data name="&gt;&gt;TimerCheckScanFiles.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;Timer2.Name" xml:space="preserve"> <data name="&gt;&gt;Timer2.Name" xml:space="preserve">

123
app/DD-Record-Organizer/frmScanFiles.vb
View File

@ -1,4 +1,6 @@
Imports System.IO Imports System.IO
Imports DD_LIB_Standards
Public Class frmScanFiles Public Class frmScanFiles
Dim DragID Dim DragID
@ -19,40 +21,70 @@ Public Class frmScanFiles
Load_Files() Load_Files()
ClassWindowLocation.LoadFormLocationSize(Me, 9999, CURRENT_SCREEN_ID, Me.Name) ClassWindowLocation.LoadFormLocationSize(Me, 9999, CURRENT_SCREEN_ID, Me.Name)
End Sub End Sub
Sub Clear_and_Reload_Files()
Try
PdfViewer1.DocumentFilePath = ""
Dim del = "DELETE FROM TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')"
If clsDatabase.Execute_non_Query(del, True) Then
' Make a reference to a directory.
Dim di As New DirectoryInfo(CURRENT_SCAN_FOLDERWATCH)
' Get a reference to each file in that directory.
Dim fiArr As FileInfo() = di.GetFiles()
' Display the names of the files.
Dim fri As FileInfo
For Each fri In fiArr
Dim irregular As Boolean = False
For Each row As DataRow In DTEXCLUDE_FILES.Rows
Dim content As String = row.Item(0).ToString.ToLower
If fri.Name.ToLower.Contains(content) Then
irregular = True
Exit For
End If
Next
If irregular = False Then
Dim handletype As String
If fri.FullName.EndsWith(".msg") Then
handletype = "SCAN_OUTLOOK_MESSAGE"
Else
handletype = "SCAN"
End If
ClassFolderWatcher.Insert_USER_File(fri.FullName, handletype)
End If
Next fri
ClassFolderWatcher.Check_Scan_Files()
Load_Files()
End If
Catch ex As Exception
End Try
End Sub
Sub Load_Files() Sub Load_Files()
Try Try
Dim DT As DataTable = ClassFolderWatcher.Check_Scan_Files ListView1.Items.Clear()
If Not IsNothing(DT) Then Dim i = 0
CURRENT_SCAN_TABLE = DT For Each row As DataRow In CURRENT_SCAN_TABLE.Rows
ListView1.Items.Clear() Dim extension = Path.GetExtension(row.Item("FILENAME2WORK").ToString)
Dim i = 0 Dim filestring = row.Item("FILENAME2WORK")
For Each row As DataRow In CURRENT_SCAN_TABLE.Rows If ClassHelper.CheckFileIsInUse(filestring) = False Then
Dim filename = row.Item("FILENAME_ONLY").ToString
Dim extension = Path.GetExtension(row.Item("FILENAME2WORK").ToString) Dim ID = row.Item("GUID").ToString
Dim filestring = row.Item("FILENAME2WORK") 'We can only find associated exes by extension, so don't show any files that have no extension
If ClassHelper.CheckFileIsInUse(filestring) = False Then If IsNothing(extension) Then
Dim filename = row.Item("FILENAME_ONLY").ToString Else
Dim ID = row.Item("GUID").ToString If extension.Contains("pdf") Then
'We can only find associated exes by extension, so don't show any files that have no extension 'Add the file to the ListView, with the executable path as the key to the ImageList's image
If IsNothing(extension) Then ListView1.Items.Add(filename, 0)
Else Else
If extension.Contains("pdf") Then ListView1.Items.Add(filename)
'Add the file to the ListView, with the executable path as the key to the ImageList's image
ListView1.Items.Add(filename, 0)
Else
ListView1.Items.Add(filename)
End If
ListView1.Items(i).Tag = ID
i += 1
End If End If
ListView1.Items(i).Tag = ID
i += 1
End If End If
Next
If CURRENT_SCAN_TABLE.Rows.Count = 0 Then
Me.Close()
End If End If
Next
If CURRENT_SCAN_TABLE.Rows.Count = 0 Then
Me.Close()
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("unexpected Error in Load Scanfiles:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("unexpected Error in Load Scanfiles:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -60,7 +92,7 @@ Public Class frmScanFiles
End Sub End Sub
Private Sub btnrefresh_Click(sender As Object, e As EventArgs) Handles btnrefresh.Click Private Sub btnrefresh_Click(sender As Object, e As EventArgs) Handles btnrefresh.Click
Load_Files() Clear_and_Reload_Files()
End Sub End Sub
Private Sub PdfViewer1_CurrentPageChanged(sender As Object, e As DevExpress.XtraPdfViewer.PdfCurrentPageChangedEventArgs) Handles PdfViewer1.CurrentPageChanged Private Sub PdfViewer1_CurrentPageChanged(sender As Object, e As DevExpress.XtraPdfViewer.PdfCurrentPageChangedEventArgs) Handles PdfViewer1.CurrentPageChanged
@ -80,7 +112,9 @@ Public Class frmScanFiles
Dim i1 = i.Text Dim i1 = i.Text
If Not IsNothing(i) Then If Not IsNothing(i) Then
If i.Text.ToLower.EndsWith("pdf") Then If i.Text.ToLower.EndsWith("pdf") Then
Me.Cursor = Cursors.WaitCursor
Panel1.Visible = True Panel1.Visible = True
PdfViewer1.DocumentFilePath = ""
Dim docpath = CURRENT_SCAN_FOLDERWATCH & "\" & i.Text Dim docpath = CURRENT_SCAN_FOLDERWATCH & "\" & i.Text
PdfViewer1.LoadDocument(docpath) PdfViewer1.LoadDocument(docpath)
'PdfViewer1.HorizontalScroll.Visible = True 'PdfViewer1.HorizontalScroll.Visible = True
@ -90,6 +124,7 @@ Public Class frmScanFiles
End If End If
End If End If
End If End If
Me.Cursor = Cursors.Default
End Sub End Sub
Private Sub ToolStripDropDownButton1_Click(sender As Object, e As EventArgs) Handles ToolStripDropDownButton1.Click Private Sub ToolStripDropDownButton1_Click(sender As Object, e As EventArgs) Handles ToolStripDropDownButton1.Click
@ -110,7 +145,9 @@ Public Class frmScanFiles
Private Sub ListView1_MouseMove(sender As Object, e As MouseEventArgs) Handles ListView1.MouseMove Private Sub ListView1_MouseMove(sender As Object, e As MouseEventArgs) Handles ListView1.MouseMove
If MouseIsDown Then If MouseIsDown Then
'Initiate dragging. 'Initiate dragging.
PdfViewer1.DocumentFilePath = ""
ListView1.DoDragDrop(DragID, DragDropEffects.Copy) ListView1.DoDragDrop(DragID, DragDropEffects.Copy)
End If End If
MouseIsDown = False MouseIsDown = False
End Sub End Sub
@ -123,16 +160,13 @@ Public Class frmScanFiles
MouseIsDown = True MouseIsDown = True
DragID = i.Tag DragID = i.Tag
'Console.WriteLine("Mouse Down") 'Console.WriteLine("Mouse Down")
PdfViewer1.DocumentFilePath = ""
ListView1.DoDragDrop("SCAN;" & DragID.ToString, DragDropEffects.Copy) ListView1.DoDragDrop("SCAN;" & DragID.ToString, DragDropEffects.Copy)
End If End If
End If End If
End Sub End Sub
Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
Private Sub PdfViewer1_DocumentChanged(sender As Object, e As DevExpress.XtraPdfViewer.PdfDocumentChangedEventArgs) Handles PdfViewer1.DocumentChanged Private Sub PdfViewer1_DocumentChanged(sender As Object, e As DevExpress.XtraPdfViewer.PdfDocumentChangedEventArgs) Handles PdfViewer1.DocumentChanged
PDF_Pagenumber() PDF_Pagenumber()
End Sub End Sub
@ -140,14 +174,20 @@ Public Class frmScanFiles
Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
Try Try
If ListView1.SelectedItems.Count = 1 Then If ListView1.SelectedItems.Count = 1 Then
PdfViewer1.DocumentFilePath = ""
Dim i = ListView1.FocusedItem Dim i = ListView1.FocusedItem
Dim i1 = i.Text Dim i1 = i.Text
If Not IsNothing(i) Then If Not IsNothing(i) Then
Dim del = "DELETE FROM TBPMO_FILES_USER where GUID = " & i.Tag Dim del = "DELETE FROM TBPMO_FILES_USER where GUID = " & i.Tag
If ClassDatabase.Execute_non_Query(del, True) Then If ClassDatabase.Execute_non_Query(del, True) Then
ClassFolderWatcher.Check_Scan_Files()
Load_Files() Load_Files()
Else
MsgBox("Could not delete the entry. Check the logfile!", MsgBoxStyle.Information)
End If End If
End If End If
Else
MsgBox("Please choose a file!", MsgBoxStyle.Information)
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Delete Scanfile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Delete Scanfile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -158,23 +198,30 @@ Public Class frmScanFiles
Private Sub frmScanFiles_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmScanFiles_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Me.BringToFront() Me.BringToFront()
Timer1.Start() TimerCheckScanFiles.Start()
End Sub End Sub
Private Sub chkInFront_CheckedChanged(sender As Object, e As EventArgs) Handles chkInFront.CheckedChanged Private Sub chkInFront_CheckedChanged(sender As Object, e As EventArgs) Handles chkInFront.CheckedChanged
My.Settings.Save() My.Settings.Save()
End Sub End Sub
Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles TimerCheckScanFiles.Tick
Dim DT As DataTable = ClassFolderWatcher.Check_Scan_Files If CURRENT_SCAN_TABLE.Rows.Count <> ListView1.Items.Count Then
If DT.Rows.Count <> ListView1.Items.Count Then 'Dim result As MsgBoxResult
'Dim msg = "Neue Dateien wurden gescann"
'result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
'If result = MsgBoxResult.No Then
'End If
Load_Files() Load_Files()
End If End If
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim del = "DELETE FROM TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')""" PdfViewer1.DocumentFilePath = ""
Dim del = "DELETE FROM TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(del, True) Then If ClassDatabase.Execute_non_Query(del, True) Then
ClassFolderWatcher.Check_Scan_Files()
Load_Files() Load_Files()
End If End If
End Sub End Sub

714
app/DD-Record-Organizer/frmUserKonfig.Designer.vb generated
View File

@ -147,32 +147,6 @@ Partial Class frmUserKonfig
Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.TabControl3 = New System.Windows.Forms.TabControl() Me.TabControl3 = New System.Windows.Forms.TabControl()
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components)
Me.ToolStripButton17 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripButton18 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton19 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton20 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripTextBox3 = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton21 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton22 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton23 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton24 = New System.Windows.Forms.ToolStripButton()
Me.Label7 = New System.Windows.Forms.Label()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.TBDD_CLIENTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.CLIENT_NAMETextBox = New System.Windows.Forms.TextBox()
Me.ListBox2 = New System.Windows.Forms.ListBox()
Me.SHORTNAMETextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHENTextBox2 = New System.Windows.Forms.TextBox()
Me.COMMENTTextBox1 = New System.Windows.Forms.TextBox()
Me.CHANGED_WHOTextBox2 = New System.Windows.Forms.TextBox()
Me.ADDED_WHOTextBox2 = New System.Windows.Forms.TextBox()
Me.ADDED_WHENTextBox2 = New System.Windows.Forms.TextBox()
Me.TabPage6 = New System.Windows.Forms.TabPage() Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.GridControlUsersinClient = New DevExpress.XtraGrid.GridControl() Me.GridControlUsersinClient = New DevExpress.XtraGrid.GridControl()
Me.GridViewUsersinClient = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewUsersinClient = New DevExpress.XtraGrid.Views.Grid.GridView()
@ -193,6 +167,47 @@ Partial Class frmUserKonfig
Me.Label16 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label()
Me.cmbClientsforUser = New System.Windows.Forms.ComboBox() Me.cmbClientsforUser = New System.Windows.Forms.ComboBox()
Me.TBDD_CLIENTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components)
Me.ToolStripButton17 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripButton18 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton19 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton20 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripTextBox3 = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton21 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton22 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton23 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton24 = New System.Windows.Forms.ToolStripButton()
Me.Label7 = New System.Windows.Forms.Label()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.CLIENT_NAMETextBox = New System.Windows.Forms.TextBox()
Me.ListBox2 = New System.Windows.Forms.ListBox()
Me.SHORTNAMETextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHENTextBox2 = New System.Windows.Forms.TextBox()
Me.COMMENTTextBox1 = New System.Windows.Forms.TextBox()
Me.CHANGED_WHOTextBox2 = New System.Windows.Forms.TextBox()
Me.ADDED_WHOTextBox2 = New System.Windows.Forms.TextBox()
Me.ADDED_WHENTextBox2 = New System.Windows.Forms.TextBox()
Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
Me.btnUpdatePath = New System.Windows.Forms.Button()
Me.btnopenfolder = New System.Windows.Forms.Button()
Me.txtPath = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.GridControl3 = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.SelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswahlAufhebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridColumn15 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn16 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn17 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn18 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.VWPMO_USERS_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.VWPMO_USERS_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBDD_USER_GROUPSTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter() Me.TBDD_USER_GROUPSTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter()
Me.VWPMO_USERS_GROUPSTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_USERS_GROUPSTableAdapter() Me.VWPMO_USERS_GROUPSTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_USERS_GROUPSTableAdapter()
@ -212,21 +227,6 @@ Partial Class frmUserKonfig
Me.WAN_ENVIRONMENTCheckBox = New System.Windows.Forms.CheckBox() Me.WAN_ENVIRONMENTCheckBox = New System.Windows.Forms.CheckBox()
Me.DATE_FORMATComboBox = New System.Windows.Forms.ComboBox() Me.DATE_FORMATComboBox = New System.Windows.Forms.ComboBox()
Me.LOG_OUT_WHENTextBox = New System.Windows.Forms.TextBox() Me.LOG_OUT_WHENTextBox = New System.Windows.Forms.TextBox()
Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControl3 = New DevExpress.XtraGrid.GridControl()
Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridColumn15 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn16 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn17 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn18 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtPath = New System.Windows.Forms.TextBox()
Me.btnopenfolder = New System.Windows.Forms.Button()
Me.btnUpdatePath = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.SelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswahlAufhebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
PRENAMELabel = New System.Windows.Forms.Label() PRENAMELabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label()
@ -283,24 +283,24 @@ Partial Class frmUserKonfig
Me.BindingNavigator1.SuspendLayout() Me.BindingNavigator1.SuspendLayout()
Me.XtraTabPage2.SuspendLayout() Me.XtraTabPage2.SuspendLayout()
Me.TabControl3.SuspendLayout() Me.TabControl3.SuspendLayout()
Me.TabPage5.SuspendLayout()
CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigator2.SuspendLayout()
CType(Me.TBDD_CLIENTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage6.SuspendLayout() Me.TabPage6.SuspendLayout()
CType(Me.GridControlUsersinClient, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlUsersinClient, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewUsersinClient, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewUsersinClient, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlUser2Mandanten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlUser2Mandanten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWH_Users2BindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_Users2BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewUser2Mandanten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewUser2Mandanten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_CLIENTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage5.SuspendLayout()
CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigator2.SuspendLayout()
Me.XtraTabPage3.SuspendLayout()
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPMO_USERS_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWPMO_USERS_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPage3.SuspendLayout()
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GUIDLabel 'GUIDLabel
@ -1154,194 +1154,6 @@ Partial Class frmUserKonfig
Me.TabControl3.Name = "TabControl3" Me.TabControl3.Name = "TabControl3"
Me.TabControl3.SelectedIndex = 0 Me.TabControl3.SelectedIndex = 0
' '
'TabPage5
'
Me.TabPage5.Controls.Add(Me.BindingNavigator2)
Me.TabPage5.Controls.Add(Me.Label7)
Me.TabPage5.Controls.Add(Me.GUIDTextBox)
Me.TabPage5.Controls.Add(GUIDLabel2)
Me.TabPage5.Controls.Add(Me.CLIENT_NAMETextBox)
Me.TabPage5.Controls.Add(Me.ListBox2)
Me.TabPage5.Controls.Add(CLIENT_NAMELabel)
Me.TabPage5.Controls.Add(CHANGED_WHENLabel2)
Me.TabPage5.Controls.Add(Me.SHORTNAMETextBox)
Me.TabPage5.Controls.Add(Me.CHANGED_WHENTextBox2)
Me.TabPage5.Controls.Add(SHORTNAMELabel)
Me.TabPage5.Controls.Add(CHANGED_WHOLabel2)
Me.TabPage5.Controls.Add(Me.COMMENTTextBox1)
Me.TabPage5.Controls.Add(Me.CHANGED_WHOTextBox2)
Me.TabPage5.Controls.Add(COMMENTLabel1)
Me.TabPage5.Controls.Add(ADDED_WHENLabel2)
Me.TabPage5.Controls.Add(Me.ADDED_WHOTextBox2)
Me.TabPage5.Controls.Add(Label12)
Me.TabPage5.Controls.Add(Me.ADDED_WHENTextBox2)
resources.ApplyResources(Me.TabPage5, "TabPage5")
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.UseVisualStyleBackColor = True
'
'BindingNavigator2
'
Me.BindingNavigator2.AddNewItem = Me.ToolStripButton17
Me.BindingNavigator2.CountItem = Me.ToolStripLabel3
Me.BindingNavigator2.CountItemFormat = "of {0} Clients"
Me.BindingNavigator2.DeleteItem = Me.ToolStripButton18
Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton19, Me.ToolStripButton20, Me.ToolStripSeparator7, Me.ToolStripTextBox3, Me.ToolStripLabel3, Me.ToolStripSeparator8, Me.ToolStripButton21, Me.ToolStripButton22, Me.ToolStripSeparator9, Me.ToolStripButton17, Me.ToolStripButton18, Me.ToolStripButton23, Me.ToolStripButton24})
resources.ApplyResources(Me.BindingNavigator2, "BindingNavigator2")
Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton19
Me.BindingNavigator2.MoveLastItem = Me.ToolStripButton22
Me.BindingNavigator2.MoveNextItem = Me.ToolStripButton21
Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton20
Me.BindingNavigator2.Name = "BindingNavigator2"
Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox3
'
'ToolStripButton17
'
Me.ToolStripButton17.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton17, "ToolStripButton17")
Me.ToolStripButton17.Name = "ToolStripButton17"
'
'ToolStripLabel3
'
Me.ToolStripLabel3.Name = "ToolStripLabel3"
resources.ApplyResources(Me.ToolStripLabel3, "ToolStripLabel3")
'
'ToolStripButton18
'
Me.ToolStripButton18.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton18, "ToolStripButton18")
Me.ToolStripButton18.Name = "ToolStripButton18"
'
'ToolStripButton19
'
Me.ToolStripButton19.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton19, "ToolStripButton19")
Me.ToolStripButton19.Name = "ToolStripButton19"
'
'ToolStripButton20
'
Me.ToolStripButton20.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton20, "ToolStripButton20")
Me.ToolStripButton20.Name = "ToolStripButton20"
'
'ToolStripSeparator7
'
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
resources.ApplyResources(Me.ToolStripSeparator7, "ToolStripSeparator7")
'
'ToolStripTextBox3
'
resources.ApplyResources(Me.ToolStripTextBox3, "ToolStripTextBox3")
Me.ToolStripTextBox3.Name = "ToolStripTextBox3"
'
'ToolStripSeparator8
'
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
resources.ApplyResources(Me.ToolStripSeparator8, "ToolStripSeparator8")
'
'ToolStripButton21
'
Me.ToolStripButton21.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton21, "ToolStripButton21")
Me.ToolStripButton21.Name = "ToolStripButton21"
'
'ToolStripButton22
'
Me.ToolStripButton22.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton22, "ToolStripButton22")
Me.ToolStripButton22.Name = "ToolStripButton22"
'
'ToolStripSeparator9
'
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
resources.ApplyResources(Me.ToolStripSeparator9, "ToolStripSeparator9")
'
'ToolStripButton23
'
Me.ToolStripButton23.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton23, "ToolStripButton23")
Me.ToolStripButton23.Name = "ToolStripButton23"
'
'ToolStripButton24
'
Me.ToolStripButton24.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton24.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.ToolStripButton24, "ToolStripButton24")
Me.ToolStripButton24.Name = "ToolStripButton24"
'
'Label7
'
resources.ApplyResources(Me.Label7, "Label7")
Me.Label7.BackColor = System.Drawing.Color.Yellow
Me.Label7.Name = "Label7"
'
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "GUID", True))
resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
'
'TBDD_CLIENTBindingSource
'
Me.TBDD_CLIENTBindingSource.DataMember = "TBDD_CLIENT"
Me.TBDD_CLIENTBindingSource.DataSource = Me.DD_DMSDataSet
'
'CLIENT_NAMETextBox
'
Me.CLIENT_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "CLIENT_NAME", True))
resources.ApplyResources(Me.CLIENT_NAMETextBox, "CLIENT_NAMETextBox")
Me.CLIENT_NAMETextBox.Name = "CLIENT_NAMETextBox"
'
'ListBox2
'
resources.ApplyResources(Me.ListBox2, "ListBox2")
Me.ListBox2.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.ListBox2.DataSource = Me.TBDD_CLIENTBindingSource
Me.ListBox2.DisplayMember = "CLIENT_NAME"
Me.ListBox2.FormattingEnabled = True
Me.ListBox2.Name = "ListBox2"
Me.ListBox2.ValueMember = "GUID"
'
'SHORTNAMETextBox
'
Me.SHORTNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "SHORTNAME", True))
resources.ApplyResources(Me.SHORTNAMETextBox, "SHORTNAMETextBox")
Me.SHORTNAMETextBox.Name = "SHORTNAMETextBox"
'
'CHANGED_WHENTextBox2
'
Me.CHANGED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "CHANGED_WHEN", True))
resources.ApplyResources(Me.CHANGED_WHENTextBox2, "CHANGED_WHENTextBox2")
Me.CHANGED_WHENTextBox2.Name = "CHANGED_WHENTextBox2"
Me.CHANGED_WHENTextBox2.ReadOnly = True
'
'COMMENTTextBox1
'
Me.COMMENTTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "COMMENT", True))
resources.ApplyResources(Me.COMMENTTextBox1, "COMMENTTextBox1")
Me.COMMENTTextBox1.Name = "COMMENTTextBox1"
'
'CHANGED_WHOTextBox2
'
Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "CHANGED_WHO", True))
resources.ApplyResources(Me.CHANGED_WHOTextBox2, "CHANGED_WHOTextBox2")
Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2"
Me.CHANGED_WHOTextBox2.ReadOnly = True
'
'ADDED_WHOTextBox2
'
Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "ADDED_WHO", True))
resources.ApplyResources(Me.ADDED_WHOTextBox2, "ADDED_WHOTextBox2")
Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2"
Me.ADDED_WHOTextBox2.ReadOnly = True
'
'ADDED_WHENTextBox2
'
Me.ADDED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "ADDED_WHEN", True))
resources.ApplyResources(Me.ADDED_WHENTextBox2, "ADDED_WHENTextBox2")
Me.ADDED_WHENTextBox2.Name = "ADDED_WHENTextBox2"
Me.ADDED_WHENTextBox2.ReadOnly = True
'
'TabPage6 'TabPage6
' '
resources.ApplyResources(Me.TabPage6, "TabPage6") resources.ApplyResources(Me.TabPage6, "TabPage6")
@ -1503,6 +1315,303 @@ Partial Class frmUserKonfig
Me.cmbClientsforUser.Name = "cmbClientsforUser" Me.cmbClientsforUser.Name = "cmbClientsforUser"
Me.cmbClientsforUser.ValueMember = "GUID" Me.cmbClientsforUser.ValueMember = "GUID"
' '
'TBDD_CLIENTBindingSource
'
Me.TBDD_CLIENTBindingSource.DataMember = "TBDD_CLIENT"
Me.TBDD_CLIENTBindingSource.DataSource = Me.DD_DMSDataSet
'
'TabPage5
'
Me.TabPage5.Controls.Add(Me.BindingNavigator2)
Me.TabPage5.Controls.Add(Me.Label7)
Me.TabPage5.Controls.Add(Me.GUIDTextBox)
Me.TabPage5.Controls.Add(GUIDLabel2)
Me.TabPage5.Controls.Add(Me.CLIENT_NAMETextBox)
Me.TabPage5.Controls.Add(Me.ListBox2)
Me.TabPage5.Controls.Add(CLIENT_NAMELabel)
Me.TabPage5.Controls.Add(CHANGED_WHENLabel2)
Me.TabPage5.Controls.Add(Me.SHORTNAMETextBox)
Me.TabPage5.Controls.Add(Me.CHANGED_WHENTextBox2)
Me.TabPage5.Controls.Add(SHORTNAMELabel)
Me.TabPage5.Controls.Add(CHANGED_WHOLabel2)
Me.TabPage5.Controls.Add(Me.COMMENTTextBox1)
Me.TabPage5.Controls.Add(Me.CHANGED_WHOTextBox2)
Me.TabPage5.Controls.Add(COMMENTLabel1)
Me.TabPage5.Controls.Add(ADDED_WHENLabel2)
Me.TabPage5.Controls.Add(Me.ADDED_WHOTextBox2)
Me.TabPage5.Controls.Add(Label12)
Me.TabPage5.Controls.Add(Me.ADDED_WHENTextBox2)
resources.ApplyResources(Me.TabPage5, "TabPage5")
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.UseVisualStyleBackColor = True
'
'BindingNavigator2
'
Me.BindingNavigator2.AddNewItem = Me.ToolStripButton17
Me.BindingNavigator2.CountItem = Me.ToolStripLabel3
Me.BindingNavigator2.CountItemFormat = "of {0} Clients"
Me.BindingNavigator2.DeleteItem = Me.ToolStripButton18
Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton19, Me.ToolStripButton20, Me.ToolStripSeparator7, Me.ToolStripTextBox3, Me.ToolStripLabel3, Me.ToolStripSeparator8, Me.ToolStripButton21, Me.ToolStripButton22, Me.ToolStripSeparator9, Me.ToolStripButton17, Me.ToolStripButton18, Me.ToolStripButton23, Me.ToolStripButton24})
resources.ApplyResources(Me.BindingNavigator2, "BindingNavigator2")
Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton19
Me.BindingNavigator2.MoveLastItem = Me.ToolStripButton22
Me.BindingNavigator2.MoveNextItem = Me.ToolStripButton21
Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton20
Me.BindingNavigator2.Name = "BindingNavigator2"
Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox3
'
'ToolStripButton17
'
Me.ToolStripButton17.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton17, "ToolStripButton17")
Me.ToolStripButton17.Name = "ToolStripButton17"
'
'ToolStripLabel3
'
Me.ToolStripLabel3.Name = "ToolStripLabel3"
resources.ApplyResources(Me.ToolStripLabel3, "ToolStripLabel3")
'
'ToolStripButton18
'
Me.ToolStripButton18.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton18, "ToolStripButton18")
Me.ToolStripButton18.Name = "ToolStripButton18"
'
'ToolStripButton19
'
Me.ToolStripButton19.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton19, "ToolStripButton19")
Me.ToolStripButton19.Name = "ToolStripButton19"
'
'ToolStripButton20
'
Me.ToolStripButton20.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton20, "ToolStripButton20")
Me.ToolStripButton20.Name = "ToolStripButton20"
'
'ToolStripSeparator7
'
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
resources.ApplyResources(Me.ToolStripSeparator7, "ToolStripSeparator7")
'
'ToolStripTextBox3
'
resources.ApplyResources(Me.ToolStripTextBox3, "ToolStripTextBox3")
Me.ToolStripTextBox3.Name = "ToolStripTextBox3"
'
'ToolStripSeparator8
'
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
resources.ApplyResources(Me.ToolStripSeparator8, "ToolStripSeparator8")
'
'ToolStripButton21
'
Me.ToolStripButton21.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton21, "ToolStripButton21")
Me.ToolStripButton21.Name = "ToolStripButton21"
'
'ToolStripButton22
'
Me.ToolStripButton22.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton22, "ToolStripButton22")
Me.ToolStripButton22.Name = "ToolStripButton22"
'
'ToolStripSeparator9
'
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
resources.ApplyResources(Me.ToolStripSeparator9, "ToolStripSeparator9")
'
'ToolStripButton23
'
Me.ToolStripButton23.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton23, "ToolStripButton23")
Me.ToolStripButton23.Name = "ToolStripButton23"
'
'ToolStripButton24
'
Me.ToolStripButton24.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton24.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.ToolStripButton24, "ToolStripButton24")
Me.ToolStripButton24.Name = "ToolStripButton24"
'
'Label7
'
resources.ApplyResources(Me.Label7, "Label7")
Me.Label7.BackColor = System.Drawing.Color.Yellow
Me.Label7.Name = "Label7"
'
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "GUID", True))
resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
'
'CLIENT_NAMETextBox
'
Me.CLIENT_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "CLIENT_NAME", True))
resources.ApplyResources(Me.CLIENT_NAMETextBox, "CLIENT_NAMETextBox")
Me.CLIENT_NAMETextBox.Name = "CLIENT_NAMETextBox"
'
'ListBox2
'
resources.ApplyResources(Me.ListBox2, "ListBox2")
Me.ListBox2.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.ListBox2.DataSource = Me.TBDD_CLIENTBindingSource
Me.ListBox2.DisplayMember = "CLIENT_NAME"
Me.ListBox2.FormattingEnabled = True
Me.ListBox2.Name = "ListBox2"
Me.ListBox2.ValueMember = "GUID"
'
'SHORTNAMETextBox
'
Me.SHORTNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "SHORTNAME", True))
resources.ApplyResources(Me.SHORTNAMETextBox, "SHORTNAMETextBox")
Me.SHORTNAMETextBox.Name = "SHORTNAMETextBox"
'
'CHANGED_WHENTextBox2
'
Me.CHANGED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "CHANGED_WHEN", True))
resources.ApplyResources(Me.CHANGED_WHENTextBox2, "CHANGED_WHENTextBox2")
Me.CHANGED_WHENTextBox2.Name = "CHANGED_WHENTextBox2"
Me.CHANGED_WHENTextBox2.ReadOnly = True
'
'COMMENTTextBox1
'
Me.COMMENTTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "COMMENT", True))
resources.ApplyResources(Me.COMMENTTextBox1, "COMMENTTextBox1")
Me.COMMENTTextBox1.Name = "COMMENTTextBox1"
'
'CHANGED_WHOTextBox2
'
Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "CHANGED_WHO", True))
resources.ApplyResources(Me.CHANGED_WHOTextBox2, "CHANGED_WHOTextBox2")
Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2"
Me.CHANGED_WHOTextBox2.ReadOnly = True
'
'ADDED_WHOTextBox2
'
Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "ADDED_WHO", True))
resources.ApplyResources(Me.ADDED_WHOTextBox2, "ADDED_WHOTextBox2")
Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2"
Me.ADDED_WHOTextBox2.ReadOnly = True
'
'ADDED_WHENTextBox2
'
Me.ADDED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CLIENTBindingSource, "ADDED_WHEN", True))
resources.ApplyResources(Me.ADDED_WHENTextBox2, "ADDED_WHENTextBox2")
Me.ADDED_WHENTextBox2.Name = "ADDED_WHENTextBox2"
Me.ADDED_WHENTextBox2.ReadOnly = True
'
'XtraTabPage3
'
Me.XtraTabPage3.Controls.Add(Me.btnUpdatePath)
Me.XtraTabPage3.Controls.Add(Me.btnopenfolder)
Me.XtraTabPage3.Controls.Add(Me.txtPath)
Me.XtraTabPage3.Controls.Add(Me.Label8)
Me.XtraTabPage3.Controls.Add(Me.Label6)
Me.XtraTabPage3.Controls.Add(Me.GridControl3)
Me.XtraTabPage3.Name = "XtraTabPage3"
resources.ApplyResources(Me.XtraTabPage3, "XtraTabPage3")
'
'btnUpdatePath
'
Me.btnUpdatePath.Image = Global.DD_Record_Organizer.My.Resources.Resources.add1
resources.ApplyResources(Me.btnUpdatePath, "btnUpdatePath")
Me.btnUpdatePath.Name = "btnUpdatePath"
Me.btnUpdatePath.UseVisualStyleBackColor = True
'
'btnopenfolder
'
Me.btnopenfolder.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_Open_16xLG
resources.ApplyResources(Me.btnopenfolder, "btnopenfolder")
Me.btnopenfolder.Name = "btnopenfolder"
Me.btnopenfolder.UseVisualStyleBackColor = True
'
'txtPath
'
resources.ApplyResources(Me.txtPath, "txtPath")
Me.txtPath.Name = "txtPath"
'
'Label8
'
resources.ApplyResources(Me.Label8, "Label8")
Me.Label8.Name = "Label8"
'
'Label6
'
resources.ApplyResources(Me.Label6, "Label6")
Me.Label6.Name = "Label6"
'
'GridControl3
'
resources.ApplyResources(Me.GridControl3, "GridControl3")
Me.GridControl3.ContextMenuStrip = Me.ContextMenuStrip1
Me.GridControl3.DataSource = Me.TBAD_UsersBindingSource
Me.GridControl3.MainView = Me.GridView3
Me.GridControl3.Name = "GridControl3"
Me.GridControl3.ShowOnlyPredefinedDetails = True
Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SelectAllToolStripMenuItem, Me.AuswahlAufhebenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
'
'SelectAllToolStripMenuItem
'
resources.ApplyResources(Me.SelectAllToolStripMenuItem, "SelectAllToolStripMenuItem")
Me.SelectAllToolStripMenuItem.Name = "SelectAllToolStripMenuItem"
'
'AuswahlAufhebenToolStripMenuItem
'
Me.AuswahlAufhebenToolStripMenuItem.Name = "AuswahlAufhebenToolStripMenuItem"
resources.ApplyResources(Me.AuswahlAufhebenToolStripMenuItem, "AuswahlAufhebenToolStripMenuItem")
'
'GridView3
'
Me.GridView3.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView3.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView3.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView3.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView3.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView3.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn15, Me.GridColumn16, Me.GridColumn17, Me.GridColumn18})
Me.GridView3.GridControl = Me.GridControl3
Me.GridView3.Name = "GridView3"
Me.GridView3.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView3.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView3.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView3.OptionsView.ColumnAutoWidth = False
Me.GridView3.OptionsView.EnableAppearanceEvenRow = True
Me.GridView3.OptionsView.ShowAutoFilterRow = True
Me.GridView3.OptionsView.ShowGroupPanel = False
'
'GridColumn15
'
resources.ApplyResources(Me.GridColumn15, "GridColumn15")
Me.GridColumn15.FieldName = "Select"
Me.GridColumn15.Name = "GridColumn15"
'
'GridColumn16
'
Me.GridColumn16.FieldName = "Username"
Me.GridColumn16.Name = "GridColumn16"
Me.GridColumn16.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.GridColumn16, "GridColumn16")
'
'GridColumn17
'
Me.GridColumn17.FieldName = "Email"
Me.GridColumn17.Name = "GridColumn17"
Me.GridColumn17.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.GridColumn17, "GridColumn17")
'
'GridColumn18
'
Me.GridColumn18.FieldName = "ID"
Me.GridColumn18.Name = "GridColumn18"
'
'VWPMO_USERS_GROUPSBindingSource 'VWPMO_USERS_GROUPSBindingSource
' '
Me.VWPMO_USERS_GROUPSBindingSource.DataMember = "VWPMO_USERS_GROUPS" Me.VWPMO_USERS_GROUPSBindingSource.DataMember = "VWPMO_USERS_GROUPS"
@ -1632,115 +1741,6 @@ Partial Class frmUserKonfig
Me.LOG_OUT_WHENTextBox.Name = "LOG_OUT_WHENTextBox" Me.LOG_OUT_WHENTextBox.Name = "LOG_OUT_WHENTextBox"
Me.LOG_OUT_WHENTextBox.ReadOnly = True Me.LOG_OUT_WHENTextBox.ReadOnly = True
' '
'XtraTabPage3
'
Me.XtraTabPage3.Controls.Add(Me.btnUpdatePath)
Me.XtraTabPage3.Controls.Add(Me.btnopenfolder)
Me.XtraTabPage3.Controls.Add(Me.txtPath)
Me.XtraTabPage3.Controls.Add(Me.Label8)
Me.XtraTabPage3.Controls.Add(Me.Label6)
Me.XtraTabPage3.Controls.Add(Me.GridControl3)
Me.XtraTabPage3.Name = "XtraTabPage3"
resources.ApplyResources(Me.XtraTabPage3, "XtraTabPage3")
'
'GridControl3
'
resources.ApplyResources(Me.GridControl3, "GridControl3")
Me.GridControl3.ContextMenuStrip = Me.ContextMenuStrip1
Me.GridControl3.DataSource = Me.TBAD_UsersBindingSource
Me.GridControl3.MainView = Me.GridView3
Me.GridControl3.Name = "GridControl3"
Me.GridControl3.ShowOnlyPredefinedDetails = True
Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
'
'GridView3
'
Me.GridView3.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView3.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView3.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView3.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView3.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView3.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn15, Me.GridColumn16, Me.GridColumn17, Me.GridColumn18})
Me.GridView3.GridControl = Me.GridControl3
Me.GridView3.Name = "GridView3"
Me.GridView3.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView3.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView3.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView3.OptionsView.ColumnAutoWidth = False
Me.GridView3.OptionsView.EnableAppearanceEvenRow = True
Me.GridView3.OptionsView.ShowAutoFilterRow = True
Me.GridView3.OptionsView.ShowGroupPanel = False
'
'GridColumn15
'
resources.ApplyResources(Me.GridColumn15, "GridColumn15")
Me.GridColumn15.FieldName = "Select"
Me.GridColumn15.Name = "GridColumn15"
'
'GridColumn16
'
Me.GridColumn16.FieldName = "Username"
Me.GridColumn16.Name = "GridColumn16"
Me.GridColumn16.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.GridColumn16, "GridColumn16")
'
'GridColumn17
'
Me.GridColumn17.FieldName = "Email"
Me.GridColumn17.Name = "GridColumn17"
Me.GridColumn17.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.GridColumn17, "GridColumn17")
'
'GridColumn18
'
Me.GridColumn18.FieldName = "ID"
Me.GridColumn18.Name = "GridColumn18"
'
'Label6
'
resources.ApplyResources(Me.Label6, "Label6")
Me.Label6.Name = "Label6"
'
'Label8
'
resources.ApplyResources(Me.Label8, "Label8")
Me.Label8.Name = "Label8"
'
'txtPath
'
resources.ApplyResources(Me.txtPath, "txtPath")
Me.txtPath.Name = "txtPath"
'
'btnopenfolder
'
Me.btnopenfolder.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_Open_16xLG
resources.ApplyResources(Me.btnopenfolder, "btnopenfolder")
Me.btnopenfolder.Name = "btnopenfolder"
Me.btnopenfolder.UseVisualStyleBackColor = True
'
'btnUpdatePath
'
Me.btnUpdatePath.Image = Global.DD_Record_Organizer.My.Resources.Resources.add1
resources.ApplyResources(Me.btnUpdatePath, "btnUpdatePath")
Me.btnUpdatePath.Name = "btnUpdatePath"
Me.btnUpdatePath.UseVisualStyleBackColor = True
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SelectAllToolStripMenuItem, Me.AuswahlAufhebenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
'
'SelectAllToolStripMenuItem
'
resources.ApplyResources(Me.SelectAllToolStripMenuItem, "SelectAllToolStripMenuItem")
Me.SelectAllToolStripMenuItem.Name = "SelectAllToolStripMenuItem"
'
'AuswahlAufhebenToolStripMenuItem
'
Me.AuswahlAufhebenToolStripMenuItem.Name = "AuswahlAufhebenToolStripMenuItem"
resources.ApplyResources(Me.AuswahlAufhebenToolStripMenuItem, "AuswahlAufhebenToolStripMenuItem")
'
'frmUserKonfig 'frmUserKonfig
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -1818,12 +1818,6 @@ Partial Class frmUserKonfig
Me.BindingNavigator1.PerformLayout() Me.BindingNavigator1.PerformLayout()
Me.XtraTabPage2.ResumeLayout(False) Me.XtraTabPage2.ResumeLayout(False)
Me.TabControl3.ResumeLayout(False) Me.TabControl3.ResumeLayout(False)
Me.TabPage5.ResumeLayout(False)
Me.TabPage5.PerformLayout()
CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit()
Me.BindingNavigator2.ResumeLayout(False)
Me.BindingNavigator2.PerformLayout()
CType(Me.TBDD_CLIENTBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage6.ResumeLayout(False) Me.TabPage6.ResumeLayout(False)
Me.TabPage6.PerformLayout() Me.TabPage6.PerformLayout()
CType(Me.GridControlUsersinClient, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlUsersinClient, System.ComponentModel.ISupportInitialize).EndInit()
@ -1831,15 +1825,21 @@ Partial Class frmUserKonfig
CType(Me.GridControlUser2Mandanten, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlUser2Mandanten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBWH_Users2BindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_Users2BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewUser2Mandanten, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewUser2Mandanten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_CLIENTBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage5.ResumeLayout(False)
Me.TabPage5.PerformLayout()
CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit()
Me.BindingNavigator2.ResumeLayout(False)
Me.BindingNavigator2.PerformLayout()
Me.XtraTabPage3.ResumeLayout(False)
Me.XtraTabPage3.PerformLayout()
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPMO_USERS_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWPMO_USERS_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPage3.ResumeLayout(False)
Me.XtraTabPage3.PerformLayout()
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()

2597
app/DD-Record-Organizer/frmUserKonfig.resx
View File

File diff suppressed because it is too large Load Diff

1
app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.Designer.vb generated
View File

@ -655,6 +655,7 @@ Partial Class frmWD_Dokumentart_Konfig
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Me.TBDD_INDEX_AUTOMTableAdapter Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Me.TBDD_INDEX_AUTOMTableAdapter
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_APPOINTMENTSTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing

4
app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.resx
View File

@ -2016,7 +2016,7 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="ListBox2.Size" type="System.Drawing.Size, System.Drawing"> <data name="ListBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>305, 224</value> <value>305, 207</value>
</data> </data>
<data name="ListBox2.TabIndex" type="System.Int32, mscorlib"> <data name="ListBox2.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@ -2204,7 +2204,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="TBDD_INDEX_AUTOMBindingNavigator.Size" type="System.Drawing.Size, System.Drawing"> <data name="TBDD_INDEX_AUTOMBindingNavigator.Size" type="System.Drawing.Size, System.Drawing">
<value>1261, 25</value> <value>1347, 25</value>
</data> </data>
<data name="TBDD_INDEX_AUTOMBindingNavigator.TabIndex" type="System.Int32, mscorlib"> <data name="TBDD_INDEX_AUTOMBindingNavigator.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>

5
app/RecordOrganizer_RightManager/frmStart.vb
View File

@ -63,7 +63,6 @@ Public Class frmStart
Dim DT As DataTable = clsDatabase.Return_Datatable(sql) Dim DT As DataTable = clsDatabase.Return_Datatable(sql)
If DT.Rows.Count > 0 Then If DT.Rows.Count > 0 Then
DT_SUPERVISOR_ENTITY = DT DT_SUPERVISOR_ENTITY = DT
MsgBox("As Supervisor You are only allowed to change entity-related rights!", MsgBoxStyle.Information)
End If End If
If USER_IS_ADMIN = False And DT.Rows.Count = 0 Then If USER_IS_ADMIN = False And DT.Rows.Count = 0 Then
@ -84,14 +83,14 @@ Public Class frmStart
Sub Check_USER_REWORK() Sub Check_USER_REWORK()
'Überprüfen ob es User gibt die aktualisiert werden müssen 'Überprüfen ob es User gibt die aktualisiert werden müssen
DT_WORK_USER_RIGHTS = clsDatabase.Return_Datatable(SQL_USER_RIGHTS_CHANGED) DT_WORK_USER_RIGHTS = clsDatabase.Return_Datatable(SQL_USER_RIGHTS_CHANGED)
If DT_WORK_USER_RIGHTS.Rows.Count > 0 Then If DT_WORK_USER_RIGHTS.Rows.Count > 0 And (Environment.UserName.ToLower = "windream" Or Environment.UserName.ToLower = "schreiberm") Then
btnWorkUserRights.Text = "Userrelations were changed." & vbNewLine & DT_WORK_USER_RIGHTS.Rows.Count.ToString & " Users need to be refreshed!" btnWorkUserRights.Text = "Userrelations were changed." & vbNewLine & DT_WORK_USER_RIGHTS.Rows.Count.ToString & " Users need to be refreshed!"
btnWorkUserRights.Visible = True btnWorkUserRights.Visible = True
Else Else
btnWorkUserRights.Visible = False btnWorkUserRights.Visible = False
End If End If
DT_WORK_USER_CONTROL_SUPERVISOR = clsDatabase.Return_Datatable(SQL_USER_RIGHTS_SUPERVISOR_ADDED) DT_WORK_USER_CONTROL_SUPERVISOR = clsDatabase.Return_Datatable(SQL_USER_RIGHTS_SUPERVISOR_ADDED)
If DT_WORK_USER_CONTROL_SUPERVISOR.Rows.Count > 0 Then If DT_WORK_USER_CONTROL_SUPERVISOR.Rows.Count > 0 And (Environment.UserName.ToLower = "windream" Or Environment.UserName.ToLower = "schreiberm") Then
btnWorkUserRightsSV_ADD.Text = "New Supervisor for Record/Entity added." & vbNewLine & "Amount: " & DT_WORK_USER_CONTROL_SUPERVISOR.Rows.Count.ToString btnWorkUserRightsSV_ADD.Text = "New Supervisor for Record/Entity added." & vbNewLine & "Amount: " & DT_WORK_USER_CONTROL_SUPERVISOR.Rows.Count.ToString
btnWorkUserRightsSV_ADD.Visible = True btnWorkUserRightsSV_ADD.Visible = True
Else Else

12
app/VERSION_CHECKER/frmVersionCheck.vb
View File

@ -138,7 +138,17 @@ Public Class frmVersionCheck
For Each Upd_item As DataRow In DT_UPDATE_ITEMS.Rows For Each Upd_item As DataRow In DT_UPDATE_ITEMS.Rows
Dim BackUpOfFileToReplace As String = MY_INSTALL_PATH & "\" & Upd_item.Item("ITEM_INFO") & ".bac" Dim BackUpOfFileToReplace As String = MY_INSTALL_PATH & "\" & Upd_item.Item("ITEM_INFO") & ".bac"
Dim sourcefile = Path.Combine(FOLDER_TEMP, Upd_item.Item("ITEM_INFO")) Dim sourcefile = Path.Combine(FOLDER_TEMP, Upd_item.Item("ITEM_INFO"))
Dim targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("ITEM_INFO")) Dim targetfile
If IsDBNull(Upd_item.Item("INFO1")) Then
targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("ITEM_INFO"))
Else
If Upd_item.Item("INFO1") <> String.Empty Then
targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("INFO1"), Upd_item.Item("ITEM_INFO"))
Else
targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("ITEM_INFO"))
End If
End If
Try Try
' Replace the file. ' Replace the file.
If File.Exists(targetfile) Then If File.Exists(targetfile) Then