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
2017-04-12 13:48:22 +02:00
parent 8c901be00c
commit 292b241fd1
38 changed files with 1445 additions and 1114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
app/DD-Record-Organizer/frmWD_IndexFile.vb
View File

@@ -393,7 +393,11 @@ Public Class frmWD_IndexFile
If cmbDokumentart.SelectedIndex <> -1 Then
My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
My.Settings.Save()
Handle_File(cmbDokumentart.SelectedValue)
If clsWindream.Create_Session = True Then
Handle_File(cmbDokumentart.SelectedValue)
Else
MsgBox("Could not create a windream-session! Please contact Your admin!", MsgBoxStyle.Critical)
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Prepare indexing: " & ex.Message, MsgBoxStyle.Critical)
@@ -927,49 +931,50 @@ Public Class frmWD_IndexFile
Dim sql = "SELECT OBJEKTTYP FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKARTID
OBJECT_TYPETextBox.Text = ClassDatabase.Execute_Scalar(sql, True)
DOCTYPE_IDTextBox.Text = CURRENT_DOKARTID
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 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
' 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
'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)