MS 19.08

Global_Indexer/frmAdministration.vb

@@ -49,6 +49,9 @@
             Else
                 Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART)
             End If
+            If MyDataset.TBDD_DOKUMENTART.Rows.Count > 0 Then
+                enableControls(XtraTabPage1)
+            End If
             If Me.DOKART_GUIDTextBox.Text <> "" Then
                 Load_TabData()
             End If
@@ -159,6 +162,7 @@
 
     Private Sub TBDD_DOKUMENTARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_DOKUMENTARTBindingSource.AddingNew
         MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName
+        enableControls(XtraTabPage1)
         IsInsert = True
     End Sub
 
@@ -256,6 +260,9 @@
     Private Sub Load_INDEXMAN(DA_ID As Integer)
         Try
             Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, DA_ID)
+            If MyDataset.TBDD_INDEX_MAN.Rows.Count > 0 Then
+                enableControls(XtraTabPage3)
+            End If
         Catch ex As System.Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ")
         End Try
@@ -264,6 +271,9 @@
     Private Sub Load_INDEXE_AUTO(DA_ID As Integer)
         Try
             Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, DA_ID)
+            If MyDataset.TBDD_INDEX_AUTOM.Rows.Count > 0 Then
+                enableControls(XtraTabPage4)
+            End If
             CheckIndexAutoWD()
         Catch ex As System.Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ")
@@ -272,8 +282,11 @@
     End Sub
     Private Sub Load_PostProcessing(DA_ID As Integer)
         Try
-            Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN_POSTPROCESSING, DA_ID)
             Me.TBWHDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBWHDD_INDEX_MAN, DA_ID)
+            Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN_POSTPROCESSING, DA_ID)
+            If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.Rows.Count > 0 Then
+                enableControls(XtraTabPage6)
+            End If
         Catch ex As System.Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Postprocessing-Values: ")
         End Try
@@ -296,6 +309,7 @@
             IsInsert = True
             MyDataset.TBDD_INDEX_MAN.ADDED_WHOColumn.DefaultValue = Environment.UserName
             MyDataset.TBDD_INDEX_MAN.DOK_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
+            enableControls(XtraTabPage3)
             If GI_withWindream = True Then
                 Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
             End If
@@ -350,6 +364,7 @@
             If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
                 btnSQLView.Visible = True
             Else
+
                 btnSQLView.Visible = False
             End If
             If IsInsert = False Then
@@ -373,7 +388,9 @@
             Else
                 Me.TBDD_USERTableAdapter.Fill(Me.MyDataset.TBDD_USER)
             End If
-
+            If MyDataset.TBDD_USER.Rows.Count > 0 Then
+                enableControls(XtraTabPage2)
+            End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Refresh_User: ")
         End Try
@@ -524,6 +541,7 @@
         Try
             MyDataset.TBDD_INDEX_AUTOM.ADDED_WHOColumn.DefaultValue = Environment.UserName
             MyDataset.TBDD_INDEX_AUTOM.DOCTYPE_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
+            enableControls(XtraTabPage4)
             IsInsert = True
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add IndexeAuto: ")
@@ -543,11 +561,15 @@
                 Me.lblValue.Visible = False
                 VALUETextBox.Visible = False
                 VALUETextBox.Text = ""
+                lblWindowParameter.Visible = False
+                lbFileparameter.Visible = False
             Else
                 Me.lblValue.Visible = True
                 VALUETextBox.Visible = True
                 VALUETextBox.Text = ""
                 btnSQLViewAuto.Visible = False
+                lblWindowParameter.Visible = True
+                lbFileparameter.Visible = True
             End If
             If IsInsert = False Then
                 Save_IndexAuto()
@@ -638,8 +660,22 @@
                     Me.Function2Label.Visible = False
                     Me.FUNCTION1TextBox.Visible = False
                     Me.FUNCTION2TextBox.Visible = False
-                Case Else
+                Case "REG. EXPRESSION"
+                    Me.Text1Label.Text = "Regulärer Ausdruck:"
+                    Me.TEXT1TextBox.Visible = True
+                    Me.Text2Label.Visible = False
+                    Me.TEXT2TextBox.Visible = False
+                    Me.Text3Label.Visible = False
+                    Me.TEXT3TextBox.Visible = False
+                    Me.FUNCTION1TextBox.Visible = False
+                    Me.FUNCTION2TextBox.Visible = False
+                    Me.Function1Label.Visible = False
+                    Me.Function2Label.Visible = False
 
+                    Me.Function1Label.Visible = False
+                    Me.Function2Label.Visible = False
+                    Me.FUNCTION1TextBox.Visible = False
+                    Me.FUNCTION2TextBox.Visible = False
             End Select
         End If
 
@@ -665,10 +701,18 @@
     End Sub
 
     Private Sub TBDD_INDEX_MAN_POSTPROCESSINGBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.AddingNew
+
+        enableControls(XtraTabPage6)
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn.DefaultValue = Environment.UserName
         MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1
     End Sub
-
+    Sub enableControls(obj As Object)
+        For Each element In obj.Controls
+            If element.enabled = False Then
+                element.enabled = True
+            End If
+        Next
+    End Sub
     Private Sub ToolStripButton31_Click(sender As Object, e As EventArgs) Handles ToolStripButton31.Click
         Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
     End Sub
@@ -924,4 +968,34 @@
     Private Sub XtraTabControl2_SelectedPageChanging(sender As Object, e As DevExpress.XtraTab.TabPageChangingEventArgs) Handles XtraTabControl2.SelectedPageChanging
         Save_Dokumentart()
     End Sub
+
+    Private Sub lblFileparameter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbFileparameter.SelectedIndexChanged
+        If Not lbFileparameter.SelectedItem Is Nothing Then
+            If GUIDAUTO_INDEXTextbox.Text <> "" Then
+                Dim value As String
+                Select Case lbFileparameter.SelectedItem.ToString.ToUpper
+                    Case "Dateiname (mit Endung)".ToUpper
+                        value = "$filename_ext"
+                    Case "Dateiname (ohne Endung)".ToUpper
+                        value = "$filename"
+                    Case "Datei Erstelldatum".ToUpper
+                        value = "$FileCreateDate"
+                    Case "Datei Erstellt wer".ToUpper
+                        value = "$FileCreatedWho"
+                    Case "Aktuelles Datum (DD.MM.YYYY)".ToUpper
+                        value = "$DateDDMMYYY"
+                End Select
+                If value <> "" Then
+                    VALUETextBox.Text = value
+                    Save_IndexAuto()
+                End If
+            Else
+                MsgBox("Bitte fügen Sie zuerst einen neuen Index hinzu!", MsgBoxStyle.Information)
+            End If
+        End If
+    End Sub
+
+    Private Sub TBDD_USERBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew
+        enableControls(XtraTabPage2)
+    End Sub
 End Class