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

MS_15.03

Browse Source
This commit is contained in:
SchreiberM
2016-03-15 08:55:01 +01:00
parent 3a1b6f8bbf
commit 7726db9872
4 changed files with 1257 additions and 111 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -103,8 +103,14 @@ Public Class frmEntities
End Try
End Sub
Sub Load_Forms(FORMID As Integer)
Sub Load_Forms(FORMID As Object)
Try
FORMID = CInt(FORMID)
Catch ex As Exception
Exit Sub
End Try
Try
Me.TBPMO_FORMTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM, FORMID)
Me.TBPMO_FORM_VIEWTableAdapter.FillByFORMID(Me.DD_DMSDataSet.TBPMO_FORM_VIEW, FORMID)
@@ -287,7 +293,7 @@ Public Class frmEntities
If ClassDatabase.Execute_non_Query(delete, True) = True Then
delete = "DELETE FROM TBPMO_FORM_SQL_CONSTRUCT WHERE FORM_ID = " & CurrentID
If ClassDatabase.Execute_non_Query(delete, True) = True Then
delete = "DELETE FROM TBPMO_WORKFLOW_FORM WHERE FORM_ID = " & CurrentID
delete = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE ENTITY_ID = " & CurrentID
If ClassDatabase.Execute_non_Query(delete, True) = True Then
delete = "DELETE FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & CurrentID
If ClassDatabase.Execute_non_Query(delete, True) = True Then
@@ -341,7 +347,13 @@ Public Class frmEntities
Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewEntity.AfterSelect
Try
If Not TreeViewEntity.SelectedNode Is Nothing Then
Dim formId As Integer = Integer.Parse(TreeViewEntity.SelectedNode.Tag)
Dim formId As Integer
Try
formId = Integer.Parse(TreeViewEntity.SelectedNode.Tag)
Catch ex As Exception
Exit Sub
End Try
Load_Forms(formId)
TreeViewEntity.ExpandAll()
End If