Initial

EDOKA/Report/Reports/MetaDataReport_new.vb

@@ -0,0 +1,255 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:2.0.50727.4952
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+Imports CrystalDecisions.CrystalReports.Engine
+Imports CrystalDecisions.ReportSource
+Imports CrystalDecisions.Shared
+Imports System
+Imports System.ComponentModel
+
+
+Public Class MetaDataReport_new
+    Inherits ReportClass
+    
+    Public Sub New()
+        MyBase.New
+    End Sub
+    
+    Public Overrides Property ResourceName() As String
+        Get
+            Return "MetaDataReport_new.rpt"
+        End Get
+        Set
+            'Do nothing
+        End Set
+    End Property
+    
+    Public Overrides Property NewGenerator() As Boolean
+        Get
+            Return true
+        End Get
+        Set
+            'Do nothing
+        End Set
+    End Property
+    
+    Public Overrides Property FullResourceName() As String
+        Get
+            Return "EDOKAApp.MetaDataReport_new.rpt"
+        End Get
+        Set
+            'Do nothing
+        End Set
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich3() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(0)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich1() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(1)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich14() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(2)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich5() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(3)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich7() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(4)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich13() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(5)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich8() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(6)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich6() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(7)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich9() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(8)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich10() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(9)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich11() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(10)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich12() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(11)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich4() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(12)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Bereich2() As CrystalDecisions.CrystalReports.Engine.Section
+        Get
+            Return Me.ReportDefinition.Sections(13)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Parameter_MANr() As CrystalDecisions.[Shared].IParameterField
+        Get
+            Return Me.DataDefinition.ParameterFields(0)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Parameter_MetDataOption() As CrystalDecisions.[Shared].IParameterField
+        Get
+            Return Me.DataDefinition.ParameterFields(1)
+        End Get
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public ReadOnly Property Parameter_OfficeDokID() As CrystalDecisions.[Shared].IParameterField
+        Get
+            Return Me.DataDefinition.ParameterFields(2)
+        End Get
+    End Property
+End Class
+
+<System.Drawing.ToolboxBitmapAttribute(GetType(CrystalDecisions.[Shared].ExportOptions), "report.bmp")>  _
+Public Class CachedMetaDataReport_new
+    Inherits Component
+    Implements ICachedReport
+    
+    Public Sub New()
+        MyBase.New
+    End Sub
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public Overridable Property IsCacheable() As Boolean Implements CrystalDecisions.ReportSource.ICachedReport.IsCacheable
+        Get
+            Return true
+        End Get
+        Set
+            '
+        End Set
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public Overridable Property ShareDBLogonInfo() As Boolean Implements CrystalDecisions.ReportSource.ICachedReport.ShareDBLogonInfo
+        Get
+            Return false
+        End Get
+        Set
+            '
+        End Set
+    End Property
+    
+    <Browsable(false),  _
+     DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
+    Public Overridable Property CacheTimeOut() As System.TimeSpan Implements CrystalDecisions.ReportSource.ICachedReport.CacheTimeOut
+        Get
+            Return CachedReportConstants.DEFAULT_TIMEOUT
+        End Get
+        Set
+            '
+        End Set
+    End Property
+    
+    Public Overridable Function CreateReport() As CrystalDecisions.CrystalReports.Engine.ReportDocument Implements CrystalDecisions.ReportSource.ICachedReport.CreateReport
+        Dim rpt As MetaDataReport_new = New MetaDataReport_new
+        rpt.Site = Me.Site
+        Return rpt
+    End Function
+    
+    Public Overridable Function GetCustomizedCacheKey(ByVal request As RequestContext) As String Implements CrystalDecisions.ReportSource.ICachedReport.GetCustomizedCacheKey
+        Dim key As [String] = Nothing
+        '// The following is the code used to generate the default
+        '// cache key for caching report jobs in the ASP.NET Cache.
+        '// Feel free to modify this code to suit your needs.
+        '// Returning key == null causes the default cache key to
+        '// be generated.
+        '
+        'key = RequestContext.BuildCompleteCacheKey(
+        '    request,
+        '    null,       // sReportFilename
+        '    this.GetType(),
+        '    this.ShareDBLogonInfo );
+        Return key
+    End Function
+End Class

EDOKA/Report/frmMetaDatenSelector.resx

@@ -0,0 +1,166 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+            Microsoft ResX Schema 
+        
+            Version 1.3
+                
+            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">1.3</resheader>
+                <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+                <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+                <data name="Name1">this is my long string</data>
+                <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+                <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+                    [base64 mime encoded serialized .NET Framework object]
+                </data>
+                <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+                    [base64 mime encoded string representing a byte array form of the .NET Framework object]
+                </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.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:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <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" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </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>1.3</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="cbxErsetzteDok.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="cbxInfomeldung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="cbxDokWerte.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="cbxDokZuordnung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="cbxAllg.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="cbxDokStatus.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="cbxNotizen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="cbxBerEinschr.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="btnDrucken.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="btnAbbrechen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="btnSelectAll.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="$this.Name">
+    <value>frmMetaDatenSelector</value>
+  </data>
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
+        AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
+        AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
+        lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
+        /wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
+        /wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
+        /wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
+        lgBzAHMAUABQAP/U8AD/seIA/47UAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
+        4wD/sccA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
+        awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
+        AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
+        AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
+        1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
+        awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAlcwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
+        AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
+        MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
+        /wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACWlgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
+        zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
+        GgAODg4AAAAAAAAAAAAAAAAAAAAAAAAA+vr6+vr6+vr6+voAAAAA+u/v7+/v7+/v7/rv+gAA+vr6+vr6
+        +vr6+vr6+u/6APrv7+/v7+/k5OTv7/r6+gD67+/v7+/v8vLy7+/67/oA+vr6+vr6+vr6+vr6+u/v+vrv
+        7+/v7+/v7+/v+u/67/oA+vr6+vr6+vr6+u/67/r6AAD6ERERERERERH67/rv+gAAAPoR+vr6+voR+vr6
+        +gAAAAD6ERERERERERH6AAAAAAAAAPoR+vr6+voR+gAAAAAAAAD6ERERERERERH6AAAAAAAAAPr6+vr6
+        +vr6+gAAAAAAAAAAAAAAAAAAAAAAAP/////AB///gAP//wAB//8AAf//AAH//wAA//8AAP//gAD//8AA
+        ///gAf//4Af///AH///wA///+AP///////8=
+</value>
+  </data>
+</root>

EDOKA/Report/frmMetaDatenSelector.vb

@@ -0,0 +1,362 @@
+Public Class frmMetaDatenSelector
+    Inherits System.Windows.Forms.Form
+
+#Region " Vom Windows Form Designer generierter Code "
+
+    Public Sub New()
+        MyBase.New()
+
+        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
+        InitializeComponent()
+
+        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
+
+    End Sub
+
+    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+            If Not (components Is Nothing) Then
+                components.Dispose()
+            End If
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    ' Für Windows Form-Designer erforderlich
+    Private components As System.ComponentModel.IContainer
+
+    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
+    'Sie kann mit dem Windows Form-Designer modifiziert werden.
+    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
+    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+    Friend WithEvents btnDrucken As System.Windows.Forms.Button
+    Friend WithEvents btnAbbrechen As System.Windows.Forms.Button
+    Friend WithEvents cbxNotizen As System.Windows.Forms.CheckBox
+    Friend WithEvents cbxDokStatus As System.Windows.Forms.CheckBox
+    Friend WithEvents cbxAllg As System.Windows.Forms.CheckBox
+    Friend WithEvents cbxDokZuordnung As System.Windows.Forms.CheckBox
+    Friend WithEvents cbxDokWerte As System.Windows.Forms.CheckBox
+    Friend WithEvents cbxInfomeldung As System.Windows.Forms.CheckBox
+    Friend WithEvents cbxBerEinschr As System.Windows.Forms.CheckBox
+    Friend WithEvents cbxErsetzteDok As System.Windows.Forms.CheckBox
+    Friend WithEvents btnSelectAll As System.Windows.Forms.Button
+    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMetaDatenSelector))
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.cbxErsetzteDok = New System.Windows.Forms.CheckBox()
+        Me.cbxInfomeldung = New System.Windows.Forms.CheckBox()
+        Me.cbxDokWerte = New System.Windows.Forms.CheckBox()
+        Me.cbxDokZuordnung = New System.Windows.Forms.CheckBox()
+        Me.cbxAllg = New System.Windows.Forms.CheckBox()
+        Me.cbxDokStatus = New System.Windows.Forms.CheckBox()
+        Me.cbxNotizen = New System.Windows.Forms.CheckBox()
+        Me.cbxBerEinschr = New System.Windows.Forms.CheckBox()
+        Me.btnDrucken = New System.Windows.Forms.Button()
+        Me.btnAbbrechen = New System.Windows.Forms.Button()
+        Me.btnSelectAll = New System.Windows.Forms.Button()
+        Me.GroupBox1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbxErsetzteDok, Me.cbxInfomeldung, Me.cbxDokWerte, Me.cbxDokZuordnung, Me.cbxAllg, Me.cbxDokStatus, Me.cbxNotizen, Me.cbxBerEinschr})
+        Me.GroupBox1.Location = New System.Drawing.Point(16, 16)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(392, 136)
+        Me.GroupBox1.TabIndex = 0
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Selektion"
+        '
+        'cbxErsetzteDok
+        '
+        Me.cbxErsetzteDok.Location = New System.Drawing.Point(200, 96)
+        Me.cbxErsetzteDok.Name = "cbxErsetzteDok"
+        Me.cbxErsetzteDok.Size = New System.Drawing.Size(176, 24)
+        Me.cbxErsetzteDok.TabIndex = 7
+        Me.cbxErsetzteDok.Text = "Ersetzte Dokumente"
+        '
+        'cbxInfomeldung
+        '
+        Me.cbxInfomeldung.Location = New System.Drawing.Point(200, 48)
+        Me.cbxInfomeldung.Name = "cbxInfomeldung"
+        Me.cbxInfomeldung.Size = New System.Drawing.Size(144, 24)
+        Me.cbxInfomeldung.TabIndex = 5
+        Me.cbxInfomeldung.Text = "Informationsmeldungen"
+        '
+        'cbxDokWerte
+        '
+        Me.cbxDokWerte.Location = New System.Drawing.Point(16, 72)
+        Me.cbxDokWerte.Name = "cbxDokWerte"
+        Me.cbxDokWerte.Size = New System.Drawing.Size(144, 24)
+        Me.cbxDokWerte.TabIndex = 2
+        Me.cbxDokWerte.Text = "Dokumentwerte"
+        '
+        'cbxDokZuordnung
+        '
+        Me.cbxDokZuordnung.Location = New System.Drawing.Point(16, 96)
+        Me.cbxDokZuordnung.Name = "cbxDokZuordnung"
+        Me.cbxDokZuordnung.Size = New System.Drawing.Size(144, 24)
+        Me.cbxDokZuordnung.TabIndex = 3
+        Me.cbxDokZuordnung.Text = "Dokumentzuordnungen"
+        '
+        'cbxAllg
+        '
+        Me.cbxAllg.Location = New System.Drawing.Point(16, 24)
+        Me.cbxAllg.Name = "cbxAllg"
+        Me.cbxAllg.Size = New System.Drawing.Size(96, 24)
+        Me.cbxAllg.TabIndex = 0
+        Me.cbxAllg.Text = "Allgemein"
+        '
+        'cbxDokStatus
+        '
+        Me.cbxDokStatus.Location = New System.Drawing.Point(16, 48)
+        Me.cbxDokStatus.Name = "cbxDokStatus"
+        Me.cbxDokStatus.Size = New System.Drawing.Size(112, 24)
+        Me.cbxDokStatus.TabIndex = 1
+        Me.cbxDokStatus.Text = "Dokumentstatus"
+        '
+        'cbxNotizen
+        '
+        Me.cbxNotizen.Location = New System.Drawing.Point(200, 24)
+        Me.cbxNotizen.Name = "cbxNotizen"
+        Me.cbxNotizen.TabIndex = 4
+        Me.cbxNotizen.Text = "Notizen"
+        '
+        'cbxBerEinschr
+        '
+        Me.cbxBerEinschr.Location = New System.Drawing.Point(200, 72)
+        Me.cbxBerEinschr.Name = "cbxBerEinschr"
+        Me.cbxBerEinschr.Size = New System.Drawing.Size(184, 24)
+        Me.cbxBerEinschr.TabIndex = 6
+        Me.cbxBerEinschr.Text = "Berechtigungseinschränkungen"
+        '
+        'btnDrucken
+        '
+        Me.btnDrucken.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnDrucken.Location = New System.Drawing.Point(336, 160)
+        Me.btnDrucken.Name = "btnDrucken"
+        Me.btnDrucken.TabIndex = 9
+        Me.btnDrucken.Text = "Drucken"
+        '
+        'btnAbbrechen
+        '
+        Me.btnAbbrechen.DialogResult = System.Windows.Forms.DialogResult.Abort
+        Me.btnAbbrechen.Location = New System.Drawing.Point(256, 160)
+        Me.btnAbbrechen.Name = "btnAbbrechen"
+        Me.btnAbbrechen.TabIndex = 8
+        Me.btnAbbrechen.Text = "Abbrechen"
+        '
+        'btnSelectAll
+        '
+        Me.btnSelectAll.Location = New System.Drawing.Point(16, 160)
+        Me.btnSelectAll.Name = "btnSelectAll"
+        Me.btnSelectAll.Size = New System.Drawing.Size(88, 23)
+        Me.btnSelectAll.TabIndex = 10
+        Me.btnSelectAll.Text = "Alle auswählen"
+        '
+        'frmMetaDatenSelector
+        '
+        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
+        Me.ClientSize = New System.Drawing.Size(424, 189)
+        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnSelectAll, Me.btnAbbrechen, Me.btnDrucken, Me.GroupBox1})
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmMetaDatenSelector"
+        Me.Text = "Dokumentinformationen drucken"
+        Me.GroupBox1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+#End Region
+
+#Region "Deklarationen"
+
+    Dim m_DokumentID As String
+    Dim m_DruckParameter As String = ""
+
+    Property Prop_DokumentID() As String
+        Get
+            Return m_DokumentID
+        End Get
+        Set(ByVal Value As String)
+            m_DokumentID = Value
+        End Set
+    End Property
+
+    Property Prop_DruckParameter() As String
+        Get
+            Return m_DruckParameter
+        End Get
+        Set(ByVal Value As String)
+            m_DruckParameter = Value
+        End Set
+    End Property
+
+#End Region
+
+    Private Sub frmMetaDatenSelector_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub btnDrucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrucken.Click
+        Try
+            Dim s As String
+            s = "0;"
+            'Allgemeine Informationen
+            If cbxAllg.Checked = True Then
+                s = s + "1;"
+            End If
+            'Dokument Status
+            If cbxDokStatus.Checked = True Then
+                s = s + "2;"
+            End If
+            'Notizen
+            If cbxNotizen.Checked = True Then
+                s = s + "3;"
+            End If
+            'Dokument Zuordnungen
+            If cbxDokZuordnung.Checked = True Then
+                s = s + "4;"
+            End If
+            'Dokument Werte
+            If cbxDokWerte.Checked = True Then
+                s = s + "5;"
+            End If
+            'Informationsmeldungen
+            If cbxInfomeldung.Checked = True Then
+                s = s + "6;"
+            End If
+            'Berechtigungsaeinschränkung
+            If cbxBerEinschr.Checked = True Then
+                s = s + "7;"
+            End If
+            'Ersetzte Dokumente
+            If cbxErsetzteDok.Checked = True Then
+                s = s + "8;"
+            End If
+            m_DruckParameter = s
+            Me.Close()
+            'genReport(s)
+        Catch ex As Exception
+        End Try
+    End Sub
+
+    Private Sub btnAbbrechen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbrechen.Click
+        Me.Close()
+    End Sub
+
+    Public Function genReport(ByVal sMetDataOption As String, ByVal parentform As Form)
+
+        Try
+            Dim r As New Reporting20.EDOKA_Reporting(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("user_report").ToString, _
+        Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("passwort_report").ToString, _
+        Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("report_server").ToString, _
+        Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("report_db").ToString)
+
+
+            Dim Dokument_Temp As String
+            Dim sReportBezNAme As String
+            Dim reportNr As Integer
+            Dim sReportname As String
+            sReportBezNAme = "Metadaten Report"
+            sReportname = "MetaDataReport.rpt"
+            reportNr = 20
+
+            Dim objReport As New edokadb.clsReporting_Dokumenttyp()
+            Dokument_Temp = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente"), String)
+            objReport.Get_DocumentFrom_DB("reportNr", reportNr, "report", "reportfile", Dokument_Temp, sReportname)
+            objReport = Nothing
+
+            r.ShowMetaDataReport(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente").ToString, _
+                                 "MetaDataReport.rpt", _
+            "@MANr=" + Str(Globals.MitarbeiterNr) + "&@MetDataOption=" + sMetDataOption + "&@OfficeDokID=" + m_DokumentID, "Metadaten Report", parentform)
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
+        'Me.Cursor = Cursors.WaitCursor
+        'Dim f As New frmReportViewer()
+        'Dim objReport As New edokadb.clsReporting_Dokumenttyp()
+        'Dim ParameterCollection As New Collection()
+        'Dim Dokument_Temp As String
+        'Dim sReportBezNAme As String
+        'Dim reportNr As Integer
+        'Dim sReportname As String
+        'sReportBezNAme = "Metadaten Report"
+        'sReportname = "MetaDataReport.rpt"
+        'reportNr = 20
+
+        ''=======================================
+        ''Dokument Speichern
+        ''=======================================
+        'Dokument_Temp = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente"), String)
+        'objReport.Get_DocumentFrom_DB("reportNr", reportNr, "report", "reportfile", Dokument_Temp, sReportname)
+        'objReport = Nothing
+        'f.WindowTitel = sReportBezNAme
+        ''ParameterCollection = FillParameterCollection(sMetDataOption)
+
+        'If Not f.show_reportWithParameter(sReportname, "@MANr=" + Str(Globals.MitarbeiterNr) + "&@MetDataOption=" + sMetDataOption + "&@OfficeDokID=" + m_DokumentID) Then
+        '    If MyMsg.Show_MessageYesNo(217) Then
+        '        Exit Function
+        '    End If
+        'End If
+
+        'Try
+        '    'f.crviewer.Visible = True
+        '    f.Show()
+        'Catch ex As Exception
+        '    Me.Cursor = Cursors.Default
+        '    MsgBox(ex.Message)
+        'End Try
+        'Me.Cursor = Cursors.Default
+    End Function
+
+    Private Function FillParameterCollection(ByVal sMetDataOption As String) As Collection
+        Dim colParameter As New Microsoft.VisualBasic.Collection()
+        Dim iCnt As Integer
+        Dim sParameterKey As String
+        Dim sParameterValue As String
+        Dim sFilterDisplayValue As String
+        Try
+            sParameterKey = "@MANr"
+            Debug.Write(sParameterKey & vbCrLf)
+            sParameterValue = Globals.MitarbeiterNr
+            Debug.Write(sParameterKey & vbTab & sParameterValue & vbCrLf)
+            colParameter.Add(Item:=sParameterValue, Key:=sParameterKey)
+
+            sParameterKey = "@MetDataOption"
+            Debug.Write(sParameterKey & vbCrLf)
+            sParameterValue = sMetDataOption
+            Debug.Write(sParameterKey & vbTab & sParameterValue & vbCrLf)
+            colParameter.Add(Item:=sParameterValue, Key:=sParameterKey)
+
+            sParameterKey = "@OfficeDokID"
+            Debug.Write(sParameterKey & vbCrLf)
+            sParameterValue = m_DokumentID
+            Debug.Write(sParameterKey & vbTab & sParameterValue & vbCrLf)
+            colParameter.Add(Item:=sParameterValue, Key:=sParameterKey)
+
+
+            FillParameterCollection = colParameter
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
+    End Function
+
+    Private Sub btnSelectAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectAll.Click
+        Me.cbxAllg.Checked = True
+        Me.cbxBerEinschr.Checked = True
+        Me.cbxDokStatus.Checked = True
+        Me.cbxDokWerte.Checked = True
+        Me.cbxDokZuordnung.Checked = True
+        Me.cbxErsetzteDok.Checked = True
+        Me.cbxInfomeldung.Checked = True
+        Me.cbxNotizen.Checked = True
+    End Sub
+
+End Class