MS_17.03

app/DD-Record-Organiser/frmDokumentart_Konfig.vb

@@ -53,6 +53,11 @@
     End Sub
     Sub Save_Dokart()
         Try
+            Dim msg = "Dokumentart gespeichert - " & Now.ToString
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = "Doctype saved - " & Now.ToString
+            End If
+            lblSaveDokart.Text = msg
             Me.TBDD_DOKUMENTARTBindingSource.EndEdit()
             If DD_DMSDataSet.TBDD_DOKUMENTART.GetChanges Is Nothing = False Then
                 Me.GEANDERTWERTextBox.Text = Environment.UserName
@@ -154,8 +159,8 @@
         End With
     End Sub
 
-    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
-        If ListBox1.SelectedIndex <> -1 Then
+    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbxDoctypes.SelectedIndexChanged
+        If lbxDoctypes.SelectedIndex <> -1 Then
             Refresh_Indexe_Auto(GUIDTextBox.Text)
             akt_DokartID = GUIDTextBox.Text
             Refresh_DokID_FORM_VIEW()
@@ -202,7 +207,7 @@
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddDokart_Entity.Click
-        Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter.cmdInsert(Me.ComboBox1.SelectedValue, Me.GUIDTextBox.Text, Me.OBJEKTTYPComboBox.Text, Environment.UserName)
+        Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter.cmdInsert(Me.cmbEntity_Doctype.SelectedValue, Me.GUIDTextBox.Text, Me.OBJEKTTYPComboBox.Text, Environment.UserName)
         Refresh_DokID_FORM_VIEW()
     End Sub
 
@@ -217,10 +222,24 @@
     Private Sub btnNamenkonvention_Click(sender As Object, e As EventArgs) Handles btnNamenkonvention.Click
         Save_Dokart()
         Dim _temp As String
+        akt_DokartID = GUIDTextBox.Text
+
+        Dim sql As String = "select COUNT(T.GUID) FROM TBPMO_WD_FORMVIEW_DOKTYPES T, TBPMO_FORM_VIEW T1 WHERE T.FORMVIEW_ID = T1.GUID AND T1.SCREEN_ID = 1 AND T.DOCTYPE_ID = " & akt_DokartID
+        Dim count = ClassDatabase.Execute_Scalar(sql, True)
+        If count > 0 Then
+            frmDokumentart_NameConvention.ShowDialog()
+        Else
+            Dim msg As String = "Achtung: Sie haben der Dokumentart noch keine Entitäten zugeordnet!"
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = "Attention: You did not assign at least one entity to the document-type!"
+            End If
+            MsgBox(msg, MsgBoxStyle.Exclamation)
+            XtraTabControl1.SelectedTabPageIndex = 1
+            cmbEntity_Doctype.DroppedDown = True
+        End If
         '_temp = Me.NAMENKONVENTIONTextBox.Text
         'akt_Namenkonvention = _temp
-        akt_DokartID = GUIDTextBox.Text
-        frmDokumentart_NameConvention.ShowDialog()
+     
         'Me.NAMENKONVENTIONTextBox.Text = akt_Namenkonvention
         'If _temp <> NAMENKONVENTIONTextBox.Text Then
         '    Save_Dokart()
@@ -311,8 +330,16 @@
                 If INDEXNAMEComboBox.Text = "(ONLY for Nameconvention)" Then
                     COMMENTTextBox.Text = "Please insert a description for this placeholder"
                 End If
-
             End If
         End If
     End Sub
+
+    Private Sub txtDocTypeSearch1_TextChanged(sender As Object, e As EventArgs) Handles txtDocTypeSearch1.TextChanged
+        Dim i As Integer = lbxDoctypes.FindString(txtDocTypeSearch1.Text)
+        lbxDoctypes.SelectedIndex = i
+        If txtDocTypeSearch1.Text = "" Then
+            lbxDoctypes.SelectedIndex = -1
+        End If
+
+    End Sub
 End Class