Initial commit

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/Crypto.vb

@@ -0,0 +1,34 @@
+Module Crypto
+    Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
+        Dim i As Integer, c As Integer
+        Dim strBuff As String
+
+        strPwd = UCase$(strPwd)
+        If Len(strPwd) Then
+            For i = 1 To Len(strText)
+                c = Asc(Mid$(strText, i, 1))
+                c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
+                strBuff = strBuff & Chr(c And &HFF)
+            Next i
+        Else
+            strBuff = strText
+        End If
+        EncryptText = strBuff
+    End Function
+
+    Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
+        Dim i As Integer, c As Integer
+        Dim strBuff As String
+        strPwd = UCase$(strPwd)
+        If Len(strPwd) Then
+            For i = 1 To Len(strText)
+                c = Asc(Mid$(strText, i, 1))
+                c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
+                strBuff = strBuff & Chr(c And &HFF)
+            Next i
+        Else
+            strBuff = strText
+        End If
+        DecryptText = strBuff
+    End Function
+End Module

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/Form1.designer.vb

@@ -0,0 +1,342 @@
+Imports System.Windows.Forms
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form1
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ImportCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.lbpartner = New System.Windows.Forms.ListBox()
+        Me.GrpParameter = New System.Windows.Forms.GroupBox()
+        Me.lbparam = New System.Windows.Forms.ListBox()
+        Me.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.btnDokumenteAnfordern = New System.Windows.Forms.Button()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.lbljahr = New System.Windows.Forms.Label()
+        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.lstJob = New System.Windows.Forms.ListView()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.DateiHerunterladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.BenutzerverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.MenuStrip1.SuspendLayout()
+        Me.GroupBox1.SuspendLayout()
+        Me.GrpParameter.SuspendLayout()
+        Me.TabControl1.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.GroupBox2.SuspendLayout()
+        Me.GroupBox3.SuspendLayout()
+        Me.GroupBox4.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.ToolStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.ImportCSVToolStripMenuItem, Me.BenutzerverwaltungToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(843, 24)
+        Me.MenuStrip1.TabIndex = 0
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'DateiToolStripMenuItem
+        '
+        Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
+        Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
+        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
+        Me.DateiToolStripMenuItem.Text = "&Datei"
+        '
+        'BeendenToolStripMenuItem
+        '
+        Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
+        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
+        Me.BeendenToolStripMenuItem.Text = "&Beenden"
+        '
+        'ImportCSVToolStripMenuItem
+        '
+        Me.ImportCSVToolStripMenuItem.Name = "ImportCSVToolStripMenuItem"
+        Me.ImportCSVToolStripMenuItem.Size = New System.Drawing.Size(79, 20)
+        Me.ImportCSVToolStripMenuItem.Text = "Import CSV"
+        Me.ImportCSVToolStripMenuItem.Visible = False
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.lbpartner)
+        Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
+        Me.GroupBox1.Location = New System.Drawing.Point(3, 81)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(247, 392)
+        Me.GroupBox1.TabIndex = 1
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Partner"
+        '
+        'lbpartner
+        '
+        Me.lbpartner.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.lbpartner.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.lbpartner.FormattingEnabled = True
+        Me.lbpartner.Location = New System.Drawing.Point(3, 16)
+        Me.lbpartner.Name = "lbpartner"
+        Me.lbpartner.Size = New System.Drawing.Size(241, 373)
+        Me.lbpartner.TabIndex = 0
+        '
+        'GrpParameter
+        '
+        Me.GrpParameter.Controls.Add(Me.lbparam)
+        Me.GrpParameter.Dock = System.Windows.Forms.DockStyle.Left
+        Me.GrpParameter.Location = New System.Drawing.Point(250, 81)
+        Me.GrpParameter.Name = "GrpParameter"
+        Me.GrpParameter.Size = New System.Drawing.Size(432, 392)
+        Me.GrpParameter.TabIndex = 2
+        Me.GrpParameter.TabStop = False
+        Me.GrpParameter.Text = "Parameter"
+        '
+        'lbparam
+        '
+        Me.lbparam.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.lbparam.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.lbparam.FormattingEnabled = True
+        Me.lbparam.Location = New System.Drawing.Point(3, 16)
+        Me.lbparam.Name = "lbparam"
+        Me.lbparam.Size = New System.Drawing.Size(426, 373)
+        Me.lbparam.TabIndex = 0
+        '
+        'TabControl1
+        '
+        Me.TabControl1.Controls.Add(Me.TabPage1)
+        Me.TabControl1.Controls.Add(Me.TabPage2)
+        Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TabControl1.Location = New System.Drawing.Point(0, 24)
+        Me.TabControl1.Name = "TabControl1"
+        Me.TabControl1.SelectedIndex = 0
+        Me.TabControl1.Size = New System.Drawing.Size(843, 502)
+        Me.TabControl1.TabIndex = 3
+        '
+        'TabPage1
+        '
+        Me.TabPage1.BackColor = System.Drawing.Color.LightGray
+        Me.TabPage1.Controls.Add(Me.GroupBox2)
+        Me.TabPage1.Controls.Add(Me.GrpParameter)
+        Me.TabPage1.Controls.Add(Me.GroupBox1)
+        Me.TabPage1.Controls.Add(Me.GroupBox3)
+        Me.TabPage1.Controls.Add(Me.GroupBox4)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(835, 476)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Daten aufbereiten"
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.btnDokumenteAnfordern)
+        Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Left
+        Me.GroupBox2.Location = New System.Drawing.Point(682, 81)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(150, 392)
+        Me.GroupBox2.TabIndex = 3
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Text = "Funktionen"
+        '
+        'btnDokumenteAnfordern
+        '
+        Me.btnDokumenteAnfordern.Location = New System.Drawing.Point(6, 19)
+        Me.btnDokumenteAnfordern.Name = "btnDokumenteAnfordern"
+        Me.btnDokumenteAnfordern.Size = New System.Drawing.Size(133, 23)
+        Me.btnDokumenteAnfordern.TabIndex = 0
+        Me.btnDokumenteAnfordern.Text = "Dokumente anfordern"
+        Me.btnDokumenteAnfordern.UseVisualStyleBackColor = True
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.Controls.Add(Me.lbljahr)
+        Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
+        Me.GroupBox3.Location = New System.Drawing.Point(3, 37)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(829, 44)
+        Me.GroupBox3.TabIndex = 4
+        Me.GroupBox3.TabStop = False
+        Me.GroupBox3.Text = "Steuerperiode"
+        '
+        'lbljahr
+        '
+        Me.lbljahr.AutoSize = True
+        Me.lbljahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lbljahr.Location = New System.Drawing.Point(7, 20)
+        Me.lbljahr.Name = "lbljahr"
+        Me.lbljahr.Size = New System.Drawing.Size(0, 18)
+        Me.lbljahr.TabIndex = 0
+        '
+        'GroupBox4
+        '
+        Me.GroupBox4.Controls.Add(Me.Button1)
+        Me.GroupBox4.Dock = System.Windows.Forms.DockStyle.Top
+        Me.GroupBox4.Location = New System.Drawing.Point(3, 3)
+        Me.GroupBox4.Name = "GroupBox4"
+        Me.GroupBox4.Size = New System.Drawing.Size(829, 34)
+        Me.GroupBox4.TabIndex = 5
+        Me.GroupBox4.TabStop = False
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(6, 5)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(192, 23)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "Import Parameter"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'TabPage2
+        '
+        Me.TabPage2.BackColor = System.Drawing.Color.LightGray
+        Me.TabPage2.Controls.Add(Me.lstJob)
+        Me.TabPage2.Controls.Add(Me.ToolStrip1)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(835, 476)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Vorhandene Dateien"
+        '
+        'lstJob
+        '
+        Me.lstJob.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.lstJob.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.lstJob.Location = New System.Drawing.Point(3, 28)
+        Me.lstJob.Name = "lstJob"
+        Me.lstJob.OwnerDraw = True
+        Me.lstJob.Size = New System.Drawing.Size(829, 445)
+        Me.lstJob.TabIndex = 1
+        Me.lstJob.UseCompatibleStateImageBehavior = False
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiHerunterladenToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(179, 26)
+        '
+        'DateiHerunterladenToolStripMenuItem
+        '
+        Me.DateiHerunterladenToolStripMenuItem.Name = "DateiHerunterladenToolStripMenuItem"
+        Me.DateiHerunterladenToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
+        Me.DateiHerunterladenToolStripMenuItem.Text = "Datei herunterladen"
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
+        Me.ToolStrip1.Location = New System.Drawing.Point(3, 3)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(829, 25)
+        Me.ToolStrip1.TabIndex = 0
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton1.Text = "Aktualisieren"
+        '
+        'BenutzerverwaltungToolStripMenuItem
+        '
+        Me.BenutzerverwaltungToolStripMenuItem.Name = "BenutzerverwaltungToolStripMenuItem"
+        Me.BenutzerverwaltungToolStripMenuItem.Size = New System.Drawing.Size(124, 20)
+        Me.BenutzerverwaltungToolStripMenuItem.Text = "Benutzerverwaltung"
+        '
+        'Form1
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(843, 526)
+        Me.Controls.Add(Me.TabControl1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MainMenuStrip = Me.MenuStrip1
+        Me.Name = "Form1"
+        Me.Text = "EDOKA-Dokument-Retrival"
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GrpParameter.ResumeLayout(False)
+        Me.TabControl1.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.GroupBox2.ResumeLayout(False)
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox3.PerformLayout()
+        Me.GroupBox4.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.TabPage2.PerformLayout()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents MenuStrip1 As MenuStrip
+    Friend WithEvents DateiToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents BeendenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ImportCSVToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents OpenFileDialog1 As OpenFileDialog
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents lbpartner As ListBox
+    Friend WithEvents GrpParameter As GroupBox
+    Friend WithEvents lbparam As ListBox
+    Friend WithEvents TabControl1 As TabControl
+    Friend WithEvents TabPage1 As TabPage
+    Friend WithEvents GroupBox2 As GroupBox
+    Friend WithEvents btnDokumenteAnfordern As Button
+    Friend WithEvents TabPage2 As TabPage
+    Friend WithEvents GroupBox3 As GroupBox
+    Friend WithEvents lbljahr As Label
+    Friend WithEvents lstJob As ListView
+    Friend WithEvents ToolStrip1 As ToolStrip
+    Friend WithEvents ToolStripButton1 As ToolStripButton
+    Friend WithEvents SaveFileDialog1 As SaveFileDialog
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents DateiHerunterladenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents GroupBox4 As GroupBox
+    Friend WithEvents Button1 As Button
+    Friend WithEvents BenutzerverwaltungToolStripMenuItem As ToolStripMenuItem
+End Class

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/Form1.resx

@@ -0,0 +1,343 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>132, 17</value>
+  </metadata>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>518, 17</value>
+  </metadata>
+  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>274, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABSeSURBVHhe7Z1pbBvXtcedpmhe0jYtmgRpCsR4KYIiSREg
+        i22JoqThTkrWZsdu0TRAvhhwnQ9FgLgw0qJ1gZe8tElfW8dJrF0UN5HUQkm2FC3Fc+LYlmTtIrVSEiVK
+        tCVryzMKp64dzTt3dMmQo0txSFHOULp/4A+K5JC8557fnHsvNTPclchS2Se+p6ydfV7tmM1WObxH1LWz
+        v9HUzp4McZ3vhNYxc1RX6zugq7+6V9d49RH8cqpEkq5x7EFl9dR+ZY33bWW1t1ntmLkGZpEh0eusrfOt
+        MwDAWVt/dUVXd/UC+BQ8/gtVvW83/hgqMUleOf1TRdX07xQ1021pNe47qhovq8JJD3GUAAQ74+y1Ndf7
+        xuH+ae1Zn/aw3fUt3ASquy1F3cSj8uqp4wq7xwl7O4vMJd5vgQCQIOAnHzkD2Q8Bdma97/OMs1eL4Xlm
+        F8veg5tGtZWCsr5XXjVVwVRP31JWT7MBCwEALAQAEgREAJDPzWFfdWecnXsj17HyfdzUr01Z9b4Hth2Q
+        MtskA4k/r6iaYhWQcOQNAQgDQawAcBBsCMAcux+5eu6fGfVz7+c6Zh/HTb9rym5eeeJAy3LzwXNzqwda
+        FyYP/WPxGfxU4iq90vO83O5p5RLvdxgAYh0G4gVAAIKGeVbVMH8r89z8mdymuwPCwaaFp3JaF68fbF1h
+        /c5rXerETyeeGPPIw4x1spipGv0S9vyvkr8FAJAgEAIACQI/AAE75r8AEP6ylUPDocYbjxxoWZiEvZ89
+        EAQA8qGmz5/EmyWO0iyjr6ZWTCzKKz0sZ0h6CAQkAJCFAAAWAgAJgsjzAAwAD4IscEbD/GLWubmjJ0+y
+        38BhxkW6xtX7cluWL3LJJwBw4B8rh/Cm4hdT5vphumn4HGMeZhmDk2XK+wOWIcNjMvMQK7e614CIBEAY
+        CL4OADg3Xodt5q/kNF5/Hoe8OcFEL7d50RRIPgmAlpXjeGtxS1pyJSP9TPv19NJuFpkJdlkPZ1mw9b2s
+        3DTIKuwTIQDEOgwIAYCDIAIAAQjCAMDZMXMbbv9b1zh2Hw4/JkHyf58XnHwSAK0rf8ebi1OH7fZ704q7
+        3kr/6NJqekkXl/yk0u7b6aWdg6nF3Q1ppV3l8FgZU9xpTSvr+UxWcmXZDwAHAQeCi1VUTm4KABIEQgAg
+        QcAHgARB9tqtEyrCc7grolJu09LP885eW10HwDoIlqrxS8SnZ+yub6UVddakQeLTSjqmpCWd7zJFnbIX
+        C7oewJsQlV7e/bSstPsEU9Y5yAHgt2UYKsFUZADAMQOALAQAHgTrqgCGQNM4fyurcf54NOv2nObFpIym
+        pZt5zUtsRACal6/gl4lPsJc/m1rc9VuAYF9MX1zAa5iybp1M39UbgKC8j1VaR7khYSMIhABAgiDeAHD+
+        eAFu5xrzWv/vIRxZWGW1Lu/Oa1ya45IvAIDc5pVr+KXbV2hmzeh7X5Hre7zycgRBL6sw9rNK+3j4KhAj
+        ABwEEQAIQBANABwE89M5DQt7cFjrlFO78N2spoWBQPIxAJHmAWilgN9ieyvZdvl+Rt/zpry8+4YCQYBs
+        HmRVMCxsJQAkCPgAkCBYBwAYkvxFduPiqzikgA7b2XuzmxYbcoOTHw4A5BAIPv8xfpudIUXRwKNyfXeZ
+        orB9lYPAsDYsoGoQDAEfABIERACQhQDAg0BIFcgJ+Pp7KOk4pF3ZTQuncpsWoaTzAMAQbATAS60rMvw2
+        O0sKfe8+RVlvpx8ChcnJqqomowKABMFWAhACQeP12kM27/2Q/GNc8jEApCqwIQDNy6/gLtl5QvMDAOGo
+        ApaPHASoGlSMcNUgVgA4CCIAEIBgMwBAwgECp7bJdycSAOsgCALgYOvym7g7dq5SS3oekRv6jH4IFMYB
+        Vl3liRsAJAj4AJAgiAgAdgAAZCEAIH8FwRncDVSwVNTIS7sm1yDoZ1UwN+APB4IAQBYCAA+CsFWABACy
+        EAAwBGEBaF45h8OnQlIb+r4N84JTjKHjSyVaLppdrBpWCtFUgbs2DwgDAKkKhAWgaWUAh04VLFl5DyM3
+        9k9yEKBqYHcLBoCDIAIAAQjiAEAIBGEAWAeBH4DWuWUcMhVfjN31HRgWiv0QKC1DrAaGhFgAIEHAByAA
+        wWYAQBYCABjPAdjD5+e/g0OmIklm6HuJMXQvcZXA5GI1NdORAUAWAgAPgrBVgAQAshAAMAR8AL4aBhae
+        wqFShZOm1Pk4DAmfcRCgVULlxIYQJNI8IK/5cw0Ok2ojMefPfxMAeE9V3LnKQWAbC8wL+ABwEEQAIABB
+        HAAIgSBKAA60rBzBIVIJkaq876DK2H0DQaCyDLNagEAIACQI+AAEINgMAMgEAMLNAwCEP+LQqIRKVe58
+        WmXsHecgMA8SIRA8DJAAQOZDQAIAWQgAGAI+AKgK5LUuleKwqKKRpsj1A4Wx7xNuOOAgmIkNAB4EQoaB
+        eAKQ27LcgkOiilboHECYFxjWIHCxWoc3FIIIAAQgiBKAEAjCACB0HpDbujKMw6GKSSx7DwDwZ7XJuQ4C
+        PgAcBBEACEAQJQARqwAkfB0EAMD+ppWbOBKqzUhl6j+hLulaXYNgbTiI1zxgQwCQhQCAIQgBAEMg5JAz
+        KgFSmQZ+tQbB2pwgYeYBzSsxHYFMRZDS7DzGDQeWIVZX54sIQACCKAEIgSAMAELnAXlNy1m4+VTxkNo0
+        8CaCQGMdIU8GtwiAiFUAEk6aBxxoXn4NN50qXgII/oYg0FaOrweAB8FdmweQAEBuXnwHN5sqXkJnNqlM
+        TocGINDVTEcGgAeBkCoQNQAYAj4AuS2LJtxsqngKHWACADg1lsGQ+UC8AAiBIAwAguYBLYsXcJOp4i2N
+        wfWkytx9Q2t3hwUgAEEcAAiBIAwA6yBoXZjEzaXaCmkqxl7WObwBAMJWgSAASBBsCAAyHwAMQSQAss5e
+        +3e8r09AxZOu3mePCAAPAiFVIGoAMATBAHD++PpjuKlUWyFt/WzBVgAQAkEYAEhVgA8AOrMYN5Uq3tLW
+        +34dnHwSAAEI4gBACARhAFgHQfNi4lwyJpGkO3s1U17vucMHgAQBHwASBFEDgCwEgJaV13GTqeKlDMfc
+        s6r66RtR/WOIB4GQKhAAIAiCDQHAEAQDAPf/iptNFQ8p6uYeVdd6pwL/Gt5CAEhVgA8AqQoEA5DbtGTH
+        TafarJjznv/Q1vna/ckPQBABgAAEcQAgBIIwAARDkPfxUjtuPtWmxLL3QPKt/OSTACBBwAeABEHUACBH
+        ACCr3ncVR0C1GWnqfP8V9lBxZCEA8CAIWwVIACALAQBD4AdAWz+zgkOgilWaWu8vtfbJVQQACQKxzgPy
+        mhfZbKt7BodBFYvUdT6prM53y5/8sFUgAgABCOIAQAgEYQBAzqmbZrMrx2pwKFTRSl137QlNlWchOPlC
+        ASBBwAcgAMFmAEDmAYDu59R72eyqMTaraiwbh0MVjdAPT2lqZ4YS6gIS6LmGa2xWzSRKPJtlH/s0pusx
+        7nQx59lvqhwzLaK5gAT6G7bJbphjs89dZbPP+tjs+hk2u87LZtVOsVkOz1dJrxzlnFk14tZWD9F/BMUi
+        dY33T/7kCwWAgyACAH4IMs/B47B9Zt0su792hs10TK+5xsNmVk9C8sbZzEo3eIzNtEEybSPsfr/tBEPC
+        kQPJt486sswjD+NwqKIRUzH8n2qr57ZQALj76PQxdOIIJFFXM8VqIYnayglWZ3dz1kIStdYRVlsxxOrQ
+        UUToNsgZyNbhgDP9hoT7TQJAY3Td3G8dmoG/u/bbhhoBgneyqt0v4FCoYpHCOHBUaRrgLialQpeeBash
+        iei0cTUkEZ05rIIkonMEuMPEg4yOE9SYXSHWIsP2fnMAIPMAUOhddzKsQ/MZluFBgOAC/F0Jj+fD7Vv7
+        rSOvZ9iGX95vHdbC83uy7K7dWfUbX2CbKkYpjP2HuEvH8MydMczzRgCgw8WU5j63xjTQrjE6G7TmAb3G
+        4npXY3Kd0JqHjmgtrhxNhTMFkvwTWq5FJHQIlbK8921lWf+CP/mpxiv/YsoHfEpjX5/K2NcKya9QGgc+
+        gNs/wPOvwe3PVMZ+pdLU/yxUiB/RH5jcJtIZ2x9EF5XCd6moqKioqKioqKioqKi2l9CPNOkaxx7Ed6kS
+        WejLGFXt9I+UDu+zKsesUlUz+zO1w/uaqsZ7UumY+UDlmKlQ13hblbWzfZrKWR9jm/1X4Pv/Ks8CPPc2
+        Pa9ORGLqfQ8ra2Z/onHMpkBic1QO7xFI4gnwu/C3Xl0z3aCsnmpXVs+4VdbpG/7fCYrV6JfHFBYXPatm
+        K5RV73tAVe/bDYncA8nTwl76MiTydej4t2APzQdXqqpnLqirZwYZh3c+3TF+h5+grTT6fSH0g1MK08Cv
+        cJOpYpG22vcClN13VI7pRii7XSqHZwY6+Ca/w8VkLvmWQVZR1ndbbeh7AodCFY1QuYY92EHqYLEb/cIY
+        +n0heXnfn3A4VNFIWz31mLLa44aSzv2EayJZaXNzyZfp+1rQZeRxSFSCxbL3KGumPkVlNNGsrJzgfnpW
+        Xto7pLJ3fQ9HRBWNFFXT2aTOFbuVVR5Ifh+M+70LdNzfhJSV0zWkDhazYekIZb+fZQrbb8nKeqU4FKpY
+        pLR6ZpSoUxPF1dPcck9e2L6Kfo4eh0EVqxQVwyvEjhap5eYhmO3DuK/veQuHQLUZKSpGr6K9KhGsgOWe
+        XN/LMqU9Nnr2TJykMA23kzpbbFZY3Tj53R3Jtsv34+ZTbVYyy4id1OFissI+sZb8kt5pRdHAo7jpVPGQ
+        zDz8VwXqZLG6cpKVwXJPpu++kV7a/yxuNlW8xBiHXid2vEgsMw2ykoLeO/LynkzcZKp4ijG6DinQlypV
+        sLYWoeW2cVZmGPg1bi5VvKUwj+6TwxhL6nwxmKn0FOCmUm2F0oxDj8lhhk3qfDFYVumh18zbUp1kvyGr
+        GP23HDpbtLZ5XsatpdoKycyuSXmlhxWtLZ4bjM39JG4uVbwlMw1dIHa8mGz3ONWGa9/GTaaKpxjjoInY
+        6SKzzD7hOGxn78XNpoqX0g2D78BkC024EsATf8PNpoqXGIPzGLmzxWnGPvEmbjpVPJRa7syS2SeJnS1W
+        M7bxY7j5VJsVY3I9x1jdMMYCBIli4/AqY/PQcwDiIWX50EOMZZTc0WI2QJBumzyBw6DajNJLXTcZ6NSE
+        tG3iz/QAkU0q1TA4TOzcBHGaddzwDL3SV+xKNbpaSB2bSE6vGP8k2eb9AQ6JKhql6Z0lUEpROU1op9km
+        xtMrPE/jsKiEKq3c+cd06MBtYcvEDagGB3FoVEKUpu8/QuzMRLVhaDXdOv4ePV9QoFL0Tk2a1U3uzES2
+        ZexiWoX7cRwmVThJygaeSrOMsrDXbD8b3Etp1omXcKhUJKHr66aZhsgduE0MlaCEXkd4A+0tcS3Dehqt
+        qbetJZbxSWmFW4ZDpgpWSklvP6nTtp3LB1dTreOn1YY+eoBJsKTlznPEDhPoVPMIKy3rY1Mr3MTnxWaJ
+        xT2ZUjGmweFTSUv7z8A4icbKqJ1qHmWlRZ2stLCDlZZ0s6mWMeJ2YjQMCcZU29gjuBt2rqSlfW+ivTdq
+        Q7JTirvYF0933EkpaHOmAAQpAEOqaZi8vQi9t2J0WWoePYqOksbdsfMEc4BXSJ2zoVHyS3pYLun5HceS
+        /+fy/ckFHbXcfVQNDIPk14nWY51p5tF9uEt2lpJLBhjYCwidEt4pMOavJbv9FH6bXYft9nvhsff8EKSU
+        9XOgkF4vSutdq1KLuyzJMrGzzkROLRn4sTSKsg2TRi7BsMc3oKTjtwlImt/xKgwLX3AQwLwgWri+dlvc
+        N1LMo79Ntnl3xvUIdKfG7pMWda9ye2sES42DaK9HHkgpvvhd/BbrBMPCnqTCtum1ba/AkOAivp+YLTEM
+        e1MsY6/siPlBir73mhSC3sgpUCUksFdLPmyfkxZ07cYvDau9pzsekhS2N4LhdeDSHqgGsGQkvLfI3QtV
+        QRfT0UcAT9KZNpmkoO39pIK2HPyo+JSi779CCDzgFEicpOgKSuTNpPy2JPyyyIJOkxS0H5d88OktDoIi
+        GBagGpA+Q+yWWIYHpaaxE0kVoxsed/BiQdcDSWVOmaSo8929+W1TXNz5bTWiPnJJou+vJgWNDOMhK4Hl
+        nuT0p6tJRW0/xy+JSimFF5+DPcAZqAYwN0AVhfR5ieA9ltFliWXsM6l5zCoxj5SB9cnG4QYEyYtlw7e5
+        /kJxQp9J8i+9RZoriUrJJd1/JwWKJnCodGOKf483j0m6U433JUNnvFDYftsPAlQeDjDiZyeYURwoHn9s
+        +860X0/Ov6zD4YtbUK7eQHskF0SwYbkH4xdKvileR+BKPrr0PIyLV7j3RUarBf3A+s9OJMPKCA1v/piS
+        z1w+t/eDjh/ikMUvSWHnIUlpb0hQEn/yC9ouor0XbxofweQoueDyUUnBhUV/p3ETTASCaSSkHWK2xDAI
+        ie8MJB7FA3v9qzjKxFFy0eUnuQBKoNyXQRnzB/XRpcnUkgtb9n05U3b++7C3/OWF99u+CHQiAgHBR6pI
+        IrGk3AXzouDEf/Il3BbDBDBxf10c9sjOrwJqgzGs7bqk4NJT+Okt1Z4PrzwOn3lG8sEnt4LbwAEJqwZS
+        Eu62JVCZYLK8thoKbuOZtlY0rOFQElcwaXkG7fGS9z9Zhb2yeV9h+12/HDsG4X1oxz9DOhlVBRiiUMkl
+        JWfLjJKOxndYtYS0Bwx99L+w0zC46dtEMNFD61h872sTGhpg4vkG2M3veA4GlBCYL0iMQ+TExWqUcDSu
+        o2EQLeX4nw0VCsb4CqiMe3FTqbZUACTay6Dzi2HlsLIuIcho2YWShSoEggKGDA6MjSaT6FtN2IYby1FZ
+        R0tdbkyH9yJ8BvcdRkH78aSiNnrJ2q9L6Js0SeElLVSF0/s+bBsnJYpslNRgk7YJNUxK78Ce3gaJ/520
+        sOOnuAlUYpK04LPdkjOXfgFj8SlI1oWwFUKQL15D8x74+21Jfvv+fafa6c/SJqLQkhWNz8mFlw9w3zPk
+        t50AOE7y/BvwEXA2mr3DnCeBf3hq167/B/D/o3SHMBNmAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>381, 17</value>
+  </metadata>
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAIAICAAAAEACACoCAAAJgAAACAgAAABACAAqBAAAM4IAAAoAAAAIAAAAEAAAAABAAgAAAAAAAAE
+        AAAAAAAAAAAAAAABAAAAAQAAAAAAAH55awBrc34AfHx8AIF8bQCCfnIAbYF4AHKCewDbsQIA3bUHAN+3
+        DQDhuhMA5L0YAObAHwDpxCUA7MYrAO7IMQDxyzYA9M48APbSQwD51EkA+9dPAOrPWwD+2lUA8Nh1APDZ
+        eQDy3H0AbXWBAHN5ggAC24YAB92KAA3fjQAT4ZEAGOSUAB/mmAAl6ZwAK+yfADHuogA28aUAPPSpAEP2
+        rQBb6rIASfmxAE/7tQBV/rgAdfC/AEmL8QBPk/wAVZn/AHnwwgB98sUAgYGBAIaGhgCMjIwAl5eXAJyc
+        nACtra0Atra2ALi4uAC+vr4A+eWHAPvkigD75o4A/uqSAP/plQD/5poA/+mZAP/pnwD/6qEA/+mkAP/p
+        qgD/67AAh/nOAIr7zgCO+9AAlv/TAJL+1QCV/9UAmv/SAJn/1QCf/9YAof/XAKT/1wCq/9gAsP/bAJ3B
+        9wCWwP8AmsX/AKXL/wCr0P8AsNL/AMDAwADFxcUAyMjIAM3NzQDS0tIA1dXVANra2gDf398A4uLiAOTk
+        5ADo6OgA7e3tAPHx8QD19fUA+fn5AP7+/gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADQHBgYGBgYGBgYGBgYGBgc0AAAAAAAA
+        AAAAAAAAAAA0ampqampqampqampqampqamo0AAAAAAAAAAAAAAAANwZqW1tbW1tbW1tbW1tbW1tbagYA
+        AAAANBwbGxsbGxsCBmpbampqampqampqampqaltqBgAAADRqampqampqamgGal1qWzo6W2hoaGhoaGhq
+        XWoGAAAAG2pbW1tbW1tbOgZqXWpoaGhoaGhoaGhoaGpdagYAAAAbaltqampmY2FfBmpfals6W2hfaFs6
+        Oltoal9qBgAAABtqXWpbODc1NzYGal9qamhqaGhoaGhoaGhqX2oGAAAAG2pdamY6NAUEAQZqYWpbOjo6
+        Ojpbal9oamphagYAAAAbal9qWwNqampoBmpjampoaGpoaGpoamhoamNqBgAAABtqX2pmBGpbWzoGamNq
+        Wzo6W2pfamhoamhqY2oGAAAAG2phalsEaltqagZqZmpqampqaGpoampoampmagYAAAAbamNqaAFqXWo6
+        Bmpmals6Ojo6Ojo6W2pfamZqBgAAABtqY2o6BWpdamYGamhqampqampqampqampqaGoGAAAAG2pmamgE
+        al9qOgdqaGpbOjo6W2pqampqampoagYAAAAbamZqWwRqX2poBmpqampqampqampqampqampqBgAAABtq
+        aGpoBGphajoGampqampqampqampqampqamoGAAAAG2poalsEamNqaAZOLCsrKCcmJSQjIiEgHx4dMQYA
+        AAAbampqagFqY2pbBlMsKyooJyYlJCMiISAfHh0tBgAAABtqampoBGpmamgGUywrKycnJiUkIyIhIB8e
+        HTEGAAAAG1cwLy4EamZqWzVTTlFRUU5OTU1NSklIMTExKTQAAAAbWTAvLgRqaGpqYzQGBgYGBgYGBgYG
+        BgYHBgY0AAAAABtZMC8uBGpoals6OjpdampqampqamhqBAAAAAAAAAAANFpWWFUEampqampqampqampq
+        ampqamoEAAAAAAAAAAAANBsbAgRqampqampqampqampqampqagQAAAAAAAAAAAAAAAAABEEXFRUTEhEQ
+        Dw4NDAsKCQkYBAAAAAAAAAAAAAAAAAAERhcVFBMSERAPDg0MCwoJCRgEAAAAAAAAAAAAAAAAAARGFxUV
+        ExIREA8ODQwLCgkIGAQAAAAAAAAAAAAAAAAANEdARUNDQ0BAQEA+PjwaGhgWNAAAAAAAAAAAAAAAAAAA
+        NAQEBAQEBAQEBAQEBAQEBDQAAAAAAAAAAAD////////////gAA//wAAH/4AAB4AAAAcAAAAHAAAABwAA
+        AAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAA
+        AA8AAAD/AAAA/4AAAP/4AAD/+AAA//gAAP/4AAD//AAB/ygAAAAgAAAAQAAAAAEAIAAAAAAAgBAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEACQEBACUBA
+        QBdAQEAlQEBAMUBAQDNAQEAzQEBAM0BAQDNAQEAzQEBAM0BAQDNAQEAzQEBAM0BAQDNAQEAzQEBAM0BA
+        QDNAQEAxQEBAJUBAQBdAQEAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBA
+        QARAQEAVQEBAOEBAQG1AQEB8QEBAfkBAQH5AQEB+QEBAfkBAQH5AQEB+QEBAfkBAQH5AQEB+QEBAfkBA
+        QH5AQEB+QEBAfkBAQHxAQEBuQEBAOUBAQBcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAQEBAB0RERF2Hh4f/coJ7/22BeP9tgXj/bYF4/22BeP9tgXj/bYF4/22BeP9tgXj/bYF4/22B
+        eP9tgXj/bYF4/22BeP9ygnv/h4eH/0FBQalAQEB+QEBAMwAAAABAQEAJQEBAF0BAQCVAQEAxQEBAM0BA
+        QDNAQEAzQEBAM0BAQDNCQkI6c3Nz5f//////////////////////////////////////////////////
+        ////////////////////////////////////////dHR030BAQH5AQEAzAAAAAEBAQBVAQEA4QEBAbUBA
+        QHxAQEB+QEBAfkBAQH5AQEB+QEBAfkBAQIRtgXj//////8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DA
+        wP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA//////9tgXj/QEBAfkBAQDMAAAAAREREXYeH
+        h/9zeYL/bXWB/211gf9tdYH/bXWB/211gf9tdYH/a3N+/22BeP//////xMTE//z8/P//////////////
+        //////////////////////////////////////////////z8/P/ExMT//////22BeP9AQEB+QEBAMwAA
+        AAB0dHTf///////////////////////////////////////////39/f/bYF4///////Jycn//////8TE
+        xP+3t7f/t7e3/8TExP/z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P//////8nJyf//////bYF4/0BA
+        QH5AQEAzAAAAAG11gf//////wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/7q6uv9tgXj//////83N
+        zf//////9PT0//T09P/09PT/9PT0//T09P/09PT/9PT0//T09P/09PT/9PT0//T09P//////zc3N////
+        //9tgXj/QEBAfkBAQDMAAAAAbXWB///////ExMT//Pz8//7+/v/4+Pj/7u7u/+Pj4//a2tr/0tLS/22B
+        eP//////0tLS///////FxcX/t7e3/8XFxf/19fX/09PT//X19f/FxcX/t7e3/7e3t//FxcX/9fX1////
+        ///S0tL//////22BeP9AQEB+QEBAMwAAAABtdYH//////8nJyf//////wsLC/62trf+dnZ3/jIyM/5yc
+        nP+Xl5f/bYF4///////W1tb///////b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2
+        9v/29vb//////9bW1v//////bYF4/0BAQH5AQEAzAAAAAG11gf//////zc3N///////v7+//tLS0/4eH
+        h/+CfnL/gXxt/355a/9tgXj//////9vb2///////xsbG/7e3t/+3t7f/t7e3/7e3t/+3t7f/xsbG//f3
+        9//U1NT/9/f3//f39///////29vb//////9tgXj/QEBAfkBAQDMAAAAAbXWB///////S0tL//////8DA
+        wP98fHz/////////////////9/f3/22BeP//////39/f///////4+Pj/+Pj4//j4+P/4+Pj/+Pj4//f3
+        9//4+Pj/+Pj4//j4+P/4+Pj/+Pj4///////f39///////22BeP9AQEB+QEBAMwAAAABtdYH//////9bW
+        1v//////7u7u/4F8bf//////wMDA/8DAwP+6urr/bYF4///////k5OT//////8fHx/+4uLj/uLi4/8fH
+        x//5+fn/1NTU//n5+f/5+fn/+fn5//n5+f/5+fn//////+Tk5P//////bYF4/0BAQH5AQEAzAAAAAG11
+        gf//////29vb///////AwMD/gXxt///////ExMT//Pz8//f39/9tgXj//////+jo6P//////+vr6//r6
+        +v/6+vr/+vr6//r6+v/5+fn/+vr6//r6+v/6+vr/+vr6//r6+v//////6Ojo//////9tgXj/QEBAfkBA
+        QDMAAAAAbXWB///////f39////////Dw8P+BfG3//////8nJyf//////vr6+/22BeP//////7e3t////
+        ///Hx8f/uLi4/7i4uP+4uLj/uLi4/7i4uP+4uLj/uLi4/8fHx//7+/v/1tbW///////t7e3//////22B
+        eP9AQEB+QEBAMwAAAABtdYH//////+Tk5P//////wcHB/4F8bf//////zc3N///////s7Oz/bYF4////
+        ///x8fH///////z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz///////Hx
+        8f//////bYF4/0BAQH5AQEAzAAAAAG11gf//////6Ojo///////y8vL/gXxt///////S0tL//////7+/
+        v/9tgXj///////b29v//////yMjI/7m5uf+5ubn/ubm5/8jIyP/9/f3//f39//39/f/9/f3//f39//39
+        /f//////9vb2//////9tgXj/QEBAfkBAQDMAAAAAbXWB///////t7e3//////8HBwf+BfG3//////9bW
+        1v//////7u7u/22BeP//////+vr6////////////////////////////////////////////////////
+        ///////////////////6+vr//////22BeP9AQEB+QEBAMwAAAABtdYH///////Hx8f//////9PT0/4F8
+        bf//////29vb///////AwMD/bYF4////////////////////////////////////////////////////
+        ////////////////////////////////////////bYF4/0BAQH5AQEAzAAAAAG11gf//////9vb2////
+        ///CwsL/gXxt///////f39////////Dw8P9tgXj/mv/S/1X+uP9P+7X/Sfmx/0P2rf889Kn/NvGl/zHu
+        ov8r7J//Jemc/x/mmP8Y5JT/E+GR/w3fjf8H3Yr/AtuG/3nwwv9tgXj/QEBAfkBAQDMAAAAAbXWB////
+        ///6+vr///////f39/+BfG3//////+Tk5P//////wsLC/22BeP+q/9j/Vf64/0/7tf9J+bH/Q/at/zz0
+        qf828aX/Me6i/yvsn/8l6Zz/H+aY/xjklP8T4ZH/Dd+N/wfdiv8C24b/dfC//22BeP9AQEB8QEBAMQAA
+        AABtdYH/////////////////9/f3/4F8bf//////6Ojo///////19fX/bYF4/6r/2P9V/rj/T/u1/0n5
+        sf9D9q3/PPSp/zbxpf8x7qL/K+yf/yXpnP8f5pj/GOSU/xPhkf8N343/B92K/wLbhv958ML/bYF4/0BA
+        QG1AQEAkAAAAAG11gf+axf//VZn//0+T/P9Ji/H/gXxt///////t7e3//////8XFxf+Hh4f/sP/b/5b/
+        0/+k/9f/of/X/5//1v+b/9T/mP/W/5X/1f+T/tb/kf7U/4770P+K+87/h/nO/3/zxv988cX/dvG//1vq
+        sv+Hh4f/QEBANEBAQBYAAAAAbXWB/6vQ//9Vmf//T5P8/0mL8f+BfG3///////Hx8f//////+/v7/+Li
+        4v+Hh4f/bYF4/22BeP9tgXj/bYF4/22BeP9tgXj/bYF4/22BeP9tgXj/bYF4/22BeP9tgXj/bYF4/22B
+        eP9tgXj/h4eH/0xMTD9AQEAWQEBACAAAAABtdYH/q9D//1WZ//9Pk/z/SYvx/4F8bf//////9vb2////
+        ///IyMj/ubm5/7m5uf+5ubn/yMjI//39/f/9/f3//f39//39/f/9/f3//f39///////29vb//////4F8
+        bf9AQEB+QEBAMwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIeHh/+w0v//lsD//6XL//+dwff/gXxt////
+        ///6+vr///////////////////////////////////////////////////////////////////////r6
+        +v//////gXxt/0BAQH5AQEAzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVFRUKIeHh/9tdYH/bXWB/2tz
+        fv+BfG3/////////////////////////////////////////////////////////////////////////
+        //////////////////+BfG3/QEBAfkBAQDMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAQEBAC4F8bf//5pr//tpV//vXT//51En/9tJD//TOPP/xyzb/7sgx/+zGK//pxCX/5sAf/+S9
+        GP/huhP/37cN/921B//bsQL/8Nl5/4F8bf9AQEB+QEBAMwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAABAQEAJgXxt///pqv/+2lX/+9dP//nUSf/20kP/9M48//HLNv/uyDH/7MYr/+nE
+        Jf/mwB//5L0Y/+G6E//ftw3/3bUH/9uxAv/w2HX/gXxt/0BAQHxAQEAxAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQAeBfG3//+mq//7aVf/710//+dRJ//bSQ//0zjz/8cs2/+7I
+        Mf/sxiv/6cQl/+bAH//kvRj/4boT/9+3Df/dtQf/27EC//DZef+BfG3/QEBAbUBAQCQAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBABIeHh///67D//+iW///ppP//6qH//+mf///o
+        m///6pj//+qV//7rk//+6pH/++aO//vkiv/55Yf/891///HcfP/x2Hb/6s9b/4eHh/9AQEA0QEBAFgAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEACVFRUKIeHh/+BfG3/gXxt/4F8
+        bf+BfG3/gXxt/4F8bf+BfG3/gXxt/4F8bf+BfG3/gXxt/4F8bf+BfG3/gXxt/4F8bf+Hh4f/TExMP0BA
+        QBZAQEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/4AAAf+AAAH/gAABAAAAAQAAAAEAAAABAAAAAQAA
+        AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA
+        AAEAAAABAAAAPwAAAD8AAAA/8AAAP/AAAD/wAAA/8AAAP/AAAD8=
+</value>
+  </data>
+</root>

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/Form1.vb

@@ -0,0 +1,290 @@
+Imports System.Data
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+Imports System.IO
+Imports System.Data.OleDb
+Imports System.Threading
+Imports System.Security.Principal
+Imports System.ComponentModel
+Imports System.Drawing
+Imports System.Windows.Forms
+
+Public Class Form1
+
+    Dim dsdaten As New DataSet
+    Dim UserID As String = Get_Username()
+    Dim HasError As Boolean = False
+
+    Private Sub ImportCSVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ImportCSVToolStripMenuItem.Click
+
+
+
+    End Sub
+    Dim c As New clsdata()
+    Public Function Validate_Parameter()
+
+        c.Dsdaten = Me.dsdaten
+        c.ParamCollection.Clear()
+        c.ParamCollection.Clear()
+        c.Check_Parameter()
+        Me.lbljahr.Text = c.Jahr.ToString
+        For i As Integer = 1 To c.PartnerCollection.Count
+            Dim partner As Partnerclass = c.PartnerCollection.Item(i)
+            Dim s As String
+            If partner.HasError <> 0 Then
+                s = "(*)"
+                HasError = True
+            Else
+                s = ""
+            End If
+            lbpartner.Items.Add(s + partner.Partner)
+        Next
+        For i As Integer = 1 To c.ParamCollection.Count
+            Dim param As ParamClass = c.ParamCollection.Item(i)
+
+            Dim s As String
+            If param.HasError <> 0 Then
+                s = "(*)"
+                HasError = True
+            Else
+                s = ""
+            End If
+            lbparam.Items.Add(s + param.DocType + " " + param.Paramtyp + " " + param.Zeitraum)
+        Next
+        If HasError = True Then Me.btnDokumenteAnfordern.Enabled = False Else Me.btnDokumenteAnfordern.Enabled = True
+    End Function
+
+    Dim CheckUser As Boolean = False
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        FileOpen(1, ApplicationPath() + "\docretparams.cfg", OpenMode.Input)
+        Dim s As String
+
+        While Not EOF(1)
+            Input(1, s)
+            Dim splitter() As String
+            splitter = s.Split(":")
+            Select Case splitter(0)
+                Case "DefaultExtension"
+                    Globals.DefaultExtension = splitter(1)
+                Case "EDOKABerechtigungen"
+                    Select Case splitter(1)
+                        Case 0
+                            CheckUser = True
+                        Case 1
+                            CheckUser = False
+                            Globals.UserRechte = 0
+                    End Select
+
+            End Select
+
+
+        End While
+        FileClose(1)
+
+        If CheckUser Then
+            Dim cu As New clsUser
+            cu.check_user(UserID)
+            If Globals.UserRechte = -1 Then
+                'Me.Close()
+                Exit Sub
+            End If
+        End If
+        If Globals.UserRechte = 1 Then Me.BenutzerverwaltungToolStripMenuItem.Visible = True Else Me.BenutzerverwaltungToolStripMenuItem.Visible = False
+
+
+        Dim lv As ListView
+        lv = Me.lstJob
+        With lv
+            .View = View.Details
+            .FullRowSelect = True
+            .Columns.Add("JobNr")
+            .Columns.Add("Steuerjahr")
+            .Columns.Add("Partner")
+            .Columns.Add("Statusdatum", 150)
+            .Columns.Add("Status", 150)
+            .Columns.Add("Datei", 150)
+        End With
+        Me.Refreshlist()
+    End Sub
+
+
+    Private Sub lbpartner_DrawItem(sender As Object, e As DrawItemEventArgs) Handles lbpartner.DrawItem
+        Try
+            If lbpartner.Items(e.Index).ToString().IndexOf("*") > -1 Then
+
+                e.Graphics.FillRectangle(Brushes.LightPink, e.Bounds)
+            End If
+            e.Graphics.DrawString(lbpartner.Items(e.Index).ToString(), e.Font, Brushes.Black, New System.Drawing.PointF(e.Bounds.X, e.Bounds.Y))
+            e.DrawFocusRectangle()
+        Catch
+        End Try
+
+    End Sub
+
+
+    Private Sub lbparam_DrawItem(sender As Object, e As DrawItemEventArgs) Handles lbparam.DrawItem
+        Try
+            If lbparam.Items(e.Index).ToString().IndexOf("*") > -1 Then
+
+                e.Graphics.FillRectangle(Brushes.LightPink, e.Bounds)
+            End If
+            e.Graphics.DrawString(lbparam.Items(e.Index).ToString(), e.Font, Brushes.Black, New System.Drawing.PointF(e.Bounds.X, e.Bounds.Y))
+            e.DrawFocusRectangle()
+        Catch
+        End Try
+    End Sub
+
+    Private Sub btnDokumenteAnfordern_Click(sender As Object, e As EventArgs) Handles btnDokumenteAnfordern.Click
+        Dim db As New clsdb
+        Dim jobnr As String
+        jobnr = db.Insert_Job(Me.UserID, Me.lbljahr.Text)
+        For i As Integer = 1 To c.PartnerCollection.Count
+            Dim p As Partnerclass = c.PartnerCollection.Item(i)
+            db.Insert_Partner(jobnr, p.Partner)
+        Next
+        For i As Integer = 1 To c.ParamCollection.Count
+            Dim p As ParamClass = c.ParamCollection.Item(i)
+            db.Insert_Parameter(jobnr, p.Paramtyp, p.DocType, p.Zeitraum)
+        Next
+        Me.TabControl1.SelectedIndex = 1
+        db.DokZugriff_Journal(jobnr)
+        Refreshlist()
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Refreshlist()
+    End Sub
+    Sub Refreshlist()
+
+        Me.lstJob.Items.Clear()
+        Dim db As New clsdb
+        db.Get_Jobstatus(Me.UserID)
+        For Each r As DataRow In db.dsdaten.Tables(0).Rows
+            Dim i As New ListViewItem
+            i.Text = r("Jobnr")
+            i.SubItems.Add(r("Steuerjahr").ToString)
+            i.SubItems.Add(r("Partner").ToString)
+            i.SubItems.Add(r("Statusdatum"))
+            i.SubItems.Add(r("Status").ToString)
+            i.SubItems.Add(r("Datei").ToString)
+            If r("datei") = "download" Then
+                i.SubItems(5).Font = New Font(i.SubItems(4).Font, FontStyle.Underline)
+            End If
+            i.UseItemStyleForSubItems = False
+
+            'Me.lstJob.Items.Add(New ListViewItem({r("Jobnr").ToString, r("Steuerjahr").ToString, r("Partner").ToString, r("Statusdatum").ToString, r("Status").ToString, r("Datei").ToString}))
+            Me.lstJob.Items.Add(i)
+
+
+        Next
+    End Sub
+
+    Private Sub lstJob_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles lstJob.DrawSubItem
+
+
+        Dim itemStr As String = e.Item.Text
+        If itemStr.StartsWith("Hallo") Then
+            Dim g As Graphics = e.Graphics
+            Dim br As Brush = Brushes.Blue
+            Dim f As Font = New Font(e.Item.Font.FontFamily, e.Item.Font.Size, FontStyle.Underline)
+            g.DrawString(itemStr, f, br, e.Item.Position)
+        Else
+            e.DrawDefault = True
+        End If
+
+    End Sub
+
+    Private Sub ListView1_DrawColumnHeader(ByVal sender As Object,
+  ByVal e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs) _
+  Handles lstJob.DrawColumnHeader
+
+        e.DrawDefault = True
+    End Sub
+
+    Private Sub lstJob_DoubleClick(sender As Object, e As EventArgs) Handles lstJob.DoubleClick
+        Dim lv As ListViewItem
+        lv = lstJob.SelectedItems(0)
+        If lv.SubItems(5).Text = "download" Then
+            Me.SaveFileDialog1.Filter = "ZIP-Dateien|*.zip|Alle Dateien|*.*"
+            Me.SaveFileDialog1.FilterIndex = 1
+            Me.SaveFileDialog1.FileName = lv.SubItems(2).Text + ".zip"
+            If Me.SaveFileDialog1.ShowDialog = DialogResult.OK Then
+                Dim db As New clsdb
+
+                If db.Get_file("Select * from edoka_doc_retrival_job where jobnr=" + lv.Text, Me.SaveFileDialog1.FileName, "Datei") <> "" Then
+                    Process.Start(Me.SaveFileDialog1.FileName)
+                    db.Update_Jobstatus(lv.Text, 3)
+                End If
+                db = Nothing
+                Me.Refreshlist()
+            End If
+
+        End If
+    End Sub
+
+    Dim ouser As New WindowsPrincipal(WindowsIdentity.GetCurrent)
+    Private Function Get_Username() As String
+        Dim s As String = Environment.UserName
+        Return s.Substring(s.IndexOf("\") + 1)
+
+    End Function
+
+    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Dim Downloadable As Boolean
+    Private Sub lstJob_Click(sender As Object, e As EventArgs) Handles lstJob.Click
+        Downloadable = False
+        Dim lv As ListViewItem
+        lv = lstJob.SelectedItems(0)
+        If lv.SubItems(5).Text = "download" Then Downloadable = True
+    End Sub
+
+    Private Sub DateiHerunterladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiHerunterladenToolStripMenuItem.Click
+        Dim lv As ListViewItem
+        lv = lstJob.SelectedItems(0)
+        If lv.SubItems(5).Text = "download" Then
+            Me.SaveFileDialog1.Filter = "ZIP-Dateien|*.zip|Alle Dateien|*.*"
+            Me.SaveFileDialog1.FilterIndex = 1
+            Me.SaveFileDialog1.FileName = lv.SubItems(2).Text + ".zip"
+            If Me.SaveFileDialog1.ShowDialog = DialogResult.OK Then
+                Dim db As New clsdb
+
+                If db.Get_file("Select * from edoka_doc_retrival_job where jobnr=" + lv.Text, Me.SaveFileDialog1.FileName, "Datei") <> "" Then
+                    Process.Start(Me.SaveFileDialog1.FileName)
+                    db.Update_Jobstatus(lv.Text, 3)
+                End If
+                db = Nothing
+                Me.Refreshlist()
+            End If
+
+        End If
+    End Sub
+
+    Private Sub ContextMenuStrip1_Opening(sender As Object, e As CancelEventArgs) Handles ContextMenuStrip1.Opening
+        If Downloadable Then Me.DateiHerunterladenToolStripMenuItem.Enabled = True Else Me.DateiHerunterladenToolStripMenuItem.Enabled = False
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.lbpartner.Items.Clear()
+        Me.lbparam.Items.Clear()
+        Me.lbljahr.Text = ""
+        Me.HasError = False
+        Dim cimport As New clsImport
+        Me.dsdaten = cimport.dsdaten
+        If cimport.Import_file = False Then
+            MsgBox("Datenimport fehlgeschlagen")
+            Exit Sub
+        End If
+        Validate_Parameter()
+    End Sub
+
+    Private Sub BenutzerverwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BenutzerverwaltungToolStripMenuItem.Click
+        Dim f As New frmBenutzer
+
+        f.Show()
+    End Sub
+End Class
+
+

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/Globals.vb

@@ -0,0 +1,17 @@
+Imports System.IO
+Imports System.Reflection
+
+
+Module Globals
+    Public Userdata As New DataSet
+    Public UserRechte As Integer = -1
+    Public Mitarbeiternr As String
+    Public tgnummer As String
+    Public DefaultExtension As Integer = 0
+
+
+    Public Function ApplicationPath() As String
+        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+    End Function
+
+End Module

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/clsImport.vb

@@ -0,0 +1,134 @@
+Imports System.Data
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+Imports System.IO
+Imports System.Data.OleDb
+Imports System.Threading
+Imports System.Windows.Forms
+
+Public Class clsImport
+    Dim m_dsdaten As DataSet
+    Property dsdaten As DataSet
+        Get
+            Return m_dsdaten
+        End Get
+        Set(value As DataSet)
+            m_dsdaten = value
+        End Set
+    End Property
+
+    Sub New()
+        Me.m_dsdaten = New DataSet
+    End Sub
+
+    Public Function Import_file() As Boolean
+        Dim openfdialog As New OpenFileDialog
+        openfdialog.Filter() = "Excel-Dateien (*.xlsx)|*.xlsx|Excel-Dateien (*.xls)|*.xls|CSV-Dateien (*.csv)|*.csv|Text-Dateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
+        openfdialog.FilterIndex = Globals.defaultextension
+        If openfdialog.ShowDialog() <> DialogResult.OK Then
+            Return False
+        End If
+        FillDataTableFromText(openfdialog.FileName)
+        Return True
+    End Function
+
+    Private Function FillDataTableFromText(ByVal file As String) As DataTable
+        Select Case UCase(Microsoft.VisualBasic.Right(file, 3))
+            Case "CSV"
+                Dim csv As New MyNameSpace.CSVDataAdapter(file, True, ";")
+                csv.Fill(Me.dsdaten)
+                'Rel 4.03 3: Wenn die erste Spalte <> "Parternr" dann Meldung ausgeben und alle Rows löchen
+
+                Me.dsdaten.Tables(0).TableName = "empfdatatable"
+            Case "TXT"
+                Dim csv As New MyNameSpace.CSVDataAdapter(file, True, ";")
+                csv.Fill(Me.dsdaten)
+
+                Me.dsdaten.Tables(0).TableName = "empfdatatable"
+            Case "XLS"
+                If oledbimport(file, "XLS") Then
+                    Me.dsdaten.Tables(0).TableName = "empfdatatable"
+                End If
+            Case "XLSX"
+                If oledbimport(file, "XLSX") Then
+                    Me.dsdaten.Tables(0).TableName = "empfdatatable"
+                End If
+        End Select
+        'Rel. Office Migration
+        If UCase(Microsoft.VisualBasic.Right(file, 5)) = ".XLSX" Then
+            If oledbimport(file, "XLSX") Then
+                Me.dsdaten.Tables(0).TableName = "empfdatatable"
+            End If
+
+        End If
+        Dim dv As DataRow
+
+    End Function
+
+    Private Function oledbimport(ByVal file As String, ByVal filetype As String) As Boolean
+        Dim dt As New DataTable()
+        Dim conn As OleDbConnection
+        Dim sql As String
+        Dim FileConnection As String
+        Dim oda As New OleDbDataAdapter()
+        Dim msg As String
+
+        Select Case filetype
+            Case "XLS"
+                Try
+                    Dim xls As New XLSLib.clsXLSLib
+                    dt = xls.Get_Excel(file)
+
+                    Me.dsdaten.Tables.Add(dt)
+                    Return True
+                Catch ex As Exception
+                    MsgBox(ex.Message)
+                End Try
+            Case "XLSX"
+                Try
+                    Dim xls As New XLSLib.clsXLSLib
+                    dt = xls.Get_Excel(file)
+
+                    Me.dsdaten.Tables.Add(dt)
+                    Return True
+                Catch ex As Exception
+                    MsgBox(ex.Message)
+                End Try
+        End Select
+
+        Try
+            Try
+                conn = New OleDbConnection()
+                conn.ConnectionString = FileConnection
+                conn.Open()
+            Catch ex As Exception
+                msg = ex.Message
+            End Try
+            oda = New OleDbDataAdapter(sql, conn)
+            oda.Fill(dt)
+            'Rel 4.03 4: Sofern die erste Spalte der importierten Daten keine Partnernummer ist, Meldung ausgeben
+            If dt.Columns(0).Caption <> "Partnernr" Then
+                ' MyMsg.show_standardmessage(50001, MsgBoxStyle.Exclamation)
+                dt.Rows.Clear()
+            End If
+            Me.dsdaten.Tables.Add(dt)
+            Return True
+        Catch ex As Exception
+        Finally
+            oda.Dispose()
+            conn.Dispose()
+        End Try
+    End Function
+
+    Private Function Get_Sheetname(ByVal excelfile As String) As String
+        Dim f As New frmExcelSheets
+        f.ExcelFile = excelfile
+        f.ShowDialog()
+        If f.DialogResult = Windows.Forms.DialogResult.OK Then
+            Return f.ExcelSheet
+        Else
+            Return ""
+        End If
+    End Function
+
+End Class

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/clsUser.vb

@@ -0,0 +1,54 @@
+Public Class clsUser
+
+
+#Region "Tools"
+    Sub create_usertable(ByVal username As String)
+        Dim ds As New DataSet
+        ds.Tables.Add("Users")
+        ds.Tables(0).Columns.Add("TGNummer")
+        ds.Tables(0).Columns.Add("Rolle")
+        ds.Tables(0).Columns.Add("EDOKA_MA_Nr")
+        Dim dr As DataRow = ds.Tables(0).NewRow
+        dr.Item(0) = Crypto.EncryptText(username, "Selbstanzeigen")
+        dr.Item(1) = 1
+        dr.Item(2) = 0
+        ds.Tables(0).Rows.Add(dr)
+        ds.WriteXml(ApplicationPath() + "\DocRetUsers.xml")
+    End Sub
+
+    Function check_user(user As String) As Boolean
+        If Not System.IO.File.Exists(ApplicationPath() + "\DocRetUsers.xml") Then
+            MsgBox("User-Datenbank ist nicht vorhanden und wird neu erstellt", MsgBoxStyle.Critical)
+            Dim s As String = InputBox("Geben Sie das Passwort ein:")
+            If s <> "edokatools" Then
+                Return False
+            End If
+            create_usertable(user)
+            Return False
+        End If
+
+        Userdata.ReadXml(ApplicationPath() + "\DocRetUsers.xml")
+        For Each dr As DataRow In Userdata.Tables(0).Rows
+            dr.Item(0) = Crypto.DecryptText(dr.Item(0).ToString, "Selbstanzeigen")
+        Next
+
+        userrechte = -1
+        For Each dr As DataRow In Userdata.Tables(0).Rows
+            If UCase(user) = UCase(dr.Item(0)) Then
+                If dr.Item(1) = 1 Then UserRechte = 1 Else UserRechte = 0
+                Mitarbeiternr = dr.Item(2)
+                tgnummer = user
+                Exit For
+            End If
+        Next
+        If userrechte = -1 Then
+            MsgBox("Sie sind nicht berechtig, die Applikation zu verwenden.", MsgBoxStyle.Exclamation)
+            Return False
+        End If
+        Return True
+
+
+    End Function
+#End Region
+
+End Class

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/clsdata.vb

@@ -0,0 +1,178 @@
+Public Class clsdata
+    Dim m_dsdaten As DataSet
+    Property Dsdaten As DataSet
+        Get
+            Return m_dsdaten
+        End Get
+        Set(value As DataSet)
+            m_dsdaten = value
+        End Set
+    End Property
+
+    Dim m_partnercollection As Collection
+    Property PartnerCollection As Collection
+        Get
+            Return m_partnercollection
+        End Get
+        Set(value As Collection)
+            m_partnercollection = value
+        End Set
+    End Property
+
+    Dim m_ParamCollection As Collection
+    Property ParamCollection As Collection
+        Get
+            Return m_ParamCollection
+        End Get
+        Set(value As Collection)
+            m_ParamCollection = value
+        End Set
+    End Property
+
+    Dim m_jahr As String
+    Property Jahr As String
+        Get
+            Return m_jahr
+        End Get
+        Set(value As String)
+            m_jahr = value
+        End Set
+    End Property
+
+    Sub New()
+        Me.ParamCollection = New Collection
+        Me.PartnerCollection = New Collection
+
+    End Sub
+
+    Public Function Check_Parameter() As Boolean
+        Try
+            PartnerCollection.Clear()
+            ParamCollection.Clear()
+
+            For Each r As DataRow In Me.Dsdaten.Tables(0).Rows
+                Select Case UCase(r("Paramtyp"))
+                    Case "S"
+                        Me.Jahr = r("Inhalt").ToString
+                    Case "P"
+                        Me.PartnerCollection.Add(New Partnerclass(r("Inhalt")))
+                    Case "M"
+                        Me.ParamCollection.Add(New ParamClass(r("Paramtyp"), r("Inhalt"), r("Erweiterung")))
+                    Case "D"
+                        Me.ParamCollection.Add(New ParamClass(r("Paramtyp"), r("Inhalt"), r("Erweiterung")))
+                    Case Else
+                        Return False
+                End Select
+            Next
+            Check_Partner()
+            Check_Parameters()
+        Catch
+        End Try
+
+    End Function
+
+    Private Sub Check_Partner()
+        Dim db As New clsdb
+        For i = 1 To Me.PartnerCollection.Count
+            Dim pc As Partnerclass = PartnerCollection(i)
+            If db.Check_Partner_Exists(pc.Partner) = False Then pc.HasError = 1
+        Next
+        For i As Integer = 1 To PartnerCollection.Count
+            Dim pc As Partnerclass = PartnerCollection.Item(i)
+
+        Next
+    End Sub
+
+    Private Sub Check_Parameters()
+        Dim db As New clsdb
+        For i = 1 To ParamCollection.Count
+            Dim pc As ParamClass = ParamCollection.Item(i)
+            If pc.DocType = "" Then pc.HasError = 1
+            If pc.Zeitraum <> 0 And pc.Zeitraum <> 1 And pc.Zeitraum <> 2 Then pc.HasError = 1
+        Next
+    End Sub
+
+End Class
+
+Public Class Partnerclass
+    Dim m_partner As String
+    Property Partner As String
+        Get
+            Return m_partner
+        End Get
+        Set(value As String)
+            m_partner = value
+        End Set
+    End Property
+
+    Dim m_error As Integer
+    Property HasError As Integer
+        Get
+            Return m_error
+        End Get
+        Set(value As Integer)
+            m_error = value
+        End Set
+    End Property
+    Sub New(ByVal Partnernr As String)
+        Me.Partner = Partnernr
+        Me.HasError = 0
+    End Sub
+
+End Class
+
+Public Class ParamClass
+    Dim m_paramtyp As String
+    Property Paramtyp As String
+        Get
+            Return m_paramtyp
+        End Get
+        Set(value As String)
+            m_paramtyp = value
+        End Set
+    End Property
+
+    Dim m_doctyp As String
+    Property DocType As String
+        Get
+            Return m_doctyp
+        End Get
+        Set(value As String)
+            m_doctyp = value
+        End Set
+    End Property
+
+    Dim m_zeitraum As String
+    Property Zeitraum As String
+        Get
+            Return m_zeitraum
+        End Get
+        Set(value As String)
+            Select Case value
+                Case "0", "1", "2"
+                    m_zeitraum = value
+                Case Else
+                    m_zeitraum = -1
+            End Select
+        End Set
+    End Property
+
+    Dim m_error As Integer
+    Property HasError As Integer
+        Get
+            Return m_error
+        End Get
+        Set(value As Integer)
+            m_error = value
+        End Set
+    End Property
+
+    Sub New(ByVal Typ As String, ByVal Doctype As String, ByVal Zeitraum As String)
+        Me.Paramtyp = Typ
+        Me.DocType = Doctype
+        Me.Zeitraum = Zeitraum
+        Me.HasError = 0
+    End Sub
+
+
+End Class

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/clsdb.vb

@@ -0,0 +1,142 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlDbType
+Imports System.IO
+Public Class clsdb
+    Dim m_connectionstring As String
+    Property Connectionstring As String
+        Get
+            Return m_connectionstring
+        End Get
+        Set(value As String)
+            m_connectionstring = value
+        End Set
+    End Property
+
+    Public dsdaten As New DataSet
+    Public dadaten As SqlDataAdapter
+    Dim sql As String
+    Sub New()
+        Dim ConnectionFilename As String = "edokaconn.cfg"
+        Dim path As String = ""
+        Dim fc As Integer = 0
+
+        Dim ofile As System.IO.File
+        Dim oread As System.IO.StreamReader
+        Dim sConnectionstring As String
+        oread = ofile.OpenText(ApplicationPath() + "\" + ConnectionFilename)
+        sConnectionstring = oread.ReadLine
+        sConnectionstring = Crypto.DecryptText(sConnectionstring, "HutterundMueller")
+        sConnectionstring = Left(sConnectionstring, Len(sConnectionstring) - 1)
+        sConnectionstring = sConnectionstring
+        oread.Close()
+        Me.Connectionstring = sConnectionstring
+    End Sub
+
+    Public Function Check_Partner_Exists(ByVal Partnernr As Integer)
+        dsdaten.Clear()
+        sql = "Select nrpar00 from partner where nrpar00=" + Partnernr.ToString
+        dadaten = New SqlDataAdapter(sql, Connectionstring)
+        dadaten.Fill(dsdaten, "Partner")
+        If dsdaten.Tables(0).Rows.Count < 1 Then Return False Else Return True
+
+    End Function
+
+    Public Function Insert_Job(userid As String, jahr As Integer) As String
+        Return Exec_sp_edoka_dok_retrival(1, userid, jahr)
+    End Function
+
+    Public Function Insert_Partner(jobnr As String, partnernr As String)
+        Exec_sp_edoka_dok_retrival(2, jobnr, partnernr)
+    End Function
+
+    Public Function Insert_Parameter(jobnr As String, parametertyp As String, dokumenttyp As String, zeitraum As String)
+        Exec_sp_edoka_dok_retrival(3, jobnr, parametertyp, dokumenttyp, zeitraum)
+    End Function
+
+    Public Function Get_Jobstatus(userid As String)
+        Exec_sp_edoka_dok_retrival(10, userid)
+    End Function
+
+    Public Function Update_Jobstatus(ByVal Jobnr As String, Status As String)
+        Exec_sp_edoka_dok_retrival(4, Jobnr, Status)
+    End Function
+
+    Public Function DokZugriff_Journal(ByVal Jobnr As String)
+        Exec_sp_edoka_dok_retrival(13, Jobnr)
+    End Function
+
+
+    Public Function Exec_sp_edoka_dok_retrival(fnkt As Integer, Optional param1 As String = "", Optional param2 As String = "", Optional param3 As String = "", Optional param4 As String = "", Optional param5 As String = "", Optional param6 As String = "", Optional param7 As String = "", Optional param8 As String = "", Optional param9 As String = "") As String
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim conn As New SqlConnection(Connectionstring)
+        scmCmdToExecute.CommandText = "dbo.sp_EDOKA_Dok_Retrival"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        scmCmdToExecute.Connection = conn
+        Try
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param1))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param2))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param3", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param3))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param4", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param4))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param5", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param5))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param6", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param6))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param7", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param7))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param8", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param8))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param9", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param9))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@Retvalue", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            conn.Open()
+
+            If fnkt < 10 Then
+                scmCmdToExecute.ExecuteNonQuery()
+                Return scmCmdToExecute.Parameters("@Retvalue").Value.ToString
+            Else
+                sdaAdapter.Fill(dsdaten, "Jobstatus")
+                Return ""
+            End If
+
+        Catch ex As Exception
+            MsgBox("Insert_job::" & scmCmdToExecute.CommandText + "::" + ex.Message)
+            Return ""
+        Finally
+            conn.Close()
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+            dtToReturn.Dispose()
+        End Try
+    End Function
+
+    Public Function Get_file(ByVal sql As String, filename As String, DBAttribut As String) As String
+        Dim connection As New SqlConnection()
+        Dim DA As New SqlDataAdapter(sql, connection)
+        Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
+        Dim ds As New DataSet()
+        Try
+            connection.ConnectionString = Connectionstring
+            connection.Open()
+            DA.Fill(ds, "zipfile")
+            Dim myRow As DataRow
+            myRow = ds.Tables(0).Rows(0)
+            Dim MyData() As Byte
+            MyData = myRow.Item(DBAttribut)
+            Dim K As Long
+            K = UBound(MyData)
+            Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
+            fs.Write(MyData, 0, K)
+            fs.Close()
+            fs = Nothing
+            Return filename
+        Catch ex As Exception
+            Return ""
+        Finally
+            CB = Nothing
+            ds = Nothing
+            DA = Nothing
+            connection.Close()
+            connection = Nothing
+        End Try
+    End Function
+End Class
+
+

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/frmBenutzer.designer.vb

@@ -0,0 +1,139 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmBenutzer
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBenutzer))
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
+        Me.DokList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.ToolStrip1.SuspendLayout()
+        CType(Me.DokList, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(423, 35)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(86, 13)
+        Me.Label3.TabIndex = 19
+        Me.Label3.Text = "0: Normaler User"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(423, 22)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(79, 13)
+        Me.Label2.TabIndex = 18
+        Me.Label2.Text = "1: Administrator"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(423, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(40, 13)
+        Me.Label1.TabIndex = 17
+        Me.Label1.Text = "Rollen:"
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(519, 25)
+        Me.ToolStrip1.TabIndex = 21
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton1.Text = "Fenster schliessen"
+        '
+        'ToolStripButton2
+        '
+        Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
+        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton2.Name = "ToolStripButton2"
+        Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton2.Text = "Daten speichern"
+        '
+        'DokList
+        '
+        Me.DokList.AllowAddNew = True
+        Me.DokList.AlternatingRows = True
+        Me.DokList.Dock = System.Windows.Forms.DockStyle.Left
+        Me.DokList.FetchRowStyles = True
+        Me.DokList.FilterBar = True
+        Me.DokList.GroupByCaption = "Drag a column header here to group by that column"
+        Me.DokList.Images.Add(CType(resources.GetObject("DokList.Images"), System.Drawing.Image))
+        Me.DokList.Location = New System.Drawing.Point(0, 25)
+        Me.DokList.Name = "DokList"
+        Me.DokList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
+        Me.DokList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
+        Me.DokList.PreviewInfo.ZoomFactor = 75.0R
+        Me.DokList.PrintInfo.PageSettings = CType(resources.GetObject("DokList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
+        Me.DokList.RecordSelectorWidth = 16
+        Me.DokList.Size = New System.Drawing.Size(417, 277)
+        Me.DokList.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
+        Me.DokList.TabIndex = 22
+        Me.DokList.Text = "C1Dokumenttypen"
+        Me.DokList.PropBag = resources.GetString("DokList.PropBag")
+        '
+        'frmBenutzer
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(519, 302)
+        Me.Controls.Add(Me.DokList)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Name = "frmBenutzer"
+        Me.Text = "frmBenutzer"
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        CType(Me.DokList, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents DokList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+End Class

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/frmBenutzer.resx

@@ -0,0 +1,230 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAxRSURBVGhD7Zl3VFRnGodFOgwzMAMMRarUmWFgGlVEuqCi
+        YsESa6yIir0k2ZjVuHE1q25yNpuoQVE0ReyigBBBsYAoCqIgOKgEUZSiaOBskt++dyDqbIIBgZz9I985
+        z5mZy733e5+vvt+hz5/lz/IHF5lMZipW+PzdQybbLZTIkhjcvSRJQpksyUvmnST+TWRdpO05T6kiWSzz
+        2SwW+5m3V9/94unray318c/xCw6+GxASogwIDlbK/PyUMl9fpczfn74zML9lSqmsDa92SFIplEqVQolE
+        KfTyUgqEQmV/BsEr0G93wo1wEYvveCoUFyQSiV179d0vrp6e9kzw+75NQVZOBo6kHURyShKWrViCMXGj
+        MSxmCKKHRiEqOhIRkeEIDQtG0KCBCAgMgK+/L7y9FZDKJPD08oSzsxP09PWhpa2tho6urgq+AwcCD1Gd
+        l4+Pc3v13S/u1BqBYWEVOXnZaGl5hidPGtH0pAH19Y9QXHwVO3d+ibXr/ooVK5cTy7Bs+RIsXpKIBQsT
+        MC9hDmbPnYk58TMxdfoUSKUSaGpqgl77a/r2gUuoAYQK0fcCia8TXeuZohIID6s4dTodT582qgJnaGh4
+        rOJhXS0KCwuwP/UbbNm6GX/bsB4frl+HD9a+j7+seQfvvLcS7/5lFV1bi5CQYGhpabUFrPESDUJTuw/c
+        I4wg+qMEGB49eoia+9Worr6DispyXMw/h0NHUrFtx+f49F9bSehjbNq8AZu3bsLefXswctQIGira0KDW
+        1tTq+wIt7b7QMdCAIKoXBbJyOhaoqqrErYoy3CgrQdG1Qpw9dxqHj6Ziz75d2JH0OXbu3oGT6WmY8NZ4
+        6BnqQFNHA9p6mi/Q0deEnlFfiKLZvSUQTgIZrxUov3UTJaXXcLmoAPmXziHvfA4ys0/i0NH9OEoT//KV
+        S5g1ZwZYHH1qbS3osXTUMDDWhscw4/8PgYsFeTiT9x1OfZeOk5nH6PMk9U4p5s2fC46pAfQ52jA00X0J
+        RxdGZjoQD+8FAUeZzNZ/cER5Vu6bCZzIOEo9cQKlN6+rBIz5hjDk6sDIVO8lPD1wLHThOdKk5wXG27m4
+        xfr51WXmZZFA05sL3CCBBfHgWbPB5uvD2NLwJSTFtTGAdDSv5wW+4HJ9P+OYIHvLJjS2PEdDU9se8CYC
+        CSRgZsuBibUBeDasl/RjwczBELKxvSCwxcJCsYtnisMWVrj6xedoetb8QqJrAiVIWBhPu60xeHaGFLCR
+        GnxnFuTjTHteYAOPJ//W3h41AwKRbmuP/A0b0NjchAbakbsqMD8xHlZOXJg7smHhZKyGlRsHPhPNIQro
+        YYF1PAv5V7Z2+CluLJqHD0cGfT+7YgUaGutRTz1RU3PvtQLpp46rCfRz5cHShQNrVxM1bITG8J3UCwIf
+        m5t77LV3QMvIkcDgwXgeG4tsh/74bvZsPHpQi9r6ug4FMrJOIPXQ18iiXfwGrUKMgK3QFNYUrI2Qq4ad
+        pwn8JndSIInDMU5ms532GpoId7O4go5IMTJyTjJkjztgY4sfxowBZDIgNBSt48fjjIsbMseNx73bt3CX
+        htH/CuSdz8XhYwfw7prVtBt/oRJYsHgeHDz5sPXkwd7LTA1HuSkGTLOAaEAnBPayTcbv5XDO72ebVqea
+        mlZ1CJdf+Y2xcW2mgyN+mDgR8PUFpZRARDh+nDIFFzzEOB45GOVXClFxT6kmcP7iGRw9fgiz42fBw0OE
+        goKLmL8oHv1lFrCXmsJRZq6Gk48ZAmdYdk5gpwFrVgqHc781JgY/Tp6sCub3wNSpQEAA4OcH+PiQRAQw
+        fTouy+U44h+A4txs3FDeeiFw7kIu/rFlIwbQucCJzgGXKGNlBJwVlujvbUYB89VwCTBH4EwriAI7IZBs
+        wHr7Ky6v6icSYMY1MywQFvZ6mHsCA1/CyERGAjQXrtMKdYRE8o8dwtWyYlUulHEqDcEhg7B0+SJ8uWsb
+        rpfSMpo4F66+1nDx48PV31IN9yALDJxjDdHATguYVv2HCYBa8+egIPwcHNzGoEEd88s9v0DPqRogYR4q
+        wiNwUOiBM3t2oqC4EDlns7E7ZSf2H/yKTnLpJFCsEhAMsIH7QEsIgqzVEIVaIXhevy4I8EyrnoeEoKVf
+        P7TY2qKFxnYLtWoLBdYaHt4GtXwrtXzLKzC/VdcZ6J4WkmilZ36iiX2LeuEArViZn2xFXlE+cimtzshK
+        Uy2jJdev0RCaC9EgGwhDaKiEUrCvII60RkiCTdcEGqjyBj4f9YaGqGexUM/jocHODo0uLmj08EATBdTk
+        7Y0mmrxN/v5oovHfRD3GXG8Ui9Ho6qq6v57LRb2JCZrp3gqxJw7Thpe25j1k5Z56sZExAgmL4yEOsYM4
+        vB88I2zVkETbIHSBLaRBXRB4QEHdp8pr6EBdQ4ftGj091OjooIYO2qrvJFXDZuM+A4ejgvmtuv7LvQzM
+        83RUfEC92RgWitOm5tjTzwaZdDo70b6RlZRQDyyeC0mEAwVLgUbbqyGPsUPEIruuCdylFlNSMJUaGqik
+        w/arVPTt+xL6+wteua66j4HOuHetrHCP3pfDt0CqwhtZu5PUe0AlEA9ZlCNkFKw8xkEN71h7RC4hmSBp
+        5yfxbRoK5dSSNymA7nDbxgYVchlOmHBxMCoKeenHcLbwvFouxAgsWBIP+TAnCtYBPrH91fAb64io5STX
+        FYEqZsxSD5RTK3aIVtvnTWrxXwVPPVLl5ISbXhIcoZQ7bdo0FNISmn+tAGdoFXpVoLhdwGeEM3zHOMFv
+        jLMaAeOdEL2qf+cE9hhwZqawedVlJMCsHLekstcgRQXdV0UT+FWJMpondwQCFItEOEDp9unVq1BSXoqi
+        0iK1ZE5NYGk8/Ea7wH8CBTzBRY3Ayc4YsrqTAnuNjN/ax2ZfO2xm3pDK49V1xCEu92GqmXlThp09Kmgl
+        KqeJygRfbmCAO15euOTiilTKk/I//QSVTCpxs+RX2Wha+hHVUlpaeh2JyxIQEOeGwEmuGDjJTY1B01wx
+        7F0nEpD9vgCTzDGJ2m4WS5DCYrl1xNdGRq7bOZwxyRaWqp4qp+AraCWqoqTuLK0yhygXKjl0ANWPH6K8
+        ouxFLnQh/yxyzmQjOydTtStXUopRWFiIt+dMQdBEEQZNdUfwVIEaoTPcEfO+C+SdEehK2cjni3ZZWaNC
+        JofS0hJVCgVOmZrh+MAgVOVfxEM66Ffdua3KRouvX8WlKxdReCWfss8SKOl6UdFl7Nu3F3Pmz8SIyWEI
+        m+FBwTIBC9UInyPAiA96QWCDhYU82dIKShpCt2kTS+OZIXP0aNRWlqO++UnbiUxZgbLyGyi7dQN371XR
+        IacaBZfykbw7GYkr4hE7PQzRsxQInytExFyP32TwfBFi17pA0eMCdCJLph4odnPHUWr5XMp7mKNk0/Nm
+        1NU9wH0SqK39HnWP6vDw4QNV1rmd8v9l7y/EqHkhGJIgRyQFFznfA1HzPTtkyCIxRq13IwF5zwps4/O9
+        vzThIdWMj/x1H6LhKZ2HGRoeo5l6oPnZU1XgRUVF2L7zM6z8cCHiloQhaqEXohIp6EQxohO9fpehSz0x
+        +qNeEJipb+SzjXbX7I3r0dTyHI1NjXj2rBmtrS148PA+rtBhZtfX27H0o9mY9E4khizxxFBi2FIpYrrA
+        iJUSjN0ggCJS8b2ZjU3/9uq7X7T7aAunRIbW5Vw+gx9afkBrSyseP36E/MKLSDm4A4kfTUHc6iAMXeaF
+        IUvFGL5c9kaMXC1F3CYBfAf7UCpmKGyvvltFk9DV0tJShI8dVnXuUi4a6utRcOU8kg/+Gws3voURy73b
+        Wpy6P2YZBdINRq5qE5BGSmr19FiBVLchocME8ialL8Eh+JqaumFDxw6rPn46FUlHtmDh5jgMWyHG0OUe
+        GLFKQlD39wCx70kQ97EAPhGKOh0do6FUtxXBI7SILhfGnPlPoa2Ojn6MX6hf3cRVkRi5hlaKTY4Yv1lA
+        CHuUCf8UIm6jEIpwxVM9bcOxVDczDxgJA6LLhbE2JWwMDAwiRVLpFReJV62bXPrAy19GSGp7nADCT1Lr
+        IZeX6uvrD6e6HQkLQp94o8I8yCdc2WxuOIvDGUmMMWSbjGM+exoOhzuKwcjEJEpbW1tE9VoTbIIZzm9c
+        mKFkTDC9wbSGLcF0rX0vYEMwQTNDl0swQ0eD6HZhXqJNMC9kEYwQM8F7GiOCWXl0iW61+p+l90qfPv8F
+        /zqI2Zapf/AAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
+        dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
+        AElFTkSuQmCC
+</value>
+  </data>
+  <data name="DokList.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="DokList.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
+        dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
+        d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
+        emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
+        c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
+        bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
+        dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
+        LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
+        U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
+        d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
+        AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
+        cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
+        eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
+        bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
+        ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
+        AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
+        bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
+        ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
+        RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
+        9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
+        AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
+        BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
+        AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
+        QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
+        ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
+</value>
+  </data>
+  <data name="DokList.PropBag" xml:space="preserve">
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{Wrap:True;Trimming:Character;AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView HBarHeight="16" VBarHeight="16" Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="16" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 415, 275&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 415, 275&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+  </data>
+</root>

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/frmBenutzer.vb

@@ -0,0 +1,28 @@
+Public Class frmBenutzer
+
+    Private Sub frmBenutzer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.DokList.DataSource = Globals.Userdata.Tables(0)
+        Me.DokList.DataMember = Globals.Userdata.Tables(0).TableName
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Me.Close()
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+
+        For Each dr As DataRow In Globals.Userdata.Tables(0).Rows
+            dr.Item(0) = Crypto.EncryptText(dr.Item(0).ToString, "Selbstanzeigen")
+        Next
+        Globals.Userdata.WriteXml(ApplicationPath() + "\DocRetUsers.xml")
+        Globals.Userdata.Tables.Clear()
+        Globals.Userdata.ReadXml(ApplicationPath() + "\DocRetUsers.xml")
+        For Each dr As DataRow In Globals.Userdata.Tables(0).Rows
+            dr.Item(0) = Crypto.DecryptText(dr.Item(0).ToString, "Selbstanzeigen")
+        Next
+        Me.DokList.DataSource = Nothing
+        Me.DokList.DataSource = Globals.Userdata.Tables(0)
+        Me.DokList.DataMember = Globals.Userdata.Tables(0).TableName
+
+    End Sub
+End Class

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/frmExcelSheets.designer.vb

@@ -0,0 +1,72 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmExcelSheets
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.lstSheets = New System.Windows.Forms.ListBox
+        Me.BtnOK = New System.Windows.Forms.Button
+        Me.BtnAbbruch = New System.Windows.Forms.Button
+        Me.SuspendLayout()
+        '
+        'lstSheets
+        '
+        Me.lstSheets.FormattingEnabled = True
+        Me.lstSheets.Location = New System.Drawing.Point(12, 32)
+        Me.lstSheets.Name = "lstSheets"
+        Me.lstSheets.Size = New System.Drawing.Size(220, 134)
+        Me.lstSheets.TabIndex = 0
+        '
+        'BtnOK
+        '
+        Me.BtnOK.Location = New System.Drawing.Point(12, 193)
+        Me.BtnOK.Name = "BtnOK"
+        Me.BtnOK.Size = New System.Drawing.Size(75, 23)
+        Me.BtnOK.TabIndex = 1
+        Me.BtnOK.Text = "Auswählen"
+        Me.BtnOK.UseVisualStyleBackColor = True
+        '
+        'BtnAbbruch
+        '
+        Me.BtnAbbruch.Location = New System.Drawing.Point(157, 193)
+        Me.BtnAbbruch.Name = "BtnAbbruch"
+        Me.BtnAbbruch.Size = New System.Drawing.Size(75, 23)
+        Me.BtnAbbruch.TabIndex = 2
+        Me.BtnAbbruch.Text = "Abbruch"
+        Me.BtnAbbruch.UseVisualStyleBackColor = True
+        '
+        'frmExcelSheets
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(254, 228)
+        Me.Controls.Add(Me.BtnAbbruch)
+        Me.Controls.Add(Me.BtnOK)
+        Me.Controls.Add(Me.lstSheets)
+        Me.Name = "frmExcelSheets"
+        Me.Text = "Auswahl Excel-Blatt"
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents lstSheets As System.Windows.Forms.ListBox
+    Friend WithEvents BtnOK As System.Windows.Forms.Button
+    Friend WithEvents BtnAbbruch As System.Windows.Forms.Button
+End Class

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/frmExcelSheets.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/frmExcelSheets.vb

@@ -0,0 +1,47 @@
+Public Class frmExcelSheets
+    Dim m_excelsheet As String
+    Property ExcelSheet() As String
+        Get
+            Return m_excelsheet
+        End Get
+        Set(ByVal value As String)
+            m_excelsheet = value
+        End Set
+    End Property
+
+    Dim m_excelfile As String
+    Property ExcelFile() As String
+        Get
+            Return m_excelfile
+        End Get
+        Set(ByVal value As String)
+            m_excelfile = value
+        End Set
+    End Property
+    Private Sub frmExcelSheets_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+
+        Dim intxls As New Microsoft.Office.Interop.Excel.Application
+        intxls.Workbooks.Open(ExcelFile)
+        For Each s As Microsoft.Office.Interop.Excel.Worksheet In intxls.ActiveWorkbook.Sheets
+            Me.lstSheets.Items.Add(s.Name)
+        Next
+        intxls.ActiveWorkbook.Close(False)
+        intxls.Quit()
+        intxls = Nothing
+    End Sub
+
+    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
+        Me.ExcelSheet = "[" & Me.lstSheets.SelectedItem & "$]"
+        Me.DialogResult = Windows.Forms.DialogResult.OK
+        Me.Close()
+    End Sub
+
+    Private Sub BtnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAbbruch.Click
+        Me.DialogResult = Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub lstSheets_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstSheets.DoubleClick
+        BtnOK_Click(sender, e)
+    End Sub
+End Class