MS 04.09.2015 1
This commit is contained in:
SchreiberM
@@ -48,26 +48,28 @@ Public Class frmForm_Overview
|
||||
End Sub
|
||||
Sub Load_TreeView()
|
||||
Try
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM WHERE FORM_TYPE_ID = 1 AND PARENT_ID = 0")
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 1 AND T.PARENT_ID = 0")
|
||||
If DT.Rows.Count > 0 Then
|
||||
TreeViewEntity.Nodes.Clear()
|
||||
For Each Row As DataRow In DT.Rows
|
||||
Dim Node As TreeNode
|
||||
Node = TreeViewEntity.Nodes.Add(Row.Item("NAME").ToString)
|
||||
Node = TreeViewEntity.Nodes.Add(Row.Item("FORM_TITLE").ToString)
|
||||
Node.Tag = Row.Item("GUID")
|
||||
'Jetzt die Ebene1Knoten einhängen
|
||||
Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM WHERE PARENT_ID = " & Row.Item("GUID") & " AND FORM_TYPE_ID in (2,5) ORDER BY LEVEL")
|
||||
Dim sql As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID = " & Row.Item("GUID") & " ORDER BY LEVEL"
|
||||
Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
If dtEbene1.Rows.Count > 0 Then
|
||||
For Each row1 As DataRow In dtEbene1.Rows
|
||||
Dim Node1 As TreeNode
|
||||
Node1 = Node.Nodes.Add(row1.Item("NAME").ToString)
|
||||
Node1 = Node.Nodes.Add(row1.Item("FORM_TITLE").ToString)
|
||||
Node1.Tag = row1.Item("GUID")
|
||||
Dim sql1 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = " & row1.Item("GUID") & " ORDER BY LEVEL"
|
||||
'Jetzt die Ebene2 Knoten einhängen
|
||||
Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM WHERE FORM_TYPE_ID in (3,5) AND PARENT_ID = " & row1.Item("GUID") & " ORDER BY LEVEL")
|
||||
Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable(sql1)
|
||||
If dtEbene2.Rows.Count > 0 Then
|
||||
For Each row2 As DataRow In dtEbene2.Rows
|
||||
Dim Node2 As TreeNode
|
||||
Node2 = Node1.Nodes.Add(row2.Item("NAME").ToString)
|
||||
Node2 = Node1.Nodes.Add(row2.Item("FORM_TITLE").ToString)
|
||||
Node2.Tag = row2.Item("GUID")
|
||||
Next
|
||||
End If
|
||||
@@ -76,17 +78,19 @@ Public Class frmForm_Overview
|
||||
|
||||
End If
|
||||
Next
|
||||
Dim DT3 As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM WHERE FORM_TYPE_ID = 4 AND PARENT_ID = 0 ORDER BY NAME")
|
||||
Dim sql2 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 ORDER BY T1.FORM_TITLE"
|
||||
Dim DT3 As DataTable = ClassDatabase.Return_Datatable(sql2)
|
||||
If DT3.Rows.Count > 0 Then
|
||||
Dim Node As TreeNode
|
||||
Node = TreeViewEntity.Nodes.Add("Unabhängige/Eigenständige Entitäten")
|
||||
For Each row3 As DataRow In DT3.Rows
|
||||
Dim Node2 As TreeNode
|
||||
Node2 = Node.Nodes.Add(row3.Item("NAME").ToString)
|
||||
Node2 = Node.Nodes.Add(row3.Item("FORM_TITLE").ToString)
|
||||
Node2.Tag = row3.Item("GUID")
|
||||
Next
|
||||
End If
|
||||
TreeViewEntity.ExpandAll()
|
||||
TreeViewEntity.Nodes(0).EnsureVisible()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load_TreeView:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -98,8 +102,11 @@ Public Class frmForm_Overview
|
||||
Me.TBPMO_FORMTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM, FORMID)
|
||||
Me.TBPMO_FORM_VIEWTableAdapter.FillByFORMID(Me.DD_DMSDataSet.TBPMO_FORM_VIEW, FORMID)
|
||||
|
||||
'ResizeColumns()
|
||||
|
||||
If PARENT_IDTextBox.Text = 0 And ComboBox1.SelectedValue = 1 Then
|
||||
Me.btnGenerate.Visible = True
|
||||
Else
|
||||
btnGenerate.Visible = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load_Forms:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
@@ -193,6 +200,14 @@ Public Class frmForm_Overview
|
||||
End Sub
|
||||
Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
|
||||
Try
|
||||
If FORM_TITLETextBox.Text = "" Then
|
||||
MsgBox("Bitte geben Sie einen Titel für die Entität ein!", MsgBoxStyle.Exclamation)
|
||||
FORM_TITLETextBox.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim FORM_TITLE As String = FORM_TITLETextBox.Text
|
||||
Dim DESCRIPTION As String = DESCRIPTIONTextBox.Text
|
||||
Me.TBPMO_FORMBindingSource.EndEdit()
|
||||
Dim changes = False
|
||||
|
||||
@@ -210,8 +225,6 @@ Public Class frmForm_Overview
|
||||
Dim sql = "SELECT (MAX(GUID)) FROM TBPMO_FORM"
|
||||
Dim FORM_ID = ClassDatabase.Execute_Scalar(sql)
|
||||
|
||||
Dim FORM_TITLE As String = FORM_TITLETextBox.Text
|
||||
Dim DESCRIPTION As String = DESCRIPTIONTextBox.Text
|
||||
Dim ADDED_WHO As String = Environment.UserName
|
||||
|
||||
|
||||
@@ -251,21 +264,55 @@ Public Class frmForm_Overview
|
||||
End Sub
|
||||
|
||||
Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
|
||||
Dim result As MsgBoxResult = MsgBox("Wollen Sie das Formular wirklich löschen?", MsgBoxStyle.YesNo, "Frage:")
|
||||
Dim result As MsgBoxResult = MsgBox("Wollen Sie das Formular wirklich löschen?" & vbNewLine & "Alle Daten werden unwiderruflich gelöscht!", MsgBoxStyle.YesNo, "Bestätigung notwendig:")
|
||||
If result = MsgBoxResult.Yes Then
|
||||
Try
|
||||
Dim CurrentID = GetCurrentGUID()
|
||||
Dim delete As String = "DELETE FROM TBPMO_FORM_SQL WHERE FORM_ID = " & CurrentID
|
||||
ClassDatabase.Execute_non_Query(delete, True)
|
||||
' Delete controls (and control screens and control values)
|
||||
ClassFormCommands.DeleteFormControls(CurrentID)
|
||||
' Delete form view
|
||||
ClassFormCommands.DeleteFormView(CurrentID)
|
||||
' Delete the actual form
|
||||
Me.TBPMO_FORMTableAdapter.Delete(CurrentID)
|
||||
MsgBox("Das Formular/Die Entität wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
|
||||
Load_TreeView()
|
||||
Load_Forms(999999999)
|
||||
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
|
||||
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
|
||||
delete = "DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = " & CurrentID
|
||||
If ClassDatabase.Execute_non_Query(delete, True) = True Then
|
||||
' Delete controls (and control screens and control values)
|
||||
If ClassFormCommands.DeleteFormControls(CurrentID) = True Then
|
||||
' Delete form view
|
||||
If ClassFormCommands.DeleteFormView(CurrentID) = True Then
|
||||
delete = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = " & CurrentID & ")"
|
||||
If ClassDatabase.Execute_non_Query(delete, True) = True Then
|
||||
delete = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = " & CurrentID & ")"
|
||||
If ClassDatabase.Execute_non_Query(delete, True) = True Then
|
||||
delete = "DELETE FROM TBPMO_RECORD_LOG WHERE RECORD_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = " & CurrentID & ")"
|
||||
If ClassDatabase.Execute_non_Query(delete, True) = True Then
|
||||
delete = "DELETE FROM TBPMO_RECORD WHERE FORM_ID = " & CurrentID
|
||||
If ClassDatabase.Execute_non_Query(delete, True) = True Then
|
||||
' Delete the actual form
|
||||
Me.TBPMO_FORMTableAdapter.Delete(CurrentID)
|
||||
MsgBox("Das Formular/Die Entität wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
|
||||
Load_TreeView()
|
||||
Load_Forms(999999999)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Formular konnte nicht gelöscht werden:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
@@ -316,4 +363,44 @@ Public Class frmForm_Overview
|
||||
FORM_TITLETextBox.Text = NAMETextBox.Text
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnGenerate_Click(sender As Object, e As EventArgs) Handles btnGenerate.Click
|
||||
Try
|
||||
Dim CurrentID = GetCurrentGUID()
|
||||
If CurrentID > 0 Then
|
||||
Dim result As MsgBoxResult = MsgBox("Achtung mit dieser Funktion wird ein NEUES Kombi-Formular erzeugt!" & vbNewLine & "Wollen Sie fortfahren?", MsgBoxStyle.YesNo, "Frage:")
|
||||
If result = MsgBoxResult.Yes Then
|
||||
INTEGER1 = CurrentID
|
||||
frmNewKombiForm.ShowDialog()
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'Dim CurrentID = GetCurrentGUID()
|
||||
'Dim sql As String = "EXEC PRPMO_COPY_ENTITY " & CurrentID.ToString
|
||||
'If ClassDatabase.Execute_non_Query(sql) = True Then
|
||||
' 'MsgBox("Die Entität wurde erfolgreich kopiert!", MsgBoxStyle.Information)
|
||||
' Load_TreeView()
|
||||
' Load_Forms(999999999)
|
||||
' lblStatus.Text = "Die Entität wurde erfolgreich kopiert."
|
||||
' lblStatus.Visible = True
|
||||
'Else
|
||||
' lblStatus.Visible = False
|
||||
'End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Formular konnte nicht gelöscht werden:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
|
||||
If ComboBox1.SelectedIndex <> -1 Then
|
||||
If ComboBox1.SelectedValue = 5 Then
|
||||
ToolStripButton2.Enabled = False
|
||||
ToolStripButton1.Enabled = False
|
||||
Else
|
||||
ToolStripButton2.Enabled = True
|
||||
ToolStripButton1.Enabled = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user