MS_TEMP_REFRESH

app/DD-Record-Organizer/ClassDatabase.vb

@@ -60,6 +60,7 @@ Public Class ClassDatabase
 
             Dim SQLconnect As New SqlClient.SqlConnection
             Dim SQLcommand As SqlClient.SqlCommand
+
             If USE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
                 SQLconnect.ConnectionString = ClassProxy.MyPROXYConnectionString
             Else
@@ -72,7 +73,7 @@ Public Class ClassDatabase
             SQLconnect.Open()
             SQLcommand = SQLconnect.CreateCommand
             SQLcommand.CommandText = Select_anweisung
-
+            SQLcommand.CommandTimeout = 180
             Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
             Dim dt As DataTable = New DataTable()
             adapter1.Fill(dt)

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -2217,8 +2217,6 @@ Public Class frmConstructor_Main
 
             _ENTITYSQL = Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, GRID_TYPE, USER_GUID, QuickViewSQL, IS_SINGLE_RECORD, FORM_TYPE, VIEW_ID, GridControlMain, grvwGrid)
             ' _ENTITYSQL = GridSQL
-
-
             'Anzahl der Datensätze
             ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & ENTITY_ID, True)
 
@@ -2347,8 +2345,6 @@ Public Class frmConstructor_Main
             'Überprüfen ob windream Dos angezeigt werden sollen?
             Check_windream_Show(act_FormViewID)
 
-
-
             If windream_Docshow = True Then
                 If TCDetails.SelectedTabPage.Name = "TabWindream" Or (TCDetails.SelectedTabPage.Name = "TabDetails" And DOC_SEARCH_TAB1 = True) Then
                     Me.GridControlDocSearch.DataSource = Nothing
@@ -2360,7 +2356,6 @@ Public Class frmConstructor_Main
             If FORM_TYPE = 5 Or IS_SINGLE_RECORD = True Then
                 If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID, True) = True Then
                     ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
-
                     If IS_SINGLE_RECORD Then
                         Show_Selected_Record_Data(RECORD_ID, True)
                     Else
@@ -2399,7 +2394,6 @@ Public Class frmConstructor_Main
                     ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
                 End Try
 
-
                 If LOCK_CONTROLS_BG_LOAD = True Then
                     SplitContainerMain.Panel2.Enabled = True
                 End If
@@ -2418,14 +2412,16 @@ Public Class frmConstructor_Main
                     If USER_WAN = True Then
 
                     End If
-
+                    Try
-
+                        Dim primaryKey(1) As DataColumn
-                    Dim primaryKey(1) As DataColumn
+                        primaryKey(0) = DTEntity.Columns("Record-ID")
-                    primaryKey(0) = DTEntity.Columns("Record-ID")
+                        DTEntity.PrimaryKey = primaryKey
-                    DTEntity.PrimaryKey = primaryKey
+                    Catch ex As Exception
+                        ClassLogger.Add("Could not set the primary Key(Record-ID): " & ex.Message, True)
+                    End Try
+                   
                     DT_SELECTION = DTEntity
                     LoadGrid_Selection()
-
                     If GRID_TYPE = GridType.Grid Then
                         grvwGrid.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None
                         grvwGrid.OptionsBehavior.Editable = False
@@ -5956,7 +5952,7 @@ Public Class frmConstructor_Main
             End If
             result = MessageBox.Show(msg, "Copy Record:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
             If result = MsgBoxResult.Yes Then
-                Dim SQL = String.Format("EXEC PRDD_COPY_RECORD {0}, '{1}'", RECORD_ID, USER_USERNAME)
+                Dim SQL = String.Format("EXEC PRPMO_COPY_RECORD {0}, '{1}'", RECORD_ID, USER_USERNAME)
                 If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
                     Load_Entity_Data(ACT_EBENE)
                 End If

app/DD-Record-Organizer/frmEntities.Designer.vb

@@ -52,7 +52,7 @@ Partial Class frmEntities
         Me.Label4 = New System.Windows.Forms.Label()
         Me.SINGLE_RECORDCheckBox = New System.Windows.Forms.CheckBox()
         Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
-        Me.GUIDTextBox = New System.Windows.Forms.TextBox()
+        Me.ENTITY_IDTextBox = New System.Windows.Forms.TextBox()
         Me.ComboBox1 = New System.Windows.Forms.ComboBox()
         Me.TBPMO_FORM_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.SHOW_FORM_CONSTRUCTCheckBox = New System.Windows.Forms.CheckBox()
@@ -66,6 +66,12 @@ Partial Class frmEntities
         Me.lblStatus = New System.Windows.Forms.Label()
         Me.btnGenerate = New System.Windows.Forms.Button()
         Me.Label3 = New System.Windows.Forms.Label()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.btncancel = New System.Windows.Forms.Button()
+        Me.ProgressPanel1 = New DevExpress.XtraWaitForm.ProgressPanel()
+        Me.btnRefreshEntityTable = New System.Windows.Forms.Button()
+        Me.btnCreateEntityTable = New System.Windows.Forms.Button()
+        Me.BW_Entity = New System.ComponentModel.BackgroundWorker()
         PARENT_IDLabel = New System.Windows.Forms.Label()
         NAMELabel = New System.Windows.Forms.Label()
         LEVELLabel = New System.Windows.Forms.Label()
@@ -83,6 +89,7 @@ Partial Class frmEntities
         Me.GroupBox2.SuspendLayout()
         CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBPMO_FORM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox1.SuspendLayout()
         Me.SuspendLayout()
         '
         'PARENT_IDLabel
@@ -227,6 +234,7 @@ Partial Class frmEntities
         Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
         Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
+        Me.TableAdapterManager.TBPMO_APPOINTMENTSTableAdapter = Nothing
         Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
         Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
         Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
@@ -268,7 +276,7 @@ Partial Class frmEntities
         Me.GroupBox2.Controls.Add(Me.SINGLE_RECORDCheckBox)
         Me.GroupBox2.Controls.Add(Me.NumericUpDown1)
         Me.GroupBox2.Controls.Add(Me.FORM_TITLETextBox)
-        Me.GroupBox2.Controls.Add(Me.GUIDTextBox)
+        Me.GroupBox2.Controls.Add(Me.ENTITY_IDTextBox)
         Me.GroupBox2.Controls.Add(GUIDLabel)
         Me.GroupBox2.Controls.Add(Label1)
         Me.GroupBox2.Controls.Add(Me.ComboBox1)
@@ -304,12 +312,12 @@ Partial Class frmEntities
         resources.ApplyResources(Me.NumericUpDown1, "NumericUpDown1")
         Me.NumericUpDown1.Name = "NumericUpDown1"
         '
-        'GUIDTextBox
+        'ENTITY_IDTextBox
         '
-        Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "GUID", True))
+        Me.ENTITY_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "GUID", True))
-        resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
+        resources.ApplyResources(Me.ENTITY_IDTextBox, "ENTITY_IDTextBox")
-        Me.GUIDTextBox.Name = "GUIDTextBox"
+        Me.ENTITY_IDTextBox.Name = "ENTITY_IDTextBox"
-        Me.GUIDTextBox.ReadOnly = True
+        Me.ENTITY_IDTextBox.ReadOnly = True
         '
         'ComboBox1
         '
@@ -388,10 +396,52 @@ Partial Class frmEntities
         resources.ApplyResources(Me.Label3, "Label3")
         Me.Label3.Name = "Label3"
         '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.btncancel)
+        Me.GroupBox1.Controls.Add(Me.ProgressPanel1)
+        Me.GroupBox1.Controls.Add(Me.btnRefreshEntityTable)
+        Me.GroupBox1.Controls.Add(Me.btnCreateEntityTable)
+        resources.ApplyResources(Me.GroupBox1, "GroupBox1")
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.TabStop = False
+        '
+        'btncancel
+        '
+        resources.ApplyResources(Me.btncancel, "btncancel")
+        Me.btncancel.Name = "btncancel"
+        Me.btncancel.UseVisualStyleBackColor = True
+        '
+        'ProgressPanel1
+        '
+        Me.ProgressPanel1.Appearance.BackColor = CType(resources.GetObject("ProgressPanel1.Appearance.BackColor"), System.Drawing.Color)
+        Me.ProgressPanel1.Appearance.Options.UseBackColor = True
+        Me.ProgressPanel1.AppearanceCaption.Options.UseTextOptions = True
+        resources.ApplyResources(Me.ProgressPanel1, "ProgressPanel1")
+        Me.ProgressPanel1.Name = "ProgressPanel1"
+        '
+        'btnRefreshEntityTable
+        '
+        resources.ApplyResources(Me.btnRefreshEntityTable, "btnRefreshEntityTable")
+        Me.btnRefreshEntityTable.Name = "btnRefreshEntityTable"
+        Me.btnRefreshEntityTable.UseVisualStyleBackColor = True
+        '
+        'btnCreateEntityTable
+        '
+        resources.ApplyResources(Me.btnCreateEntityTable, "btnCreateEntityTable")
+        Me.btnCreateEntityTable.Name = "btnCreateEntityTable"
+        Me.btnCreateEntityTable.UseVisualStyleBackColor = True
+        '
+        'BW_Entity
+        '
+        Me.BW_Entity.WorkerReportsProgress = True
+        Me.BW_Entity.WorkerSupportsCancellation = True
+        '
         'frmEntities
         '
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.btnGenerate)
         Me.Controls.Add(Me.lblStatus)
@@ -414,6 +464,7 @@ Partial Class frmEntities
         Me.GroupBox2.PerformLayout()
         CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBPMO_FORM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox1.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -439,7 +490,7 @@ Partial Class frmEntities
     Friend WithEvents TBPMO_FORM_TYPEBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBPMO_FORM_TYPETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_TYPETableAdapter
     Friend WithEvents TreeViewEntity As System.Windows.Forms.TreeView
-    Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents ENTITY_IDTextBox As System.Windows.Forms.TextBox
     Friend WithEvents btninsert As System.Windows.Forms.Button
     Friend WithEvents btndelete As System.Windows.Forms.Button
     Friend WithEvents btnsave As System.Windows.Forms.Button
@@ -451,4 +502,10 @@ Partial Class frmEntities
     Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown
     Friend WithEvents Label4 As System.Windows.Forms.Label
     Friend WithEvents SINGLE_RECORDCheckBox As System.Windows.Forms.CheckBox
+    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+    Friend WithEvents btnRefreshEntityTable As System.Windows.Forms.Button
+    Friend WithEvents btnCreateEntityTable As System.Windows.Forms.Button
+    Friend WithEvents BW_Entity As System.ComponentModel.BackgroundWorker
+    Friend WithEvents ProgressPanel1 As DevExpress.XtraWaitForm.ProgressPanel
+    Friend WithEvents btncancel As System.Windows.Forms.Button
 End Class

app/DD-Record-Organizer/frmEntities.resx

@@ -480,11 +480,8 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;TBPMO_FORMBindingNavigator.ZOrder" xml:space="preserve">
-    <value>10</value>
+    <value>11</value>
   </data>
-  <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
   <metadata name="TBPMO_FORM_VIEWBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1104, 17</value>
   </metadata>
@@ -512,9 +509,6 @@
   <data name="&gt;&gt;DESCRIPTIONTextBox.ZOrder" xml:space="preserve">
     <value>2</value>
   </data>
-  <metadata name="TBPMO_FORM_VIEWBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1104, 17</value>
-  </metadata>
   <data name="FORM_TITLETextBox.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9.75pt</value>
   </data>
@@ -650,105 +644,6 @@
   <metadata name="TBPMO_FORM_VIEWTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 56</value>
   </metadata>
-  <data name="&gt;&gt;Label4.Name" xml:space="preserve">
-    <value>Label4</value>
-  </data>
-  <data name="&gt;&gt;Label4.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Label4.Parent" xml:space="preserve">
-    <value>GroupBox2</value>
-  </data>
-  <data name="&gt;&gt;Label4.ZOrder" xml:space="preserve">
-    <value>3</value>
-  </data>
-  <data name="&gt;&gt;SINGLE_RECORDCheckBox.Name" xml:space="preserve">
-    <value>SINGLE_RECORDCheckBox</value>
-  </data>
-  <data name="&gt;&gt;SINGLE_RECORDCheckBox.Type" xml:space="preserve">
-    <value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;SINGLE_RECORDCheckBox.Parent" xml:space="preserve">
-    <value>GroupBox2</value>
-  </data>
-  <data name="&gt;&gt;SINGLE_RECORDCheckBox.ZOrder" xml:space="preserve">
-    <value>4</value>
-  </data>
-  <data name="&gt;&gt;NumericUpDown1.Name" xml:space="preserve">
-    <value>NumericUpDown1</value>
-  </data>
-  <data name="&gt;&gt;NumericUpDown1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;NumericUpDown1.Parent" xml:space="preserve">
-    <value>GroupBox2</value>
-  </data>
-  <data name="&gt;&gt;NumericUpDown1.ZOrder" xml:space="preserve">
-    <value>5</value>
-  </data>
-  <data name="&gt;&gt;GUIDTextBox.Name" xml:space="preserve">
-    <value>GUIDTextBox</value>
-  </data>
-  <data name="&gt;&gt;GUIDTextBox.Type" xml:space="preserve">
-    <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;GUIDTextBox.Parent" xml:space="preserve">
-    <value>GroupBox2</value>
-  </data>
-  <data name="&gt;&gt;GUIDTextBox.ZOrder" xml:space="preserve">
-    <value>7</value>
-  </data>
-  <data name="&gt;&gt;ComboBox1.Name" xml:space="preserve">
-    <value>ComboBox1</value>
-  </data>
-  <data name="&gt;&gt;ComboBox1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;ComboBox1.Parent" xml:space="preserve">
-    <value>GroupBox2</value>
-  </data>
-  <data name="&gt;&gt;ComboBox1.ZOrder" xml:space="preserve">
-    <value>10</value>
-  </data>
-  <data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.Name" xml:space="preserve">
-    <value>SHOW_FORM_CONSTRUCTCheckBox</value>
-  </data>
-  <data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.Type" xml:space="preserve">
-    <value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.Parent" xml:space="preserve">
-    <value>GroupBox2</value>
-  </data>
-  <data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.ZOrder" xml:space="preserve">
-    <value>11</value>
-  </data>
-  <data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9.75pt, style=Bold</value>
-  </data>
-  <data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>328, 53</value>
-  </data>
-  <data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>424, 499</value>
-  </data>
-  <data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
-    <value>23</value>
-  </data>
-  <data name="GroupBox2.Text" xml:space="preserve">
-    <value>Entity Properties:</value>
-  </data>
-  <data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
-    <value>GroupBox2</value>
-  </data>
-  <data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
-    <value>8</value>
-  </data>
   <data name="Label4.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
@@ -831,28 +726,28 @@ diese Entität angelegt werden.</value>
   <data name="&gt;&gt;NumericUpDown1.ZOrder" xml:space="preserve">
     <value>5</value>
   </data>
-  <data name="GUIDTextBox.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="ENTITY_IDTextBox.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9.75pt</value>
   </data>
-  <data name="GUIDTextBox.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="ENTITY_IDTextBox.Location" type="System.Drawing.Point, System.Drawing">
     <value>147, 25</value>
   </data>
-  <data name="GUIDTextBox.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="ENTITY_IDTextBox.Size" type="System.Drawing.Size, System.Drawing">
     <value>69, 25</value>
   </data>
-  <data name="GUIDTextBox.TabIndex" type="System.Int32, mscorlib">
+  <data name="ENTITY_IDTextBox.TabIndex" type="System.Int32, mscorlib">
     <value>23</value>
   </data>
-  <data name="&gt;&gt;GUIDTextBox.Name" xml:space="preserve">
+  <data name="&gt;&gt;ENTITY_IDTextBox.Name" xml:space="preserve">
-    <value>GUIDTextBox</value>
+    <value>ENTITY_IDTextBox</value>
   </data>
-  <data name="&gt;&gt;GUIDTextBox.Type" xml:space="preserve">
+  <data name="&gt;&gt;ENTITY_IDTextBox.Type" xml:space="preserve">
     <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;GUIDTextBox.Parent" xml:space="preserve">
+  <data name="&gt;&gt;ENTITY_IDTextBox.Parent" xml:space="preserve">
     <value>GroupBox2</value>
   </data>
-  <data name="&gt;&gt;GUIDTextBox.ZOrder" xml:space="preserve">
+  <data name="&gt;&gt;ENTITY_IDTextBox.ZOrder" xml:space="preserve">
     <value>7</value>
   </data>
   <metadata name="TBPMO_FORM_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -882,9 +777,6 @@ diese Entität angelegt werden.</value>
   <data name="&gt;&gt;ComboBox1.ZOrder" xml:space="preserve">
     <value>10</value>
   </data>
-  <metadata name="TBPMO_FORM_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>255, 56</value>
-  </metadata>
   <data name="SHOW_FORM_CONSTRUCTCheckBox.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9.75pt</value>
   </data>
@@ -912,6 +804,33 @@ diese Entität angelegt werden.</value>
   <data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.ZOrder" xml:space="preserve">
     <value>11</value>
   </data>
+  <data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9.75pt, style=Bold</value>
+  </data>
+  <data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
+    <value>328, 53</value>
+  </data>
+  <data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
+    <value>424, 368</value>
+  </data>
+  <data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
+    <value>23</value>
+  </data>
+  <data name="GroupBox2.Text" xml:space="preserve">
+    <value>Entity Properties:</value>
+  </data>
+  <data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
+    <value>GroupBox2</value>
+  </data>
+  <data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
+    <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
+    <value>9</value>
+  </data>
   <data name="TreeViewEntity.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
     <value>Top, Bottom, Left</value>
   </data>
@@ -934,7 +853,7 @@ diese Entität angelegt werden.</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;TreeViewEntity.ZOrder" xml:space="preserve">
-    <value>9</value>
+    <value>10</value>
   </data>
   <metadata name="TBPMO_FORM_TYPETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>497, 56</value>
@@ -978,7 +897,7 @@ diese Entität angelegt werden.</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;btninsert.ZOrder" xml:space="preserve">
-    <value>7</value>
+    <value>8</value>
   </data>
   <data name="btndelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -1025,7 +944,7 @@ diese Entität angelegt werden.</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;btndelete.ZOrder" xml:space="preserve">
-    <value>6</value>
+    <value>7</value>
   </data>
   <data name="btnsave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -1082,7 +1001,7 @@ diese Entität angelegt werden.</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;btnsave.ZOrder" xml:space="preserve">
-    <value>5</value>
+    <value>6</value>
   </data>
   <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
@@ -1112,7 +1031,7 @@ diese Entität angelegt werden.</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
-    <value>4</value>
+    <value>5</value>
   </data>
   <data name="btncopy.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -1153,7 +1072,7 @@ diese Entität angelegt werden.</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;btncopy.ZOrder" xml:space="preserve">
-    <value>3</value>
+    <value>4</value>
   </data>
   <data name="lblStatus.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
@@ -1186,7 +1105,7 @@ diese Entität angelegt werden.</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;lblStatus.ZOrder" xml:space="preserve">
-    <value>2</value>
+    <value>3</value>
   </data>
   <data name="btnGenerate.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -1228,7 +1147,7 @@ diese Entität angelegt werden.</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;btnGenerate.ZOrder" xml:space="preserve">
-    <value>1</value>
+    <value>2</value>
   </data>
   <data name="Label3.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
@@ -1262,8 +1181,189 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="btncancel.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAAQdJREFUOE+lkTEOgkAURD0CR/AIHMHQk9jSWXAAaiorWsMJOAIFPSUtCaEkSEUI
+        FHS03z8bVllcEsFJJq7z/7xFORHRX9aGe/w5sKZpMtlPNrEjES7E2WU51wFi3/fJsixK0xRL1zk/t20b
+        h2FIQRC84TpAJAG2bVNVVbjtnmXZ6DiOUoZ0AKPrutx1XQHBJ27FeV2GvgDQGrJVhrYA5mEAL3lFUYzL
+        n4AyzkmSAOKJxVkKADeUZSn+PFnGkyCXEMz5u3gzkAJomkYp930/8rKJRUDwBJgvcwVQ1/WIMpYA46Ub
+        lqQkBHA+4/UaCgCFYRgwhB9zTxHn0TyHcwVw1Npwj7Xh76bTC/0Dc9jJzNLqAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="btncancel.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
+  <data name="btncancel.Location" type="System.Drawing.Point, System.Drawing">
+    <value>400, 73</value>
+  </data>
+  <data name="btncancel.Size" type="System.Drawing.Size, System.Drawing">
+    <value>75, 31</value>
+  </data>
+  <data name="btncancel.TabIndex" type="System.Int32, mscorlib">
+    <value>35</value>
+  </data>
+  <data name="btncancel.Text" xml:space="preserve">
+    <value>Cancel</value>
+  </data>
+  <data name="btncancel.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="btncancel.Visible" type="System.Boolean, mscorlib">
+    <value>False</value>
+  </data>
+  <data name="&gt;&gt;btncancel.Name" xml:space="preserve">
+    <value>btncancel</value>
+  </data>
+  <data name="&gt;&gt;btncancel.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btncancel.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;btncancel.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
+  <data name="ProgressPanel1.Appearance.BackColor" type="System.Drawing.Color, System.Drawing">
+    <value>Transparent</value>
+  </data>
+  <data name="ProgressPanel1.Description" xml:space="preserve">
+    <value>Procedure is executing ......</value>
+  </data>
+  <data name="ProgressPanel1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>178, 66</value>
+  </data>
+  <data name="ProgressPanel1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>246, 44</value>
+  </data>
+  <data name="ProgressPanel1.TabIndex" type="System.Int32, mscorlib">
+    <value>34</value>
+  </data>
+  <data name="ProgressPanel1.Text" xml:space="preserve">
+    <value>ProgressPanel1</value>
+  </data>
+  <data name="ProgressPanel1.Visible" type="System.Boolean, mscorlib">
+    <value>False</value>
+  </data>
+  <data name="&gt;&gt;ProgressPanel1.Name" xml:space="preserve">
+    <value>ProgressPanel1</value>
+  </data>
+  <data name="&gt;&gt;ProgressPanel1.Type" xml:space="preserve">
+    <value>DevExpress.XtraWaitForm.ProgressPanel, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;ProgressPanel1.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;ProgressPanel1.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="btnRefreshEntityTable.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAAGxJREFUOE/NjNEJgDAMBTNbVnA3v1zDQZxE/cmv8oqBECm+VgQDR9PAnWDM7Oih
+        yBh8VLWJnwa2daegAzJMhXz/PjDOS3ljwG/gMQAJggd8pwNRjhE6kCNRBlQAQMwyoAM1qoEWboEeLv3N
+        iJxnTngNYdMDJwAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="btnRefreshEntityTable.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
+  <data name="btnRefreshEntityTable.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="btnRefreshEntityTable.Location" type="System.Drawing.Point, System.Drawing">
+    <value>177, 24</value>
+  </data>
+  <data name="btnRefreshEntityTable.Size" type="System.Drawing.Size, System.Drawing">
+    <value>199, 36</value>
+  </data>
+  <data name="btnRefreshEntityTable.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="btnRefreshEntityTable.Text" xml:space="preserve">
+    <value>2. Create/Renew Entity-Data</value>
+  </data>
+  <data name="btnRefreshEntityTable.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="&gt;&gt;btnRefreshEntityTable.Name" xml:space="preserve">
+    <value>btnRefreshEntityTable</value>
+  </data>
+  <data name="&gt;&gt;btnRefreshEntityTable.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btnRefreshEntityTable.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;btnRefreshEntityTable.ZOrder" xml:space="preserve">
+    <value>2</value>
+  </data>
+  <data name="btnCreateEntityTable.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAAE1JREFUOE9j+P//P8O3b9/+k4vhBjg5OZGMB6EBH95/hGNi+NQ3gFRMfRegKyDE
+        xzCAVEx9F6ArIMTHMIBUjGIAuRhsACUYqyDx+D8DAGWb3TPY4bxVAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="btnCreateEntityTable.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
+  <data name="btnCreateEntityTable.Location" type="System.Drawing.Point, System.Drawing">
+    <value>9, 24</value>
+  </data>
+  <data name="btnCreateEntityTable.Size" type="System.Drawing.Size, System.Drawing">
+    <value>162, 36</value>
+  </data>
+  <data name="btnCreateEntityTable.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="btnCreateEntityTable.Text" xml:space="preserve">
+    <value>1. Create Entitytable</value>
+  </data>
+  <data name="btnCreateEntityTable.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="&gt;&gt;btnCreateEntityTable.Name" xml:space="preserve">
+    <value>btnCreateEntityTable</value>
+  </data>
+  <data name="&gt;&gt;btnCreateEntityTable.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btnCreateEntityTable.Parent" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;btnCreateEntityTable.ZOrder" xml:space="preserve">
+    <value>3</value>
+  </data>
+  <data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>328, 427</value>
+  </data>
+  <data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>596, 110</value>
+  </data>
+  <data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
+    <value>32</value>
+  </data>
+  <data name="GroupBox1.Text" xml:space="preserve">
+    <value>Erzeugung Tabellenstruktur:</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
+    <value>GroupBox1</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <metadata name="BW_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>733, 56</value>
+  </metadata>
   <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
@@ -1791,6 +1891,12 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
   <data name="&gt;&gt;TBPMO_FORM_TYPETableAdapter.Type" xml:space="preserve">
     <value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_TYPETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
+  <data name="&gt;&gt;BW_Entity.Name" xml:space="preserve">
+    <value>BW_Entity</value>
+  </data>
+  <data name="&gt;&gt;BW_Entity.Type" xml:space="preserve">
+    <value>System.ComponentModel.BackgroundWorker, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmEntities</value>
   </data>

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
+            If ENTITY_IDTextBox.Text <> "" Then
-                Dim FormId As Integer = GUIDTextBox.Text 'GetCurrentGUID()
+                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