MS1108_1

app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb

@@ -257,6 +257,7 @@
         End Select
     End Sub
     Sub Load_Variable_Folder()
+        lblpathsaved.Visible = False
         Try
             If GUIDTextBox.Text <> "" Then
                 FOLDER_FOR_INDEXTextBox.Enabled = True
@@ -281,7 +282,8 @@
             Dim sql = String.Format("SELECT [CONTROL_ID] , [CONTROL_COL_NAME]AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] " & _
                     "WHERE CTRLTYPE_ID in (2,3,4) and FORM_ID = {0} UNION ALL " & _
                     "SELECT [CONTROL_ID] , [CTRLSCR_CAPTION]  AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] " & _
-                    "WHERE CTRLTYPE_ID = 1 AND [CONTROL_SQLCOMMAND_1] <> '' and FORM_ID = {0} " & _
+                    "WHERE CTRLTYPE_ID = 1 AND [CONTROL_SQLCOMMAND_1] <> '' and FORM_ID = {0} UNION ALL " & _
+                    "SELECT '999', 'Doctype'  AS DISPLAY " & _
                     "ORDER BY DISPLAY", GUIDTextBox.Text)
             Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql, "LoadControlsForEntity - NameConvention")
             If DT1.Rows.Count >= 1 Then
@@ -486,8 +488,18 @@
             cmbCrFolderDate.SelectedIndex = -1
             Changes = True
         ElseIf cmbIndex_Controls.SelectedIndex <> -1 Then
-            Dim value = Me.cmbIndex_Controls.Text.ToString.ToUpper
-            Dim text As String = "[%CTRL" & value & "#" & cmbIndex_Controls.SelectedValue & "]"
+            Dim value
+            Dim praefix
+            Dim text As String
+            Select Case cmbIndex_Controls.SelectedValue
+                Case 999
+                    value = "Doctype"
+                    praefix = "[%VAR"
+                Case Else
+                    value = Me.cmbIndex_Controls.Text.ToString.ToUpper
+                    praefix = "[%CTRL"
+            End Select
+            text = praefix & value & "#" & cmbIndex_Controls.SelectedValue & "]"
             text = text.Replace("##", "#")
             Me.FOLDER_FOR_INDEXTextBox.Text = str & text
             cmbIndex_Controls.SelectedIndex = -1
@@ -517,7 +529,9 @@
                 If USER_LANGUAGE <> "de-DE" Then
                     msg = "Data saved - " & Now.ToString
                 End If
-                MsgBox(msg, MsgBoxStyle.Information)
+                lblpathsaved.Text = msg
+                lblpathsaved.Visible = True
+
             End If
         Catch ex As Exception