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

MS_11.12.2015

Browse Source
This commit is contained in:
SchreiberM
2015-12-11 11:16:57 +01:00
parent 1354113330
commit 16ae3d142f
16 changed files with 660 additions and 332 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
app/DD-Record-Organiser/frmWD_Index_Dokart.vb
View File

@@ -210,6 +210,14 @@ Public Class frmWD_Index_Dokart
'End Function
Private Sub btnindex_Click(sender As Object, e As EventArgs) Handles btnindex.Click
If CURRENT_RECORD_ID = 0 Then
MsgBox("Kein Datensatz ausgewählt oder die Dokumentart wurde noch nicht gewählt!", MsgBoxStyle.Information)
Exit Sub
End If
If lvwIndices.Items.Count = 0 Then
MsgBox("Bitte eine Dokumentart wählen!", MsgBoxStyle.Information)
Exit Sub
End If
Indexing_File()
End Sub
Sub Indexing_File()
@@ -310,8 +318,16 @@ Public Class frmWD_Index_Dokart
lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_ENTITYID").ToString)
lvwIndices.Items(Count).SubItems.Add(CURRENT_FORM_ID)
lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_PARENTID").ToString)
lvwIndices.Items(Count + 1).SubItems.Add(CURRENT_PARENTID)
Dim ParentID = ClassDatabase.Execute_Scalar("SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID, True)
Try
If IsNumeric(ParentID) And ParentID > 0 Then
lvwIndices.Items(Count + 1).SubItems.Add(ParentID)
End If
Catch ex As Exception
MsgBox("Unexpected Error in Setting Parent-ID" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End If
End If
Catch ex As Exception