MS2

app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb

@@ -296,12 +296,22 @@
 
     Private Sub TBDD_INDEX_AUTOMBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_AUTOMBindingSource.CurrentChanged
         Me.lblSaveIndex.Visible = False
+        If VALUETextBox.Text.StartsWith("@") Then
+            chkEntityData.Checked = False
+        ElseIf VALUETextBox.Text.Contains("#") Then
+            chkEntityData.Checked = True
+        End If
     End Sub
 
     Private Sub TBDD_DOKUMENTARTBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingSource.CurrentChanged
         Me.lblSaveDokart.Visible = False
         If GUIDTextBox.Text = "" Then Exit Sub
         Refresh_Doktype_Relevant_Data()
+        If VALUETextBox.Text.StartsWith("@") Then
+            chkEntityData.Checked = False
+        ElseIf VALUETextBox.Text.Contains("#") Then
+            chkEntityData.Checked = True
+        End If
     End Sub
     Sub Refresh_Doktype_Relevant_Data()
         Refresh_Indexe_Auto(GUIDTextBox.Text)
@@ -364,8 +374,10 @@
         If chkEntityData.Checked Then
             GroupBox2.Enabled = True
             Load_Entities()
+            VALUEComboBox.Enabled = False
         Else
             GroupBox2.Enabled = False
+            VALUEComboBox.Enabled = True
         End If
     End Sub
 
@@ -376,4 +388,12 @@
         End If
 
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If Not Me.cmbControlsEntity.Text = "" Then
+            'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version]
+            Dim text As String = "[%a" & Me.cmbControlsEntity.Text.ToString.ToUpper & "#" & cmbControlsEntity.SelectedValue & "]"
+            VALUETextBox.Text = text
+        End If
+    End Sub
 End Class