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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-09-21 16:15:47 +02:00
parent 2cc5835380
commit 7c9da92dcd
13 changed files with 1037 additions and 565 deletions
Download Patch File Download Diff File Expand all files Collapse all files

125
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -887,6 +887,7 @@ Public Class frmConstructor_Main
If RightMouse_Clicked Then
Exit Sub
End If
' If NODE_NAVIGATION = False Then
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
If IsNothing(Grid_RecordID) Then
Console.WriteLine("No Record ID selectable")
@@ -897,6 +898,8 @@ Public Class frmConstructor_Main
RECID = Grid_RecordID
End If
End If
'End If
End If
CURRENT_RECORD_ID = RECORD_ID
If RECID = RECORD_ID And ENTITY_RECORD_COUNT > 1 And _refresh = False Then
@@ -2257,6 +2260,7 @@ Public Class frmConstructor_Main
EDIT_STATE = EditState.None
CURRENT_RECORD_ENABLED = False
' Update_Record_Label(SELECTED_RECORD_ID)
ClassHelper.InsertEssential_Log(SELECTED_RECORD_ID, "RECORD-ID", "RECORD WAS DELETED MANUALLY by USER: " & Environment.UserName)
msg = "Der Datensatz '" & SELECTED_RECORD_ID & "' wurde erfolgreich gelöscht - " & Now
If USER_LANGUAGE <> "de-DE" Then
msg = "The record and all dependencies for '" & SELECTED_RECORD_ID & "' were deleted - " & Now
@@ -4399,10 +4403,12 @@ Public Class frmConstructor_Main
Exit Sub
End If
If DT_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim NODE_TEXT As String = selnode.Text
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID
If Type = "ENTITY" Then
Dim selnode As TreeNode = TreeViewMain.SelectedNode
selnode = TreeViewMain.SelectedNode
Dim Entitystring
If selnode.Text.Contains(" (") Then
Entitystring = selnode.Text.Substring(0, selnode.Text.IndexOf("(") - 1)
@@ -4414,9 +4420,21 @@ Public Class frmConstructor_Main
msg = "windream-files for entity: " & Entitystring
End If
Else
If USER_LANGUAGE <> "de-DE" Then
msg = "windream-files for record: " & RECORD_ID
If NODE_NAVIGATION Then
If NODE_TEXT.Contains(" (") Then
NODE_TEXT = NODE_TEXT.Substring(0, NODE_TEXT.IndexOf("(") - 1)
End If
msg = "Dateien für Objekt: " & NODE_TEXT
If USER_LANGUAGE <> "de-DE" Then
msg = "Files for Object: " & NODE_TEXT
End If
Else
msg = "Dateien für Record: " & RECORD_ID
If USER_LANGUAGE <> "de-DE" Then
msg = "Files for record: " & RECORD_ID
End If
End If
End If
tslblWindreamView.Text = msg
@@ -4594,22 +4612,35 @@ Public Class frmConstructor_Main
End If
Else
Dim msg = "Keine Windream-Dokumente für Record: " & RECORD_ID & " gefunden"
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim NODE_TEXT As String = selnode.Text
Dim msg = "Keine Dateien für '"
If Type = "ENTITY" Then
Dim selnode As TreeNode = TreeViewMain.SelectedNode
selnode = TreeViewMain.SelectedNode
Dim Entitystring
If selnode.Text.Contains(" (") Then
Entitystring = selnode.Text.Substring(0, selnode.Text.IndexOf("(") - 1)
Else
Entitystring = selnode.Text
End If
msg = "Keine Windream-Dokumente für Entität: " & Entitystring & " gefunden"
msg = "Keine Dateien für Entität: " & Entitystring & " gefunden"
If USER_LANGUAGE <> "de-DE" Then
msg = "No windream-files foundfor entity: " & Entitystring
msg = "No windream-files found for entity: " & Entitystring
End If
Else
If NODE_NAVIGATION Then
If NODE_TEXT.Contains(" (") Then
NODE_TEXT = NODE_TEXT.Substring(0, NODE_TEXT.IndexOf("(") - 1)
End If
msg &= NODE_TEXT & "' gefunden"
If USER_LANGUAGE <> "de-DE" Then
msg = "No files found for object '" & NODE_TEXT & "'"
End If
Else
msg &= "Record '" & RECORD_ID & "' gefunden"
End If
If USER_LANGUAGE <> "de-DE" Then
msg = "No windream-files found for record: " & RECORD_ID
msg = "No files found for record " & RECORD_ID
End If
End If
@@ -4617,10 +4648,10 @@ Public Class frmConstructor_Main
GridControlDocSearch.DataSource = Nothing
'Clear_Windream_ResultList()
End If
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False)
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception
MsgBox("Unexpected Error in Run WD-Search Database: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -4858,7 +4889,6 @@ Public Class frmConstructor_Main
Dim XMLPath = Get_Grid_Layout_Filename()
If File.Exists(XMLPath) Then
File.Delete(XMLPath)
Load_Entity_Data(ACT_EBENE)
End If
Catch ex As Exception
@@ -4912,7 +4942,10 @@ Public Class frmConstructor_Main
Select Case TCDetails.SelectedTabPageIndex
Case 0
Column_Row_Handler(0, False, True)
If NODE_NAVIGATION = False Then
Column_Row_Handler(RECORD_ID, False, True)
End If
'If RECORD_NEEDS_REFRESH = True Then
' ClassControlValues.LoadControlValues(RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
' ' UpdRECORD_NEEDS_REFRESH(False)
@@ -4967,6 +5000,7 @@ Public Class frmConstructor_Main
End Try
End If
CURRENT_RECORD_ID = RECORD_ID
CURRENT_FORM_ID = ENTITY_ID
If e.Data.GetDataPresent(DataFormats.StringFormat) Then
Dim Wert As String = CType(e.Data.GetData(DataFormats.StringFormat), Object)
@@ -4976,24 +5010,20 @@ Public Class frmConstructor_Main
If IsNumeric(split(1)) Then
CURRENT_FILEID = split(1)
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
CURRENT_RECORD_ID = RECORD_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID
frmWD_IndexFile.ShowDialog()
'RUN_WD_SEARCH(WD_Suche, "RECORD")
End If
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
End If
Else
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
@@ -6293,25 +6323,64 @@ Public Class frmConstructor_Main
If e.RowHandle = -1 Then
Exit Sub
End If
Try
Dim rowCellValue = GridViewDoc_Search.GetRowCellValue(e.RowHandle, "in work?")
If rowCellValue Is Nothing Then
Exit Sub
End If
Try
If Not IsNothing(rowCellValue) Then
Dim inwork = rowCellValue
If inwork = True Then
e.Appearance.BackColor = Color.Orchid
e.HighPriority = True
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Checking Value In Work: " & ex.Message, False)
End Try
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in RowStyle GridViewDoc_Search: " & ex.Message, False)
ClassLogger.Add(">> Unexpected Error in Checking Value In Work: " & ex.Message, False)
End Try
Try
Dim DROPDOWN_VALUE
'Den ColumnTitle aus ConfigTableholen
If CURRENT_DOC_DROPDOWN.Rows.Count > 0 Then
For Each confrow As DataRow In CURRENT_DOC_DROPDOWN.Rows
Dim CAPTION = confrow.Item("HEADER_CAPTION")
DROPDOWN_VALUE = GridViewDoc_Search.GetRowCellValue(e.RowHandle, CAPTION)
If Not IsNothing(DROPDOWN_VALUE) Then
Exit For
End If
Next
If Not IsNothing(DROPDOWN_VALUE) Then
Dim ColorRow As Color
Dim expression As String = String.Format("VALUE = '{0}'", DROPDOWN_VALUE)
Dim matchingRows() As DataRow = DT_DOCRESULT_DROPDOWN_ITEMS.Select(expression, "SEQUENCE")
Dim rowcolorname As String
'Die Color für den value auswählen
For Each matchingRow As DataRow In matchingRows
rowcolorname = matchingRow.Item("COLOR")
If rowcolorname <> "" Then
Exit For
End If
Next
If rowcolorname <> "" Then
ColorRow = Color.FromName(rowcolorname)
e.Appearance.BackColor = ColorRow
e.HighPriority = True
End If
'Dim c As Color = DirectCast(rowCellValue, Color)
End If
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in RowStyle-Color Dropdown: " & ex.Message, False)
End Try
End If
End Sub
@@ -6403,6 +6472,8 @@ Public Class frmConstructor_Main
If File.Exists(XMLPath) Then
Me.Cursor = Cursors.WaitCursor
File.Delete(XMLPath)
GridControlDocSearch.DataSource = Nothing
GridViewDoc_Search.Columns.Clear()
RUN_WDSEARCH_GRID("RECORD")
Else