use Logging Module EVERYWHERE, fix some MarvMan bugs

Global_Indexer/frmAdministration.vb

@@ -13,6 +13,14 @@ Public Class frmAdministration
         Save_Dokumentart()
     End Sub
 
+    Private Sub SetStatus(Text As String)
+        txtStatus.Caption = Text & " - " & Now.ToShortTimeString
+    End Sub
+
+    Private Sub ClearStatus()
+        txtStatus.Caption = String.Empty
+    End Sub
+
     Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             Me.TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = MyConnectionString
@@ -294,21 +302,20 @@ Public Class frmAdministration
         WM_CHECKED_CHANGE()
     End Sub
 
-    Private Sub Load_INDEXMAN(DA_ID As Integer)
+    Private Sub Load_INDEXMAN(ProfileId As Integer)
         Try
-            Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, DA_ID)
+            Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, ProfileId)
             If MyDataset.TBDD_INDEX_MAN.Rows.Count > 0 Then
                 enableControls(XtraTabPageManualIndex)
             End If
-            lblSaveIndexMan.Visible = False
+            ClearStatus()
         Catch ex As System.Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ")
         End Try
-
     End Sub
-    Private Sub Load_INDEXE_AUTO(DA_ID As Integer)
+    Private Sub Load_INDEXE_AUTO(ProfileId As Integer)
         Try
-            Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, DA_ID)
+            Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, ProfileId)
             If MyDataset.TBDD_INDEX_AUTOM.Rows.Count > 0 Then
                 enableControls(XtraTabPageAutoIndex)
             End If
@@ -316,16 +323,15 @@ Public Class frmAdministration
         Catch ex As System.Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ")
         End Try
-
     End Sub
-    Private Sub Load_PostProcessing(DA_ID As Integer)
+    Private Sub Load_PostProcessing(ProfileId As Integer)
         Try
-            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)
+            Me.TBWHDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBWHDD_INDEX_MAN, ProfileId)
+            Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN_POSTPROCESSING, ProfileId)
             If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.Rows.Count > 0 Then
                 enableControls(XtraTabPageManualIndexFunctions)
             End If
-            lblsavePostProcess.Visible = False
+            ClearStatus()
         Catch ex As System.Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Postprocessing-Values: ")
         End Try
@@ -336,8 +342,8 @@ Public Class frmAdministration
     Sub CheckIndexAutoWD()
         If WINDREAM_DIRECTCheckBox.Checked = True Then
             INDEXNAME_AutoIndexTXT.Visible = False
-            load_WDIndices2AutoIndizes()
             INDEXNAME_AutoIndexCMB.Visible = True
+            load_WDIndices2AutoIndizes()
         Else
             INDEXNAME_AutoIndexTXT.Visible = True
             INDEXNAME_AutoIndexCMB.Visible = False
@@ -369,9 +375,9 @@ Public Class frmAdministration
                 CHANGED_WHOTextBox.Text = Environment.UserName
                 Me.TBDD_INDEX_MANBindingSource.EndEdit()
                 TBDD_INDEX_MANTableAdapter.Update(MyDataset.TBDD_INDEX_MAN)
-                lblSaveIndexMan.Visible = True
+                SetStatus("Index erfolgreich gespeichert!")
             Else
-                lblSaveIndexMan.Visible = False
+                ClearStatus()
             End If
             IsInsert = False
         Catch ex As Exception
@@ -385,9 +391,7 @@ Public Class frmAdministration
                 CHANGED_WHOTextBox3.Text = Environment.UserName
                 Me.TBDD_INDEX_AUTOMBindingSource.EndEdit()
                 TBDD_INDEX_AUTOMTableAdapter.Update(MyDataset.TBDD_INDEX_AUTOM)
-                lblsaveAutoIndex.Visible = True
-            Else
-                lblsaveAutoIndex.Visible = False
+                SetStatus("Index erfolgreich gespeichert!")
             End If
             IsInsert = False
         Catch ex As Exception
@@ -395,10 +399,6 @@ Public Class frmAdministration
         End Try
     End Sub
 
-    Private Sub TBDD_INDEX_MANBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_MANBindingSource.CurrentChanged
-        lblSaveIndexMan.Visible = False
-    End Sub
-
     Private Sub SUGGESTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged
         If frmloaded = True Then
             If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
@@ -494,7 +494,7 @@ Public Class frmAdministration
             Next
         Catch ex As Exception
             MsgBox("Error in ObjektTypenListBoxEintragen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            ClassLogger.Add(">> ACHTUNG: Error in ObjektTypenListBoxEintragen - " & ex.Message, False)
+            LOGGER.Info(">> ACHTUNG: Error in ObjektTypenListBoxEintragen - " & ex.Message)
         End Try
 
     End Sub
@@ -607,7 +607,7 @@ Public Class frmAdministration
 
     Private Sub TBDD_INDEX_AUTOMBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_AUTOMBindingSource.CurrentChanged
         CheckIndexAutoWD()
-        lblsaveAutoIndex.Visible = False
+        ClearStatus()
     End Sub
 
     Private Sub SQL_ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SQL_ACTIVECheckBox.CheckedChanged
@@ -770,9 +770,9 @@ Public Class frmAdministration
                 CHANGED_WHOTextBox4.Text = Environment.UserName
                 TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
                 Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(MyDataset.TBDD_INDEX_MAN_POSTPROCESSING)
-                lblsavePostProcess.Visible = True
+                SetStatus("Funktion erfolgreich gespeichert!")
             Else
-                lblsavePostProcess.Visible = False
+                ClearStatus()
             End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save Post Processing: ")
@@ -797,7 +797,6 @@ Public Class frmAdministration
     End Sub
 
     Sub LoadGlobix_Doctypes()
-        Dim str = "Global-Indexer Dokarten"
         Load_Dokart()
     End Sub
 
@@ -1032,7 +1031,8 @@ Public Class frmAdministration
 
         If result = MsgBoxResult.Yes Then
             Try
-                Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", 1"
+                Dim oGlobixId = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'GLOBIX'", MyConnectionString)
+                Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", " & oGlobixId
                 If ClassDatabase.Execute_non_Query(copy, True) Then
 
                     If USER_LANGUAGE = "de-DE" Then