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

merge

Browse Source
This commit is contained in:
Jonathan Jenne
2020-05-06 14:15:00 +02:00
parent 3f69e71791 5097c2d595
commit 3dfdb4377b
10 changed files with 804 additions and 1171 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
app/DD-Record-Organizer/ClassDOC_SEARCH.vb
View File

@@ -262,7 +262,7 @@ Public Class ClassDOC_SEARCH
Return Nothing
End If
sw = New SW("Get_DOC_RESULTTABLE DTGrid-Definition")
Dim DTGrid As New DataTable
Dim oDTGrid As New DataTable
Dim ColArrayDEFINITION As New List(Of String)
Dim listcheck As New List(Of String)
For Each row As DataRow In DT_TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Rows
@@ -286,25 +286,25 @@ Public Class ClassDOC_SEARCH
colIcon.DataType = GetType(Image)
colIcon.ColumnName = "ICON"
colIcon.Caption = ""
DTGrid.Columns.Add(colIcon)
oDTGrid.Columns.Add(colIcon)
_step = "4"
Dim colPath As New System.Data.DataColumn()
colPath.DataType = GetType(String)
colPath.ColumnName = "FULLPATH"
colPath.Caption = "Fullpath"
DTGrid.Columns.Add(colPath)
oDTGrid.Columns.Add(colPath)
_step = "5"
Dim colOtype As New System.Data.DataColumn()
colOtype.DataType = GetType(String)
colOtype.ColumnName = "OBJECTTYPE"
colOtype.Caption = "Objecttype"
DTGrid.Columns.Add(colOtype)
oDTGrid.Columns.Add(colOtype)
_step = "6"
Dim colDocID As New System.Data.DataColumn()
colDocID.DataType = GetType(Int32)
colDocID.ColumnName = "DocID"
colDocID.Caption = "DocID"
DTGrid.Columns.Add(colDocID)
oDTGrid.Columns.Add(colDocID)
_step = "7"
If Not DT_TBPMO_DOCSEARCH_RESULTLIST_CONFIG Is Nothing And DT_TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Rows.Count >= 1 Then
@@ -330,7 +330,7 @@ Public Class ClassDOC_SEARCH
oColumn.DataType = GetType(DateTime)
End If
DTGrid.Columns.Add(oColumn)
oDTGrid.Columns.Add(oColumn)
ColCount += 1
Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected Error in DTGrid.Columns.Add({0}) - CONSTR_DET_ID: {1} ", ColumnName, CURRENT_CONSTRUCTOR_DETAIL_ID) & ex.Message)
@@ -348,7 +348,7 @@ Public Class ClassDOC_SEARCH
COL_ARRAY_RESULTLIST = ColArrayDEFINITION
_step = "8"
For Each col1 As String In listcheck
Dim collist As DataColumn = DTGrid.Columns(col1)
Dim collist As DataColumn = oDTGrid.Columns(col1)
If Not IsNothing(collist) Then
collist.DataType = GetType(Boolean)
End If
@@ -365,52 +365,53 @@ Public Class ClassDOC_SEARCH
Dim filename = Path.GetFileName(fullpath)
Dim extension = Path.GetExtension(fullpath)
' Try
Dim NewRow As DataRow
NewRow = DTGrid.NewRow()
Dim oNewRow As DataRow
oNewRow = oDTGrid.NewRow()
'Icon zuweisen
Select Case extension.ToUpper
Case ".csv".ToUpper
NewRow.Item(0) = My.Resources.doc_excel_csv
oNewRow.Item(0) = My.Resources.doc_excel_csv
Case ".txt".ToUpper
NewRow.Item(0) = My.Resources.text
oNewRow.Item(0) = My.Resources.text
Case ".pdf".ToUpper
NewRow.Item(0) = My.Resources.pdf
oNewRow.Item(0) = My.Resources.pdf
Case ".doc".ToUpper
NewRow.Item(0) = My.Resources.doc
oNewRow.Item(0) = My.Resources.doc
Case ".docx".ToUpper
NewRow.Item(0) = My.Resources.doc
oNewRow.Item(0) = My.Resources.doc
Case ".xls".ToUpper
NewRow.Item(0) = My.Resources.xls
oNewRow.Item(0) = My.Resources.xls
Case ".xlsx".ToUpper
NewRow.Item(0) = My.Resources.xls
oNewRow.Item(0) = My.Resources.xls
Case ".xlsm".ToUpper
NewRow.Item(0) = My.Resources.xls
oNewRow.Item(0) = My.Resources.xls
Case ".ppt".ToUpper
NewRow.Item(0) = My.Resources.ppt
oNewRow.Item(0) = My.Resources.ppt
Case ".pptx".ToUpper
NewRow.Item(0) = My.Resources.ppt
oNewRow.Item(0) = My.Resources.ppt
Case ".dwg".ToUpper
NewRow.Item(0) = My.Resources.dwg
oNewRow.Item(0) = My.Resources.dwg
Case ".dxf".ToUpper
NewRow.Item(0) = My.Resources.dxf
oNewRow.Item(0) = My.Resources.dxf
Case ".msg".ToUpper
NewRow.Item(0) = My.Resources.email_go
oNewRow.Item(0) = My.Resources.email_go
Case ".msg".ToUpper
NewRow.Item(0) = My.Resources.email_go
oNewRow.Item(0) = My.Resources.email_go
Case Else
NewRow.Item(0) = My.Resources._blank
oNewRow.Item(0) = My.Resources._blank
End Select
'Den Filepath mitgeben
NewRow.Item(1) = fullpath
NewRow.Item(2) = objecttype
NewRow.Item(3) = DocID
oNewRow.Item(1) = fullpath
oNewRow.Item(2) = objecttype
oNewRow.Item(3) = DocID
Dim i = 4 'Fängt bei 4 an, um die definierten Spalten zu überspringen
For Each Colname As String In ColArrayDEFINITION
Dim rowvalue
Try
rowvalue = FILE_ROW.Item(Colname)
If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue for Colname '" & Colname & "': '" & rowvalue.ToString & "'", False)
_step = "9.1 rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]"
If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]", False)
Catch ex As Exception
If CURRENT_SEARCH_TYPE = "RECORD" Then ClassLogger.Add("Unexpected Error in GetVariableValue for Column '" & Colname & "'- Error: " & ex.Message)
If Colname.ToString.StartsWith("doct") Or Colname.ToString.StartsWith("Dokum") Then
@@ -424,17 +425,36 @@ Public Class ClassDOC_SEARCH
End If
End Try
NewRow.Item(i) = rowvalue.ToString
_step = "9.2 now: NewRow.Item(i) = rowvalue.ToString..."
If LogErrorsOnly = False Then ClassLogger.Add("9.2 now: NewRow.Item(i) = rowvalue.ToString...", False)
Try
Catch ex As Exception
End Try
Try
'If oDTGrid.Columns(i).DataType.ToString = "System.DateTime" And rowvalue = String.Empty Then
' If LogErrorsOnly = False Then ClassLogger.Add("rowvalue Is empty and Column is Datetime...", False)
'Else
oNewRow.Item(i) = rowvalue.ToString
'End If
Catch ex As Exception
ClassLogger.Add("Error in advising value to rowitem (oNewRow.Item(i) = rowvalue.ToString): " + ex.Message, False)
ClassLogger.Add("Type of column: " + oDTGrid.Columns(i).DataType.ToString(), False)
End Try
i += 1
Next
DTGrid.Rows.Add(NewRow)
oDTGrid.Rows.Add(oNewRow)
' Catch ex As Exception
' ClassLogger.Add("Unexpected Error in CreateRow for doc '" & filename & "- Error: " & ex.Message)
' End Try
Next
_step = "10"
Return DTGrid
Return oDTGrid
sw.Done()
Catch ex As Exception

4
app/DD-Record-Organizer/ClassWDRights.vb
View File

@@ -166,7 +166,7 @@ Public Class ClassWDRights
Else
_msg = "Right for User: '" & UserOrGroup.aName & "'"""
End If
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> {0} will now be deleted.", _msg), False)
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> [{0}] will now be deleted.", _msg), False)
If Err.Number <> 0 Then
Dim msg = "Error in setting UserGroupRelation - Err.Number: " & Err.Number & vbCrLf & Err.Description
ClassLogger.Add(msg, True)
@@ -178,7 +178,7 @@ Public Class ClassWDRights
Try
AccessRights.Delete2(UserOrGroup, WMAccessRightAllRights)
Catch ex As Exception
Dim msg = "Error in AccessRights.Delete2 (Doc_RenewRights) Doc-ID: " & doc_id & " - UserGroup: " & UserOrGroup & " - ErrorMsg: " & ex.Message
Dim msg = "Error in AccessRights.Delete2 (Doc_RenewRights) Doc-ID: " & doc_id & " - UserGroup: " & UserOrGroup.aName & " - ErrorMsg: " & ex.Message
ClassLogger.Add(msg, True)
Continue For
End Try

45
app/DD-Record-Organizer/ClassWindreamDocGrid.vb
View File

@@ -439,35 +439,38 @@ Public Class ClassWindreamDocGrid
Try
Dim view As ColumnView = sender
Dim parsedDate As DateTime
If Not IsNothing(DATE_COLUMNS) Then
If DATE_COLUMNS.Contains(e.Column.FieldName) And e.ListSourceRowIndex <> DevExpress.XtraGrid.GridControl.InvalidRowHandle Then
If DATE_COLUMNS.Contains(e.Column.FieldName) And e.ListSourceRowIndex <> DevExpress.XtraGrid.GridControl.InvalidRowHandle Then
If e.Value.ToString() = String.Empty Then
e.DisplayText = ""
Exit Sub
End If
If Not DateTime.TryParse(e.Value, parsedDate) Then
parsedDate = DateTime.ParseExact(e.Value, CURRENT_DATE_FORMAT & " HH:MM:ss", System.Globalization.DateTimeFormatInfo.InvariantInfo)
End If
e.DisplayText = parsedDate.ToString(CURRENT_DATE_FORMAT & " HH:MM:ss")
If e.Value.ToString() = String.Empty Then
e.DisplayText = ""
Exit Sub
End If
End If
If Not IsNothing(DATE_COLUMNS_CONFIG) Then
If DATE_COLUMNS_CONFIG.Contains(e.Column.FieldName) And e.ListSourceRowIndex <> DevExpress.XtraGrid.GridControl.InvalidRowHandle Then
If e.Value.ToString() = String.Empty Then
e.DisplayText = ""
Exit Sub
End If
If Not DateTime.TryParse(e.Value, parsedDate) Then
parsedDate = DateTime.ParseExact(e.Value, CURRENT_DATE_FORMAT & " HH:MM:ss", System.Globalization.DateTimeFormatInfo.InvariantInfo)
If Not DateTime.TryParse(e.Value, parsedDate) Then
parsedDate = DateTime.ParseExact(e.Value, CURRENT_DATE_FORMAT, System.Globalization.DateTimeFormatInfo.InvariantInfo)
End If
e.DisplayText = parsedDate.ToString(CURRENT_DATE_FORMAT)
End If
e.DisplayText = parsedDate.ToString(CURRENT_DATE_FORMAT & " HH:MM:ss")
ElseIf DATE_COLUMNS_CONFIG.Contains(e.Column.FieldName) And e.ListSourceRowIndex <> DevExpress.XtraGrid.GridControl.InvalidRowHandle Then
If e.Value.ToString() = String.Empty Then
e.DisplayText = ""
Exit Sub
End If
If Not DateTime.TryParse(e.Value, parsedDate) Then
parsedDate = DateTime.ParseExact(e.Value, CURRENT_DATE_FORMAT, System.Globalization.DateTimeFormatInfo.InvariantInfo)
End If
e.DisplayText = parsedDate.ToString(CURRENT_DATE_FORMAT)
End If
Catch ex As Exception
ClassLogger.Add("Unexpected error in gridView_CustomColumnDisplayText: " & ex.Message, False, False)
MsgBox("Unexpected error in gridView_CustomColumnDisplayText: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub

2
app/DD-Record-Organizer/My Project/AssemblyInfo.vb
View File

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.5.0.4")>
<Assembly: AssemblyVersion("2.5.0.6")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

57
app/DD-Record-Organizer/frmConstructor_Main.Designer.vb generated
View File

@@ -24,10 +24,10 @@ Partial Class frmConstructor_Main
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
Me.TreeViewMain = New System.Windows.Forms.TreeView()
@@ -39,8 +39,6 @@ Partial Class frmConstructor_Main
Me.AuswertungAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFilesearch = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiNodedownSearch = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmientitySearch = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFulltext = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripSeparator24 = New System.Windows.Forms.ToolStripSeparator()
Me.tsmiNodeRename = New System.Windows.Forms.ToolStripMenuItem()
@@ -231,10 +229,10 @@ Partial Class frmConstructor_Main
Me.bsitmLoadEntity = New DevExpress.XtraBars.BarStaticItem()
Me.bsitmWFState = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -357,7 +355,7 @@ Partial Class frmConstructor_Main
'
'tsmiFilesearch
'
Me.tsmiFilesearch.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiNodedownSearch, Me.tsmientitySearch, Me.tsmiFulltext})
Me.tsmiFilesearch.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiNodedownSearch})
resources.ApplyResources(Me.tsmiFilesearch, "tsmiFilesearch")
Me.tsmiFilesearch.Name = "tsmiFilesearch"
'
@@ -367,17 +365,6 @@ Partial Class frmConstructor_Main
Me.tsmiNodedownSearch.Name = "tsmiNodedownSearch"
resources.ApplyResources(Me.tsmiNodedownSearch, "tsmiNodedownSearch")
'
'tsmientitySearch
'
Me.tsmientitySearch.Image = Global.DD_Record_Organizer.My.Resources.Resources.search_glyph
Me.tsmientitySearch.Name = "tsmientitySearch"
resources.ApplyResources(Me.tsmientitySearch, "tsmientitySearch")
'
'tsmiFulltext
'
resources.ApplyResources(Me.tsmiFulltext, "tsmiFulltext")
Me.tsmiFulltext.Name = "tsmiFulltext"
'
'ToolStripSeparator12
'
Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
@@ -398,9 +385,9 @@ Partial Class frmConstructor_Main
'tstxtRenameNode
'
Me.tstxtRenameNode.BackColor = System.Drawing.SystemColors.Control
resources.ApplyResources(Me.tstxtRenameNode, "tstxtRenameNode")
Me.tstxtRenameNode.ForeColor = System.Drawing.SystemColors.ControlText
Me.tstxtRenameNode.Name = "tstxtRenameNode"
resources.ApplyResources(Me.tstxtRenameNode, "tstxtRenameNode")
'
'tsmiNodeNew
'
@@ -416,8 +403,8 @@ Partial Class frmConstructor_Main
'tsmINewText
'
Me.tsmINewText.BackColor = System.Drawing.Color.Yellow
Me.tsmINewText.Name = "tsmINewText"
resources.ApplyResources(Me.tsmINewText, "tsmINewText")
Me.tsmINewText.Name = "tsmINewText"
'
'ToolStripSeparator15
'
@@ -450,12 +437,12 @@ Partial Class frmConstructor_Main
Me.GridControlMain.AllowDrop = True
Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
resources.ApplyResources(Me.GridControlMain, "GridControlMain")
GridLevelNode2.LevelTemplate = Me.grvwGrid
GridLevelNode2.RelationName = "Level1"
GridLevelNode3.LevelTemplate = Me.grvwCarousel
GridLevelNode3.RelationName = "Level2"
GridLevelNode4.RelationName = "Level3"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2, GridLevelNode3, GridLevelNode4})
GridLevelNode1.LevelTemplate = Me.grvwGrid
GridLevelNode1.RelationName = "Level1"
GridLevelNode2.LevelTemplate = Me.grvwCarousel
GridLevelNode2.RelationName = "Level2"
GridLevelNode3.RelationName = "Level3"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2, GridLevelNode3})
Me.GridControlMain.MainView = Me.grvwTiles
Me.GridControlMain.Name = "GridControlMain"
Me.GridControlMain.TabStop = False
@@ -893,8 +880,8 @@ Partial Class frmConstructor_Main
Me.GridControlDocSearch.AllowDrop = True
Me.GridControlDocSearch.ContextMenuStrip = Me.cmsResultFilesBasic
resources.ApplyResources(Me.GridControlDocSearch, "GridControlDocSearch")
GridLevelNode5.RelationName = "Level1"
Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5})
GridLevelNode4.RelationName = "Level1"
Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4})
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
Me.GridControlDocSearch.Name = "GridControlDocSearch"
Me.GridControlDocSearch.TabStop = False
@@ -1315,8 +1302,8 @@ Partial Class frmConstructor_Main
'CMDoc_TextBoxRenameFile
'
Me.CMDoc_TextBoxRenameFile.BackColor = System.Drawing.Color.Orange
Me.CMDoc_TextBoxRenameFile.Name = "CMDoc_TextBoxRenameFile"
resources.ApplyResources(Me.CMDoc_TextBoxRenameFile, "CMDoc_TextBoxRenameFile")
Me.CMDoc_TextBoxRenameFile.Name = "CMDoc_TextBoxRenameFile"
'
'DisplaynameUmbenennenToolStripMenuItem
'
@@ -1327,8 +1314,8 @@ Partial Class frmConstructor_Main
'CMDoc_TextBoxRenameDisplay
'
Me.CMDoc_TextBoxRenameDisplay.BackColor = System.Drawing.Color.DarkOrange
Me.CMDoc_TextBoxRenameDisplay.Name = "CMDoc_TextBoxRenameDisplay"
resources.ApplyResources(Me.CMDoc_TextBoxRenameDisplay, "CMDoc_TextBoxRenameDisplay")
Me.CMDoc_TextBoxRenameDisplay.Name = "CMDoc_TextBoxRenameDisplay"
'
'ToolStripSeparator22
'
@@ -1653,12 +1640,6 @@ Partial Class frmConstructor_Main
Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
'
'RibbonPageGroup4
'
Me.RibbonPageGroup4.ItemLinks.Add(Me.bStaticItem1)
Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtniRefresh)
@@ -1683,6 +1664,12 @@ Partial Class frmConstructor_Main
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
'
'RibbonPageGroup4
'
Me.RibbonPageGroup4.ItemLinks.Add(Me.bStaticItem1)
Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmState)
@@ -1917,7 +1904,6 @@ Partial Class frmConstructor_Main
Friend WithEvents DateiVersionierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents DokumentartÄndernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tsmiFilesearch As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tsmientitySearch As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tsmiNodedownSearch As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents docCM_RenameMain As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents NeuToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
@@ -1937,7 +1923,6 @@ Partial Class frmConstructor_Main
Friend WithEvents cmDoc1FileProperties As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tslblPoslocked As System.Windows.Forms.ToolStripLabel
Friend WithEvents tsbtnWork As System.Windows.Forms.ToolStripButton
Friend WithEvents tsmiFulltext As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripDokumente As System.Windows.Forms.ToolStrip
Friend WithEvents tslblWindreamView As System.Windows.Forms.ToolStripLabel
Friend WithEvents ToolStripSeparator17 As System.Windows.Forms.ToolStripSeparator

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

File diff suppressed because it is too large Load Diff

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

@@ -1170,7 +1170,7 @@ Public Class frmConstructor_Main
'pnlPositions.Enabled = True
TabWindream.PageEnabled = True
tsbtnDoc_Refresh.Enabled = True
tsmientitySearch.Enabled = True
If SQL_RECORD_AND_FILE_READ_ONLY <> "" Or SQL_DOC_READ_ONLY <> "" Then
If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
@@ -6632,7 +6632,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
RUN_WDSEARCH_GRID()
End Sub
Private Sub EnitätssucheToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles tsmientitySearch.Click
Private Sub EnitätssucheToolStripMenuItem_Click(sender As Object, e As EventArgs)
CURRENT_SEARCH_TYPE = "ENTITY"
RUN_ENTITY_DOC_SEARCH()
End Sub
@@ -6868,7 +6868,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Open_FulltextSearch()
End Sub
Private Sub tsmiFulltext_Click(sender As Object, e As EventArgs) Handles tsmiFulltext.Click
Private Sub tsmiFulltext_Click(sender As Object, e As EventArgs)
Open_FulltextSearch()
End Sub
Sub Open_FulltextSearch()

10
app/DD-Record-Organizer/frmDoc_Links.Designer.vb generated
View File

@@ -42,8 +42,8 @@ Partial Class frmDoc_Links
'
'tslbl
'
Me.tslbl.Name = "tslbl"
resources.ApplyResources(Me.tslbl, "tslbl")
Me.tslbl.Name = "tslbl"
'
'ToolStripButtonDelete
'
@@ -65,13 +65,13 @@ Partial Class frmDoc_Links
'
'grvwGrid
'
Me.grvwGrid.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.grvwGrid.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.grvwGrid.Appearance.EvenRow.Options.UseBackColor = True
Me.grvwGrid.Appearance.FilterPanel.BackColor = CType(resources.GetObject("grvwGrid.Appearance.FilterPanel.BackColor"), System.Drawing.Color)
Me.grvwGrid.Appearance.FilterPanel.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.grvwGrid.Appearance.FilterPanel.Options.UseBackColor = True
Me.grvwGrid.Appearance.HideSelectionRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.HideSelectionRow.BackColor"), System.Drawing.Color)
Me.grvwGrid.Appearance.HideSelectionRow.BackColor = System.Drawing.Color.Yellow
Me.grvwGrid.Appearance.HideSelectionRow.Options.UseBackColor = True
Me.grvwGrid.Appearance.SelectedRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.grvwGrid.Appearance.SelectedRow.BackColor = System.Drawing.Color.Yellow
Me.grvwGrid.Appearance.SelectedRow.Options.UseBackColor = True
Me.grvwGrid.Appearance.SelectedRow.Options.UseForeColor = True
Me.grvwGrid.GridControl = Me.dgRecords

17
app/DD-Record-Organizer/frmDoc_Links.resx
View File

@@ -121,8 +121,11 @@
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tslbl.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold, Italic</value>
</data>
<data name="tslbl.Size" type="System.Drawing.Size, System.Drawing">
<value>29, 22</value>
<value>32, 22</value>
</data>
<data name="tslbl.Text" xml:space="preserve">
<value>tslbl</value>
@@ -195,18 +198,6 @@
<data name="dgRecords.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 25</value>
</data>
<data name="grvwGrid.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Aqua</value>
</data>
<data name="grvwGrid.Appearance.FilterPanel.BackColor" type="System.Drawing.Color, System.Drawing">
<value>255, 128, 0</value>
</data>
<data name="grvwGrid.Appearance.HideSelectionRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Yellow</value>
</data>
<data name="grvwGrid.Appearance.SelectedRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Yellow</value>
</data>
<data name="dgRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>800, 403</value>
</data>

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

@@ -5,7 +5,7 @@
End Sub
Sub Load_Users_GS()
Dim Sql = String.Format("SELECT T.* FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_GLOBAL_SEARCH) ORDER BY USERNAME ORDER BY T.USERNAME")
WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_USER_GLOBAL_SEARCH) ORDER BY T.USERNAME")
Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
Sql = String.Format("SELECT * FROM TBDD_USER WHERE GUID IN (SELECT USER_ID FROM TBPMO_USER_GLOBAL_SEARCH) ORDER BY USERNAME")
Dim DT_USERS_CONFIGURED = ClassDatabase.Return_Datatable(Sql)