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

Imports DevExpress.XtraTreeList
Imports System.ComponentModel

Public Class frmEntities
    Sub New()

        InitializeComponent()
    End Sub
    Private Shared _Instance As frmEntities = Nothing
    Private insert As Boolean = False
    Public Shared Function Instance() As frmEntities
        If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
            _Instance = New frmEntities
        End If
        _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")
            'Load_Forms()
            SaveLayout()
        Catch ex As Exception
            MsgBox("Error in Form Close:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub frmForm_Overview_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_FORM_TYPE". Sie können sie bei Bedarf verschieben oder entfernen.
        Try
            TBPMO_FORMTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
            TBPMO_FORM_VIEWTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
            Me.TBPMO_FORM_TYPETableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
            Load_TreeView()
            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



        Catch ex As Exception
            MsgBox("Error in Form Load:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub
    Sub Load_TreeView()
        Try
            Dim DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " &
                                       "TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID IN (1,6) AND T.PARENT_ID = 0 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2}))", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
            LOGGER.Debug(Now.ToString & "Level 0 >>" & DT_SQL, False)

            Dim DT As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
            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("CAPTION").ToString)
                    Node.Tag = Row.Item("GUID")
                    Node.BackColor = Color.Orange
                    'Jetzt die Ebene1Knoten einhängen
                    DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' 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 IN ({2},0) AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {3})) ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, Row.Item("GUID"), USER_GUID)
                    LOGGER.Debug(Now.ToString & "Level 1 >>" & DT_SQL, False)
                    '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 = MYDB_ECM.GetDatatable(DT_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("CAPTION").ToString)
                            Node1.Tag = row1.Item("GUID")
                            DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' 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 = {2} AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {3})) ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, row1.Item("GUID"), USER_GUID)
                            LOGGER.Debug(Now.ToString & "Level 2 >>" & DT_SQL, False)
                            ' 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 = MYDB_ECM.GetDatatable(DT_SQL)
                            If dtEbene2.Rows.Count > 0 Then
                                For Each row2 As DataRow In dtEbene2.Rows
                                    Dim Node2 As TreeNode
                                    Node2 = Node1.Nodes.Add(row2.Item("CAPTION").ToString)
                                    Node2.Tag = row2.Item("GUID")
                                Next
                            End If

                        Next

                    End If
                Next
                DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' " &
                                       "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 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2})) ORDER BY CAPTION", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
                '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 = MYDB_ECM.GetDatatable(DT_SQL)
                LOGGER.Debug(Now.ToString & "Indepentent Entities >>" & DT_SQL, False)
                If DT3.Rows.Count > 0 Then
                    Dim Node As TreeNode
                    Node = TreeViewEntity.Nodes.Add("INDEPENDENT ENTITIES")
                    For Each row3 As DataRow In DT3.Rows
                        Dim Node2 As TreeNode
                        Node2 = Node.Nodes.Add(row3.Item("CAPTION").ToString)
                        Node2.Tag = row3.Item("GUID")
                    Next
                End If
                TreeViewEntity.ExpandAll()
                TreeViewEntity.Nodes(0).EnsureVisible()
            Else
                MsgBox("No entity configuration found for Your user." & vbNewLine & "please check the logfile.", MsgBoxStyle.Exclamation)
            End If
        Catch ex As Exception
            MsgBox("Error in Load_TreeView:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub
    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)

            Me.btnGenerate.Visible = True

            If PARENT_IDTextBox.Text = 0 And (cmbEntityType.SelectedValue = 1 Or cmbEntityType.Text = "Personal file") Then
                Me.btnGenerate.Visible = True
                lblCreateConstrForm.Visible = True
            Else
                Me.btnGenerate.Visible = False
                lblCreateConstrForm.Visible = False
            End If
        Catch ex As Exception
            MsgBox("Error in Load_Forms:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub Open_Designer()
        Cursor = Cursors.WaitCursor
        OpenFormLevelDesigner()
        Cursor = Cursors.Default
    End Sub

    'Sub Open_Viewer()
    '    Try
    '        If GUIDTextBox.Text = "" Then
    '            Exit Sub
    '        End If
    '        Dim FormId As Integer = GUIDTextBox.Text 'GetCurrentGUID()
    '        If FormId <> -1 Then
    '            Me.Hide()

    '            Cursor = Cursors.WaitCursor
    '            OpenFormInputFor(FormId, 1)
    '            Cursor = Cursors.Default
    '            ' Me.Visible = True
    '        End If
    '    Catch ex As Exception
    '        MsgBox("Error while Opening Entity View!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
    '    End Try

    'End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Try
            If ENTITY_IDTextBox.Text <> "" Then
                Dim FormId As Integer = ENTITY_IDTextBox.Text 'GetCurrentGUID()
                If FormId <> -1 Then
                    CURRENT_ENTITY_ID = FormId
                    Open_Designer()
                End If
            End If
        Catch ex As Exception
            MsgBox("Error while Opening Entity!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub
    Private Function GetCurrentGUID() As Integer
        Dim FormId As Integer
        Try
            Dim CurrentRow As DataRowView = Me.TBPMO_FORMBindingSource.Current
            FormId = CurrentRow.Row.Item("GUID")
        Catch ex As Exception
            FormId = -1
        End Try

        Return FormId
    End Function

    Private Sub TBPMO_FORMBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_FORMBindingSource.AddingNew
        DD_DMSDataSet.TBPMO_FORM.ADDED_WHOColumn.DefaultValue = USER_USERNAME
        DD_DMSDataSet.TBPMO_FORM_VIEW.ADDED_WHOColumn.DefaultValue = USER_USERNAME
        DD_DMSDataSet.TBPMO_FORM.SHOW_FORM_CONSTRUCTColumn.DefaultValue = True
        DD_DMSDataSet.TBPMO_FORM.SINGLE_RECORDColumn.DefaultValue = False
        'Me.GroupBox1.Visible = True
        insert = True
    End Sub
    Private Sub SaveLayout()
        Try
            Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "FORM-OVERVIEW-UserLayout.xml")
            ' treeListForms.SaveLayoutToXml(XMLPath)
        Catch ex As Exception
            MsgBox("Error while saving custom Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub LoadLayout()
        Try
            Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "FORM-OVERVIEW-UserLayout.xml")
            '  treeListForms.RestoreLayoutFromXml(XMLPath)
        Catch notFoundEx As System.IO.FileNotFoundException
            LOGGER.Warn("Layout added for Overview")
        Catch ex As Exception
            MsgBox("Error while loading custom Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
        Try
            If FORM_TITLETextBox.Text = "" Then
                MsgBox("Please insert a title for the entity! Will be displayed in Entity-hirarchy", MsgBoxStyle.Exclamation)
                FORM_TITLETextBox.Focus()
                Exit Sub
            End If
            If NAMETextBox.Text = "" Then
                MsgBox("Please isnert an internal name for the entity!", MsgBoxStyle.Exclamation)
                NAMETextBox.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

            ' Save FORM Properties
            If DD_DMSDataSet.TBPMO_FORM.GetChanges Is Nothing = False Then
                Me.CHANGED_WHOTextBoxPMOForm.Text = USER_USERNAME
                Me.TBPMO_FORMBindingSource.EndEdit()
                Try
                    TBPMO_FORMTableAdapter.Update(DD_DMSDataSet.TBPMO_FORM)
                Catch ex As Exception
                    MsgBox("Error in Save/Insert Entity:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                    Exit Sub
                End Try
                changes = True
            End If

            ' Save FORM_VIEW Properties
            If insert = True Then
                Dim sql = "SELECT (MAX(GUID)) FROM TBPMO_FORM"
                Dim FORM_ID = MYDB_ECM.GetScalarValue(sql)

                Dim ADDED_WHO As String = USER_USERNAME


                'MsgBox(FORM_TITLETextBox.Text)
                'ggg()
                If FORM_ID Is Nothing = False Then
                    sql = String.Format("INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO,LANGUAGE) VALUES ({0}, {1},'{2}','{3}','{4}','{5}')", FORM_ID, CURRENT_SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO, USER_LANGUAGE)
                    MYDB_ECM.ExecuteNonQuery(sql)
                End If
                Load_TreeView()
            Else
                Me.TBPMO_FORM_VIEWBindingSource.EndEdit()
                If DD_DMSDataSet.TBPMO_FORM_VIEW.GetChanges Is Nothing = False Then
                    'Me.CHANGED_WHOTextBoxPMOFormView.Text = USER_USERNAME
                    Me.TBPMO_FORM_VIEWBindingSource.EndEdit()
                    TBPMO_FORM_VIEWTableAdapter.Update(DD_DMSDataSet.TBPMO_FORM_VIEW)
                    changes = True
                End If
            End If
            insert = False
            If changes = True Then
                Load_TreeView()
                lblStatus.Text = "Changes successfully saved - " & Now
                lblStatus.Visible = True
                'MsgBox("Änderungen erfolgreich gespeichert!", MsgBoxStyle.Information)
            Else
                lblStatus.Visible = False
            End If
            ' Load_Forms()
        Catch ex As Exception
            MsgBox("Error in Entity:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
        Dim msg As String = "Wollen Sie diese Entität wirklich löschen?" & "Alle Daten werden unwiderruflich gelöscht!"
        If USER_LANGUAGE <> "de-DE" Then
            msg = "Do You really want to delete this entity?" & "All data will be lost!"
        End If
        Dim result As MsgBoxResult = MsgBox(msg, MsgBoxStyle.YesNo)
        If result = MsgBoxResult.Yes Then
            Try
                Dim CurrentID = GetCurrentGUID()
                Dim sql = "EXEC PRPMO_DELETE_ENTITY " & CurrentID
                If MYDB_ECM.ExecuteNonQuery(sql) = True Then
                    MsgBox("Entity was deleted!", MsgBoxStyle.Information)
                    Load_TreeView()
                    Load_Forms(999999999)
                End If

            Catch ex As Exception
                MsgBox("Unexpected Error in delete Entity:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            End Try
        Else
            MsgBox("Unexpected error in delete Entity! Check log!", MsgBoxStyle.Exclamation)
        End If
    End Sub

    Private Sub btninsert_Click(sender As Object, e As EventArgs) Handles btninsert.Click
        Dim anz_ent = MYDB_ECM.GetScalarValue("SELECT Count(GUID) FROM TBPMO_FORM where PARENT_ID = 0 and FORM_TYPE_ID = 1")
        anz_ent += 1
        If anz_ent > LICENSE_DOSSIER_COUNT Then
            Dim msg = String.Format("Die Anzahl an lizensierten Sichten/Akten {0} ist erreicht! Bitte kontaktieren Sie Digital Data!", LICENSE_DOSSIER_COUNT.ToString)
            If USER_LANGUAGE <> "de-DE" Then
                msg = String.Format("The number of licensed views {0} was reached! Please contact Digital Data", LICENSE_DOSSIER_COUNT.ToString)
            End If
            MsgBox(msg, MsgBoxStyle.Exclamation)
            Exit Sub
        End If
        TBPMO_FORMBindingSource.AddNew()
    End Sub

    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
                Try
                    formId = Integer.Parse(TreeViewEntity.SelectedNode.Tag)
                Catch ex As Exception
                    Exit Sub
                End Try

                Load_Forms(formId)
                TreeViewEntity.ExpandAll()
            End If
        Catch ex As Exception
            MsgBox("Error in AfterSelect:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub btncopy_Click(sender As Object, e As EventArgs) Handles btncopy.Click
        Dim msg As String = "Wollen Sie diese Entität kopieren?"
        If USER_LANGUAGE <> "de-DE" Then
            msg = "Do You want to copy that entity?"
        End If
        Dim result As MsgBoxResult = MsgBox(msg, MsgBoxStyle.YesNo)
        If result = MsgBoxResult.Yes Then
            Try
                Dim CurrentID = GetCurrentGUID()
                Dim sql As String = "EXEC PRPMO_COPY_ENTITY " & CurrentID.ToString & ", '" & USER_USERNAME & "'"
                If MYDB_ECM.ExecuteNonQuery(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 If

    End Sub

    Private Sub NAMETextBox_TextChanged(sender As Object, e As EventArgs) Handles NAMETextBox.TextChanged
        If insert = True Then
            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 msg As String = "Achtung mit dieser Funktion wird ein neuer Constructor erzeugt!" & vbNewLine & "Wollen Sie fortfahren?"
                If USER_LANGUAGE <> "de-DE" Then
                    msg = "Do You really want to create a new constructor-form?"
                End If
                Dim result As MsgBoxResult = MsgBox(msg, MsgBoxStyle.YesNo, "Question:")
                If result = MsgBoxResult.Yes Then
                    INTEGER1 = CurrentID
                    STRING1 = FORM_TITLETextBox.Text
                    frmNewKombiForm.ShowDialog()
                End If
            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 cmbEntityType.SelectedIndexChanged
        If cmbEntityType.SelectedIndex <> -1 Then
            If cmbEntityType.SelectedValue = 5 Then

                ToolStripButton1.Enabled = False
            Else

                ToolStripButton1.Enabled = True
            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 &
                   "IF @return_value = 0 EXEC @return_value = [dbo].[PRPMO_CREATE_ENTITY_TABLE_VIEW] {0}" & vbNewLine &
                   "SELECT	'Return Value' = @return_value", CurrentID)
        ProgressPanel1.Description = "Creating the Entity-table..."
        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 = MYDB_ECM.GetDatatable(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
        If e.Error IsNot Nothing Then
            MsgBox("Unexpected Error in Executing Procedure - Check the log!", MsgBoxStyle.Critical, Text)
            LOGGER.Error(e.Error)
        Else
            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, Text)
                Else
                    MsgBox("Procedure was executed successfully!", MsgBoxStyle.Information, Text)
                End If
            End If
        End If

        ProgressPanel1.Visible = False
        btncancel.Visible = False
    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.Description = "Inserting Records...."
        ProgressPanel1.Visible = True
        btncancel.Visible = True
        '.. und starten
        BW_Entity.RunWorkerAsync()
    End Sub

    Private Sub NAMETextBox_LostFocus(sender As Object, e As EventArgs) Handles NAMETextBox.LostFocus
        If FORM_TITLETextBox.Text = String.Empty Then
            FORM_TITLETextBox.Text = NAMETextBox.Text
        End If

    End Sub

End Class