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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-07-04 10:33:11 +02:00
parent 00c7d956c1
commit 0876b7b4e4
25 changed files with 7682 additions and 5917 deletions
Download Patch File Download Diff File Expand all files Collapse all files

111
app/DD-Record-Organizer/frmWM_IndexFile.vb
View File

@@ -1005,62 +1005,67 @@ Public Class frmWM_IndexFile
Sub Refresh_indices()
Try
If CURRENT_DOKARTID > 0 Then
Dim sql = "SELECT OBJEKTTYP FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKARTID
OBJECT_TYPETextBox.Text = ClassDatabase.Execute_Scalar(sql, True)
DOCTYPE_IDTextBox.Text = CURRENT_DOKARTID
Dim dt As DataTable
'sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & CURRENT_DOKARTID
'Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, True)
'Dim Count As Integer = 0
'lvwIndices.Items.Clear()
'If dt.Rows.Count > 0 Then
' For Each row As DataRow In dt.Rows
' lvwIndices.Items.Add(row.Item("INDEXNAME").ToString)
Dim sql = "SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKARTID
Dim DTDOKART As DataTable = clsDatabase.Return_Datatable(sql)
If DTDOKART.Rows.Count = 1 Then
OBJECT_TYPETextBox.Text = DTDOKART.Rows(0).Item("OBJEKTTYP")
DOCTYPE_IDTextBox.Text = CURRENT_DOKARTID
PATHTextBox.Text = DTDOKART.Rows(0).Item("ZIEL_PFAD")
Dim dt As DataTable
'sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & CURRENT_DOKARTID
'Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, True)
'Dim Count As Integer = 0
'lvwIndices.Items.Clear()
'If dt.Rows.Count > 0 Then
' For Each row As DataRow In dt.Rows
' lvwIndices.Items.Add(row.Item("INDEXNAME").ToString)
' Dim Value As String
' Dim _case = row.Item("VALUE").ToString.ToUpper
' Select Case row.Item("VALUE").ToString.ToUpper
' Case "@DOKART"
' Value = CURRENT_DOKARTSTRING
' Case "@RECORD-ID"
' Value = CURRENT_RECORD_ID
' End Select
' lvwIndices.Items(Count).SubItems.Add(Value)
' Count += 1
' Next
'End If
'den Entity-Key auslesen
sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & OBJECT_TYPETextBox.Text & "')"
dt = ClassDatabase.Return_Datatable(sql, True)
If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_ENTITYID").ToString)
'lvwIndices.Items(Count).SubItems.Add(CURRENT_ENTITY_ID)
'Count = Count + 1
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_PARENTID").ToString)
'If CURRENT_REDUNDANT_FORM_ID <> 0 Then
' sql = "SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_REDUNDANT_FORM_ID
'Else
' sql = "SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_ENTITY_ID
'End If
'Dim ParentID = ClassDatabase.Execute_Scalar(sql, True)
'Try
' If IsNumeric(ParentID) And ParentID > 0 Then
' lvwIndices.Items(Count).SubItems.Add(ParentID)
' End If
'Catch ex As Exception
' MsgBox("Unexpected Error in Setting Parent-ID" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
'End Try
'Count = Count + 1
''den Record-Key auslesen
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_RECORDID").ToString)
'lvwIndices.Items(Count).SubItems.Add(CURRENT_RECORD_ID)
'Count = Count + 1
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString)
'lvwIndices.Items(Count).SubItems.Add(CURRENT_DOKARTSTRING)
End If
' Dim Value As String
' Dim _case = row.Item("VALUE").ToString.ToUpper
' Select Case row.Item("VALUE").ToString.ToUpper
' Case "@DOKART"
' Value = CURRENT_DOKARTSTRING
' Case "@RECORD-ID"
' Value = CURRENT_RECORD_ID
' End Select
' lvwIndices.Items(Count).SubItems.Add(Value)
' Count += 1
' Next
'End If
'den Entity-Key auslesen
sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & OBJECT_TYPETextBox.Text & "')"
dt = ClassDatabase.Return_Datatable(sql, True)
If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_ENTITYID").ToString)
'lvwIndices.Items(Count).SubItems.Add(CURRENT_ENTITY_ID)
'Count = Count + 1
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_PARENTID").ToString)
'If CURRENT_REDUNDANT_FORM_ID <> 0 Then
' sql = "SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_REDUNDANT_FORM_ID
'Else
' sql = "SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_ENTITY_ID
'End If
'Dim ParentID = ClassDatabase.Execute_Scalar(sql, True)
'Try
' If IsNumeric(ParentID) And ParentID > 0 Then
' lvwIndices.Items(Count).SubItems.Add(ParentID)
' End If
'Catch ex As Exception
' MsgBox("Unexpected Error in Setting Parent-ID" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
'End Try
'Count = Count + 1
''den Record-Key auslesen
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_RECORDID").ToString)
'lvwIndices.Items(Count).SubItems.Add(CURRENT_RECORD_ID)
'Count = Count + 1
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString)
'lvwIndices.Items(Count).SubItems.Add(CURRENT_DOKARTSTRING)
End If
End If
End If
End If
Catch ex As Exception
MsgBox("Error in Refresh Indices for Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)