Version 1.4.0.0

app/ResultHandler_Konfig/frmMain.vb

@@ -483,7 +483,9 @@ Public Class frmMain
         lblString3.Text = ""
         lblString4.Text = ""
         lblString5.Text = ""
+        BOOL1CheckBox.Visible = False
         STRING1TextBox.Visible = False
+        STRING1TextBox.Size = New Size(466, 22)
         STRING2TextBox.Visible = False
         STRING3TextBox.Visible = False
         STRING4TextBox.Visible = False
@@ -491,6 +493,7 @@ Public Class frmMain
         STRING3TextBox.Multiline = False
         STRING3TextBox1.Visible = False
         STRING5TextBox.Visible = False
+        STRING2ComboBox.Visible = False
 
         Select Case JOB_TYPComboBox.Text.ToUpper
             Case "Export HDD".ToUpper
@@ -547,6 +550,37 @@ Public Class frmMain
                 STRING4TextBox.Visible = True
                 lblString5.Text = "Pfad zu WM-Suche:"
                 STRING5TextBox.Visible = True
+            Case "Archive Document X years from Indexdate".ToUpper
+                lblString1.Text = "Archivdauer in Jahren:"
+                STRING1TextBox.Size = New Size(53, 22)
+                STRING1TextBox.Visible = True
+                lblString2.Text = "Index mit Startdatum:"
+                STRING2ComboBox.Items.Clear()
+                Dim indexe = _windream.GetIndicesByObjecttype(ObjekttypComboBox.Text)
+                If indexe IsNot Nothing Then
+                    For Each index As String In indexe
+                        Select Case _windream.GetTypeOfIndexAsIntByName(index)
+                            Case 3 'Float
+                                '
+                            Case 4
+                            '    Me.STRING2ComboBox.Items.Add(index)
+                            Case 1
+                            '    Me.STRING2ComboBox.Items.Add(index)
+                            Case 2
+                            '    Me.STRING2ComboBox.Items.Add(index)
+                            Case 5
+                                Me.STRING2ComboBox.Items.Add(index)
+                            Case Else
+                                'MsgBox(_windream.GetTypeOfIndexAsIntByName(index))
+                        End Select
+
+
+                    Next
+                End If
+                STRING2ComboBox.Visible = True
+                BOOL1CheckBox.Text = "Nach Ablauf der Archivierungsdauer automatisch löschen"
+                'BOOL1CheckBox.Visible = True
+
         End Select
     End Sub
     Private Sub btnJOB_addSpeicherort_Click(sender As Object, e As EventArgs) Handles btnJOB_addSpeicherort.Click
@@ -619,6 +653,7 @@ Public Class frmMain
                     STRING1TextBoxFile_Job.Visible = True
                     STRING2TextBoxProfil_FileJob.Visible = True
                     lblString2FileJobs.Visible = True
+
             End Select
 
         End If