MS24112015

Global_Indexer/frmAdministration.vb

@@ -17,14 +17,14 @@
         Try
             Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN)
             Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES)
-            If GI_withWindream = True Then
-                If ClassWindream.Init() = True Then
-
-                End If
-            End If
         Catch ex As Exception
             MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
         End Try
+        If GI_withWindream = True Then
+            If ClassWindream.Init() = True Then
+
+            End If
+        End If
     End Sub
     Private Sub ObjektTypenEintragen()
         Try
@@ -166,6 +166,21 @@
 
     Private Sub TBDD_DOKUMENTARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_DOKUMENTARTBindingSource.AddingNew
         Save_Dokumentart()
+        Try
+            Dim sql = "SELECT COUNT(T.GUID) FROM TBDD_DOKUMENTART T, TBDD_DOKUMENTART_MODULE T1 WHERE T.AKTIV = 1 AND T.GUID = T1.DOKART_ID AND T1.MODULE_ID = 1"
+            Dim DoctypeCount = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
+            If DoctypeCount = LICENSE_DOCTYPE_COUNT Then
+                If USER_LANGUAGE = "de-DE" Then
+                    MsgBox("Ihre Anzahl von konfigurierbaren Dokuemntarten ist limitiert auf: '" & LICENSE_DOCTYPE_COUNT.ToString & "'. Sie können nun keine Dokumentart hinzufügen!" & vbNewLine & "Bitte kontaktieren Sie Digital Data für weitere Details.", MsgBoxStyle.Information)
+                Else
+                    MsgBox("Your amount of configurable documenttypes is limited to " & LICENSE_DOCTYPE_COUNT.ToString & " doctypes. You can not add more doctypes!" & vbNewLine & "Please contact Digital Data for further licensedetails", MsgBoxStyle.Information)
+                End If
+                Exit Sub
+            End If
+        Catch ex As Exception
+            MsgBox("Unexpected error in Add Doctype: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
+        End Try
+
         MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName
         enableControls(XtraTabPage1)
         IsInsert = True
@@ -197,6 +212,7 @@
         Try
             If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then
                 Me.WD_INDEXComboBox.Items.Clear()
+                Me.WD_INDEXComboBox.Items.Add("")
                 Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text)
                 If indexe IsNot Nothing Then
                     For Each index As String In indexe
@@ -247,6 +263,7 @@
         End If
         frmloaded = True
         tscmbUser.SelectedIndex = 0
+        TBDD_INDEX_MANBindingNav.Visible = True
     End Sub
 
     Private Sub btndeleteZuordnung_Click(sender As Object, e As EventArgs) Handles btndeleteZuordnung.Click
@@ -480,13 +497,14 @@
             OBJEKTTYPComboBox.Visible = True
             lblObjekttyp.Visible = True
             WD_INDEXComboBox.Visible = True
+            lblWDINDEX.Visible = True
             If ClassWindream.Init() = True Then
                 ObjektTypenEintragen()
             End If
         Else
             OBJEKTTYPComboBox.Visible = False
             lblObjekttyp.Visible = False
-
+            lblWDINDEX.Visible = False
             WD_INDEXComboBox.Visible = False
         End If
     End Sub
@@ -590,7 +608,9 @@
 
     Private Sub btnSQLViewAuto_Click(sender As Object, e As EventArgs) Handles btnSQLViewAuto.Click
         Save_IndexAuto()
+        CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
         CURRENT_INDEXAUTO = GUIDAUTO_INDEXTextbox.Text
+        CURRENT_SQL_CONFIG = "AUTO"
         SQLConfigAutoIndex.ShowDialog()
     End Sub
 
@@ -930,7 +950,7 @@
             Me.FOLDER_FOR_INDEXTextBox.Text = str & "[%" & cmbCrFolderIndex.Text & "]"
             cmbCrFolderIndex.SelectedIndex = -1
         ElseIf cmbCrFolderDate.SelectedIndex <> -1 Then
-            Me.FOLDER_FOR_INDEXTextBox.Text = str & "[V%" & cmbCrFolderDate.Text & "]"
+            Me.FOLDER_FOR_INDEXTextBox.Text = str & "[%V_" & cmbCrFolderDate.Text & "]"
             cmbCrFolderDate.SelectedIndex = -1
         ElseIf txtcrFoldermanuell.Text <> "" Then
             Me.FOLDER_FOR_INDEXTextBox.Text = str & txtcrFoldermanuell.Text
@@ -1020,4 +1040,8 @@
     Private Sub ToolStripButton41_Click(sender As Object, e As EventArgs) Handles ToolStripButton41.Click
         Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
     End Sub
+
+    Private Sub FOLDER_FOR_INDEXTextBox_TextChanged(sender As Object, e As EventArgs) Handles FOLDER_FOR_INDEXTextBox.TextChanged
+
+    End Sub
 End Class