MS Relations Doctype

GUIs.ZooFlow/Administration/frmAdmin_Globix.vb

@@ -20,8 +20,6 @@ Public Class frmAdmin_Globix
     End Sub
 
     Private Sub frmAdmin_Globix_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        'TODO: Diese Codezeile lädt Daten in die Tabelle "GlobixDataset.TBGI_REGEX_DOCTYPE". Sie können sie bei Bedarf verschieben oder entfernen.
-
         InitializeBaseForm(My.LogConfig)
         Try
             TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
@@ -242,7 +240,7 @@ Public Class frmAdmin_Globix
                 Dim oSQL = $"SELECT GUID FROM TBDD_DOKUMENTART WHERE BEZEICHNUNG = '{TextEditBezeichnung.Text}'"
                 PrimaryKey = My.DatabaseECM.GetScalarValue(oSQL)
                 oSQL = $"INSERT INTO TBDD_DOKUMENTART_MODULE (DOKART_ID,MODULE_ID) VALUES ({PrimaryKey},(SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'GLOBIX'))"
-                My.DatabaseECM.ExecuteNonQuery(oIns)
+                My.DatabaseECM.ExecuteNonQuery(oSQL)
                 IsInsert = False
                 TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
                 Return True
@@ -336,6 +334,9 @@ Public Class frmAdmin_Globix
 
     Private Sub Load_Attribute_Auto()
         Try
+            If Not IsNumeric(TextEditDoctypeID.Text) Then
+                Exit Sub
+            End If
             Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.GlobixDataset.TBDD_INDEX_AUTOM, TextEditDoctypeID.Text)
         Catch ex As System.Exception
             System.Windows.Forms.MessageBox.Show(ex.Message)
@@ -365,10 +366,10 @@ Public Class frmAdmin_Globix
                 Case XtraTabPageDynamicFolder.Name
                     cmbAllAttributes.Items.Clear()
                     For Each oRowMan As DataRow In Me.GlobixDataset.TBDD_INDEX_MAN.Rows
-                        cmbAllAttributes.Items.Add(oRowMan.Item("WD_INDEX") & "#M")
+                        cmbAllAttributes.Items.Add(oRowMan.Item("WD_INDEX"))
                     Next
                     For Each oRowMan As DataRow In Me.GlobixDataset.TBDD_INDEX_AUTOM.Rows
-                        cmbAllAttributes.Items.Add(oRowMan.Item("INDEXNAME") & "#A")
+                        cmbAllAttributes.Items.Add(oRowMan.Item("INDEXNAME"))
                     Next
             End Select
             'Else