MS2909

Global_Indexer/frmAdministration.vb

@@ -154,6 +154,10 @@
 
     Private Sub TBDD_DOKUMENTARTBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingSource.CurrentChanged
         lblSaveDokart.Visible = False
+        If DOKART_GUIDTextBox.Text <> String.Empty Then
+            CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
+        End If
+
     End Sub
 
     Private Sub ToolStripComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ToolStripComboBox1.SelectedIndexChanged
@@ -161,6 +165,7 @@
     End Sub
 
     Private Sub TBDD_DOKUMENTARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_DOKUMENTARTBindingSource.AddingNew
+        Save_Dokumentart()
         MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName
         enableControls(XtraTabPage1)
         IsInsert = True
@@ -263,6 +268,7 @@
             If MyDataset.TBDD_INDEX_MAN.Rows.Count > 0 Then
                 enableControls(XtraTabPage3)
             End If
+            lblSaveIndexMan.Visible = False
         Catch ex As System.Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ")
         End Try
@@ -287,6 +293,7 @@
             If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.Rows.Count > 0 Then
                 enableControls(XtraTabPage6)
             End If
+            lblsavePostProcess.Visible = False
         Catch ex As System.Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Postprocessing-Values: ")
         End Try
@@ -306,6 +313,7 @@
     End Sub
     Private Sub TBDD_INDEX_MANBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MANBindingSource.AddingNew
         Try
+            Save_Dokumentart()
             IsInsert = True
             MyDataset.TBDD_INDEX_MAN.ADDED_WHOColumn.DefaultValue = Environment.UserName
             MyDataset.TBDD_INDEX_MAN.DOK_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
@@ -539,6 +547,7 @@
 
     Private Sub TBDD_INDEX_AUTOMBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_AUTOMBindingSource.AddingNew
         Try
+            Save_Dokumentart()
             MyDataset.TBDD_INDEX_AUTOM.ADDED_WHOColumn.DefaultValue = Environment.UserName
             MyDataset.TBDD_INDEX_AUTOM.DOCTYPE_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
             enableControls(XtraTabPage4)
@@ -563,6 +572,7 @@
                 VALUETextBox.Text = ""
                 lblWindowParameter.Visible = False
                 lbFileparameter.Visible = False
+                Me.btnAddWindowsVariable.Visible = False
             Else
                 Me.lblValue.Visible = True
                 VALUETextBox.Visible = True
@@ -570,6 +580,7 @@
                 btnSQLViewAuto.Visible = False
                 lblWindowParameter.Visible = True
                 lbFileparameter.Visible = True
+                Me.btnAddWindowsVariable.Visible = True
             End If
             If IsInsert = False Then
                 Save_IndexAuto()
@@ -628,8 +639,10 @@
                 Case "VBREPLACE"
                     Me.Text1Label.Text = "Old Value:"
                     Me.TEXT1TextBox.Visible = True
+                    TEXT1TextBox.Width = 165
                     Me.Text2Label.Text = "New Value:"
                     Me.TEXT2TextBox.Visible = True
+                    Me.TEXT2TextBox.Width = 191
                     Me.Text3Label.Visible = False
                     Me.TEXT3TextBox.Visible = False
                     Me.FUNCTION1TextBox.Visible = False
@@ -650,9 +663,10 @@
 
                     Me.TEXT1Label.Text = "Split-Zeichen:"
                     Me.TEXT1TextBox.Visible = True
-                    Me.Text2Label.Text = "Wähle Vorkommen: (Zahl) - Achtung Nullbasierend: Erstes Vorkommen = '0'"
+                    TEXT1TextBox.Width = 50
+                    Me.Text2Label.Text = "Wähle Vorkommen: Achtung Nullbasierend - Erstes Vorkommen = '0'"
                     Me.TEXT2TextBox.Visible = True
-
+                    Me.TEXT2TextBox.Width = 50
                     Me.TEXT3TextBox.Visible = False
                     Me.Text3Label.Visible = False
 
@@ -663,6 +677,7 @@
                 Case "REG. EXPRESSION"
                     Me.Text1Label.Text = "Regulärer Ausdruck:"
                     Me.TEXT1TextBox.Visible = True
+                    TEXT1TextBox.Width = 537
                     Me.Text2Label.Visible = False
                     Me.TEXT2TextBox.Visible = False
                     Me.Text3Label.Visible = False
@@ -701,7 +716,7 @@
     End Sub
 
     Private Sub TBDD_INDEX_MAN_POSTPROCESSINGBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.AddingNew
-
+        Save_Dokumentart()
         enableControls(XtraTabPage6)
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn.DefaultValue = Environment.UserName
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1
@@ -946,8 +961,7 @@
             Try
                 Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", 1"
                 If ClassDatabase.Execute_non_Query(copy, True) Then
-                    MsgBox("Die Dokumentart wurde erfolgreich kopiert und auf INAKTIV gesetzt." & vbNewLine & "Bitte beachten Sie:" & vbNewLine & "- Die manuelle Nachbearbeitung wurde nicht kopiert." _
-                           & vbNewLine & "- Die Dokumentart wurde keiner Usergruppe zugeordnet.", MsgBoxStyle.Information)
+                    MsgBox("Die Dokumentart wurde erfolgreich kopiert und auf INAKTIV gesetzt." & vbNewLine & "Bitte beachten Sie:" & vbNewLine & "- Die Dokumentart wurde keiner Usergruppe zugeordnet.", MsgBoxStyle.Information)
                     Dim str = "Global-Indexer Dokarten"
                     If ToolStripComboBox1.Text <> "" Then
                         str = ToolStripComboBox1.Text
@@ -968,8 +982,12 @@
     Private Sub XtraTabControl2_SelectedPageChanging(sender As Object, e As DevExpress.XtraTab.TabPageChangingEventArgs) Handles XtraTabControl2.SelectedPageChanging
         Save_Dokumentart()
     End Sub
+    Private Sub TBDD_USERBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew
+        MyDataset.TBDD_USER.ADDED_WHOColumn.DefaultValue = Environment.UserName
+        enableControls(XtraTabPage2)
+    End Sub
 
-    Private Sub lblFileparameter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbFileparameter.SelectedIndexChanged
+    Private Sub btnAddWindowsVariable_Click(sender As Object, e As EventArgs) Handles btnAddWindowsVariable.Click
         If Not lbFileparameter.SelectedItem Is Nothing Then
             If GUIDAUTO_INDEXTextbox.Text <> "" Then
                 Dim value As String
@@ -995,7 +1013,11 @@
         End If
     End Sub
 
-    Private Sub TBDD_USERBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew
-        enableControls(XtraTabPage2)
+    Private Sub VARIANTComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles VARIANTComboBox.SelectedIndexChanged
+
+    End Sub
+
+    Private Sub ToolStripButton41_Click(sender As Object, e As EventArgs) Handles ToolStripButton41.Click
+        Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
     End Sub
 End Class