jj: new place holders

app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb

@@ -47,44 +47,35 @@ Public Class frmSQL_DESIGNER
                 Else
                     SQL_COMMANDTextBox.Text = String.Empty
                 End If
-            End If
 
-
-            Try
-                ' Windream instanziieren
-                '_windreamPM = New ClassPMWindream()
-                'Windream initialisieren (Connection, Session, ... aufbauen)
-                '_windreamPM.Create_Session()
-            Catch ex As Exception
-                LOGGER.Error(ex)
-                MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
-            End Try
-            cmbIndexe.Items.Clear()
-            Dim indexe = WINDREAM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE)
-            If indexe IsNot Nothing Then
-                For Each index As String In indexe
-                    Me.cmbIndexe.Items.Add(index)
-                Next
-                Me.cmbIndexe.SelectedIndex = -1
-            End If
-            If CURRENT_DESIGN_TYPE = "INPUT_INDEX" Then
-                Dim sql = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
-                Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
-                cmbControls.DataSource = DT
-                cmbControls.DisplayMember = DT.Columns(0).ColumnName
+                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, True)
+                cmbControls.DataSource = oDatatable
+                cmbControls.DisplayMember = oDatatable.Columns(0).ColumnName
                 cmbControls.Visible = True
                 lblControls.Visible = True
                 btnAddControl.Visible = True
+
+                cmbIndexe.Items.Clear()
+                Dim oIndicies = WINDREAM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE)
+                If oIndicies IsNot Nothing Then
+                    For Each index As String In oIndicies
+                        cmbIndexe.Items.Add(index)
+                    Next
+                    cmbIndexe.SelectedIndex = -1
+                End If
             Else
                 cmbControls.Visible = False
                 lblControls.Visible = False
                 btnAddControl.Visible = False
+                cmbIndexe.Visible = False
+                lbIndexe.Visible = False
+                btnAddIndex.Visible = False
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox("Unexpected Error while loading form: " & ex.Message, MsgBoxStyle.Critical)
         End Try
-
     End Sub
 
     Private Sub SQL_COMMANDTextBox_TextChanged(sender As Object, e As EventArgs) Handles SQL_COMMANDTextBox.TextChanged, SQL_COMMANDTextBox.Click