MS_TEMP_REFRESH

This commit is contained in:
SchreiberM 2017-03-29 12:44:37 +02:00
parent 1ba42de0be
commit a78ce0597e
5 changed files with 359 additions and 152 deletions

View File

@ -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)

View File

@ -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
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
Try
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
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

View File

@ -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))
resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
Me.ENTITY_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "GUID", True))
resources.ApplyResources(Me.ENTITY_IDTextBox, "ENTITY_IDTextBox")
Me.ENTITY_IDTextBox.Name = "ENTITY_IDTextBox"
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

View File

@ -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">
<value>GUIDTextBox</value>
<data name="&gt;&gt;ENTITY_IDTextBox.Name" xml:space="preserve">
<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>

View File

@ -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