Speichern Prüfen - 3164 - CheckUpdateIndices - Error BtnClick

app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb

@@ -36,8 +36,10 @@ Public Class frmSQL_DESIGNER
             TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
             If CURRENT_DESIGN_TYPE = "INPUT_INDEX" Then
                 CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), "frmSQL_FINAL_INDICES_Load1")
-            Else
+            ElseIf CURRENT_DESIGN_TYPE = "FINAL_INDEX" Then
                 CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_FINAL_INDEXING T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_INDEX_ID), "frmSQL_FINAL_INDICES_Load2")
+            ElseIf CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN" Then
+                CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_CONTROL_TABLE T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_INDEX_ID), "frmSQL_FINAL_INDICES_Load2")
             End If
             If CURRENT_DESIGN_TYPE = "SQL_OVERVIEW" Then
                 cmbConnection.Enabled = False
@@ -47,45 +49,47 @@ Public Class frmSQL_DESIGNER
                 btnShowConnections.Enabled = True
             End If
 
-            If (CURRENT_DESIGN_TYPE = "INPUT_INDEX") Or CURRENT_DESIGN_TYPE = "FINAL_INDEX" Or CURRENT_DESIGN_TYPE = "SQL_BTNFINISH" Then
+            If (CURRENT_DESIGN_TYPE = "INPUT_INDEX") Or CURRENT_DESIGN_TYPE = "FINAL_INDEX" Or CURRENT_DESIGN_TYPE = "SQL_BTNFINISH" Or CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN" Then
                 If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count = 1 Then
                     cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
                     cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING"))
                 End If
+                If CURRENT_DESIGN_TYPE <> "SQL_SOURCE_TABLE_COLUMN" Then
+                    Dim oSQL = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
+                    Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL, "frmSQL_FINAL_INDICES_Load3")
+                    cmbControls.DataSource = oDatatable
+                    cmbControls.DisplayMember = oDatatable.Columns(0).ColumnName
+                    cmbControls.Visible = True
+                    lblControls.Visible = True
+                    btnAddControl.Visible = True
 
-                Dim oSQL = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
-                Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL, "frmSQL_FINAL_INDICES_Load3")
-                cmbControls.DataSource = oDatatable
-                cmbControls.DisplayMember = oDatatable.Columns(0).ColumnName
-                cmbControls.Visible = True
-                lblControls.Visible = True
-                btnAddControl.Visible = True
+                    cmbIndexe.Items.Clear()
+                    If IDB_ACTIVE = False Then
+                        If MyIndicies IsNot Nothing Then
+                            For Each index As String In MyIndicies
+                                cmbIndexe.Items.Add(index)
+                            Next
+                            cmbIndexe.SelectedIndex = -1
+                        End If
+                        'cmbIndexe.Enabled = True
+                        'lbIndexe.Enabled = True
+                        'btnAddIndex.Enabled = True
+                    Else
+                        Dim oAttributes = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE)
+                        If oAttributes IsNot Nothing Then
+                            For Each oAttribute As String In oAttributes
+                                cmbIndexe.Items.Add(oAttribute)
+                            Next
+                            cmbIndexe.SelectedIndex = -1
+                        End If
 
-                cmbIndexe.Items.Clear()
-                If IDB_ACTIVE = False Then
-                    If MyIndicies IsNot Nothing Then
-                        For Each index As String In MyIndicies
-                            cmbIndexe.Items.Add(index)
-                        Next
-                        cmbIndexe.SelectedIndex = -1
+                        'cmbIndexe.Enabled = False
+                        'lbIndexe.Enabled = False
+                        'btnAddIndex.Enabled = False
                     End If
-                    'cmbIndexe.Enabled = True
-                    'lbIndexe.Enabled = True
-                    'btnAddIndex.Enabled = True
-                Else
-                    Dim oAttributes = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE)
-                    If oAttributes IsNot Nothing Then
-                        For Each oAttribute As String In oAttributes
-                            cmbIndexe.Items.Add(oAttribute)
-                        Next
-                        cmbIndexe.SelectedIndex = -1
-                    End If
-
-                    'cmbIndexe.Enabled = False
-                    'lbIndexe.Enabled = False
-                    'btnAddIndex.Enabled = False
                 End If
 
+
             Else
                 cmbControls.Visible = False
                 lblControls.Visible = False