MS20072015_1

Global_Indexer/frmAdministration.vb

@@ -60,7 +60,6 @@
         If frmloaded = False Then
             Exit Sub
         End If
-        Save_Dokumentart()
         Select Case XtraTabControl2.SelectedTabPageIndex
             Case 0
                 If DOKART_GUIDTextBox.Text <> "" Then
@@ -215,11 +214,14 @@
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndices2AutoIndizes: ")
         End Try
     End Sub
-    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
-        If Not ListBox1.SelectedValue Is Nothing Then
-            Load_ZuordnungDokart_Module(ListBox1.SelectedValue)
-            Load_TabData()
+    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxDokart.SelectedIndexChanged
+        If ListBoxDokart.SelectedIndex <> -1 Then
+            If Not ListBoxDokart.SelectedValue Is Nothing Then
+                Load_ZuordnungDokart_Module(ListBoxDokart.SelectedValue)
+                Load_TabData()
+            End If
         End If
+     
 
     End Sub
 
@@ -572,7 +574,6 @@
     End Sub
 
     Public Sub New()
-
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
         Try
@@ -894,10 +895,6 @@
         cmbCrFolderIndex.SelectedIndex = -1
     End Sub
 
-    Private Sub XtraTabControl2_SelectedPageChanging(sender As Object, e As DevExpress.XtraTab.TabPageChangingEventArgs) Handles XtraTabControl2.SelectedPageChanging
-
-    End Sub
-
     Private Sub tsbtnCopyDoctype_Click(sender As Object, e As EventArgs) Handles tsbtnCopyDoctype.Click
         Dim result As MsgBoxResult
         result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart kopieren wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
@@ -918,4 +915,13 @@
             End Try
         End If
     End Sub
+
+    Private Sub FOLDER_FOR_INDEXTextBox_LostFocus(sender As Object, e As EventArgs) Handles FOLDER_FOR_INDEXTextBox.LostFocus
+        'Me.TBDD_DOKUMENTARTTableAdapter.cmdUpdateFolderIndex(Environment.UserName, FOLDER_FOR_INDEXTextBox.Text, DOKART_GUIDTextBox.Text)
+        'Me.lblSaveDokart.Visible = True
+    End Sub
+
+    Private Sub XtraTabControl2_SelectedPageChanging(sender As Object, e As DevExpress.XtraTab.TabPageChangingEventArgs) Handles XtraTabControl2.SelectedPageChanging
+        Save_Dokumentart()
+    End Sub
 End Class