MS_TEMP_REFRESH

app/DD-Record-Organizer/frmEntities.vb

@@ -1,4 +1,6 @@
 Imports DevExpress.XtraTreeList
+Imports System.ComponentModel
+
 Public Class frmEntities
     Sub New()
 
@@ -13,7 +15,8 @@ Public Class frmEntities
         _Instance.BringToFront()
         Return _Instance
     End Function
-
+    Private EXECUTE_STATEMENT As String
+    Private DT_RESULT As DataTable
     Private Sub frmForm_Overview_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         Try
             ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmForm_Overview")
@@ -34,7 +37,7 @@ Public Class frmEntities
             Me.TBPMO_FORM_TYPETableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM_TYPE)
             ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmForm_Overview")
             LoadLayout()
-
+            AddHandler BW_Entity.DoWork, AddressOf bw_DoWork
 
 
 
@@ -160,8 +163,8 @@ Public Class frmEntities
 
     Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
         Try
-            If GUIDTextBox.Text <> "" Then
-                Dim FormId As Integer = GUIDTextBox.Text 'GetCurrentGUID()
+            If ENTITY_IDTextBox.Text <> "" Then
+                Dim FormId As Integer = ENTITY_IDTextBox.Text 'GetCurrentGUID()
                 If FormId <> -1 Then
                     CURRENT_ENTITY_ID = FormId
                     Open_Designer()
@@ -389,4 +392,48 @@ Public Class frmEntities
             End If
         End If
     End Sub
+
+    Private Sub btnCreateEntityTable_Click(sender As Object, e As EventArgs) Handles btnCreateEntityTable.Click
+        Dim CurrentID = GetCurrentGUID()
+        EXECUTE_STATEMENT = String.Format("DECLARE @return_value int " & vbNewLine & _
+                   "EXEC	@return_value = dbo.PRPMO_CREATE_ENTITY_TABLE {0}" & vbNewLine & _
+                   "SELECT	'Return Value' = @return_value", CurrentID)
+        ProgressPanel1.Visible = True
+        btncancel.Visible = True
+        '.. und starten
+        BW_Entity.RunWorkerAsync()
+    End Sub
+    Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
+        DT_RESULT = ClassDatabase.Return_Datatable(EXECUTE_STATEMENT)
+    End Sub
+    Private Sub BW_Entity_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BW_Entity.ProgressChanged
+
+    End Sub
+    Private Sub BW_Entity_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BW_Entity.RunWorkerCompleted
+        ProgressPanel1.Visible = False
+        btncancel.Visible = False
+        If Not IsNothing(DT_RESULT) Then
+            Dim result = DT_RESULT.Rows(0).Item(0)
+            If result <> 0 Then
+                MsgBox("Unexpected Error in Executing Procedure - Check the log!", MsgBoxStyle.Critical)
+            Else
+                MsgBox("Procedure was executed successfully!", MsgBoxStyle.Information)
+            End If
+        End If
+    End Sub
+
+    Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
+        BW_Entity.CancelAsync()
+    End Sub
+
+    Private Sub btnRefreshEntityTable_Click(sender As Object, e As EventArgs) Handles btnRefreshEntityTable.Click
+        Dim CurrentID = GetCurrentGUID()
+        EXECUTE_STATEMENT = String.Format("DECLARE @return_value int " & vbNewLine & _
+                  "EXEC	@return_value = dbo.PRPMO_ENTITY_TABLE_IMPORT_RECORDS {0}" & vbNewLine & _
+                  "SELECT	'Return Value' = @return_value", CurrentID)
+        ProgressPanel1.Visible = True
+        btncancel.Visible = True
+        '.. und starten
+        BW_Entity.RunWorkerAsync()
+    End Sub
 End Class