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

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

@ -1,10 +1,13 @@
Imports System.IO
Imports Independentsoft
Imports System.Threading
Imports DD_LIB_Standards
Public Class ClassFolderWatcher
Public Shared FolderWatcher_SCAN As FileSystemWatcher
Public Shared NEW_FILES As Boolean = True
Public Shared Function Restart_FolderWatchSCAN()
Try
If FolderWatcher_SCAN.EnableRaisingEvents = True Then
'Gestartet also Stoppen
@ -89,8 +92,9 @@ Public Class ClassFolderWatcher
Console.WriteLine("File existiert bereits")
End If
ClassHelper.Create_USER_FILE_TABLE()
NEW_FILES = True
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 Sub
@ -139,8 +143,14 @@ Public Class ClassFolderWatcher
Public Shared Function Check_Scan_Files()
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)
Return ClassDatabase.Return_Datatable(sql1, True)
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)
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
MsgBox("Unexpected Error in DELETE_SCAN_File_User: " & ex.Message, MsgBoxStyle.Critical)
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
Zielordner = Zielordner & "\" & CURRENT_SUBFOLDER
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
Select Case clsWD_GET.WD_PATH_EXISTS(Zielordner.Substring(2))
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 Path_Combined As String = ""
For Each s As String In split
Path_Combined &= s & "\"
If Path_Combined <> "W:\" Then
Dim temppath = Path_Combined.Substring(2)
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
clsWindream.MY_WDSESSION.GetNewWMObjectFS(2, Path_Combined.Substring(2), 0) 'WMEntityFolder,WMObjectEditModeNoEdit)
clsWindream.MY_WDSESSION.GetNewWMObjectFS(2, temppath, 0) 'WMEntityFolder,WMObjectEditModeNoEdit)
Case -10
Return False
End Select
Catch ex As Exception
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
End If
End Try
@ -405,6 +417,10 @@ Public Class ClassImport_Windream
Try
'ungültige Zeichen entfernen
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
ClassLogger.Add(" - Error in Versioning file - Error: " & vbNewLine & ex.Message)
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
End Sub
Public Function InitDatabase()
Public Shared Function InitDatabase()
Try
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()> _
Private Sub InitializeComponent()
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.TabPage1 = New System.Windows.Forms.TabPage()
Me.lblLinkedServer = New System.Windows.Forms.Label()
@ -76,6 +76,10 @@ Partial Class frmConfig_Basic
Me.txtScanFolderWatch = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
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.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
@ -86,20 +90,21 @@ Partial Class frmConfig_Basic
Me.GroupBox1.SuspendLayout()
Me.TabPage3.SuspendLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage4.SuspendLayout()
Me.SuspendLayout()
'
'TabControl1
'
resources.ApplyResources(Me.TabControl1, "TabControl1")
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage4)
resources.ApplyResources(Me.TabControl1, "TabControl1")
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
'
'TabPage1
'
resources.ApplyResources(Me.TabPage1, "TabPage1")
Me.TabPage1.Controls.Add(Me.lblLinkedServer)
Me.TabPage1.Controls.Add(Me.txtLinkedServer)
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.txtPasswort)
Me.TabPage1.Controls.Add(Me.BtnConnect)
resources.ApplyResources(Me.TabPage1, "TabPage1")
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.UseVisualStyleBackColor = True
'
@ -163,8 +169,8 @@ Partial Class frmConfig_Basic
'
'cmbDatenbank
'
resources.ApplyResources(Me.cmbDatenbank, "cmbDatenbank")
Me.cmbDatenbank.FormattingEnabled = True
resources.ApplyResources(Me.cmbDatenbank, "cmbDatenbank")
Me.cmbDatenbank.Name = "cmbDatenbank"
'
'Label4
@ -196,33 +202,32 @@ Partial Class frmConfig_Basic
'
'txtServer
'
resources.ApplyResources(Me.txtServer, "txtServer")
Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText
resources.ApplyResources(Me.txtServer, "txtServer")
Me.txtServer.Name = "txtServer"
'
'txtUser
'
resources.ApplyResources(Me.txtUser, "txtUser")
Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText
resources.ApplyResources(Me.txtUser, "txtUser")
Me.txtUser.Name = "txtUser"
'
'txtPasswort
'
resources.ApplyResources(Me.txtPasswort, "txtPasswort")
Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText
resources.ApplyResources(Me.txtPasswort, "txtPasswort")
Me.txtPasswort.Name = "txtPasswort"
Me.txtPasswort.UseSystemPasswordChar = True
'
'BtnConnect
'
resources.ApplyResources(Me.BtnConnect, "BtnConnect")
Me.BtnConnect.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_go1
resources.ApplyResources(Me.BtnConnect, "BtnConnect")
Me.BtnConnect.Name = "BtnConnect"
Me.BtnConnect.UseVisualStyleBackColor = True
'
'TabPage2
'
resources.ApplyResources(Me.TabPage2, "TabPage2")
Me.TabPage2.Controls.Add(Me.Button4)
Me.TabPage2.Controls.Add(Me.GroupBox5)
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.btnApplicationFolder)
Me.TabPage2.Controls.Add(Me.LinkLabel1)
resources.ApplyResources(Me.TabPage2, "TabPage2")
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.UseVisualStyleBackColor = True
'
'Button4
'
resources.ApplyResources(Me.Button4, "Button4")
Me.Button4.Image = Global.DD_Record_Organizer.My.Resources.Resources.email_go
resources.ApplyResources(Me.Button4, "Button4")
Me.Button4.Name = "Button4"
Me.Button4.UseVisualStyleBackColor = True
'
'GroupBox5
'
resources.ApplyResources(Me.GroupBox5, "GroupBox5")
Me.GroupBox5.Controls.Add(Me.Label11)
Me.GroupBox5.Controls.Add(Me.Label10)
Me.GroupBox5.Controls.Add(Me.txtTask_Popup)
resources.ApplyResources(Me.GroupBox5, "GroupBox5")
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.TabStop = False
'
@ -269,9 +275,9 @@ Partial Class frmConfig_Basic
'
'GroupBox4
'
resources.ApplyResources(Me.GroupBox4, "GroupBox4")
Me.GroupBox4.Controls.Add(Me.Button3)
Me.GroupBox4.Controls.Add(Me.cmbLanguage)
resources.ApplyResources(Me.GroupBox4, "GroupBox4")
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.TabStop = False
'
@ -283,17 +289,17 @@ Partial Class frmConfig_Basic
'
'cmbLanguage
'
resources.ApplyResources(Me.cmbLanguage, "cmbLanguage")
Me.cmbLanguage.FormattingEnabled = True
Me.cmbLanguage.Items.AddRange(New Object() {resources.GetString("cmbLanguage.Items"), resources.GetString("cmbLanguage.Items1")})
resources.ApplyResources(Me.cmbLanguage, "cmbLanguage")
Me.cmbLanguage.Name = "cmbLanguage"
'
'GroupBox3
'
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Controls.Add(Me.Label7)
Me.GroupBox3.Controls.Add(Me.cmbConstructor)
Me.GroupBox3.Controls.Add(Me.CheckBox1)
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.TabStop = False
'
@ -304,8 +310,8 @@ Partial Class frmConfig_Basic
'
'cmbConstructor
'
resources.ApplyResources(Me.cmbConstructor, "cmbConstructor")
Me.cmbConstructor.FormattingEnabled = True
resources.ApplyResources(Me.cmbConstructor, "cmbConstructor")
Me.cmbConstructor.Name = "cmbConstructor"
'
'CheckBox1
@ -319,11 +325,11 @@ Partial Class frmConfig_Basic
'
'GroupBox2
'
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Controls.Add(Me.CheckBoxWD_ShowEnitityDocs)
Me.GroupBox2.Controls.Add(Me.chkbxloadWDDocs)
Me.GroupBox2.Controls.Add(Me.Label6)
Me.GroupBox2.Controls.Add(Me.txtwdSearch_Count)
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False
'
@ -351,8 +357,8 @@ Partial Class frmConfig_Basic
'
'GroupBox1
'
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Controls.Add(Me.chkboxQuickMenue)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False
'
@ -370,15 +376,15 @@ Partial Class frmConfig_Basic
'
'Button1
'
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_go
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Name = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'btnApplicationFolder
'
resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder")
Me.btnApplicationFolder.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_go
resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder")
Me.btnApplicationFolder.Name = "btnApplicationFolder"
Me.btnApplicationFolder.UseVisualStyleBackColor = True
'
@ -390,7 +396,6 @@ Partial Class frmConfig_Basic
'
'TabPage3
'
resources.ApplyResources(Me.TabPage3, "TabPage3")
Me.TabPage3.Controls.Add(Me.chkSubfolder)
Me.TabPage3.Controls.Add(Me.Label9)
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.Label8)
Me.TabPage3.Controls.Add(Me.btnstartstop2)
resources.ApplyResources(Me.TabPage3, "TabPage3")
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.UseVisualStyleBackColor = True
'
@ -415,9 +421,9 @@ Partial Class frmConfig_Basic
'
'DataGridView1
'
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
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.Name = "DataGridView1"
'
@ -435,8 +441,8 @@ Partial Class frmConfig_Basic
'
'txtScanFolderWatch
'
resources.ApplyResources(Me.txtScanFolderWatch, "txtScanFolderWatch")
Me.txtScanFolderWatch.BackColor = System.Drawing.Color.LemonChiffon
resources.ApplyResources(Me.txtScanFolderWatch, "txtScanFolderWatch")
Me.txtScanFolderWatch.Name = "txtScanFolderWatch"
'
'Label8
@ -446,11 +452,36 @@ Partial Class frmConfig_Basic
'
'btnstartstop2
'
resources.ApplyResources(Me.btnstartstop2, "btnstartstop2")
Me.btnstartstop2.Image = Global.DD_Record_Organizer.My.Resources.Resources.bell_go
resources.ApplyResources(Me.btnstartstop2, "btnstartstop2")
Me.btnstartstop2.Name = "btnstartstop2"
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
'
resources.ApplyResources(Me, "$this")
@ -476,6 +507,8 @@ Partial Class frmConfig_Basic
Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage4.ResumeLayout(False)
Me.TabPage4.PerformLayout()
Me.ResumeLayout(False)
End Sub
@ -531,4 +564,8 @@ Partial Class frmConfig_Basic
Friend WithEvents btndeleteProxy As System.Windows.Forms.Button
Friend WithEvents lblLinkedServer As System.Windows.Forms.Label
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

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")
ClassProxy.MyLinkedServer = txtLinkedServer.Text
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

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

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

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

@ -2354,8 +2354,6 @@ Public Class frmConstructor_Main
If WD_ShowEnitityDocs = True Then
Clear_Windream_ResultList()
GridControlDocSearch.Visible = True
'RUN_WD_SEARCH("", "ENTITY")
' RUN_WDSEARCH_GRID("ENTITY")
End If
End If
End If
@ -2493,9 +2491,6 @@ Public Class frmConstructor_Main
'ToolStripDokumente.Dock = DockStyle.None
pnlDocToolStrip.Controls.Add(ToolStripDokumente)
pnlDocFill.Controls.Add(GridControlDocSearch)
'ToolStripDokumente.Dock = DockStyle.Top
'GridControlDocSearch.Dock = DockStyle.None
'GridControlDocSearch.Dock = DockStyle.Top
TabWindream.PageVisible = False
@ -2506,9 +2501,7 @@ Public Class frmConstructor_Main
'ToolStripDokumente.Dock = DockStyle.None
TabWindream.Controls.Add(ToolStripDokumente)
'ToolStripDokumente.Dock = DockStyle.Top
'GridControlDocSearch.Dock = DockStyle.None
TabWindream.Controls.Add(GridControlDocSearch)
'GridControlDocSearch.Dock = DockStyle.Top
TabWindream.PageVisible = True
End If
If RIGHT_READ_ONLY_DOC = False Then
@ -6554,35 +6547,6 @@ Public Class frmConstructor_Main
End Try
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
Try
For Each row As DataRow In CURRENT_TBPMO_FILES_USER.Rows
@ -6600,6 +6564,7 @@ Public Class frmConstructor_Main
End If
Next
CURRENT_TBPMO_FILES_USER.AcceptChanges()
ClassFolderWatcher.Check_Scan_Files()
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "", "Unexpected Error in clearing User-Files: " & ex.Message, ex.StackTrace)
Finally

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

@ -104,10 +104,10 @@ Partial Class frmDoctype_NameConvention
'
'GroupBox1
'
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.btnAddIndexM)
Me.GroupBox1.Controls.Add(Me.cmbIndex_AUTO)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False
'
@ -118,8 +118,8 @@ Partial Class frmDoctype_NameConvention
'
'btnAddIndexM
'
Me.btnAddIndexM.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD
resources.ApplyResources(Me.btnAddIndexM, "btnAddIndexM")
Me.btnAddIndexM.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD
Me.btnAddIndexM.Name = "btnAddIndexM"
Me.btnAddIndexM.UseVisualStyleBackColor = True
'
@ -146,8 +146,8 @@ Partial Class frmDoctype_NameConvention
'
'cmbEntity
'
Me.cmbEntity.DisplayMember = "GUID"
resources.ApplyResources(Me.cmbEntity, "cmbEntity")
Me.cmbEntity.DisplayMember = "GUID"
Me.cmbEntity.FormattingEnabled = True
Me.cmbEntity.Name = "cmbEntity"
Me.cmbEntity.ValueMember = "GUID"
@ -161,9 +161,9 @@ Partial Class frmDoctype_NameConvention
'
'cmbIndex_Controls
'
resources.ApplyResources(Me.cmbIndex_Controls, "cmbIndex_Controls")
Me.cmbIndex_Controls.DataSource = Me.TBDD_INDEX_AUTOMBindingSource
Me.cmbIndex_Controls.DisplayMember = "INDEXNAME"
resources.ApplyResources(Me.cmbIndex_Controls, "cmbIndex_Controls")
Me.cmbIndex_Controls.FormattingEnabled = True
Me.cmbIndex_Controls.Name = "cmbIndex_Controls"
Me.cmbIndex_Controls.ValueMember = "DOCTYPE_ID"
@ -175,20 +175,20 @@ Partial Class frmDoctype_NameConvention
'
'GroupBox2
'
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Controls.Add(Me.btnAddDivers)
Me.GroupBox2.Controls.Add(Me.cmbdivers)
Me.GroupBox2.Controls.Add(Me.Label8)
Me.GroupBox2.Controls.Add(Me.Button1)
Me.GroupBox2.Controls.Add(Me.cmbDate)
Me.GroupBox2.Controls.Add(Me.Label20)
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False
'
'btnAddDivers
'
Me.btnAddDivers.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD
resources.ApplyResources(Me.btnAddDivers, "btnAddDivers")
Me.btnAddDivers.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD
Me.btnAddDivers.Name = "btnAddDivers"
Me.btnAddDivers.UseVisualStyleBackColor = True
'
@ -206,8 +206,8 @@ Partial Class frmDoctype_NameConvention
'
'Button1
'
Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD
Me.Button1.Name = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
@ -225,22 +225,22 @@ Partial Class frmDoctype_NameConvention
'
'btndelete
'
Me.btndelete.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete
resources.ApplyResources(Me.btndelete, "btndelete")
Me.btndelete.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete
Me.btndelete.Name = "btndelete"
Me.btndelete.UseVisualStyleBackColor = True
'
'btnOK
'
Me.btnOK.Image = Global.DD_Record_Organizer.My.Resources.Resources.save
resources.ApplyResources(Me.btnOK, "btnOK")
Me.btnOK.Image = Global.DD_Record_Organizer.My.Resources.Resources.save
Me.btnOK.Name = "btnOK"
Me.btnOK.UseVisualStyleBackColor = True
'
'btnclose
'
Me.btnclose.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel
resources.ApplyResources(Me.btnclose, "btnclose")
Me.btnclose.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel
Me.btnclose.Name = "btnclose"
Me.btnclose.UseVisualStyleBackColor = True
'
@ -256,6 +256,7 @@ Partial Class frmDoctype_NameConvention
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Me.TBDD_INDEX_AUTOMTableAdapter
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_APPOINTMENTSTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = 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_RECORDTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RIGHT_GROUPTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RIGHT_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = 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_NAMECONVENTION_FORMATTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
@ -288,29 +291,29 @@ Partial Class frmDoctype_NameConvention
'
'VERSION_DELIMITERTextBox
'
resources.ApplyResources(Me.VERSION_DELIMITERTextBox, "VERSION_DELIMITERTextBox")
Me.VERSION_DELIMITERTextBox.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.VERSION_DELIMITERTextBox.ForeColor = System.Drawing.SystemColors.Control
resources.ApplyResources(Me.VERSION_DELIMITERTextBox, "VERSION_DELIMITERTextBox")
Me.VERSION_DELIMITERTextBox.Name = "VERSION_DELIMITERTextBox"
Me.VERSION_DELIMITERTextBox.ReadOnly = True
'
'FILE_DELIMITERTextBox
'
resources.ApplyResources(Me.FILE_DELIMITERTextBox, "FILE_DELIMITERTextBox")
Me.FILE_DELIMITERTextBox.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.FILE_DELIMITERTextBox.ForeColor = System.Drawing.SystemColors.Control
resources.ApplyResources(Me.FILE_DELIMITERTextBox, "FILE_DELIMITERTextBox")
Me.FILE_DELIMITERTextBox.Name = "FILE_DELIMITERTextBox"
Me.FILE_DELIMITERTextBox.ReadOnly = True
'
'GroupBox3
'
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Controls.Add(Me.Label5)
Me.GroupBox3.Controls.Add(Me.btnAddIndexA)
Me.GroupBox3.Controls.Add(Me.Label4)
Me.GroupBox3.Controls.Add(Me.cmbEntity)
Me.GroupBox3.Controls.Add(Me.cmbIndex_Controls)
Me.GroupBox3.Controls.Add(Me.Label3)
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.TabStop = False
'
@ -333,6 +336,18 @@ Partial Class frmDoctype_NameConvention
'
resources.ApplyResources(Me.GridControl1, "GridControl1")
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.Name = "GridControl1"
Me.GridControl1.ShowOnlyPredefinedDetails = True
@ -346,7 +361,12 @@ Partial Class frmDoctype_NameConvention
'GridView1
'
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
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.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
@ -405,11 +425,11 @@ Partial Class frmDoctype_NameConvention
'
'BindingNavigator1
'
resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1")
Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem
Me.BindingNavigator1.BindingSource = Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource
Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem
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.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem
@ -420,37 +440,37 @@ Partial Class frmDoctype_NameConvention
'
'BindingNavigatorAddNewItem
'
Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem")
Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
'
'BindingNavigatorCountItem
'
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem")
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
'
'BindingNavigatorDeleteItem
'
Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem")
Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
'
'BindingNavigatorMoveFirstItem
'
Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem")
Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
'
'BindingNavigatorMovePreviousItem
'
Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem")
Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
'
'BindingNavigatorSeparator
'
Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator")
Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
'
'BindingNavigatorPositionItem
'
@ -459,31 +479,31 @@ Partial Class frmDoctype_NameConvention
'
'BindingNavigatorSeparator1
'
Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1")
Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
'
'BindingNavigatorMoveNextItem
'
Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem")
Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
'
'BindingNavigatorMoveLastItem
'
Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem")
Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
'
'BindingNavigatorSeparator2
'
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2")
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
'
'ToolStripButtonSave
'
resources.ApplyResources(Me.ToolStripButtonSave, "ToolStripButtonSave")
Me.ToolStripButtonSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButtonSave.Image = Global.DD_Record_Organizer.My.Resources.Resources.save
resources.ApplyResources(Me.ToolStripButtonSave, "ToolStripButtonSave")
Me.ToolStripButtonSave.Name = "ToolStripButtonSave"
'
'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">
<value>Insert variables:</value>
</data>
<data name="btnTrennzeichen.Text" xml:space="preserve">
<value>File separator</value>
</data>
<data name="Label20.Size" type="System.Drawing.Size, System.Drawing">
<value>84, 17</value>
</data>
@ -164,13 +161,13 @@ and can also be used for filenames</value>
<value>Delete convention</value>
</data>
<data name="btnOK.Location" type="System.Drawing.Point, System.Drawing">
<value>498, 276</value>
<value>497, 264</value>
</data>
<data name="btnOK.Text" xml:space="preserve">
<value>Save</value>
</data>
<data name="btnclose.Location" type="System.Drawing.Point, System.Drawing">
<value>498, 308</value>
<value>498, 312</value>
</data>
<data name="btnclose.Text" xml:space="preserve">
<value>Cancel</value>
@ -190,6 +187,73 @@ and can also be used for filenames</value>
<data name="Label7.Text" xml:space="preserve">
<value>.file extension</value>
</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">
<value>Assistant for name convention/filenames</value>
</data>

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

File diff suppressed because it is too large Load Diff

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

@ -47,8 +47,6 @@
Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.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 DTAUTOINDEX As DataTable = ClassDatabase.Return_Datatable(autoIIndex)
@ -59,12 +57,17 @@
cmbEntity.ValueMember = DT_ENTITIES.Columns(0).ColumnName
cmbEntity.SelectedIndex = 0
If DTAUTOINDEX.Rows.Count > 0 Then
cmbIndex_AUTO.DataSource = DTAUTOINDEX
cmbIndex_AUTO.DisplayMember = DTAUTOINDEX.Columns(1).ColumnName
cmbIndex_AUTO.ValueMember = DTAUTOINDEX.Columns(0).ColumnName
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
MsgBox("Fehler beim Laden der Grunddaten zur Dokumentart: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
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.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
Me.TimerInformation = New System.Windows.Forms.Timer(Me.components)
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cmsSystray.SuspendLayout()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -107,26 +108,26 @@ Partial Class frmMain
'NotifyIcon
'
Me.NotifyIcon.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
resources.ApplyResources(Me.NotifyIcon, "NotifyIcon")
Me.NotifyIcon.ContextMenuStrip = Me.cmsSystray
resources.ApplyResources(Me.NotifyIcon, "NotifyIcon")
'
'cmsSystray
'
resources.ApplyResources(Me.cmsSystray, "cmsSystray")
Me.cmsSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ADDIBeendenToolStripMenuItem, Me.CockpitAnzeigenToolStripMenuItem})
Me.cmsSystray.Name = "cmsSystray"
resources.ApplyResources(Me.cmsSystray, "cmsSystray")
'
'ADDIBeendenToolStripMenuItem
'
resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem")
Me.ADDIBeendenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel1
Me.ADDIBeendenToolStripMenuItem.Name = "ADDIBeendenToolStripMenuItem"
resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem")
'
'CockpitAnzeigenToolStripMenuItem
'
resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem")
Me.CockpitAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.WebUserControl_ascx__11270_16x
Me.CockpitAnzeigenToolStripMenuItem.Name = "CockpitAnzeigenToolStripMenuItem"
resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem")
'
'TimerTasks
'
@ -190,11 +191,11 @@ Partial Class frmMain
'
'ribbonMain
'
resources.ApplyResources(Me.ribbonMain, "ribbonMain")
Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
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})
resources.ApplyResources(Me.ribbonMain, "ribbonMain")
Me.ribbonMain.MaxItemId = 6
Me.ribbonMain.Name = "ribbonMain"
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.itemAbout)
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.Ribbon = Me.ribbonMain
'
@ -439,10 +436,6 @@ Partial Class frmMain
resources.ApplyResources(Me.BarSubItem1, "BarSubItem1")
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.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.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.Id = 1
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.Options.UseFont = True
Me.LabelProxyServer.ItemAppearance.Normal.Options.UseForeColor = True
@ -533,10 +524,6 @@ Partial Class frmMain
resources.ApplyResources(Me.BarSubItem2, "BarSubItem2")
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.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"
'
'BarButtonItem24
@ -553,12 +540,9 @@ Partial Class frmMain
'
'StatusPersonifiedLogin
'
resources.ApplyResources(Me.StatusPersonifiedLogin, "StatusPersonifiedLogin")
Me.StatusPersonifiedLogin.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.user_16xLG
Me.StatusPersonifiedLogin.Id = 5
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.Options.UseFont = True
Me.StatusPersonifiedLogin.ItemAppearance.Normal.Options.UseForeColor = True
@ -602,10 +586,6 @@ Partial Class frmMain
'pageForms
'
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.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.groupQuickAccessForm2})
Me.pageForms.Image = Global.DD_Record_Organizer.My.Resources.Resources.application_form
@ -668,7 +648,6 @@ Partial Class frmMain
'
'RibbonStatusBar1
'
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelMachine)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelUser)
Me.RibbonStatusBar1.ItemLinks.Add(Me.StatusPersonifiedLogin)
@ -676,6 +655,7 @@ Partial Class frmMain
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelVersion)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLanguage)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelProxyServer)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.ribbonMain
'
@ -711,16 +691,17 @@ Partial Class frmMain
'
Me.TimerInformation.Interval = 1000
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
'
'frmMain
'
resources.ApplyResources(Me, "$this")
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.UseFont = True
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.ribbonMain)
@ -812,6 +793,7 @@ Partial Class frmMain
Friend WithEvents BarButtonItem25 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents StatusPersonifiedLogin As DevExpress.XtraBars.BarStaticItem
Friend WithEvents TimerInformation As System.Windows.Forms.Timer
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
End Class

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

File diff suppressed because it is too large Load Diff

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

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

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

@ -69,29 +69,29 @@ Partial Class frmScanFiles
Me.PdfBarController2 = New DevExpress.XtraPdfViewer.Bars.PdfBarController()
Me.btndelete = New System.Windows.Forms.Button()
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.Button1 = New System.Windows.Forms.Button()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.Panel1.SuspendLayout()
Me.StatusStrip2.SuspendLayout()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
Me.Panel1.SuspendLayout
Me.StatusStrip2.SuspendLayout
CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.PdfBarController1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.PdfBarController2,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
'
'ListView1
'
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader2})
resources.ApplyResources(Me.ListView1, "ListView1")
Me.ListView1.FullRowSelect = True
Me.ListView1.GridLines = True
Me.ListView1.FullRowSelect = true
Me.ListView1.GridLines = true
Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
Me.ListView1.LargeImageList = Me.ImageList1
Me.ListView1.MultiSelect = False
Me.ListView1.MultiSelect = false
Me.ListView1.Name = "ListView1"
Me.ListView1.SmallImageList = Me.ImageList1
Me.ListView1.UseCompatibleStateImageBehavior = False
Me.ListView1.UseCompatibleStateImageBehavior = false
Me.ListView1.View = System.Windows.Forms.View.Details
'
'ColumnHeader2
@ -193,7 +193,7 @@ Partial Class frmScanFiles
'PdfExactZoomListBarSubItem1
'
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.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.Name = "PdfFormDataRibbonPage1"
Me.PdfFormDataRibbonPage1.Visible = False
Me.PdfFormDataRibbonPage1.Visible = false
'
'PdfFormDataBarPageGroup1
'
@ -320,7 +320,7 @@ Partial Class frmScanFiles
Me.btnrefresh.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.btnrefresh, "btnrefresh")
Me.btnrefresh.Name = "btnrefresh"
Me.btnrefresh.UseVisualStyleBackColor = True
Me.btnrefresh.UseVisualStyleBackColor = true
'
'PdfBarController2
'
@ -357,19 +357,19 @@ Partial Class frmScanFiles
resources.ApplyResources(Me.btndelete, "btndelete")
Me.btndelete.Name = "btndelete"
Me.ToolTip1.SetToolTip(Me.btndelete, resources.GetString("btndelete.ToolTip"))
Me.btndelete.UseVisualStyleBackColor = True
Me.btndelete.UseVisualStyleBackColor = true
'
'chkInFront
'
resources.ApplyResources(Me.chkInFront, "chkInFront")
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.UseVisualStyleBackColor = True
Me.chkInFront.UseVisualStyleBackColor = true
'
'Timer1
'TimerCheckScanFiles
'
Me.Timer1.Interval = 1000
Me.TimerCheckScanFiles.Interval = 5000
'
'Button1
'
@ -377,7 +377,7 @@ Partial Class frmScanFiles
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Name = "Button1"
Me.ToolTip1.SetToolTip(Me.Button1, resources.GetString("Button1.ToolTip"))
Me.Button1.UseVisualStyleBackColor = True
Me.Button1.UseVisualStyleBackColor = true
'
'frmScanFiles
'
@ -389,17 +389,17 @@ Partial Class frmScanFiles
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.btnrefresh)
Me.Controls.Add(Me.ListView1)
Me.MaximizeBox = False
Me.MaximizeBox = false
Me.Name = "frmScanFiles"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.StatusStrip2.ResumeLayout(False)
Me.StatusStrip2.PerformLayout()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
Me.Panel1.ResumeLayout(false)
Me.Panel1.PerformLayout
Me.StatusStrip2.ResumeLayout(false)
Me.StatusStrip2.PerformLayout
CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.PdfBarController1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.PdfBarController2,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
Me.PerformLayout
End Sub
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
@ -447,7 +447,7 @@ Partial Class frmScanFiles
Friend WithEvents btndelete As System.Windows.Forms.Button
Friend WithEvents chkInFront As System.Windows.Forms.CheckBox
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 Button1 As System.Windows.Forms.Button
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip

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

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

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

@ -1,4 +1,6 @@
Imports System.IO
Imports DD_LIB_Standards
Public Class frmScanFiles
Dim DragID
@ -19,15 +21,49 @@ Public Class frmScanFiles
Load_Files()
ClassWindowLocation.LoadFormLocationSize(Me, 9999, CURRENT_SCREEN_ID, Me.Name)
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()
Try
Dim DT As DataTable = ClassFolderWatcher.Check_Scan_Files
If Not IsNothing(DT) Then
CURRENT_SCAN_TABLE = DT
ListView1.Items.Clear()
Dim i = 0
For Each row As DataRow In CURRENT_SCAN_TABLE.Rows
Dim extension = Path.GetExtension(row.Item("FILENAME2WORK").ToString)
Dim filestring = row.Item("FILENAME2WORK")
If ClassHelper.CheckFileIsInUse(filestring) = False Then
@ -39,7 +75,6 @@ Public Class frmScanFiles
If extension.Contains("pdf") Then
'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
@ -47,20 +82,17 @@ Public Class frmScanFiles
i += 1
End If
End If
Next
If CURRENT_SCAN_TABLE.Rows.Count = 0 Then
Me.Close()
End If
End If
Catch ex As Exception
MsgBox("unexpected Error in Load Scanfiles:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btnrefresh_Click(sender As Object, e As EventArgs) Handles btnrefresh.Click
Load_Files()
Clear_and_Reload_Files()
End Sub
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
If Not IsNothing(i) Then
If i.Text.ToLower.EndsWith("pdf") Then
Me.Cursor = Cursors.WaitCursor
Panel1.Visible = True
PdfViewer1.DocumentFilePath = ""
Dim docpath = CURRENT_SCAN_FOLDERWATCH & "\" & i.Text
PdfViewer1.LoadDocument(docpath)
'PdfViewer1.HorizontalScroll.Visible = True
@ -90,6 +124,7 @@ Public Class frmScanFiles
End If
End If
End If
Me.Cursor = Cursors.Default
End Sub
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
If MouseIsDown Then
'Initiate dragging.
PdfViewer1.DocumentFilePath = ""
ListView1.DoDragDrop(DragID, DragDropEffects.Copy)
End If
MouseIsDown = False
End Sub
@ -123,16 +160,13 @@ Public Class frmScanFiles
MouseIsDown = True
DragID = i.Tag
'Console.WriteLine("Mouse Down")
PdfViewer1.DocumentFilePath = ""
ListView1.DoDragDrop("SCAN;" & DragID.ToString, DragDropEffects.Copy)
End If
End If
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
PDF_Pagenumber()
End Sub
@ -140,14 +174,20 @@ Public Class frmScanFiles
Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
Try
If ListView1.SelectedItems.Count = 1 Then
PdfViewer1.DocumentFilePath = ""
Dim i = ListView1.FocusedItem
Dim i1 = i.Text
If Not IsNothing(i) Then
Dim del = "DELETE FROM TBPMO_FILES_USER where GUID = " & i.Tag
If ClassDatabase.Execute_non_Query(del, True) Then
ClassFolderWatcher.Check_Scan_Files()
Load_Files()
Else
MsgBox("Could not delete the entry. Check the logfile!", MsgBoxStyle.Information)
End If
End If
Else
MsgBox("Please choose a file!", MsgBoxStyle.Information)
End If
Catch ex As Exception
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
Me.BringToFront()
Timer1.Start()
TimerCheckScanFiles.Start()
End Sub
Private Sub chkInFront_CheckedChanged(sender As Object, e As EventArgs) Handles chkInFront.CheckedChanged
My.Settings.Save()
End Sub
Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim DT As DataTable = ClassFolderWatcher.Check_Scan_Files
If DT.Rows.Count <> ListView1.Items.Count Then
Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles TimerCheckScanFiles.Tick
If CURRENT_SCAN_TABLE.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()
End If
End Sub
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
ClassFolderWatcher.Check_Scan_Files()
Load_Files()
End If
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.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
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.GridControlUsersinClient = New DevExpress.XtraGrid.GridControl()
Me.GridViewUsersinClient = New DevExpress.XtraGrid.Views.Grid.GridView()
@ -193,6 +167,47 @@ Partial Class frmUserKonfig
Me.Label16 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
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.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()
@ -212,21 +227,6 @@ Partial Class frmUserKonfig
Me.WAN_ENVIRONMENTCheckBox = New System.Windows.Forms.CheckBox()
Me.DATE_FORMATComboBox = New System.Windows.Forms.ComboBox()
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()
PRENAMELabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label()
@ -283,24 +283,24 @@ Partial Class frmUserKonfig
Me.BindingNavigator1.SuspendLayout()
Me.XtraTabPage2.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()
CType(Me.GridControlUsersinClient, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewUsersinClient, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlUser2Mandanten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWH_Users2BindingSource, 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.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, 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()
'
'GUIDLabel
@ -1154,194 +1154,6 @@ Partial Class frmUserKonfig
Me.TabControl3.Name = "TabControl3"
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
'
resources.ApplyResources(Me.TabPage6, "TabPage6")
@ -1503,6 +1315,303 @@ Partial Class frmUserKonfig
Me.cmbClientsforUser.Name = "cmbClientsforUser"
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
'
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.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
'
resources.ApplyResources(Me, "$this")
@ -1818,12 +1818,6 @@ Partial Class frmUserKonfig
Me.BindingNavigator1.PerformLayout()
Me.XtraTabPage2.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.PerformLayout()
CType(Me.GridControlUsersinClient, System.ComponentModel.ISupportInitialize).EndInit()
@ -1831,15 +1825,21 @@ Partial Class frmUserKonfig
CType(Me.GridControlUser2Mandanten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBWH_Users2BindingSource, 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.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, 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.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_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_APPOINTMENTSTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = 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>
</data>
<data name="ListBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>305, 224</value>
<value>305, 207</value>
</data>
<data name="ListBox2.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@ -2204,7 +2204,7 @@
<value>0, 0</value>
</data>
<data name="TBDD_INDEX_AUTOMBindingNavigator.Size" type="System.Drawing.Size, System.Drawing">
<value>1261, 25</value>
<value>1347, 25</value>
</data>
<data name="TBDD_INDEX_AUTOMBindingNavigator.TabIndex" type="System.Int32, mscorlib">
<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)
If DT.Rows.Count > 0 Then
DT_SUPERVISOR_ENTITY = DT
MsgBox("As Supervisor You are only allowed to change entity-related rights!", MsgBoxStyle.Information)
End If
If USER_IS_ADMIN = False And DT.Rows.Count = 0 Then
@ -84,14 +83,14 @@ Public Class frmStart
Sub Check_USER_REWORK()
'Überprüfen ob es User gibt die aktualisiert werden müssen
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.Visible = True
Else
btnWorkUserRights.Visible = False
End If
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.Visible = True
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
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 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
' Replace the file.
If File.Exists(targetfile) Then