shu/EDOKA_DMS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Initial

Browse Source
This commit is contained in:
Stefan Hutter
2022-12-25 10:09:49 +01:00
commit 406d053e79
3903 changed files with 2127541 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

373
EDOKA/Systemadministration/Diverses/FrmBarcodeDefinition.designer.vb generated Normal file
View File

@@ -0,0 +1,373 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmBarcodeDefinition
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(FrmBarcodeDefinition))
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.ListView1 = New System.Windows.Forms.ListView()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.TSBtnSave = New System.Windows.Forms.ToolStripButton()
Me.Label4 = New System.Windows.Forms.Label()
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtFontname = New System.Windows.Forms.TextBox()
Me.ComboBox3 = New System.Windows.Forms.ComboBox()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "")
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(16, 43)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(68, 13)
Me.Label1.TabIndex = 6
Me.Label1.Text = "Barcode-Typ"
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Items.AddRange(New Object() {"2of5", "Datamatrix"})
Me.ComboBox1.Location = New System.Drawing.Point(100, 40)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(148, 21)
Me.ComboBox1.TabIndex = 7
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(16, 74)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(47, 13)
Me.Label2.TabIndex = 8
Me.Label2.Text = "Delimiter"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(100, 71)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(42, 20)
Me.TextBox1.TabIndex = 9
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(16, 110)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(76, 13)
Me.Label3.TabIndex = 10
Me.Label3.Text = "Barcode-Inhalt"
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(100, 107)
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(266, 120)
Me.TextBox2.TabIndex = 11
'
'ListBox1
'
Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Items.AddRange(New Object() {"DokumentID", "BPNr", "PersonNrRO", "Dokumenttypnr", "Officevorlagenr", "Datum", "Zeit", "Timestamp"})
Me.ListBox1.Location = New System.Drawing.Point(3, 3)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(379, 110)
Me.ListBox1.TabIndex = 12
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Location = New System.Drawing.Point(399, 85)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(393, 142)
Me.TabControl1.TabIndex = 13
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.ListBox1)
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(385, 116)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Standard-Elemente"
Me.TabPage1.UseVisualStyleBackColor = True
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.ListView1)
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(385, 116)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Vorlagenfeldregeln"
Me.TabPage2.UseVisualStyleBackColor = True
'
'ListView1
'
Me.ListView1.Activation = System.Windows.Forms.ItemActivation.OneClick
Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ListView1.HotTracking = True
Me.ListView1.HoverSelection = True
Me.ListView1.Location = New System.Drawing.Point(3, 3)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(379, 110)
Me.ListView1.TabIndex = 0
Me.ListView1.UseCompatibleStateImageBehavior = False
Me.ListView1.View = System.Windows.Forms.View.Details
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(555, 28)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(237, 36)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 14
Me.PictureBox1.TabStop = False
'
'PictureBox2
'
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.PictureBox2.Location = New System.Drawing.Point(663, 28)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(129, 50)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox2.TabIndex = 15
Me.PictureBox2.TabStop = False
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnSave})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(798, 25)
Me.ToolStrip1.TabIndex = 16
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnQuit.Name = "TSBtnQuit"
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
Me.TSBtnQuit.Text = "ToolStripButton1"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'TSBtnSave
'
Me.TSBtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnSave.Image = CType(resources.GetObject("TSBtnSave.Image"), System.Drawing.Image)
Me.TSBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnSave.Name = "TSBtnSave"
Me.TSBtnSave.Size = New System.Drawing.Size(23, 22)
Me.TSBtnSave.Text = "ToolStripButton1"
Me.TSBtnSave.ToolTipText = "Daten speichern"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(16, 244)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(82, 13)
Me.Label4.TabIndex = 17
Me.Label4.Text = "Barcode-Format"
'
'ComboBox2
'
Me.ComboBox2.FormattingEnabled = True
Me.ComboBox2.Items.AddRange(New Object() {"Horizontal - Barcode rechts", "Horizontal - Barcode links", "Vertikal - Barcode unten", "Vertikal - Barcode oben"})
Me.ComboBox2.Location = New System.Drawing.Point(100, 241)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(266, 21)
Me.ComboBox2.TabIndex = 18
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(131, 268)
Me.TextBox3.Multiline = True
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(235, 65)
Me.TextBox3.TabIndex = 19
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(16, 271)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(109, 13)
Me.Label5.TabIndex = 20
Me.Label5.Text = "Barcode-Beschriftung"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(16, 374)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(68, 13)
Me.Label6.TabIndex = 21
Me.Label6.Text = "Schriftgrösse"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(16, 342)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(80, 13)
Me.Label7.TabIndex = 22
Me.Label7.Text = "Schriftart-Name"
'
'txtFontname
'
Me.txtFontname.Location = New System.Drawing.Point(131, 342)
Me.txtFontname.Name = "txtFontname"
Me.txtFontname.Size = New System.Drawing.Size(235, 20)
Me.txtFontname.TabIndex = 23
'
'ComboBox3
'
Me.ComboBox3.FormattingEnabled = True
Me.ComboBox3.Items.AddRange(New Object() {"6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16"})
Me.ComboBox3.Location = New System.Drawing.Point(131, 369)
Me.ComboBox3.Name = "ComboBox3"
Me.ComboBox3.Size = New System.Drawing.Size(121, 21)
Me.ComboBox3.TabIndex = 24
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(131, 401)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(42, 20)
Me.TextBox4.TabIndex = 26
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(16, 404)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(67, 13)
Me.Label8.TabIndex = 25
Me.Label8.Text = "Kantenlänge"
'
'FrmBarcodeDefinition
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(798, 430)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.ComboBox3)
Me.Controls.Add(Me.txtFontname)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.ComboBox2)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.Label1)
Me.Name = "FrmBarcodeDefinition"
Me.Text = "BarcodeDefinition"
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
Friend WithEvents TSBtnSave As System.Windows.Forms.ToolStripButton
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents txtFontname As System.Windows.Forms.TextBox
Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
End Class

424
EDOKA/Systemadministration/Diverses/FrmBarcodeDefinition.resx Normal file
View File

@@ -0,0 +1,424 @@
<?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="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAY
CAAAAk1TRnQBSQFMAwEBAAFMAQABTAEAARABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA
AUADAAEQAwABAQEAAQgGAAEEGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA
AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA
AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm
AwABmQMAAcwCAAEzAwACMwIAATMBZgIAATMBmQIAATMBzAIAATMB/wIAAWYDAAFmATMCAAJmAgABZgGZ
AgABZgHMAgABZgH/AgABmQMAAZkBMwIAAZkBZgIAApkCAAGZAcwCAAGZAf8CAAHMAwABzAEzAgABzAFm
AgABzAGZAgACzAIAAcwB/wIAAf8BZgIAAf8BmQIAAf8BzAEAATMB/wIAAf8BAAEzAQABMwEAAWYBAAEz
AQABmQEAATMBAAHMAQABMwEAAf8BAAH/ATMCAAMzAQACMwFmAQACMwGZAQACMwHMAQACMwH/AQABMwFm
AgABMwFmATMBAAEzAmYBAAEzAWYBmQEAATMBZgHMAQABMwFmAf8BAAEzAZkCAAEzAZkBMwEAATMBmQFm
AQABMwKZAQABMwGZAcwBAAEzAZkB/wEAATMBzAIAATMBzAEzAQABMwHMAWYBAAEzAcwBmQEAATMCzAEA
ATMBzAH/AQABMwH/ATMBAAEzAf8BZgEAATMB/wGZAQABMwH/AcwBAAEzAv8BAAFmAwABZgEAATMBAAFm
AQABZgEAAWYBAAGZAQABZgEAAcwBAAFmAQAB/wEAAWYBMwIAAWYCMwEAAWYBMwFmAQABZgEzAZkBAAFm
ATMBzAEAAWYBMwH/AQACZgIAAmYBMwEAA2YBAAJmAZkBAAJmAcwBAAFmAZkCAAFmAZkBMwEAAWYBmQFm
AQABZgKZAQABZgGZAcwBAAFmAZkB/wEAAWYBzAIAAWYBzAEzAQABZgHMAZkBAAFmAswBAAFmAcwB/wEA
AWYB/wIAAWYB/wEzAQABZgH/AZkBAAFmAf8BzAEAAcwBAAH/AQAB/wEAAcwBAAKZAgABmQEzAZkBAAGZ
AQABmQEAAZkBAAHMAQABmQMAAZkCMwEAAZkBAAFmAQABmQEzAcwBAAGZAQAB/wEAAZkBZgIAAZkBZgEz
AQABmQEzAWYBAAGZAWYBmQEAAZkBZgHMAQABmQEzAf8BAAKZATMBAAKZAWYBAAOZAQACmQHMAQACmQH/
AQABmQHMAgABmQHMATMBAAFmAcwBZgEAAZkBzAGZAQABmQLMAQABmQHMAf8BAAGZAf8CAAGZAf8BMwEA
AZkBzAFmAQABmQH/AZkBAAGZAf8BzAEAAZkC/wEAAcwDAAGZAQABMwEAAcwBAAFmAQABzAEAAZkBAAHM
AQABzAEAAZkBMwIAAcwCMwEAAcwBMwFmAQABzAEzAZkBAAHMATMBzAEAAcwBMwH/AQABzAFmAgABzAFm
ATMBAAGZAmYBAAHMAWYBmQEAAcwBZgHMAQABmQFmAf8BAAHMAZkCAAHMAZkBMwEAAcwBmQFmAQABzAKZ
AQABzAGZAcwBAAHMAZkB/wEAAswCAALMATMBAALMAWYBAALMAZkBAAPMAQACzAH/AQABzAH/AgABzAH/
ATMBAAGZAf8BZgEAAcwB/wGZAQABzAH/AcwBAAHMAv8BAAHMAQABMwEAAf8BAAFmAQAB/wEAAZkBAAHM
ATMCAAH/AjMBAAH/ATMBZgEAAf8BMwGZAQAB/wEzAcwBAAH/ATMB/wEAAf8BZgIAAf8BZgEzAQABzAJm
AQAB/wFmAZkBAAH/AWYBzAEAAcwBZgH/AQAB/wGZAgAB/wGZATMBAAH/AZkBZgEAAf8CmQEAAf8BmQHM
AQAB/wGZAf8BAAH/AcwCAAH/AcwBMwEAAf8BzAFmAQAB/wHMAZkBAAH/AswBAAH/AcwB/wEAAv8BMwEA
AcwB/wFmAQAC/wGZAQAC/wHMAQACZgH/AQABZgH/AWYBAAFmAv8BAAH/AmYBAAH/AWYB/wEAAv8BZgEA
ASEBAAGlAQADXwEAA3cBAAOGAQADlgEAA8sBAAOyAQAD1wEAA90BAAPjAQAD6gEAA/EBAAP4AQAB8AH7
Af8BAAGkAqABAAOAAwAB/wIAAf8DAAL/AQAB/wMAAf8BAAH/AQAC/wIAA/9HAAEDAf88AAHsAQMB7AH/
OgABAwHsAQMB7AEDAf85AAEDAewBAwHsAQMB7AH/AQAB7DcAAewBAwHsAQMB7AEDAf8BAAHsNwABAwHs
AQMCAAHsAf8BAAHsNwAB7AEDAewCBwEDAf8BAAHsAQABBjUAAQMB7AEDAewBAwHsAf8CAAEGBf4xAAHs
AQMB7AEDAewBAwH/AQABbQb+MQABAwHsAQMB7AEDAewB/wEAAewBbQH+BG0xAAHsAQMB7AEDAewBAwH/
AQAB7AEAAm00AAEDAewBAwHsAQcB/wHsAQAB7AIAAW00AAHsAQMBBwH/AewBAAPsNwABBwH/AewBAAXs
dgABQgFNAT4HAAE+AwABKAMAAUADAAEQAwABAQEAAQEFAAGAFwAD/wEAAfwBfwYAAfABfwYAAcABfwcA
AR8HAAEfBwABFwcAAQcnAAEHBwABFwcAAR8HAAEfBwABHwYACw==
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAMCAgMCAgMDAwMEAwMEBQgFBQQEBQoHBwYIDAoMDAsKCwsN
DhIQDQ4RDgsLEBYQERMUFRUVDA8XGBYUGBIUFRT/2wBDAQMEBAUEBQkFBQkUDQsNFBQUFBQUFBQUFBQU
FBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBT/wAARCABDAbIDASIAAhEBAxEB/8QA
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9Odc8QaZ4ZsWvtW1G20yzRtv2i8lWJN3+81RR+LdDl1hdJXV7
J9SaD7R9l89PN8r+9s/u15N+2N/yRO6/6/IP/Q64R/8Ak4S4/wCxI/8AbegD6i/tKz8lJvtMPks21X8x
djUy51ixs5vLnvraGX+5NKqNXyxcov8Awy78PP8AZ1iz/wDSiuK/auhWb42ahuX/AJc7X/0B6APuK1uo
LyHzYJo5Yv70T71qK41azsG23N5DbN/cmlVK8i/ZFTZ8G7fb/wA/11/6HXkP7Z6K/j7RN3/QO/8Aar0A
fYFreQXkPm200cyf3om30NcxRypE0ipK33VZvmavD/2Ofk+F9x/2EZa6zxn/AMls+H//AFwvP/QEoA7O
bxZoser3Gky6tZJqVvB9oltXnTzVi/vsn92rGh67p/iOxS+0u/ttSs3+7cWkqyo3/Alr5x8T/wDJznjL
/sUrj/0Uldv+yL/yQ7R/+u8//o16APSdd8c+H/DN1Fa6trun6VcSrvSK7uUiZl/vfNTLbx54cvNJu9Wg
13TptNtW2z3SXSNFH/vt/D96vlz9tJFf4ieH9y/8wl//AEbVX4dIv/DLXxLXb/y+L/6Bb0AfVGm/Enwn
rV/FZWHiLS7u8lG2O3t7xGdv91a0tE8SaV4kjmk0vU7XUo4JPKleznWXY/8AdbbXwl+z2ip8afCnyr/r
5f8A0U9fQf7H/wDyLPi7/sNS/wDoCUAe06p4k0rQbixh1PUrWwmvZfKtkuZlRpX/ALqZ+996rl1dxWdr
Lc3Eiw28as0krttVVX+KvCv2nP8Akb/hP/2G1/8AQ4q9d+IX/Ig+Jf8AsGXX/op6ACTx74dh0WLWm17T
k0iaTyor37Svks39zf8A8Bal0Tx54b8R3rWela9pupXSp5vlWl0kr7f721a+TtYRf+GN/DS7Pk/tp/8A
0bcVD+x+ir8YLjav/MJl/wDRsVAH1RJ8XfA6fe8XaIn/AG/Rf/F1sXHiTS7bWLXSpNTtIdSuk82C0eVR
LKv95V/i+61fmlqSLvu22/P5rf8AodfYXjD/AJOq+HX/AGCn/wDQLigD3q5uoLNN880cKs23dK2yl+1Q
faPI8yP7Rt3eVu+fbXkX7UX/ACJ/hz/sYrP/ANnpz/8AJ1UX/Yst/wClCUAeo/8ACRaV/wBBOz/7/rWh
X5eXMKpcTNt+fz2/9Dr9OtN/5B9p/wBcl/8AQKAHw3UF1u8iWOba21trbtrUy71K1sNv2m5htt33fOlV
K8l/Zv8A9X49/wCxkuv/AGSvPP220V5fB6t/09f+yUAfTtrqFtqCM9tcx3Cr95on3baw/wDhY3hb+yf7
T/t/TP7N+0fZftX2pPK83bu27/71eKfsW/J4N8S/9fif+gV5C6L/AMMyRfL/AMzr/wC29AH3dXKXfxU8
H2dzPbXXinSLa4gdopYZryJHRl+8rZaurr83/iii/wDCyPGbbf8AmLXn/o16AP0A1Tx54c0S2srq/wBc
0+xt75fNtpbi5RFnXj5k/vfeWorf4jeFr3Tb7UIPEWlzWVnt+03C3ibIt33d7/w18s/tIfP8O/g//wBg
n/23t65fwMi/8KF+Kvyf8tdN/wDRtAH3Xa3cF/bRXNrIs1vIqyRSq25XVv4qb/aFrtlb7TDsh+WV/MX5
f96sb4b/APJO/C//AGCbX/0UlfP2j/8AJMvjx/2Fb3/0N6APpibVbG3WJpryGFZPmV3lVd1PtNQtb7d9
muYbnb97yZFfbXxx+0giv4I+Eit/0CW/9FW9dh+xIipF4wVf71r/AOgPQB9NT3UFq0Syyxo8jbV3Nt3N
U33F3NXjnx+/5GL4Wf8AYyRf+gV6rrn/ACB9Q/64S/8AoFAAuvaZMyquoWju38KzrVj7VB9o8jzI/tG3
d5W759tfmv8ADpF/4TTw438f9oxf+h19ip/ydpL/ANi2v/o16APW/wC3tNRtrahab/7nnpV7767lr80f
EkKv4y1Ntvz/ANpy/wDo2v0j0v8A5Bdl/wBcE/8AQKAGNr2mxMyvqFojL8rK861dR0kVWVt6N91lr81f
H9tE/jTxQzL/AMxG6/8ARr1+hvgP/kRvDv8A2Drf/wBFJQBsfbIP3376P9z/AKz5vu/71U9V8RaVoumn
UdQ1C3s9P+X/AEq4kVIju+781eK6D/yF/j7/ANdF/wDSV6yPip/yaJo//XKw/wDRqUAe4aT8Q/DHiC+W
x03X9Ov711Zlt7e6R3bb/s1e0fxNpPiF7pNL1Oz1JrWTyZ/sk6y+U/8Adfb91q+LP2V0VPjdpW1f+XO6
/wDQK9l/ZN/5CHxL/wCw+/8A6G9AHs2veNNB8LyQxavrWn6XLKu6Jbu4SLcv+zupln488Nanpt7qNpr2
m3FhY/8AHzcQ3SMkH++2flr5p/bYRZPFHhXcv/Lncf8AoaVhfB9U/wCGffi78v8AyyX/ANFUAfZOmalZ
6zp8N9Y3Md3ZzpviuIH3qy/7LVStvFWjXmoahYwaraTXlgu+7t0nVngX/bX+GuT/AGe/+SKeD/8ArxWv
LfA3/Jcvjb/15/8AslAHtMXxa8FXDRLF4r0Z2lZVVUv4vm3f8CrY/wCEj0r+3v7H/tO1/tnyvN+w+avn
bP72z722vzY8Kov9raE21d/2y1/9GpX13/zef/3AKAPoCiiigDw/9sb/AJIndf8AX5B/6HXCP/ycJcf9
iR/7b13f7Y3/ACRO6/6/IP8A0OuEf/k4S4/7Ej/23oAr3H/Jrnw//wCwxZ/+lFcZ+1X/AMls1P8A687X
/wBAeuzuP+TXPh//ANhiz/8ASiuM/ar/AOS2an/152v/AKA9AHvv7Iv/ACRu3/6/7r/0bXkv7Zn/ACUD
RP8AsHf+1a9a/ZF/5I3b/wDX/df+ja8l/bM/5KBon/YO/wDatAHpv7Hn/JL7v/sIy11fjL/ktPgL/rhe
f+gVyn7Hn/JL7v8A7CMtdX4y/wCS0+Av+uF5/wCgUAeW+J/+TnPGX/YpXH/opK7f9kX/AJIdo/8A13n/
APRr1xHif/k5zxl/2KVx/wCikrt/2Rf+SHaP/wBd5/8A0a9AHkX7aH/JQ/D/AP2CX/8ARtVPh1/ya78S
v+vxf/berf7aH/JQ/D//AGCX/wDRtVPh1/ya78Sv+vxf/begDkP2e/8AktPhX/rvL/6KevoD9j//AJFn
xd/2Gpf/AEBK+f8A9nv/AJLT4V/67y/+inr6A/Y//wCRZ8Xf9hqX/wBASgBP2nP+Rw+FH/YbX/0bFXr3
xC/5EHxL/wBgy6/9FPXkP7Tn/I4fCj/sNr/6Nir174hf8iD4l/7Bl1/6KegD5P1j/kzfw1/2Gn/9G3FR
fsf/APJX7j/sEy/+jYql1j/kzfw1/wBhp/8A0bcVF+x//wAlfuP+wTL/AOjYqAPEdS/5e/8Arq3/AKHX
2F4w/wCTqvh1/wBgp/8A0C4r491L/l7/AOurf+h19heMP+Tqvh1/2Cn/APQLigDe/ai/5E/w5/2MVn/7
PTn/AOTqov8AsWW/9KEpv7UX/In+HP8AsYrP/wBnpz/8nVRf9iy3/pQlAHw/ef6yb/ru3/odfpxpv/IP
tP8Arkv/AKBX5j3n+sm/67t/6HX6cab/AMg+0/65L/6BQB5L+zf/AKvx7/2Ml1/7JXnn7bP/AB8eDv8A
t6/9kr0P9m//AFfj3/sZLr/2SvPP22f+Pjwd/wBvX/slAGt+xf8A8ib4l/6/P/ZK8hf/AJNnT/sdf/be
vXv2L/8AkTfEv/X5/wCyV5C//Js6f9jr/wC29AH3dX5v/FH/AJKN4y/7C15/6Nev0gr83/ij/wAlG8Zf
9ha8/wDRr0Aeq/tGf8k++D//AGCf/be3rl/A/wDyQX4q/wDXXTf/AEbXUftGf8k++D//AGCf/be3rl/A
/wDyQX4q/wDXXTf/AEbQB9ofDf8A5J34X/7BNr/6KSvn7R/+SZfHj/sK3v8A6G9fQPw3/wCSd+F/+wTa
/wDopK+ftH/5Jl8eP+wre/8Aob0Acn+0h/yJPwh/7BLf+ireuv8A2J/ueMP961/9AeuQ/aQ/5En4Q/8A
YJb/ANFW9df+xP8Ac8Yf71r/AOgPQB33x+/5GL4Wf9jJF/6BXquuf8gfUP8ArhL/AOgV5V8fv+Ri+Fn/
AGMkX/oFeq65/wAgfUP+uEv/AKBQB+cXw8/5HLw1/wBhGL/0OvsJP+TtJf8AsW1/9GvXx78PP+Ry8Nf9
hGL/ANDr7CT/AJO0l/7Ftf8A0a9AHx74i/5HDU/+wnL/AOja/SDS/wDkF2X/AFwT/wBAr83/ABF/yOGp
/wDYTl/9G1+kGl/8guy/64J/6BQB+cXxA/5HLxN/2Ebr/wBGvX6FeA/+RG8O/wDYOt//AEUlfnr8QP8A
kcvE3/YRuv8A0a9foV4D/wCRG8O/9g63/wDRSUAeRaJ/yF/j7/vL/wCkr1j/ABR/5NE0f/rlYf8Ao1K2
NE/5C/x9/wB5f/SV6x/ij/yaJo//AFysP/RqUAeVfsr/APJbtK/687r/ANAr2X9k3/kIfEv/ALD7/wDo
b141+yv/AMlu0r/rzuv/AECvZf2Tf+Qh8S/+w+//AKG9AHGftrf8jX4U/wCvO4/9DSsL4P8A/Jvvxd/6
5f8AtKt39tb/AJGvwp/153H/AKGlYXwf/wCTffi7/wBcv/aVAH0h+z3/AMkX8H/9eK15b4G/5Ll8bf8A
rz/9kr1L9nv/AJIv4P8A+vFa8t8Df8ly+Nv/AF5/+yUAfLnhX/kL6D/1+Wv/AKNSvrj/AJvP/wC4BXyP
4V/5C+g/9flr/wCjUr64/wCbz/8AuAUAfQFFFFAHh/7Y3/JE7r/r8g/9DrhH/wCThLj/ALEj/wBt6+if
HXgPSPiR4ffRdbhkuLB5FlZIpXibev8AtLWZ/wAKl8N/8JQ+vfZJP7SbTv7K3ec+3yNuzbt/9moA8BuP
+TXPh/8A9hiz/wDSiuM/ar/5LZqf/Xna/wDoD19XN8IPDD+DdK8Lm1m/sjTZ4ri2j899yujb1+b+Ksfx
j8GPAXxA8XS3mroZtdaBQ8MV86P5S/d+RWoAxv2Rf+SN2/8A1/3X/o2vJf2zP+SgaJ/2Dv8A2rX1D4I8
DaR8PdBTSNGgkhsllaXbLK0rbm+98zVi+PPgv4V+JWpW+o65aTTXVvH5KPFcvF8v3v4aAOF/Y8/5Jfd/
9hGWur8Zf8lp8Bf9cLz/ANArb8G+GfDHwzt18O6RNHZtOzTraXF1vmb/AGvmbdWxfeFdO1LxBputTxs+
oaesiwP5jKq7/vfLQB89eJ/+TnPGX/YpXH/opK7f9kX/AJIdo/8A13n/APRr12198K/DuoeLNQ8SyW0j
atfWLafPMZm2mJl27dtTeGPDfh34S+F4NLsZY9L0qKVtn2q5/iZv7zUAfM37aH/JQ/D/AP2CX/8ARtVP
h1/ya78Sv+vxf/bevpLx58FfC3xO1G11DXLaa5uLeD7PE0Vy8Xybt38NM0r4I+E9H8G6t4XtbOdNI1Rv
NuYnuX3M3yfx/eX7i0AfIP7Pf/JafCv/AF3l/wDRT19Afsf/APIs+Lv+w1L/AOgJXTaP8DPh78ONUtPE
cSPps1g++K4u9QfykZk2fxtt/irrPAHgHQfAWm3Ufh+J0tb+f7bKzztLud/4lZqAPLP2nP8AkcPhR/2G
1/8ARsVevfEL/kQfEv8A2DLr/wBFPVbxf8O9D8cXmi3erwSTzaTc/arRkmZNrfL/AHfvfdWtnWrK01DR
760v22WVxA8U77tvyMu1vmoA+P8AWP8Akzfw1/2Gn/8ARtxUX7H/APyV+4/7BMv/AKNir6Mh+DvgvWvh
3Y+F7dGvPDVvP9qt/s947/Nub/lru+b7zVN4F+BfhH4d64+r6HaTw3jwPb7pbl5flba33W/3aAPz/wBS
/wCXv/rq3/odfYXjD/k6r4df9gp//QLiuhm/ZR+HczPu0y7+Zt7f6dL/APF12V14D8P6x42sPErI0uta
NGbWJkmbbErK3ysv+7L+tAHFftRf8if4c/7GKz/9npz/APJ1UX/Yst/6UJXoPjHwXpPjiytLTV4GntrW
6jvI1SVkxKn3fu/71L/whOl/8Jl/wlPlSf2v9j+xed5r7PK3bvu/doA/N28/1k3/AF3b/wBDr9ONN/5B
9p/1yX/0CvJP+GWPhtcvKy2N0/735tmoS/K3/fdewwxrDEsS/cVdlAHj/wCzf/q/Hv8A2Ml1/wCyV55+
2z/x8eDv+3r/ANkr6H8KeCdK8G/2n/ZUDQf2jePez75WffK/3vvVz3jL4f8Ag34yS266nIuoy6Wzr/oN
5t8pm+8r7W/2aAPL/wBi/wD5E3xL/wBfn/sleQv/AMmzp/2Ov/tvX2F8P/hjoPw10+7s9Bt5YLe6l82X
zp2l+b/gVYf/AAz74L/4RT/hHPsNz/ZX9of2j5X2yXf5+3bv37v7tAHpFfm/8Uf+SjeMv+wtef8Ao16/
RNtWsV1BbFru3S9Zdy2/mr5rL/u15rrH7MfgPXdW1DULvT7t7u8na4ndbyVN7O+5v4qAPC/2jP8Akn3w
f/7BP/tvb1y/gf8A5IL8Vf8Arrpv/o2vrTxV8EfCfjLS9B07VbSaa30aD7PZqty67E2Iv/AvuLWPbfBP
4eaDpGpeFl/cxa95Ty2k2ov5svlNvTZ8+7/vmgDtPhv/AMk78L/9gm1/9FJXz9o//JMvjx/2Fb3/ANDe
vpfS9Lg0XS7LT7VWS1tYUt4lZt3yKu1a5qH4U+HLfSfEemRW0i2niCeW4vk89vmZ/v7f7tAHzD+0h/yJ
Pwh/7BLf+ireuv8A2J/ueMP961/9AevXfF3wY8HeLrHQ7HV7aX7PpMf2WxCXbxfIyp8v3vm+4taXw9+F
Phv4Yrff2DbTW/2zZ5/mztLu2/d+9/vUAcd8fv8AkYvhZ/2MkX/oFeq65/yB9Q/64S/+gVneJPBWleLr
rR7nUo5JZdIvFvbXbK67ZV/9Cq5rGoaZY26Qald29ol0fIT7RKsXmf7K0AfnP8PP+Ry8Nf8AYRi/9Dr7
CT/k7SX/ALFtf/Rr1oaT+y94A0e/tLy10+7S4tZVmi330rfMv/A67n/hB9J/4TVvFPkSf201n9i87zX2
eVu3Y2/doA/PTxF/yOGp/wDYTl/9G1+kGl/8guy/64J/6BXlGsfs3/DWG4uNU1G3lti8/wBokml1B4k3
M+7+9Xrdssa2sSwNui2rt2t/DQB+b3xA/wCRy8Tf9hG6/wDRr1+hXgP/AJEbw7/2Drf/ANFJXCat+y94
B1i+ury50+7ee6laWTZfyr8zvvb+OvRoVsfDOhwxPLHa6fYQLEJriTakaKu35nagDxfRP+Qv8ff95f8A
0lesf4o/8miaP/1ysP8A0alezaV4H8PyL4hvrIG4i8SfPfSxXTOkvybPk/u/L/do1z4X+H9e8EweFLu2
kfRbdIkSJZmVv3X3PmoA+RP2V/8Akt2lf9ed1/6BXsv7Jv8AyEPiX/2H3/8AQ3rvPB/wF8GfD3Xk17Sr
Oe2vYI3RZZrt3VVb733qs/DjRfBHh2/1lfCeoWtzcanN9tvIodQ+0Nu/vbd3yr81AHg/7a3/ACNfhT/r
zuP/AENKwvg//wAm+/F3/rl/7Sr6b8f/AAd8MfE28srjXraa5ms4niiaGd4vlf8A3f8AdqvonwP8J+Hf
C+t+HrK0mTTdZ+W8Vrl3Z/k2/e/hoAZ+z3/yRfwf/wBeK15b4G/5Ll8bf+vP/wBkr3Xwnp2jeGtLg8O6
NPH5elxLF9n8/wA2WJP9r+KqOnfC3w/pXiLX9cht5Uv9di8q+YzttZf9lf4aAPz18K/8hfQf+vy1/wDR
qV9cf83n/wDcArobP9ln4d2E9vPFp13vglSWPdfy/fX5l/iruP8AhXeh/wDCf/8ACYeRL/bv2X7L53nv
s8r/AHPu0AdPRRRQAUUUUAMf5Fdl+/Xj01vBa/B+38QRmCbWFuIr3+0Fi+d7hrhVdv8Ax5lr2SuOh+Hd
rBdx7NRvU0eO4+0R6PuT7Irfe/u79u75tm7bQB2NFFFAHlt1o9pc+A/FWqzwC51DzLq6WWX52ieLc8SK
/wDdTYtejaPcSXek2U8g/fSwK7f722uZvvh3BeXk7rqF/Z2N1P8AaLrTbd0WGeTuzHZvXd/Ftauy+4u1
aACuPaKLUviRcw3LRzLa6ZG8VvLHv27pX3P/AOObf+A12FYmreHl1K6iu4b26029jXy/tFps3Mv9xt6M
tAGX8NW/4lGp2w4gstVurWBf7kSy/KtdfWfo+j22h2MNpbK3lr/HI252b+8zfxNWhQBzHiaz0azuY/EG
sTKlvYQPEqTfNEu/b8+3+Jvl203wPJeXVpe6hcW0mnW95P5ttp8337eLb/F/dZ/vbP4d1N8VeAk8Uapp
l+dUvbCfT9zwrbpE0W9v49sqN81bOi6XdabA8d5q11q7s25ZrqOJHT/Z/dItAGlXJ+Nv32oeGLOSVUtZ
9T/eo67/ADdsUron/fSbv+AV1lZ+saPBrdskUjMjqyyxTRNteJv760Ac7o+yx+JmsWNsqRWkumWt06qm
397vlTd/3yiV2VYmj+H00kzzm4uL+9utnn3lwVDttHy8LtVV9lFbdAFe8hkubWWKKdraR0ZFlVfmVv71
cb8PNLi0PXPGVrFJNMF1GJ3luH3u7taW+5mau6rN03Q4NN1LVbyNpGm1GdLiTf8AdVliSL5f+ApQBpVy
/j7xdbeENLieW8t7O7vJRa2st0+2JZW/jb/ZX71dRUN1p9tfpsuYI7hF/wCeq76AOF+Ef9mw6Zqtvpmp
R6kq6nO/2hJ1leTdt3v/AN916BWTovhyw0A3bWcKxfap3nfCr/F/7LWtQBzvxAd08Hax5cjWzvAyedE2
1493y76ytQ0e08PeKPCDabaQ27yyy2UrRLs3RfZ3f/0KJK63UNPg1axns7uNZrWeNopYm/iVq5/Q/Bf9
l6kl9Pq+oapJBG0Vut4ybYFbGduxF3f7zUAdVRRRQB5ReLFN8J/Eess0dzqSSX92l35XzLLFK+z/AL42
Kv8AwGvVIXZ4kZvvstc5ceB7e4upibu6Wwll8+bTEZPKkk3b9xO3f1/h3ba6agArgdc/s7wu11DDbNrf
iDW53lgtGK+a/wAm3738EaL/ABV31cQPh7Pb69qeq2fiTVrO71Bt0v7u2l2qv3UTfEzKn+zQB1Wk289p
pdlBdz/a7qKFUkuP+ejbfmartV7WJ4beKOSR7l1VVaV9u9v9r5asUAeNap4w0fxZ4w0e+/tyxMenar9n
s7FbpFlZ/nSWV13f8BX/AOzr2X767lrDv/B+k6lLaSy2cCPbzrcLsiT5m/2vlrcoAK4yHRrPWPGXiGTU
IVvPLgt7eKG4+ZYl2sz7P7u7P/jtdnXMa94LGqag17Z6pfaNdTRrFPNY7P3yLnar70b+83zUAN+GNzJd
eCNP81dhiaW3VP8AYildE/8AHUWupqnpmmwaPptvZWy7LeBPKRN26rlAHm/iTzNQ+JlpY/YotRng0p7i
C3vH2W67pVR3/i+f+H/gVb3w7uLNtDltbaz/ALPezupYJ7JZfNSCX77qrf3fm/8AHqs+I/Cqa1eQXsV/
d6RqUcbRJd2mzf5bEMy/OjL/AA1f0TR4dBsfs0bSTNu3y3Ev35Xb7ztQBpV5542uJ7zx94e0hdNOoW7W
9xdfvJNtujJsT96P4vvNXodYeveG0154JVu7nT7y1Zmt7q0Zdybk2t8rhlb/AIEtAGf4Fjjt49VtTp66
ddLeNJPbLL5sW5lHzxf3Vb+7/vV1lY+g6DD4et5VWee7uJ5PMnurl97SN/kfdWtigDK8SR3c2hX0WnxL
NetEyRpK+1W/4FWNpUzaBq1nYXsFhFLfl1s2sYSu3Yu7Y3/AP4q6LWtJtte0uewu4vOtZ12Ou7bVHTfD
72ZD3V/c6pON3ly3ezfEv9xdiL/3196gDaqtqCTzWFwltJ5Nw0TrG391v4Ks0x40mjZW+6y7WoA8a1jV
7yz8VfDaK0tJkvPtstlqczW3kmX/AEf5/wDe+b5v7te0VzVn4Ngh1CC+uL251CSz3LYJcbdtqrJtbbtU
bv8AefdXS0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA
BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA
BRRRQAUUUUAf/9k=
</value>
</data>
<data name="PictureBox2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAYABgAAD/4QDERXhpZgAATU0AKgAAAAgAAwE7AAIAAAAOAAAAModpAAQAAAAB
AAAAQJydAAEAAAAcAAAAoAAAAABTdGVmYW4gSHV0dGVyAAAEkAMAAgAAABQAAAB2kAQAAgAAABQAAACK
kpEAAgAAAAMyNQAAkpIAAgAAAAMyNQAAAAAAADIwMTQ6MDU6MDUgMDg6MjE6MjIAMjAxNDowNTowNSAw
ODoyMToyMgAAAFMAdABlAGYAYQBuACAASAB1AHQAdABlAHIAAAD/2wBDAAcFBQYFBAcGBQYIBwcIChEL
CgkJChUPEAwRGBUaGRgVGBcbHichGx0lHRcYIi4iJSgpKywrGiAvMy8qMicqKyr/2wBDAQcICAoJChQL
CxQqHBgcKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKir/wAAR
CABRAL4DASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIE
AwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0
NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWm
p6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEB
AQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdh
cRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpj
ZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK
0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD6RooooAKKKKACiiigAooooAKK
KKACiiigAooooA810742aLqSO8drKi2t1JDqJMg/0CJDtE8n+yTwMc1naZ+0X4Qvv7D+0v8AYv7S+0fa
fNlB/s/y87PMwOd+OMeteY+A9Ti1XQ/iR4b1q9t9L0iJJpXv1szLJFun5JC/M446VHod/wCHrv8AZsDO
lvff2D/yHNNS2MM8/n3h+z7boqdmPvHaHyBtO2gD2Xwz8ZNP8W6ba3mjaVczr5NxLqKrIpOmiMOYxL/1
02Hbj8ai0D45aB4ku7S1023kknm02a+nQSAm2MYyY2/2iB2rz668GeG9QtfDQ8JfEI6TotwLubSIF0eZ
5LgQ/PcebJuUuFZWIDgcEhc96XiK41bS/AuoePVNjNIHFho+o21kltHd2cwIkdoASVbPA3YIoA9V8P8A
xm0nxVqD2Ph2ym1C5j0E6u8UMgJEgIBtf+umWAz05q7D8TIp9P1O+h0e6e20nSpby+lDri3uohmSyb/p
qo5J6V82+GLLWfFnxE8IxeBtXhubnTtKsmvJ7eyFqLFI5RvWRWdftBQspJB+fsOK+tHFnoHhW5uNce3a
GC1efU7hLXYkxVMyymNc9QCccntzQBwtt8efDmpanPp+jxPqF2LWOa1hhkG67lbrAmf4l754rR8bfFmx
8B/2n/bmmXEf2fyv7Py6j+0923zPK/657xuz+Feer4N+H/xR0+LR/hl4obTrjTLqTUJp10+UyfvOMBm8
vAB6AE4rQ0AfEfRreTT7v4VR6rpUOP7PgvtdtZZrXJLS7pmBMm5jkcDaABzQB6LY/EbR7r4lap4Jmb7N
qdl5XkiRv+PvfD5rbB/sr1zXW14J8JfiInjDxLpEuteKNLbXbvzvN0mLw+yTHajgYu87fuKG+ny173QA
UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeLfDjWPEWj/AA6mk8LeF/8AhIpZNdvlli/tCO08pfM4
bLg7ueMCuW+H3+g/2f8A8IH/AMUz/wALG837J/y+f2N/Z+7f/rf9f5uW67Nm7jdgVR+H0f8AwjeoXGt6
Frjf2/rOrXNlFo7RxmK52SEhZHILRqeTuGOlZvivxH8UNagg+J4ls9LtdE3fZbRfKaax84rbvmN03HeR
n588HIxQB6d8S7PxP4e+KHh3x3v/ALa0DTZni+w4it/7O+0JHb58zl5d7vu+6du3HAOai+J/haw+JWsz
+H9Ws/7G8R26PJodz5rXH262TlztUqkeWwPnOR1FcjdSfDzxP8DvDUesaZd6ZIouzZrpHnXh04facybg
WP3woI8zPU7cYrIufFPg+/fwlpugeGbnxPb6MqW51K7+0W7W/wC8DZxGwU+vPpQBzk95rsfj7RfCkHiz
zru80yDwtqLf2ai/2ejy+XLac8S+Wf8Alqpy3Zq7bUvh5oXiTSrv4f8AgDxhuu9Che8vdE/sxx9s1GFT
DJN58rAR7yyJsDFF6gHk1l+ONC1L4nfHiS20WVtfXT7cyvDqCCzjMCXLAwxugBeP5wBJncQxOeKn8Z/C
pvDHj7wXqHh61t9BikexF6tvdG5ezujKzSTbZS2Y0Cj5m+X5eepoAzPh5rHh3VPC7fD/AMWeF/7W1Wwu
pZdMtv7Qkg+13LNhotyAKmAD8zMRXp3/AAujwx/wnf8Aav8AwtT/AIkH/QD/AOEdl/55bf8AX7N/3/n6
f7PSoviD4K8Y694Ymv8AT49NsdW1BTaavctdr5d1ZJ/qiS3yoSeTsA69cVkX3jXw544sNLufjL4Vw8nm
/wBkWunTTvOuDibzY0ZWX7sZXOcjJFAFrwH4h1Sf9pPX49euf+EX1DUfs3m+HfLW9+2+XZtj/SVGI9i4
k4xu3be1e/14l8H/AB1peq2PhXRdDt9Q0KKL7X5umw2jT2k2TI4zcyZYYwW4blm2ngAV7bQAUUUUAFFF
FABRRRQAUUUUAFFFFABRRRQAUUUUAfDVnPreieKNWvtI8O3N5d399Nb6XfpBIWhnWQkmEgYZ8cEc8V1/
hbxls8J6m+seHPEHi/xD4x8rEV1Y5tLz7I7f6t0be+xME4XhlAPHNVvDvxF8YaZqF9ovhbwdp/iH+zdT
uLuKR9LmuprZnkILAo3yemQB9a9tTTbHQfjPo9j4Ys7e+tJfP+3W6xLJH4bxb5j8hUAFp9oJYtu/1hHF
AHj/AIM8X6RoeoDXbLw/4msl1yGYHQ9N09X069EMTodkjOHdUyXcgfKS3YVH4O8Zf2ZoGt2UfhzxBpTa
5MNRsoNGsfMie3jXDrl2BMZ6MwBwM1LpXhy+1rwRquhx+JdLhu/ASINJ1TSb9lt7n7c5aZHlwS5IHlqF
C/MxU7s1meBdf/4RzxlpkC6T4s1jU7DSbm0utJubbz/IlYcLHDkMsXTcDg89KAJbDxtrGj+NF1fTdJ8Q
C3ufDPlSK9kQ+lWTSBjLagHDQRgDy3cgHvioNC8b+IrD4iXmreItH1rxJpl5o7wy/brRhMdHeUMZ9q/L
t2g852ZY/N3rQsr2+/4T64hnttQ0r+0vDLWuo6ZrsbQS+VJLiW10mI/9828bZGQwPSvQP7e8EeIPAPk6
RJcaZr/hyH+zbXTNUaCHUNU+zxYSymiUl5oJHIVohjcwIABoA818WePvFGqfDhvDiWfiGGW3mluL3z7M
rGunvjyAx6hQMckAehNdDqnxaNjqw8UD4XyQ+K9P/wCQ1d3dvLGtnvURwfNnI3xnHzhc8Yz1qnr3i1NR
0hZfizZN4da5X7N/Z/heL7JqLxqPlF1HOeYMfcHTNaGg6lY+A7DUL7xdeW/im0v/AC/7duL2Vb2PWNhI
t/7NaQqJ/KLqJt+dhUbelAG58E9fuk/4RjwZNYeKNOvtB+1/2nC1gFtG8/zJYvPYnenHK5UZY9xzXv8A
Xm1ro2h/8LYsfF2g6l4g1D/hIvM82XS50l0n/R4PKHnlR9QmSfnB6dK9JoAKKKKACiiigAooooAKKKKA
CiiigAooooAKKKKAPnXwtPFZ+A5dN0iIWGveKdcvdOh1i3AjlgKuWBZ1w5AwcAHvW74dhurrQfGXiD4j
JrHge+1X7D9v1G0uBbxr5TFI/s5wzpxsV9xbJc4wDXkS+OdevrKf4c+F9Lia+udXuil00q73LuSFQsB5
ZGPvbua2fFfiDwD4xt4PDEHjS80HQtB3fZL2e2ub5tV88rI+9MKyeU64G7Od2RjFAFvwx4A8VeDPhzdw
3mh3U8niK4tZrhUUA6Ylndby0uTyHUkjHTHNbMfiyDxZ8SNVntLfSdG0OG7CReKtLtzBdTTEAxRSTAks
rnhhgZAxkVteGNK1vxl+yPZ6bpk882p3rFBKZsPtGoEudzMM4QNxnkDFeaWfhXSU8a3Xw60zw5qOrana
yFZtQj1v7LG5XH7/AMgqQNuc7d5JxwaAL/iSTV9K+J3iW51bRNW1TU08PXUsU9zKsgsJBMSL203fNDAj
AmMAl1z1r0LwP4Ljt7Xwt441nQbfXNX1GG0gBs7dAkCSBZvt8/mAs9yGzulDAnIwM815X4h+HGqR+L9c
0u5u77SpNG8L3F+bma6+1HVooZCu/AYeSkvXyyW245zmut8FCXXP2c5tU8O3d1otz4V1JtSYzTtdC8kt
rRWKY+Ty42JHyfMBjvmgCxP8O7W38cJ418cWut3eki6ZJI9XmjnFsqk/vJtykNAcgKo5FcZP8O7G5+Gt
r45udX1ibwRZ7/s2jyXKtdwb5vJbYxXylzL85wnK+/Nep+KvHWs3HjHw34Z0rxHYJPrcMAu7GfRzMLcP
Hu8zcWCuCf4RjFXPGngbVvDnhrw9pfwy8OSaq2l/afJa61CMQ2/mOrN5sUmBPu3Pt5GwgH0oArfDzRNV
8LeJdD8Hz6tJqUXh/wC0ecukO0UNv56PKv25GJ8zcW/dbcbSCTmvaa8k0PQrWL4zi5jkuNd8RW3/ACMe
owymygtN1uRa5tjkS7k+X5WO0ruOM4r1ugDJ13XhogtlTTrzUri5dlitrMR7yFUszZkdFAAHc9wBmslf
iJpbyRPHaXr2DrFv1ELGIYmlQOiNl9+4gr0Ugbhk1peINHv9RlsrrR9QgsLyzdyr3FqbhGV1KkFQ6HPQ
g7u3Q1z8fw4kihXT49Wj/sdvIe4t2tCZpJIY1RWEvmYUHYhI2HoeeaWtn/X9f5+Q9C/beOxdwsIPDmtN
d7Y5I7PZB5kkUgYrLnzdir8jffZTkYxkgFbP4gaffXcCW+n6gbaV4onvWSNYoJZBlYnBffu5HRSPmHNZ
/wDwhPiMWrhPE9kt08MNo0q6U6q9tGHwhUXAYMS5JdWHTAAqzb+C7+PUI2k1SxFi01vc3Nrb6c0e6WFV
VPLYzHy0+RPlIY/KeeavTm8v6/r18idbedvx/r8PM0D430hdE1PVW+1LbabM0Dhrdg8rhQ2I0PzNncMc
c9RxzUEnjyxjntx9gv2tZY7d5bwLGIrYz/6tXy4bJJH3VYDIyRTdT8BWGsJqAv7i5L3N09zA9vcTW5gZ
oVi/5Zuu/hT145IxVJfh9cRRW9jDrC/2X5dot1DLbvJNM1ucqVlMvyAkLkFW4HBFT/wPy1/EfXy1/PT8
C5Z+PI7+Dda+H9ZeaSNJra38uHfcxPnbIp83aq/Kf9YUI4yMkAyQ+OrOZrJhpmqJb3TrE1y8ChIZWcoI
2+bLNuUg7AwHcgEGsyPwP4ht9OWC28UWsc0VtFZQyjS3GLZM5VsTgl2+XLqVxjgAnNWp/Bd9dtpX2rUd
NCacUaP7PpRjeFlOf3D+aTErABXB37hkZGael/n+H9fj5C1/r+v6XmX7Xxlayfa/7R0/UNJ+zQi4AvY1
BljJIVlVGY5JGNjAPkgbeaqQ/ETTLiHT54rLUDBeQQ3DyGNALVJn2ReYC+7LMCMIGxjnA5qC18C3V3HM
vi7VItUaSVJ1uLCO40+YOuQuXS4PygE4UBQDk9TmqFp8K0so9Ijj1GGddOhjjE15aNPcRlHLlreVpcwF
s4PDDAAGMUK3X+v6/rsq0s/6/r+u2u5D41S6h32Gh6ndGRPOtkRrdTdQ5AMqb5lAUFl4cq3I4q3o/iiD
WIdPYWV3aSX8Us0cNwIyyojAFiUdlwdy4IJyCKwbD4btZpqW7V2eS7t5LSB1jkHkQyMCy7WlKg8ADyxG
o/u11NvpS2+rveB18sW0dtBCEwIVUknBzznK9h90UK1v68/+B+Inu7f1t/wfwIIvElpNZW10sc4S5vWs
kBUZDq7ISeemUPvjHFa9ctbeEr2DUIkbVo30i3vXvobUWhEwkZmfDTbyCgZ2OAgPT5uOeppdA6/1/XY+
cvAng3xFqWmL4n07U/7Qi0PXby5svD32eOLzpd5Vv9JLfLkHuCBiuW8M6J4Y/wCE78D6V8KvF3/E/wD9
P+365/Zkv/PItH+4nOz7nmJ8p/2jzivcrn4CfDW7upbm48N75ZnMjt9uuRlick4EnrUX/DPnwx/6Fn/y
fuf/AI5QBxPh7wHqnhXXrf4wfFvxL9k1C23f2hafYFfbuU2sfzwMQflaM/KnfB7mtvxfqul6d4bn+I9z
e/8ACQW+of6Fpc3lNa/2faz5V/lAzLg5b5lDdgRW3/wz58Mf+hZ/8n7n/wCOUf8ADPnwx/6Fn/yfuf8A
45QB434U0G60Px9I/hjUv+EKtLbwkdQfWPIGof2parKubvyXJMPmAK/l/eXZjHNbes+GvAmt+FbDxd4H
17/irP7ajjj1f7HP/wATPVdhlEXkyERw+ZIVbdjYvTpkV6T/AMM+fDH/AKFn/wAn7n/45R/wz58Mf+hZ
/wDJ+5/+OUAR+J3+Keo6nouleG4f7Gtdkbajru61uPmKfOv2d+flbup5zxXP6Z8QfDHwT/sP4calqf2/
7F9o/tLUfs8sX2PfmeL92Fffv80L8rHGMn0rpP8Ahnz4Y/8AQs/+T9z/APHKP+GfPhj/ANCz/wCT9z/8
coA5v4faZ9q8d6ff+I/D32/x9Zeb/wAJJqn23yv7N3xMLX90h8qXzIcL+7ztxlua9trifD3wd8CeFdet
9Z0HQvsuoW27ypvtk77dylD8rOQflYjkd67agAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA
CiiigAooooAKKKKACiiigD//2Q==
</value>
</data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>339, 17</value>
</metadata>
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
</value>
</data>
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
AElFTkSuQmCC
</value>
</data>
</root>

230
EDOKA/Systemadministration/Diverses/FrmBarcodeDefinition.vb Normal file
View File

@@ -0,0 +1,230 @@
Imports System.Data.Sql
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class FrmBarcodeDefinition
Dim m_officevorlagenr As Integer
Property Office_Voralgenr As Integer
Get
Return m_officevorlagenr
End Get
Set(value As Integer)
m_officevorlagenr = value
End Set
End Property
Dim BarcodeType As Integer = 0
Dim DatamatrixContent As String
Dim DatamatrixDelimiter As String
Dim datamatrixformat As Integer = 0
Dim datamatrixbeschriftung As String
Dim vorlagenfeldregeln As New DataTable
Dim DatamatrixFontname As String
Dim Datamatrixfontsize As String
Dim BarcodeKantenlaenge As String
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(ByVal officevorlagenr As Integer)
Me.InitializeComponent()
Me.Office_Voralgenr = officevorlagenr
End Sub
Private Sub FrmBarcodeDefinition_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Get_BarcodeData()
If Me.BarcodeType = 0 Then
Me.ComboBox1.SelectedIndex = 0
Me.TextBox1.Text = ""
Me.TextBox1.Enabled = False
Me.TextBox2.Text = "&Dokumentid"
Me.TextBox2.Enabled = False
Me.TextBox3.Text = ""
Me.TextBox4.Text = ""
Me.TextBox3.Enabled = False
Me.ComboBox2.Enabled = False
Me.ComboBox3.Enabled = False
Me.txtFontname.Enabled = False
Else
Me.ComboBox1.SelectedIndex = 1
Me.TextBox1.Text = Me.DatamatrixDelimiter
Me.TextBox1.Enabled = True
Me.TextBox2.Text = DatamatrixContent
Me.TextBox2.Enabled = True
Me.TextBox3.Enabled = True
Me.TextBox3.Text = Me.datamatrixbeschriftung
Me.ComboBox2.SelectedIndex = Me.datamatrixformat
Me.ComboBox2.Enabled = True
Me.ComboBox3.Enabled = True
Me.txtFontname.Enabled = True
Me.txtFontname.Text = Me.DatamatrixFontname
Me.ComboBox3.Text = Me.Datamatrixfontsize
Me.TextBox4.Text = Me.BarcodeKantenlaenge
End If
vorlagenfeldregeln = get_vorlagenfeldregeln()
ListView1.Columns.Clear()
ListView1.Columns.Add("Bezeichnung", 100)
ListView1.Columns.Add("Datenherkunft", 100)
ListView1.Columns.Add("Userinterface", 50)
Dim tmpstr(2) As String
For Each r As DataRow In vorlagenfeldregeln.Rows
tmpstr(0) = r.Item("Bezeichnung")
tmpstr(1) = r.Item("Datenherkunft")
tmpstr(2) = r.Item("UserInterface")
Dim TempNode = New ListViewItem(tmpstr)
ListView1.Items.Add(TempNode)
Next
End Sub
Sub Get_BarcodeData()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_get_barcodedefinition"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@officevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Office_Voralgenr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Barcodetype", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixContent", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixDelimiter", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datamatrixformat", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixbeschriftung", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixfontname", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixfontsize", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixkantenlaenge", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
conn.OpenConnection()
scmCmdToExecute.ExecuteNonQuery()
Me.BarcodeType = scmCmdToExecute.Parameters("@barcodetype").Value.ToString
Me.DatamatrixContent = scmCmdToExecute.Parameters("@datamatrixcontent").Value.ToString
Me.DatamatrixDelimiter = scmCmdToExecute.Parameters("@datamatrixdelimiter").Value.ToString
Me.datamatrixformat = scmCmdToExecute.Parameters("@datamatrixformat").Value.ToString
Me.datamatrixbeschriftung = scmCmdToExecute.Parameters("@datamatrixbeschriftung").Value.ToString
Me.DatamatrixFontname = scmCmdToExecute.Parameters("@datamatrixfontname").Value.ToString
Me.Datamatrixfontsize = scmCmdToExecute.Parameters("@datamatrixfontsize").Value.ToString
Me.BarcodeKantenlaenge = scmCmdToExecute.Parameters("@datamatrixkantenlaenge").Value.ToString
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception(".sp_get_barcodedefinitioN::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
conn.CloseConnection(True)
scmCmdToExecute.Dispose()
End Try
End Sub
Function get_vorlagenfeldregeln() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim da As New SqlDataAdapter(scmCmdToExecute)
Dim dt As New DataTable
scmCmdToExecute.CommandText = "dbo.sp_get_vorlagenfledregel"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
conn.OpenConnection()
da.Fill(dt)
Return dt
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception(".sp_get_barcodedefinitioN::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
conn.CloseConnection(True)
scmCmdToExecute.Dispose()
da.Dispose()
End Try
End Function
Private Sub ToolBar1_ButtonClick(sender As Object, e As ToolBarButtonClickEventArgs)
Me.Close()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If Me.ComboBox1.SelectedIndex = 0 Then
Me.TextBox1.Text = ""
Me.TextBox1.Enabled = False
Me.TextBox2.Text = "Dokumentid"
Me.TextBox2.Enabled = False
Me.PictureBox1.Visible = True
Me.PictureBox2.Visible = False
Me.TextBox2.Enabled = False
Me.TextBox3.Text = ""
Me.TextBox3.Enabled = False
Me.ComboBox2.Enabled = False
Me.txtFontname.Enabled = False
Me.ComboBox3.Enabled = False
Else
If Me.TextBox1.Text = "" Then Me.TextBox1.Text = ";"
Me.TextBox1.Text = Me.DatamatrixDelimiter
Me.TextBox1.Enabled = True
Me.TextBox2.Text = DatamatrixContent
Me.TextBox2.Enabled = True
Me.PictureBox1.Visible = False
Me.PictureBox2.Visible = True
Me.TextBox3.Enabled = True
Me.ComboBox2.SelectedIndex = Me.datamatrixformat
Me.ComboBox2.Enabled = True
Me.txtFontname.Enabled = True
Me.ComboBox3.Enabled = True
End If
End Sub
Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
If Me.TextBox2.Text <> "" Then Me.TextBox2.Text = Me.TextBox2.Text + Me.TextBox1.Text
Me.TextBox2.Text = Me.TextBox2.Text + "&" + Me.ListBox1.SelectedItem
End Sub
Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
Dim tmpstr(2) As String
tmpstr(0) = ListView1.SelectedItems(0).SubItems(0).Text
tmpstr(1) = ListView1.SelectedItems(0).SubItems(1).Text()
tmpstr(2) = ListView1.SelectedItems(0).SubItems(2).Text()
If tmpstr(2) = "True" Then
If Me.TextBox2.Text <> "" Then Me.TextBox2.Text = Me.TextBox2.Text + Me.TextBox1.Text
Me.TextBox2.Text = Me.TextBox2.Text + tmpstr(1) & "_UI"
Else
If Me.TextBox2.Text <> "" Then Me.TextBox2.Text = Me.TextBox2.Text + Me.TextBox1.Text
Me.TextBox2.Text = Me.TextBox2.Text + tmpstr(1)
End If
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
Private Sub TSBtnSave_Click(sender As Object, e As EventArgs) Handles TSBtnSave.Click
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_save_barcodedefinition"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@officevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Office_Voralgenr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Barcodetype", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.ComboBox1.SelectedIndex))
scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixContent", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TextBox2.Text))
scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixDelimiter", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TextBox1.Text))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datamatrixformat", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.ComboBox2.SelectedIndex))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datamatrixbeschriftung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TextBox3.Text))
scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixFontName", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtFontname.Text))
scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixFontSize", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.ComboBox3.Text))
scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixkantenlaenge", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TextBox4.Text))
conn.OpenConnection()
scmCmdToExecute.ExecuteNonQuery()
Catch ex As Exception
Throw New Exception("sp_save_barcodedefinitioN::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
conn.CloseConnection(True)
scmCmdToExecute.Dispose()
End Try
End Sub
End Class

491
EDOKA/Systemadministration/Diverses/MySysadmin.vb Normal file
View File

@@ -0,0 +1,491 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class DomainTable
#Region "Deklarationen"
Dim UpdateCommand As New SqlCommand
Dim InsertCommand As New SqlCommand
Dim selectcommand As New SqlCommand
Dim BaseData As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim m_tablename As String
Property Tablename() As String
Get
Return m_tablename
End Get
Set(ByVal value As String)
m_tablename = value
End Set
End Property
Dim m_selectproc As String
Property Select_Proc() As String
Get
Return "pr_" & Tablename & "_selectall"
End Get
Set(ByVal value As String)
m_selectproc = "pr_" & Tablename & "_selectall"
End Set
End Property
Property Update_Proc() As String
Get
Return "pr_" & Tablename & "_Update"
End Get
Set(ByVal value As String)
m_selectproc = "pr_" & Tablename & "_Update"
End Set
End Property
Property Insert_Proc() As String
Get
Return "pr_" & Tablename & "_Insert"
End Get
Set(ByVal value As String)
m_selectproc = "pr_" & Tablename & "_Update"
End Set
End Property
Property Select_Proc_Bottomtable() As String
Get
Return "pr_" & Tablename & "_selectall_bottomtable"
End Get
Set(ByVal value As String)
m_selectproc = "pr_" & Tablename & "_selectall_bottomtable"
End Set
End Property
Property Select_Proc_Bottomtable2() As String
Get
Return "pr_" & Tablename & "_selectall_bottomtable2"
End Get
Set(ByVal value As String)
m_selectproc = "pr_" & Tablename & "_selectall_bottomtable2"
End Set
End Property
Property Update_Proc_Bottomtable() As String
Get
Return "pr_" & Tablename & "_Update_bottomtable"
End Get
Set(ByVal value As String)
m_selectproc = "pr_" & Tablename & "_Update_bottomtable"
End Set
End Property
Property Insert_Proc_Bottomtable() As String
Get
Return "pr_" & Tablename & "_Insert_bottomtable"
End Get
Set(ByVal value As String)
m_selectproc = "pr_" & Tablename & "_Update_bottomtable"
End Set
End Property
Dim m_Tabledata As New DataSet
Property Tabledata() As DataSet
Get
Return m_Tabledata
End Get
Set(ByVal value As DataSet)
m_Tabledata = value
End Set
End Property
#End Region
''' <summary>
''' Tabellenname übernehmen und Daten ab DB laden
''' </summary>
''' <param name="tablename"></param>
''' <remarks></remarks>
Sub New(ByVal tablename As String, Optional ByVal Fokus As Integer = 0, Optional ByVal Keyvalue As String = "")
Me.Tablename = tablename
If Keyvalue = "" Then
Load_Data()
Else
Load_Bootom_Table(tablename, Fokus, Keyvalue)
End If
End Sub
Sub New(ByVal tablename As String, ByVal Fokus As Integer, ByVal Keyvalue As String, ByVal mitarbeiternr As Integer)
Me.Tablename = tablename
If Keyvalue = "" Then
Load_Data()
Else
Load_Data_MA_Fokus(tablename, Fokus, Keyvalue, mitarbeiternr)
End If
End Sub
Sub New(ByVal tablename As String, ByVal keyvalue As String, ByVal mitarbeiternr As Integer)
Me.Tablename = tablename
Load_Data_MA(tablename, keyvalue, mitarbeiternr)
End Sub
Sub New(ByVal tablename As String, ByVal Focus As Integer, ByVal keyvalue As String, ByVal mitarbeiternr As Integer, ByVal Key2 As String)
Me.Tablename = tablename
Load_Data_2Key(tablename, keyvalue, mitarbeiternr, Key2)
End Sub
Public Sub Load_Data_MA(ByVal tablename As String, ByVal KeyValue As String, ByVal mitarbeiternr As Integer)
Tabledata.Tables.Clear()
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = Me.Select_Proc_Bottomtable
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
sqlcmd.Parameters.Add("@Fokus", SqlDbType.Int, 4)
sqlcmd.Parameters.Add("@KeyValue", SqlDbType.VarChar, 255)
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.VarChar, 255)
sqlcmd.Parameters(0).Value = 0
sqlcmd.Parameters(1).Value = 0
sqlcmd.Parameters(2).Value = KeyValue
sqlcmd.Parameters(3).Value = Globals.MitarbeiterNr
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(Tabledata, "Domaintable")
Catch ex As Exception
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
End Sub
Public Sub Load_Data_2Key(ByVal tablename As String, ByVal KeyValue As String, ByVal mitarbeiternr As Integer, ByVal KeyValue2 As String)
Tabledata.Tables.Clear()
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = Me.Select_Proc_Bottomtable2
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
sqlcmd.Parameters.Add("@Fokus", SqlDbType.Int, 4)
sqlcmd.Parameters.Add("@KeyValue", SqlDbType.VarChar, 255)
sqlcmd.Parameters.Add("@KeyValue2", SqlDbType.VarChar, 255)
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.VarChar, 255)
sqlcmd.Parameters(0).Value = 0
sqlcmd.Parameters(1).Value = 0
sqlcmd.Parameters(2).Value = KeyValue
sqlcmd.Parameters(3).Value = KeyValue2
sqlcmd.Parameters(4).Value = Globals.MitarbeiterNr
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(Tabledata, "Domaintable")
Catch ex As Exception
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
End Sub
Public Sub Load_Data_MA_Fokus(ByVal tablename As String, ByVal Fokus As Integer, ByVal KeyValue As String, ByVal mitarbeiternr As Integer)
Tabledata.Tables.Clear()
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = Me.Select_Proc_Bottomtable
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
sqlcmd.Parameters.Add("@Fokus", SqlDbType.Int, 4)
sqlcmd.Parameters.Add("@KeyValue", SqlDbType.VarChar, 255)
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.VarChar, 255)
sqlcmd.Parameters(0).Value = 0
sqlcmd.Parameters(1).Value = Fokus
sqlcmd.Parameters(2).Value = KeyValue
sqlcmd.Parameters(3).Value = Globals.MitarbeiterNr
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(Tabledata, "Domaintable")
Catch ex As Exception
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
End Sub
'Sub New()
'End Sub
''' <summary>
''' Daten ab Datenbank laden
''' </summary>
''' <remarks></remarks>
Public Overridable Sub Load_Data()
Tabledata.Tables.Clear()
selectcommand.CommandText = Me.Select_Proc
selectcommand.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
selectcommand.Parameters(0).Value = 0
selectcommand.CommandType = CommandType.StoredProcedure
selectcommand.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = selectcommand
da.Fill(Tabledata, "Domaintable")
Catch ex As Exception
Finally
connection.Close()
da.Dispose()
selectcommand.Dispose()
End Try
End Sub
''' <summary>
''' Basis-Datentabelle laden. Diese wird für die dynamische Generierung der Insert- und Update-Statements benötigt
''' </summary>
''' <remarks></remarks>
Private Sub Load_BaseData()
BaseData.Tables.Clear()
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = Me.Select_Proc
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
sqlcmd.Parameters(0).Value = 0
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(BaseData, "Basedata")
Catch ex As Exception
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
End Sub
''' <summary>
''' Update-Statement dynamisch für das UpdateCommand generieren
''' </summary>
''' <remarks></remarks>
Private Sub Generate_Update_Statement()
Dim col As DataColumn
Dim col1 As DataColumn
Dim UseCol As Boolean = False
UpdateCommand.CommandText = Me.Update_Proc
UpdateCommand.CommandType = System.Data.CommandType.StoredProcedure
UpdateCommand.Connection = connection
UpdateCommand.Parameters.Clear()
For Each col In Me.Tabledata.Tables(0).Columns
UseCol = False
For Each col1 In Me.BaseData.Tables(0).Columns
If col.ColumnName = col1.ColumnName Then
UseCol = True
Exit For
End If
Next
If UseCol Then UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter(Get_Prefix(col) & col.ColumnName, Get_SqlDBType(col), Get_Data_Fieldlen(col), col.ColumnName))
Next
UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@iErrorcode", SqlDbType.Int, 4))
UpdateCommand.Parameters("@iErrorcode").Value = 0
da.UpdateCommand = UpdateCommand
End Sub
''' <summary>
''' Insert-Statement dynamisch für das InsertCommand generieren
''' </summary>
''' <remarks></remarks>
Private Sub Generate_Insert_Statement()
Dim col As DataColumn
Dim col1 As DataColumn
Dim UseCol As Boolean = False
InsertCommand.CommandText = Me.Insert_Proc
InsertCommand.CommandType = System.Data.CommandType.StoredProcedure
InsertCommand.Connection = connection
InsertCommand.Parameters.Clear()
For Each col In Me.Tabledata.Tables(0).Columns
UseCol = False
For Each col1 In Me.BaseData.Tables(0).Columns
If col.ColumnName = col1.ColumnName Then
UseCol = True
Exit For
End If
Next
If UseCol Then InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter(Get_Prefix(col) & col.ColumnName, Get_SqlDBType(col), Get_Data_Fieldlen(col), col.ColumnName))
Next
InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@iErrorcode", SqlDbType.Int, 4))
InsertCommand.Parameters("@iErrorcode").Value = 0
da.InsertCommand = InsertCommand
End Sub
''' <summary>
''' Prefixt für den SP-Übergabeparameter generieren
''' </summary>
''' <param name="col">Aktuelle Columnt</param>
''' <returns>Prefis für SP-Übergabeparameter</returns>
''' <remarks></remarks>
Private Function Get_Prefix(ByVal col As DataColumn) As String
If col.DataType.Name = "DateTime" Then Return "@da"
If col.DataType.Name = "Double" Then Return "@f"
Return "@" & col.DataType.Name.Substring(0, 1)
End Function
''' <summary>
''' SQL-DB-Type für den SP-Übergabeparameter festlegen
''' </summary>
''' <param name="col">Aktuelle Column</param>
''' <returns>SQLDBType</returns>
''' <remarks></remarks>
Private Function Get_SqlDBType(ByVal col As DataColumn) As SqlDbType
If col.DataType.Name = "Integer" Then Return SqlDbType.Int
If col.DataType.Name = "Int32" Then Return SqlDbType.Int
If col.DataType.Name = "String" Then Return SqlDbType.VarChar
If col.DataType.Name = "Boolean" Then Return SqlDbType.Bit
If col.DataType.Name = "DateTime" Then Return SqlDbType.DateTime
If col.DataType.Name = "Double" Then Return SqlDbType.Float
MsgBox(col.DataType.Name)
End Function
''' <summary>
''' Feldlänge für den SP-Übergabeparemter festlegen
''' </summary>
''' <param name="col">Aktulle Column</param>
''' <returns>Feldlänge</returns>
''' <remarks></remarks>
Private Function Get_Data_Fieldlen(ByVal col As DataColumn) As Integer
Return col.MaxLength
End Function
''' <summary>
''' Datesichern. Dabei wird das Update- sowie das Insert-Statement dynamisch generiert
''' </summary>
''' <remarks></remarks>
Public Sub Save_Data()
Load_BaseData()
Generate_Update_Statement()
Generate_Insert_Statement()
Try
da.Update(Me.Tabledata, Me.Tabledata.Tables(0).TableName)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
''' <summary>
''' Dispose von Tabledata
''' </summary>
''' <remarks></remarks>
Public Sub dispose()
Me.Tabledata.Dispose()
End Sub
#Region "Verknüpfungseditor"
''' <summary>
''' Load der Verbindungstabelle
''' </summary>
''' <param name="tablename"></param>
''' <param name="Fokus"></param>
''' <param name="KeyValue"></param>
''' <remarks></remarks>
Public Sub Load_Bootom_Table(ByVal tablename As String, ByVal Fokus As Integer, ByVal KeyValue As String)
Tabledata.Tables.Clear()
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = Me.Select_Proc_Bottomtable
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
sqlcmd.Parameters.Add("@Fokus", SqlDbType.Int, 4)
sqlcmd.Parameters.Add("@KeyValue", SqlDbType.VarChar, 255)
sqlcmd.Parameters(0).Value = 0
sqlcmd.Parameters(1).Value = Fokus
sqlcmd.Parameters(2).Value = KeyValue
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(Tabledata, "Domaintable")
Catch ex As Exception
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
End Sub
''' <summary>
''' Neuer Eintrag in der Tabelle eintragen. Sind neben den Defaultwerten weitere Attribute vorhanden, werde diese abhängig vom Datentype mit Defaultwerten befüllt.
''' </summary>
''' <param name="key1"></param>
''' <param name="keyvalue1"></param>
''' <param name="key2"></param>
''' <param name="keyvalue2"></param>
''' <remarks></remarks>
Public Sub Insert_Bottom_Table(ByVal key1 As String, ByVal keyvalue1 As Integer, ByVal key2 As String, ByVal keyvalue2 As String)
Dim dbkey As New edokadb.clsMyKey_Tabelle()
dbkey.cpMainConnectionProvider = Globals.conn
conn.OpenConnection()
Dim newkey As Integer = dbkey.get_dbkey(Me.Tablename)
conn.CloseConnection(True)
dbkey.Dispose()
Dim dr As DataRow
dr = Me.Tabledata.Tables(0).NewRow
dr.Item(0) = newkey
Dim i As Integer
For i = 1 To Me.Tabledata.Tables(0).Columns.Count - 1
Select Case UCase(Me.Tabledata.Tables(0).Columns(i).ColumnName)
Case "AKTIV"
dr.Item(i) = 1
Case "ERSTELLT_AM"
dr.Item(i) = Now
Case "MUTIERT_AM"
dr.Item(i) = Now
Case "MUTIERER"
dr.Item(i) = Globals.MitarbeiterNr
Case "MANDANTNR"
dr.Item(i) = Globals.MandantNr
Case "MANDANT"
dr.Item(i) = Globals.MitarbeiterNr
Case UCase(key1)
dr.Item(i) = keyvalue1
Case UCase(key2)
dr.Item(i) = keyvalue2
Case Else
Select Case Type.GetTypeCode(Me.Tabledata.Tables(0).Columns(i).DataType)
Case TypeCode.DateTime
dr.Item(i) = Now
Case TypeCode.Double
dr.Item(i) = 0
Case TypeCode.String
dr.Item(i) = ""
Case TypeCode.Int32
dr.Item(i) = 0
Case TypeCode.Boolean
dr.Item(i) = True
Case TypeCode.Int16
dr.Item(i) = 0
Case TypeCode.Int32
dr.Item(i) = 0
Case TypeCode.Int64
dr.Item(i) = 0
End Select
End Select
Next
Me.Tabledata.Tables(0).Rows.Add(dr)
End Sub
#End Region
End Class

132
EDOKA/Systemadministration/Diverses/frmDokumentversion.Designer.vb generated Normal file
View File

@@ -0,0 +1,132 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDokumentversion
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.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtVersion = New System.Windows.Forms.TextBox()
Me.cbboxMonat = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.cbboxJahr = New System.Windows.Forms.ComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 21)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(84, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Versionsnummer"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 52)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(37, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Monat"
'
'txtVersion
'
Me.txtVersion.Location = New System.Drawing.Point(102, 18)
Me.txtVersion.Name = "txtVersion"
Me.txtVersion.Size = New System.Drawing.Size(100, 20)
Me.txtVersion.TabIndex = 2
'
'cbboxMonat
'
Me.cbboxMonat.FormattingEnabled = True
Me.cbboxMonat.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
Me.cbboxMonat.Location = New System.Drawing.Point(102, 49)
Me.cbboxMonat.Name = "cbboxMonat"
Me.cbboxMonat.Size = New System.Drawing.Size(100, 21)
Me.cbboxMonat.TabIndex = 3
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(12, 87)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(27, 13)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Jahr"
'
'cbboxJahr
'
Me.cbboxJahr.FormattingEnabled = True
Me.cbboxJahr.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
Me.cbboxJahr.Location = New System.Drawing.Point(102, 84)
Me.cbboxJahr.Name = "cbboxJahr"
Me.cbboxJahr.Size = New System.Drawing.Size(100, 21)
Me.cbboxJahr.TabIndex = 5
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(15, 144)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 7
Me.Button1.Text = "&OK"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(127, 144)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 8
Me.Button2.Text = "&Abbruch"
Me.Button2.UseVisualStyleBackColor = True
'
'frmDokumentversion
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(249, 186)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.cbboxJahr)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.cbboxMonat)
Me.Controls.Add(Me.txtVersion)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "frmDokumentversion"
Me.Text = "Dokumentversion"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtVersion As System.Windows.Forms.TextBox
Friend WithEvents cbboxMonat As System.Windows.Forms.ComboBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents cbboxJahr As System.Windows.Forms.ComboBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
End Class

120
EDOKA/Systemadministration/Diverses/frmDokumentversion.resx Normal file
View File

@@ -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>

97
EDOKA/Systemadministration/Diverses/frmDokumentversion.vb Normal file
View File

@@ -0,0 +1,97 @@
Imports System.Data.SqlClient
Imports System.Data.SqlDbType
Imports System.Data.SqlTypes
Public Class frmDokumentversion
Dim yy As String
Dim mm As String
Dim version As String
Dim ovnr As Integer
Dim Versionsstring As String = ""
Dim month As String
Dim year As String
Sub New(ByVal officevorlagenr As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.ovnr = officevorlagenr
End Sub
Private Sub frmDokumentversion_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FillJahr()
Fillversion()
Get_Set_Version(1, Me.ovnr)
End Sub
Sub FillJahr()
Me.cbboxJahr.Items.Clear()
Dim y As Integer = Now.Year
y = y - 2
For i As Integer = 0 To 10
Me.cbboxJahr.Items.Add(y + i.ToString)
Next
End Sub
Sub Fillversion()
FillJahr()
'If Versionsstring <> "" Then
' yy = Microsoft.VisualBasic.Right(Versionsstring, 4)
' Dim i As Integer
' i = Versionsstring.IndexOf("/")
' mm = Versionsstring.Substring(i - 3, 2)
' version = Versionsstring.Substring(0, i - 4)
' Me.txtVersion.Text = Versionsstring
' Me.cbboxMonat.Text = mm
' Me.cbboxJahr.Text = yy
'End If
End Sub
Public Function Get_Set_Version(ByVal fnkt As Integer, versionstring As String)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_get_set_officevorlage_version"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
scmCmdToExecute.Parameters.Add(New SqlParameter("@manr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ovnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.ovnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@versionstring", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, versionstring))
scmCmdToExecute.Parameters.Add(New SqlParameter("@vstring", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
conn.OpenConnection()
scmCmdToExecute.ExecuteNonQuery()
If fnkt = 1 Then
Me.Versionsstring = scmCmdToExecute.Parameters("@vstring").Value.ToString
If Me.Versionsstring <> "" Then
Dim i As Integer = Me.Versionsstring.IndexOf("/")
year = Me.Versionsstring.Substring(i + 1, 4)
month = Me.Versionsstring.Substring(i - 2, 2)
Me.cbboxJahr.Text = year
Me.cbboxMonat.Text = month
Me.txtVersion.Text = Me.Versionsstring.Substring(0, i - 3)
End If
End If
conn.CloseConnection(True)
Catch ex As Exception
Throw New Exception("Dokument_Version::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
End Try
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Get_Set_Version(2, Me.txtVersion.Text + " " + Me.cbboxMonat.Text + "/" + Me.cbboxJahr.Text)
Me.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class

326
EDOKA/Systemadministration/Diverses/frmExportDataFremdanwendung.resx Normal file
View File

@@ -0,0 +1,326 @@
<?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="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAY
CAAAAk1TRnQBSQFMAwEBAAEEAQABBAEAARABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA
AUADAAEQAwABAQEAAQgGAAEEGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA
AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA
AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm
AwABmQMAAcwCAAEzAwACMwIAATMBZgIAATMBmQIAATMBzAIAATMB/wIAAWYDAAFmATMCAAJmAgABZgGZ
AgABZgHMAgABZgH/AgABmQMAAZkBMwIAAZkBZgIAApkCAAGZAcwCAAGZAf8CAAHMAwABzAEzAgABzAFm
AgABzAGZAgACzAIAAcwB/wIAAf8BZgIAAf8BmQIAAf8BzAEAATMB/wIAAf8BAAEzAQABMwEAAWYBAAEz
AQABmQEAATMBAAHMAQABMwEAAf8BAAH/ATMCAAMzAQACMwFmAQACMwGZAQACMwHMAQACMwH/AQABMwFm
AgABMwFmATMBAAEzAmYBAAEzAWYBmQEAATMBZgHMAQABMwFmAf8BAAEzAZkCAAEzAZkBMwEAATMBmQFm
AQABMwKZAQABMwGZAcwBAAEzAZkB/wEAATMBzAIAATMBzAEzAQABMwHMAWYBAAEzAcwBmQEAATMCzAEA
ATMBzAH/AQABMwH/ATMBAAEzAf8BZgEAATMB/wGZAQABMwH/AcwBAAEzAv8BAAFmAwABZgEAATMBAAFm
AQABZgEAAWYBAAGZAQABZgEAAcwBAAFmAQAB/wEAAWYBMwIAAWYCMwEAAWYBMwFmAQABZgEzAZkBAAFm
ATMBzAEAAWYBMwH/AQACZgIAAmYBMwEAA2YBAAJmAZkBAAJmAcwBAAFmAZkCAAFmAZkBMwEAAWYBmQFm
AQABZgKZAQABZgGZAcwBAAFmAZkB/wEAAWYBzAIAAWYBzAEzAQABZgHMAZkBAAFmAswBAAFmAcwB/wEA
AWYB/wIAAWYB/wEzAQABZgH/AZkBAAFmAf8BzAEAAcwBAAH/AQAB/wEAAcwBAAKZAgABmQEzAZkBAAGZ
AQABmQEAAZkBAAHMAQABmQMAAZkCMwEAAZkBAAFmAQABmQEzAcwBAAGZAQAB/wEAAZkBZgIAAZkBZgEz
AQABmQEzAWYBAAGZAWYBmQEAAZkBZgHMAQABmQEzAf8BAAKZATMBAAKZAWYBAAOZAQACmQHMAQACmQH/
AQABmQHMAgABmQHMATMBAAFmAcwBZgEAAZkBzAGZAQABmQLMAQABmQHMAf8BAAGZAf8CAAGZAf8BMwEA
AZkBzAFmAQABmQH/AZkBAAGZAf8BzAEAAZkC/wEAAcwDAAGZAQABMwEAAcwBAAFmAQABzAEAAZkBAAHM
AQABzAEAAZkBMwIAAcwCMwEAAcwBMwFmAQABzAEzAZkBAAHMATMBzAEAAcwBMwH/AQABzAFmAgABzAFm
ATMBAAGZAmYBAAHMAWYBmQEAAcwBZgHMAQABmQFmAf8BAAHMAZkCAAHMAZkBMwEAAcwBmQFmAQABzAKZ
AQABzAGZAcwBAAHMAZkB/wEAAswCAALMATMBAALMAWYBAALMAZkBAAPMAQACzAH/AQABzAH/AgABzAH/
ATMBAAGZAf8BZgEAAcwB/wGZAQABzAH/AcwBAAHMAv8BAAHMAQABMwEAAf8BAAFmAQAB/wEAAZkBAAHM
ATMCAAH/AjMBAAH/ATMBZgEAAf8BMwGZAQAB/wEzAcwBAAH/ATMB/wEAAf8BZgIAAf8BZgEzAQABzAJm
AQAB/wFmAZkBAAH/AWYBzAEAAcwBZgH/AQAB/wGZAgAB/wGZATMBAAH/AZkBZgEAAf8CmQEAAf8BmQHM
AQAB/wGZAf8BAAH/AcwCAAH/AcwBMwEAAf8BzAFmAQAB/wHMAZkBAAH/AswBAAH/AcwB/wEAAv8BMwEA
AcwB/wFmAQAC/wGZAQAC/wHMAQACZgH/AQABZgH/AWYBAAFmAv8BAAH/AmYBAAH/AWYB/wEAAv8BZgEA
ASEBAAGlAQADXwEAA3cBAAOGAQADlgEAA8sBAAOyAQAD1wEAA90BAAPjAQAD6gEAA/EBAAP4AQAB8AH7
Af8BAAGkAqABAAOAAwAB/wIAAf8DAAL/AQAB/wMAAf8BAAH/AQAC/wIAA/9HAAEDAf88AAHsAQMB7AH/
OgABAwHsAQMB7AEDAf85AAEDAewBAwHsAQMB7AH/AQAB7DcAAewBAwHsAQMB7AEDAf8BAAHsNwABAwHs
AQMCAAHsAf8BAAHsNwAB7AEDAewCBwEDAf8BAAHsAQABBjUAAQMB7AEDAewBAwHsAf8CAAEGBf4xAAHs
AQMB7AEDAewBAwH/AQABbQb+MQABAwHsAQMB7AEDAewB/wEAAewBbQH+BG0xAAHsAQMB7AEDAewBAwH/
AQAB7AEAAm00AAEDAewBAwHsAQcB/wHsAQAB7AIAAW00AAHsAQMBBwH/AewBAAPsNwABBwH/AewBAAXs
dgABQgFNAT4HAAE+AwABKAMAAUADAAEQAwABAQEAAQEFAAGAFwAD/wEAAfwBfwYAAfABfwYAAcABfwcA
AR8HAAEfBwABFwcAAQcnAAEHBwABFwcAAR8HAAEfBwABHwYACw==
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAAAAEACABoBQAANgAAACAgAAABAAgAqAgAAJ4FAABAQAAAAQAIACgWAABGDgAAKAAAABAA
AAAgAAAAAQAIAAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAD//wC/aJ4A+/v7AOJ7uwCPTnYAWTBKAF80
TwBTLUUAWjBKAB4QGABlN1MAazpYABgNEwBULUUAYDRPALNhlABNKkAA1nWxACQTHQAwGicAeEFiAMpu
pwBIJzsA6H7AAJtUgADQcawATipAACoWIgA2HSwAxGuiAKdbigBsOlgA+ojPAP///wAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAiIiIiIiIiIiIiIiIiIiIiIgAAAAAA
AAAAAAAAAAAAIiIAIiIiIiIiIiIiIiIiACIiACIiAAAAAAAAAAAAIgAiIgAiIiIAACIiIiIAACIAIiIA
IiIiIgAAIiIiIiIiACIiACIAACIAACIiAAAiIgAiIgAiAAAiIgAAAAAAIiIAIiIAIgAAIiIAACIAACIi
ACIiACIiAAAiAAAiIiIiIgAiIgAiIiIAACIAACIAACIAIiIAIiIiIgAAAAAAAAAiACIiACIiIiIiIiIi
IiIiIgAiIgAiIiIiIiIiIiIiIiIAIiIAAAAAAAAAAAAAAAAAACIiIiIiIiIiIiIiIiIiIiIiAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgA
AAAgAAAAQAAAAAEACAAAAAAAgAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgACAAIAAAACAgAAAAIAAAACA
gAAAAIAAwMDAAMDcwADwyqYAgICAANaewQC/aJ4A//8AAAD/AAAA//8AAAD/AP///wDw+/8ApKCgAAQE
BAAICAgADAwMABEREQAWFhYAHBwcACIiIgApKSkAVVVVAE1NTQBCQkIAOTk5AIB8/wBQUP8AkwDWAP/s
zADG1u8A1ufnAJCprQAAADMAAABmAAAAmQAAAMwAADMAAAAzMwAAM2YAADOZAAAzzAAAM/8AAGYAAABm
MwAAZmYAAGaZAABmzAAAZv8AAJkAAACZMwAAmWYAAJmZAACZzAAAmf8AAMwAAADMMwAAzGYAAMyZAADM
zAAAzP8AAP9mAAD/mQAA/8wAMwAAADMAMwAzAGYAMwCZADMAzAAzAP8AMzMAADMzMwAzM2YAMzOZADMz
zAAzM/8AM2YAADNmMwAzZmYAM2aZADNmzAAzZv8AM5kAADOZMwAzmWYAM5mZADOZzAAzmf8AM8wAADPM
MwAzzGYAM8yZADPMzAAzzP8AM/8zADP/ZgAz/5kAM//MADP//wBmAAAAZgAzAGYAZgBmAJkAZgDMAGYA
/wBmMwAAZjMzAGYzZgBmM5kAZjPMAGYz/wBmZgAAZmYzAGZmZgBmZpkAZmbMAGaZAABmmTMAZplmAGaZ
mQBmmcwAZpn/AGbMAABmzDMAZsyZAGbMzABmzP8AZv8AAGb/MwBm/5kAZv/MAMwA/wD/AMwAmZkAAJkz
mQCZAJkAmQDMAJkAAACZMzMAtwB7AJkzzACZAP8AmWYAAJlmMwCZM2YAmWaZAJlmzACZM/8AmZkzAJmZ
ZgCZmZkAmZnMAJmZ/wCZzAAAmcwzAGbMZgCZzJkAmczMAJnM/wCZ/wAAmf8zAJnMZgCZ/5kAmf/MAJn/
/wDMAAAAmQAzAMwAZgDMAJkAzADMAJkzAADMMzMAzDNmAMwzmQDMM8wAzDP/AMxmAADMZjMAmWZmAMxm
mQDMZswAmWb/AMyZAADMmTMAzJlmAMyZmQDMmcwAzJn/AMzMAADMzDMAzMxmAMzMmQDMzMwAzMz/AMz/
AADM/zMAmf9mAMz/mQDM/8wAzP//AMwAMwD/AGYA/wCZAMwzAAD/MzMA/zNmAP8zmQD/M8wA/zP/AP9m
AAD/ZjMAzGZmAP9mmQD/ZswAzGb/AP+ZAAD/mTMA/5lmAP+ZmQD/mcwA/5n/AP/MAAD/zDMA/8xmAP/M
mQD/zMwA/8z/AP//MwDM/2YA//+ZAP//zABmZv8AZv9mAGb//wD/ZmYA/2b/AP//ZgAhAKUAX19fAHd3
dwCGhoYAlpaWAMvLywCysrIA19fXAN3d3QDj4+MA6urqAPHx8QD4+PgAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDwAAAAAPDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAA8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8AAAAADw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDwAAAAAPDw8A
AAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PAAAAAA8PDwAADw8PDw8PDw8PDw8PDw8PDw8PAAAPDw8AAAAA
Dw8PAAAADw8PDw8PDw8PDw8PDw8PDw8AAA8PDwAAAAAPDw8AAAAAAA8PDw8PAAAAAAAAAA8PDwAADw8P
AAAAAA8PDwAAAAAADw8PDw8AAAAAAAAADw8PAAAPDw8AAAAADw8PAAAAAAAADw8PDwAAAAAAAAAPDw8A
AA8PDwAAAAAPDw8AAAAAAAAPDw8PDwAAAAAAAAAAAAAADw8PAAAAAA8PDwAPDw8AAA8PDw8PAAAAAAAA
AAAAAAAPDw8AAAAADw8PAA8PDwAADw8PDw8AAAAADw8AAAAAAA8PDwAAAAAPDw8ADw8PAAAADw8PDwAA
AA8PDw8AAAAADw8PAAAAAA8PDwAPDwAAAAAPDw8PDw8PDw8PDwAAAAAPDw8AAAAADw8PAA8PAAAAAA8P
Dw8PAAAADw8PAAAAAA8PDwAAAAAPDw8ADw8AAAAADw8PDw8AAAAADw8AAAAADw8PAAAAAA8PDwAPDw8A
AAAADw8PDwAAAAAAAAAAAAAPDw8AAAAADw8PAAAPDwAAAAAPDw8PDwAAAAAAAAAAAA8PDwAAAAAPDw8A
AA8PDwAAAA8PDw8PAAAAAAAAAAAADw8PAAAAAA8PDwAAAA8PDwAAAA8PDw8AAAAAAAAPAAAPDw8AAAAA
Dw8PAAAAAA8PDw8PDw8PDw8AAAAADw8AAA8PDwAAAAAPDw8AAAAAAAAPDw8PDw8PDw8PDw8PDwAADw8P
AAAAAA8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8AAAAADw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AA8PDwAAAAAPDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAA8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8AAAAADw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP////+AAAABgAAAAYAA
AAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAA
AAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAH/////KAAAAEAA
AACAAAAAAQAIAAAAAAAAEgAAAAAAAAAAAAAAAQAAAAAAAAAAAACAAIAAgAAAAICAAAAAgAAAAICAAAAA
gADAwMAAwNzAAPDKpgCAgIAA1p7BAL9ongD//wAAAP8AAAD//wAAAP8A////APD7/wCkoKAABAQEAAgI
CAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ/wCTANYA/+zMAMbW
7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz/wAAZgAAAGYzAABm
ZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADMZgAAzJkAAMzMAADM
/wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMzZgAzM5kAMzPMADMz
/wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ/wAzzAAAM8wzADPM
ZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYAmQBmAMwAZgD/AGYz
AABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZMwBmmWYAZpmZAGaZ
zABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8AzACZmQAAmTOZAJkA
mQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz/wCZmTMAmZlmAJmZ
mQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/mQCZ/8wAmf//AMwA
AACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxmMwCZZmYAzGaZAMxm
zACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzMzADMzP8AzP8AAMz/
MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8zzAD/M/8A/2YAAP9m
MwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/MMwD/zGYA/8yZAP/M
zAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEApQBfX18Ad3d3AIaG
hgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+AAPDw8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8AAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8P
DwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP
Dw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAADw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAA
AAAAAAAAAAAAAAAPDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8P
DwAAAAAAAAAAAAAAAAAADw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAP
Dw8PDw8AAAAAAAAAAAAAAAAAAA8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8AAAAAAAAAAAAAAAAA
AAAADw8PDw8PAAAAAAAAAAAAAAAAAAAPDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PAAAAAAAAAAAA
AAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAADw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDwAAAAAA
AAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAA8PDwAADw8PDw8PDw8PDw8PDw8PDw8PAAAPDw8A
AAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAPDw8AAAAPDw8PDw8PDw8PDw8PDw8PDwAA
Dw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAADw8PAAAAAAAPDw8PDwAAAAAAAAAP
Dw8AAA8PDwAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAA8PDwAAAAAADw8PDw8AAAAA
AAAADw8PAAAPDw8AAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAPDw8AAAAAAAAPDw8P
AAAAAAAAAA8PDwAADw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAADw8PAAAAAAAA
Dw8PDw8AAAAAAAAAAAAAAA8PDwAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAA8PDwAP
Dw8AAA8PDw8PAAAAAAAAAAAAAAAPDw8AAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAP
Dw8ADw8PAAAPDw8PDwAAAAAPDwAAAAAADw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAA
AAAADw8PAA8PDwAAAA8PDw8AAAAPDw8PAAAAAA8PDwAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAA
AAAAAAAAAA8PDwAPDwAAAAAPDw8PDw8PDw8PDwAAAAAPDw8AAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAA
AAAAAAAAAAAAAAAPDw8ADw8AAAAADw8PDw8AAAAPDw8AAAAADw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8P
DwAAAAAAAAAAAAAAAAAADw8PAA8PAAAAAA8PDw8PAAAAAA8PAAAAAA8PDwAAAAAAAAAAAAAAAAAAAAAP
Dw8PDw8AAAAAAAAAAAAAAAAAAA8PDwAPDw8AAAAADw8PDwAAAAAAAAAAAAAPDw8AAAAAAAAAAAAAAAAA
AAAADw8PDw8PAAAAAAAAAAAAAAAAAAAPDw8AAA8PAAAAAA8PDw8PAAAAAAAAAAAADw8PAAAAAAAAAAAA
AAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAADw8PAAAPDw8AAAAPDw8PDwAAAAAAAAAAAA8PDwAAAAAA
AAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAA8PDwAAAA8PDwAAAA8PDw8AAAAAAAAPAAAPDw8A
AAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAPDw8AAAAADw8PDw8PDw8PDwAAAAAPDwAA
Dw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAADw8PAAAAAAAADw8PDw8PDw8PDw8P
Dw8AAA8PDwAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAA8PDwAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAPDw8AAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAPDw8AAAAAAAAAAAAA
AAAAAAAAAAAAAAAADw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAADw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAA8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8AAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAP
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8P
DwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP
Dw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAADw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=
</value>
</data>
</root>

556
EDOKA/Systemadministration/Diverses/frmExportDataFremdanwendung.vb Normal file
View File

@@ -0,0 +1,556 @@
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.IO
Public Class frmExportDataFremdanwendung
Inherits System.Windows.Forms.Form
'Variable für Rekursiven VorlagenExport (Counter-Variable)
Private intEbeneID As Integer = 0
Private arrVorlagenXML(10) As String
#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 ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
Friend WithEvents tbbEnde As System.Windows.Forms.ToolBarButton
Friend WithEvents txtPfad As System.Windows.Forms.TextBox
Friend WithEvents btnExport As System.Windows.Forms.Button
Friend WithEvents cbxDocktypen As System.Windows.Forms.CheckBox
Friend WithEvents cbxDokStruktur As System.Windows.Forms.CheckBox
Friend WithEvents btnFolderOpen As System.Windows.Forms.Button
Friend WithEvents cbxVorlage As System.Windows.Forms.CheckBox
Friend WithEvents Label1 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmExportDataFremdanwendung))
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.ToolBar1 = New System.Windows.Forms.ToolBar
Me.tbbEnde = New System.Windows.Forms.ToolBarButton
Me.txtPfad = New System.Windows.Forms.TextBox
Me.btnExport = New System.Windows.Forms.Button
Me.cbxDocktypen = New System.Windows.Forms.CheckBox
Me.cbxDokStruktur = New System.Windows.Forms.CheckBox
Me.btnFolderOpen = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.cbxVorlage = New System.Windows.Forms.CheckBox
Me.SuspendLayout()
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "")
'
'ToolBar1
'
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbEnde})
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(328, 28)
Me.ToolBar1.TabIndex = 0
'
'tbbEnde
'
Me.tbbEnde.ImageIndex = 0
Me.tbbEnde.Name = "tbbEnde"
Me.tbbEnde.ToolTipText = "Beenden"
'
'txtPfad
'
Me.txtPfad.Location = New System.Drawing.Point(24, 144)
Me.txtPfad.Name = "txtPfad"
Me.txtPfad.Size = New System.Drawing.Size(248, 20)
Me.txtPfad.TabIndex = 1
'
'btnExport
'
Me.btnExport.Location = New System.Drawing.Point(24, 184)
Me.btnExport.Name = "btnExport"
Me.btnExport.Size = New System.Drawing.Size(75, 23)
Me.btnExport.TabIndex = 2
Me.btnExport.Text = "Export"
'
'cbxDocktypen
'
Me.cbxDocktypen.Checked = True
Me.cbxDocktypen.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDocktypen.Location = New System.Drawing.Point(24, 64)
Me.cbxDocktypen.Name = "cbxDocktypen"
Me.cbxDocktypen.Size = New System.Drawing.Size(128, 24)
Me.cbxDocktypen.TabIndex = 3
Me.cbxDocktypen.Text = "Dokumenttypen"
'
'cbxDokStruktur
'
Me.cbxDokStruktur.Checked = True
Me.cbxDokStruktur.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDokStruktur.Location = New System.Drawing.Point(24, 88)
Me.cbxDokStruktur.Name = "cbxDokStruktur"
Me.cbxDokStruktur.Size = New System.Drawing.Size(136, 24)
Me.cbxDokStruktur.TabIndex = 4
Me.cbxDokStruktur.Text = "Dokumentstruktur"
'
'btnFolderOpen
'
Me.btnFolderOpen.Location = New System.Drawing.Point(272, 144)
Me.btnFolderOpen.Name = "btnFolderOpen"
Me.btnFolderOpen.Size = New System.Drawing.Size(20, 20)
Me.btnFolderOpen.TabIndex = 5
Me.btnFolderOpen.Text = "..."
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 40)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(100, 16)
Me.Label1.TabIndex = 6
Me.Label1.Text = "Export-Typ"
'
'cbxVorlage
'
Me.cbxVorlage.Checked = True
Me.cbxVorlage.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxVorlage.Location = New System.Drawing.Point(24, 114)
Me.cbxVorlage.Name = "cbxVorlage"
Me.cbxVorlage.Size = New System.Drawing.Size(136, 24)
Me.cbxVorlage.TabIndex = 7
Me.cbxVorlage.Text = "Vorlagenexport"
'
'frmExportDataFremdanwendung
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(328, 229)
Me.Controls.Add(Me.cbxVorlage)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnFolderOpen)
Me.Controls.Add(Me.cbxDokStruktur)
Me.Controls.Add(Me.cbxDocktypen)
Me.Controls.Add(Me.btnExport)
Me.Controls.Add(Me.txtPfad)
Me.Controls.Add(Me.ToolBar1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmExportDataFremdanwendung"
Me.Text = "Datenexport Fremdanwendung"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
#Region " Formular Controls"
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Me.Close()
End Sub
Private Sub btnFolderOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFolderOpen.Click
Try 'öffnet den FolderSelect und speichert den Pfad im Textfeld ab.
Dim f As New FolderSelect()
f.InitialDirectory = "H:\"
f.InitialDirectoryExpanded = True
Me.Cursor = Cursors.WaitCursor
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
txtPfad.Text = f.fullPath
End If
Me.Cursor = Cursors.Default
f.Dispose()
Catch ex As Exception
MsgBox("frmExportDataFremdanwendung:btnFolderOpen_Click::" & ex.Message, MsgBoxStyle.Critical, Me.Text)
End Try
End Sub
Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click
Try
'Prüfen ob Pfad angegeben
If Len(txtPfad.Text) < 3 Then
MsgBox("Bitte Pfad angeben!", MsgBoxStyle.Exclamation, Me.Text)
Exit Sub
End If
'Prüfen ob Export Typ angegeben
If Not cbxDocktypen.Checked And Not cbxDokStruktur.Checked And Not cbxVorlage.Checked Then
MsgBox("Mindestens ein Export-Typ muss ausgewählt werden!", MsgBoxStyle.Exclamation, Me.Text)
Exit Sub
End If
'Prüfen ob Pfad existiert
If DivFnkt.FolderExist(txtPfad.Text) = False Then
If MsgBox("Der angegebene Pfad existiert nicht, soll er erstellt werden?", MsgBoxStyle.OKCancel + MsgBoxStyle.Question, Me.Text) = MsgBoxResult.OK Then
DivFnkt.Create_Folders(txtPfad.Text)
If DivFnkt.FolderExist(txtPfad.Text) = False Then
MsgBox("Der angegebene Pfad konnte nicht erstellt werden", MsgBoxStyle.Exclamation, Me.Text)
Exit Sub
End If
Else
Exit Sub
End If
End If
ExportData()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, Me.Text)
End Try
End Sub
#End Region
Private Sub ExportData()
Dim fP As New frmProgress()
Try
Dim i As Integer = 0
For i = 0 To UBound(arrVorlagenXML) - 1
arrVorlagenXML(i) = ""
Next
fP.Info.Text = "Starten des Exports"
fP.Bar1a.Visible = True
fP.Bar1a.Maximum = 100
fP.Show()
If cbxDocktypen.Checked Then
fP.Info.Text = "Dokumenttyp Daten werden exportiert"
fP.Bar1a.Value = 50
GenXMLDataTable(txtPfad.Text, 1, "Dokumenttyp.xml")
System.Threading.Thread.Sleep(1000)
End If
If cbxDokStruktur.Checked Then
fP.Info.Text = "Dokumentstruktur Daten werden exportiert"
fP.Bar1a.Value = 100
GenXMLDataTable(txtPfad.Text, 2, "Dokumentstruktur.xml")
System.Threading.Thread.Sleep(1500)
End If
'Rel 4.0 Vorlagen-Export für Avaloq
If cbxVorlage.Checked Then
fP.Info.Text = "Vorlagenreferenzen exportieren"
fP.Bar1a.Value = 0
System.Threading.Thread.Sleep(2500)
GenVorlagenReferences(txtPfad.Text)
fP.Info.Text = "Vorlagenstruktur erstellen"
fP.Bar1a.Value = 30
System.Threading.Thread.Sleep(2500)
GenVorlagenExport(intEbeneID, 0, 0)
fP.Info.Text = "Vorlagenstruktur speichern"
fP.Bar1a.Value = 80
System.Threading.Thread.Sleep(2500)
GenVorlagenExportFileStuff(txtPfad.Text)
End If
fP.Info.Text = "Ende Daten Export"
fP.Bar1a.Value = 100
System.Threading.Thread.Sleep(1500)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, Me.Text)
Finally
fP.Dispose()
End Try
End Sub
Private Sub GenVorlagenExportFileStuff(ByVal strPath As String)
Dim i As Integer = 0
Dim fi As FileStream
Dim sWrite As StreamWriter
Try
If Not Directory.Exists(strPath & "\temp") Then
Directory.CreateDirectory(strPath & "\temp")
End If
Do While arrVorlagenXML(i) <> ""
fi = New FileStream(strPath & "\temp\tgkb_edoka_dot_0" & i + 1 & "_" & Replace(DateTime.Now.ToShortDateString, ".", "") & ".xml", FileMode.Create, FileAccess.Write)
sWrite = New StreamWriter(fi)
arrVorlagenXML(i) = arrVorlagenXML(i).Replace("</item><item>", "</item>" & vbNewLine & "<item>")
arrVorlagenXML(i) = "<edokaCollections>" & vbNewLine & arrVorlagenXML(i)
arrVorlagenXML(i) = arrVorlagenXML(i) & "</edokaCollections>"
sWrite.Write(arrVorlagenXML(i))
sWrite.Close()
fi.Close()
i = i + 1
Loop
Dim dir As New IO.DirectoryInfo(strPath & "\temp")
Dim iCounter As Integer
iCounter = 0
Dim files As IO.FileInfo() = dir.GetFiles()
Dim file As IO.FileInfo
Dim newFilename As String
Dim intCounter As Integer = 1
Dim intCounter2 As Integer = i
For Each file In files
If file.Name Like "tgkb_edoka_dot_0?_" & Replace(DateTime.Now.ToShortDateString, ".", "") & ".xml" Then 'Filter: Nur soeben generierte Files nehmen
newFilename = file.Name
newFilename = Replace(file.Name, "dot_0" & intCounter, "dot_0" & intCounter2)
intCounter = intCounter + 1
intCounter2 = intCounter2 - 1
file.CopyTo(strPath & "\" & newFilename)
End If
Next
Catch ex As Exception
Throw New Exception("frmExportDataFremdanwendung:GenVorlagenExportFileStuff::Error occured." & ex.Message, ex)
End Try
End Sub
'************************************************************************************************************
'| Funktion um den Vorlagenkatalog zu exportieren |
'| Parameter: |
'| intEbene: Hirarchiestufe es Vorlagenbaums |
'| intParentID: Parent-Element nach dem gesucht wird |
'| Return: |
'| Gibt die Sub-Items des Parents zurück (collections oder Files) |
'| |
'| Funktionalität: |
'| Funktion wird mit "0,0" zum 1.mal aufgerufen (Root-Element) |
'| Der Baum wird Rekursiv aufgebaut, d.h Die Funktion wird für jedes Sub-Element wieder aufgerufen. |
'| Sub-Items können Collection oder Product (File) sein. |
'| Der Rückgabewert der Funktion wird in einer Variable zusammengeführt und entspricht den Sub-Items. |
'************************************************************************************************************
Private DP_ID As Integer = 0
Private Function GenVorlagenExport(ByVal intEbene As Integer, ByVal intParentID As Integer, ByVal intRootID As Integer) As String
Dim sData As DataSet = New DataSet()
Dim row As DataRow
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
Dim subItem As String
Dim boolDoIt As Boolean = True
scmCmdToExecute.CommandText = "dbo.sp_VorlagenExport_GetEbeneByID"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
If intParentID = 180 Then
'MsgBox("Hit")
End If
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@parentID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, intParentID))
sdaAdapter.Fill(sData)
'Loop over the Resultset
For Each row In sData.Tables(0).Rows
' You can set a Parameter in the Table (VorlagenExport) on the 1. Hyrarchie
' Takes only these Nodes which have a 1 defined in the row
If intEbene = 1 Then
If row("VorlagenExport") Is System.DBNull.Value Then
boolDoIt = False
Else
If row("bezeichnung") = "Dokumentpakete" Then
DP_ID = row("dokumentartnr")
Else
DP_ID = 0
End If
boolDoIt = True
End If
End If
If DP_ID = 173 Then
intRootID = 173
End If
'If DP_ID = intParentID Then
' DP_ID = row("dokumentartnr")
'ElseIf intParentID > 1 And DP_ID < intParentID Then
'DP_ID = 0
'End If
If boolDoIt Then
' Create the XML-String
arrVorlagenXML(intEbene) = arrVorlagenXML(intEbene) & "<edokaDotCollection>" & vbNewLine
If DP_ID > 0 Then
arrVorlagenXML(intEbene) = arrVorlagenXML(intEbene) & "<refId>" & CInt(row("dokumentartnr")) + 900000000 + 100000 & "</refId>" & vbNewLine
Else
arrVorlagenXML(intEbene) = arrVorlagenXML(intEbene) & "<refId>" & CInt(row("dokumentartnr")) + 900000000 + 10000 & "</refId>" & vbNewLine
End If
arrVorlagenXML(intEbene) = arrVorlagenXML(intEbene) & "<name>" & row("bezeichnung") & "</name>" & vbNewLine
arrVorlagenXML(intEbene) = arrVorlagenXML(intEbene) & "<fullname></fullname>" & vbNewLine
arrVorlagenXML(intEbene) = arrVorlagenXML(intEbene) & "<shortname>" & CInt(row("dokumentartnr")) & "</shortname>" & vbNewLine
arrVorlagenXML(intEbene) = arrVorlagenXML(intEbene) & "<collectionType>collection</collectionType>" & vbNewLine
arrVorlagenXML(intEbene) = arrVorlagenXML(intEbene) & "<treeRoot></treeRoot>" & vbNewLine
arrVorlagenXML(intEbene) = arrVorlagenXML(intEbene) & "<closeDate>01.08.2025</closeDate>" & vbNewLine
arrVorlagenXML(intEbene) = arrVorlagenXML(intEbene) & "<itemList>" & vbNewLine
subItem = subItem & "<item>" & vbNewLine
subItem = subItem & "<itemType>collection</itemType>" & vbNewLine
If DP_ID > 0 Then
subItem = subItem & "<itemRefId>" & CInt(row("dokumentartnr")) + 900000000 + 100000 & "</itemRefId>" & vbNewLine
Else
subItem = subItem & "<itemRefId>" & CInt(row("dokumentartnr")) + 900000000 + 10000 & "</itemRefId>" & vbNewLine
End If
subItem = subItem & "</item>"
'Call the Function recursively
arrVorlagenXML(intEbene) = arrVorlagenXML(intEbene) & GenVorlagenExport(intEbene + 1, row("dokumentartnr"), intRootID) & vbNewLine
arrVorlagenXML(intEbene) = arrVorlagenXML(intEbene) & "</itemList>" & vbNewLine
arrVorlagenXML(intEbene) = arrVorlagenXML(intEbene) & "</edokaDotCollection>" & vbNewLine
End If
Next
'--------------------
' Check for Files |
'--------------------
Dim sData2 As DataSet = New DataSet()
Dim row2 As DataRow
Dim scmCmdToExecute2 As SqlCommand = New SqlCommand()
Dim sdaAdapter2 As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute2)
If DP_ID > 0 Then
scmCmdToExecute2.CommandText = "dbo.sp_VorlagenExport_GetDokumentPaketeByEbeneID"
Else
scmCmdToExecute2.CommandText = "dbo.sp_VorlagenExport_GetDokumenteByEbeneID"
End If
scmCmdToExecute2.CommandType = CommandType.StoredProcedure
scmCmdToExecute2.Connection = conn.scoDBConnection
scmCmdToExecute2.Parameters.Add(New SqlParameter("@ID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, intParentID))
sdaAdapter2.Fill(sData2)
For Each row2 In sData2.Tables(0).Rows
subItem = subItem & "<itemType>product</itemType>" & vbNewLine
If DP_ID > 0 Then
subItem = subItem & "<itemRefId>" & CInt(row2("dokumentpaketnr")) + 900000000 + 100000 & "</itemRefId>" & vbNewLine
Else
subItem = subItem & "<itemRefId>" & CInt(row2("dokumenttypnr")) + 900000000 & "</itemRefId>" & vbNewLine
End If
Next
Catch ex As Exception
Throw New Exception("frmExportDataFremdanwendung:GenVorlagenExport::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
End Try
Return subItem
End Function
'************************************************************************************************
'| Methode um die Vorlagen-Referenzen zu exportieren |
'| |
'| Parameter: strPath = Exportpfad der XML-Datei |
'| |
'| Funktionalität: |
'| Es wird nach alles Dokumenttypen gesucht welche aktiv sind. |
'| Das Ergebnis wird nach der Vorgegebenen Namenskonvention auf dem angegebenen Pfad abgelegt. |
'************************************************************************************************
Private Sub GenVorlagenReferences(ByVal strPath As String)
Dim sData As DataSet = New DataSet()
Dim row As DataRow
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
Dim sData2 As DataSet = New DataSet()
Dim row2 As DataRow
Dim scmCmdToExecute2 As SqlCommand = New SqlCommand()
Dim sdaAdapter2 As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute2)
Dim strXML As String
scmCmdToExecute.CommandText = "dbo.sp_VorlagenExport_GetDokReference"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
sdaAdapter.Fill(sData)
strXML = strXML & "<edokaDots>" & vbNewLine
For Each row In sData.Tables(0).Rows
strXML = strXML & "<edokaDotRef>" & vbNewLine
strXML = strXML & " <refID>" & CInt(row("dokumenttypnr")) + 900000000 & "</refID>" & vbNewLine
strXML = strXML & " <name>" & row("bezeichnung") & "</name>" & vbNewLine
strXML = strXML & " <description>" & row("beschreibung") & "</description>" & vbNewLine
strXML = strXML & " <shortname>" & CInt(row("dokumenttypnr")) & "</shortname>" & vbNewLine
strXML = strXML & " <remark>" & row("bezeichnung") & "</remark>" & vbNewLine
strXML = strXML & " <validDate>01.08.2008</validDate>" & vbNewLine
strXML = strXML & " <validDateTo>01.08.2025</validDateTo>" & vbNewLine
strXML = strXML & " <closeDate>01.08.2025</closeDate>" & vbNewLine
strXML = strXML & "</edokaDotRef>" & vbNewLine
Next
'Get Dokumentpakete ID + 100000 weil könnte gleich sein wie Dokumenttypnr
scmCmdToExecute2.CommandText = "dbo.sp_VorlagenExport_GetDokPaketeReference"
scmCmdToExecute2.CommandType = CommandType.StoredProcedure
scmCmdToExecute2.Connection = conn.scoDBConnection
sdaAdapter2.Fill(sData2)
For Each row2 In sData2.Tables(0).Rows
strXML = strXML & "<edokaDotRef>" & vbNewLine
strXML = strXML & " <refID>" & CInt(row2("dokumentpaketnr")) + 900000000 + 100000 & "</refID>" & vbNewLine
strXML = strXML & " <name>" & row2("bezeichnung") & "</name>" & vbNewLine
strXML = strXML & " <description>" & row2("beschreibung") & "</description>" & vbNewLine
strXML = strXML & " <shortname>" & CInt(row2("dokumentpaketnr")) & "</shortname>" & vbNewLine
strXML = strXML & " <remark>" & row2("bezeichnung") & "</remark>" & vbNewLine
strXML = strXML & " <validDate>01.08.2008</validDate>" & vbNewLine
strXML = strXML & " <validDateTo>01.08.2025</validDateTo>" & vbNewLine
strXML = strXML & " <closeDate>01.08.2025</closeDate>" & vbNewLine
strXML = strXML & "</edokaDotRef>" & vbNewLine
Next
strXML = strXML & "</edokaDots>" & vbNewLine
Dim fi As New FileStream(strPath & "\tgkb_edoka_dot_00_" & Replace(DateTime.Now.ToShortDateString, ".", "") & ".xml", FileMode.Create, FileAccess.Write)
Dim sWrite As New StreamWriter(fi)
sWrite.Write(strXML)
sWrite.Close()
fi.Close()
Catch ex As Exception
Throw New Exception("frmExportDataFremdanwendung:GenVorlagenReferences::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
End Try
End Sub
Private Function GenXMLDataTable(ByVal Exportpfad As String, ByVal typ As Integer, ByVal sFileName As String) As Boolean
Dim sTempDataSet As DataSet = New DataSet()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
GenXMLDataTable = True
scmCmdToExecute.CommandText = "dbo.sp_Export_Data"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, typ))
sdaAdapter.Fill(sTempDataSet)
sTempDataSet.WriteXml(Exportpfad & "\" & sFileName, XmlWriteMode.WriteSchema)
Catch ex As Exception
GenXMLDataTable = False
Throw New Exception("frmExportDataFremdanwendung:GenXMLDataTable::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
End Class

322
EDOKA/Systemadministration/Diverses/frmNotfallDataGenerate.resx Normal file
View File

@@ -0,0 +1,322 @@
<?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="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnClose.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AAAgCAAAAk1TRnQBSQFMAwEBAAEFAQABBAEAARABAAEQAQAE/wEJARAI/wFCAU0BNgEEBgABNgEEAgAB
KAMAAUADAAEgAwABAQEAAQgGAAEIGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwB
wAEAAfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQAD
OQEAAYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMD
AAFmAwABmQMAAcwCAAEzAwACMwIAATMBZgIAATMBmQIAATMBzAIAATMB/wIAAWYDAAFmATMCAAJmAgAB
ZgGZAgABZgHMAgABZgH/AgABmQMAAZkBMwIAAZkBZgIAApkCAAGZAcwCAAGZAf8CAAHMAwABzAEzAgAB
zAFmAgABzAGZAgACzAIAAcwB/wIAAf8BZgIAAf8BmQIAAf8BzAEAATMB/wIAAf8BAAEzAQABMwEAAWYB
AAEzAQABmQEAATMBAAHMAQABMwEAAf8BAAH/ATMCAAMzAQACMwFmAQACMwGZAQACMwHMAQACMwH/AQAB
MwFmAgABMwFmATMBAAEzAmYBAAEzAWYBmQEAATMBZgHMAQABMwFmAf8BAAEzAZkCAAEzAZkBMwEAATMB
mQFmAQABMwKZAQABMwGZAcwBAAEzAZkB/wEAATMBzAIAATMBzAEzAQABMwHMAWYBAAEzAcwBmQEAATMC
zAEAATMBzAH/AQABMwH/ATMBAAEzAf8BZgEAATMB/wGZAQABMwH/AcwBAAEzAv8BAAFmAwABZgEAATMB
AAFmAQABZgEAAWYBAAGZAQABZgEAAcwBAAFmAQAB/wEAAWYBMwIAAWYCMwEAAWYBMwFmAQABZgEzAZkB
AAFmATMBzAEAAWYBMwH/AQACZgIAAmYBMwEAA2YBAAJmAZkBAAJmAcwBAAFmAZkCAAFmAZkBMwEAAWYB
mQFmAQABZgKZAQABZgGZAcwBAAFmAZkB/wEAAWYBzAIAAWYBzAEzAQABZgHMAZkBAAFmAswBAAFmAcwB
/wEAAWYB/wIAAWYB/wEzAQABZgH/AZkBAAFmAf8BzAEAAcwBAAH/AQAB/wEAAcwBAAKZAgABmQEzAZkB
AAGZAQABmQEAAZkBAAHMAQABmQMAAZkCMwEAAZkBAAFmAQABmQEzAcwBAAGZAQAB/wEAAZkBZgIAAZkB
ZgEzAQABmQEzAWYBAAGZAWYBmQEAAZkBZgHMAQABmQEzAf8BAAKZATMBAAKZAWYBAAOZAQACmQHMAQAC
mQH/AQABmQHMAgABmQHMATMBAAFmAcwBZgEAAZkBzAGZAQABmQLMAQABmQHMAf8BAAGZAf8CAAGZAf8B
MwEAAZkBzAFmAQABmQH/AZkBAAGZAf8BzAEAAZkC/wEAAcwDAAGZAQABMwEAAcwBAAFmAQABzAEAAZkB
AAHMAQABzAEAAZkBMwIAAcwCMwEAAcwBMwFmAQABzAEzAZkBAAHMATMBzAEAAcwBMwH/AQABzAFmAgAB
zAFmATMBAAGZAmYBAAHMAWYBmQEAAcwBZgHMAQABmQFmAf8BAAHMAZkCAAHMAZkBMwEAAcwBmQFmAQAB
zAKZAQABzAGZAcwBAAHMAZkB/wEAAswCAALMATMBAALMAWYBAALMAZkBAAPMAQACzAH/AQABzAH/AgAB
zAH/ATMBAAGZAf8BZgEAAcwB/wGZAQABzAH/AcwBAAHMAv8BAAHMAQABMwEAAf8BAAFmAQAB/wEAAZkB
AAHMATMCAAH/AjMBAAH/ATMBZgEAAf8BMwGZAQAB/wEzAcwBAAH/ATMB/wEAAf8BZgIAAf8BZgEzAQAB
zAJmAQAB/wFmAZkBAAH/AWYBzAEAAcwBZgH/AQAB/wGZAgAB/wGZATMBAAH/AZkBZgEAAf8CmQEAAf8B
mQHMAQAB/wGZAf8BAAH/AcwCAAH/AcwBMwEAAf8BzAFmAQAB/wHMAZkBAAH/AswBAAH/AcwB/wEAAv8B
MwEAAcwB/wFmAQAC/wGZAQAC/wHMAQACZgH/AQABZgH/AWYBAAFmAv8BAAH/AmYBAAH/AWYB/wEAAv8B
ZgEAASEBAAGlAQADXwEAA3cBAAOGAQADlgEAA8sBAAOyAQAD1wEAA90BAAPjAQAD6gEAA/EBAAP4AQAB
8AH7Af8BAAGkAqABAAOAAwAB/wIAAf8DAAL/AQAB/wMAAf8BAAH/AQAC/wIAA///AP8A/wD/AEsAAQMB
/zwAAewBAwHsAf86AAEDAewBAwHsAQMB/zkAAQMB7AEDAewBAwHsAf8BAAHsNwAB7AEDAewBAwHsAQMB
/wEAAew3AAEDAewBAwIAAewB/wEAAew3AAHsAQMB7AIHAQMB/wEAAewBAAEGNQABAwHsAQMB7AEDAewB
/wIAAQYF/jEAAewBAwHsAQMB7AEDAf8BAAFtBv4xAAEDAewBAwHsAQMB7AH/AQAB7AFtAf4EbTEAAewB
AwHsAQMB7AEDAf8BAAHsAQACbTQAAQMB7AEDAewBBwH/AewBAAHsAgABbTQAAewBAwEHAf8B7AEAA+w3
AAEHAf8B7AEABex2AAFCAU0BPgcAAT4DAAEoAwABQAMAASADAAEBAQABAQYAAQEWAAP/gQAB/AF/BgAB
8AF/BgABwAF/BwABHwcAAR8HAAEXBwABBycAAQcHAAEXBwABHwcAAR8HAAEfHAAL
</value>
</data>
<data name="btnNotfallExpVorlagen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnNotfallData.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmNotfallDataGenerate</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>
AAABAAMAEBAAAAEACABoBQAANgAAACAgAAABAAgAqAgAAJ4FAABAQAAAAQAIACgWAABGDgAAKAAAABAA
AAAgAAAAAQAIAAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAD//wC/aJ4A+/v7AOJ7uwCPTnYAWTBKAF80
TwBTLUUAWjBKAB4QGABlN1MAazpYABgNEwBULUUAYDRPALNhlABNKkAA1nWxACQTHQAwGicAeEFiAMpu
pwBIJzsA6H7AAJtUgADQcawATipAACoWIgA2HSwAxGuiAKdbigBsOlgA+ojPAP///wAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAiIiIiIiIiIiIiIiIiIiIiIgAAAAAA
AAAAAAAAAAAAIiIAIiIiIiIiIiIiIiIiACIiACIiAAAAAAAAAAAAIgAiIgAiIiIAACIiIiIAACIAIiIA
IiIiIgAAIiIiIiIiACIiACIAACIAACIiAAAiIgAiIgAiAAAiIgAAAAAAIiIAIiIAIgAAIiIAACIAACIi
ACIiACIiAAAiAAAiIiIiIgAiIgAiIiIAACIAACIAACIAIiIAIiIiIgAAAAAAAAAiACIiACIiIiIiIiIi
IiIiIgAiIgAiIiIiIiIiIiIiIiIAIiIAAAAAAAAAAAAAAAAAACIiIiIiIiIiIiIiIiIiIiIiAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgA
AAAgAAAAQAAAAAEACAAAAAAAgAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgACAAIAAAACAgAAAAIAAAACA
gAAAAIAAwMDAAMDcwADwyqYAgICAANaewQC/aJ4A//8AAAD/AAAA//8AAAD/AP///wDw+/8ApKCgAAQE
BAAICAgADAwMABEREQAWFhYAHBwcACIiIgApKSkAVVVVAE1NTQBCQkIAOTk5AIB8/wBQUP8AkwDWAP/s
zADG1u8A1ufnAJCprQAAADMAAABmAAAAmQAAAMwAADMAAAAzMwAAM2YAADOZAAAzzAAAM/8AAGYAAABm
MwAAZmYAAGaZAABmzAAAZv8AAJkAAACZMwAAmWYAAJmZAACZzAAAmf8AAMwAAADMMwAAzGYAAMyZAADM
zAAAzP8AAP9mAAD/mQAA/8wAMwAAADMAMwAzAGYAMwCZADMAzAAzAP8AMzMAADMzMwAzM2YAMzOZADMz
zAAzM/8AM2YAADNmMwAzZmYAM2aZADNmzAAzZv8AM5kAADOZMwAzmWYAM5mZADOZzAAzmf8AM8wAADPM
MwAzzGYAM8yZADPMzAAzzP8AM/8zADP/ZgAz/5kAM//MADP//wBmAAAAZgAzAGYAZgBmAJkAZgDMAGYA
/wBmMwAAZjMzAGYzZgBmM5kAZjPMAGYz/wBmZgAAZmYzAGZmZgBmZpkAZmbMAGaZAABmmTMAZplmAGaZ
mQBmmcwAZpn/AGbMAABmzDMAZsyZAGbMzABmzP8AZv8AAGb/MwBm/5kAZv/MAMwA/wD/AMwAmZkAAJkz
mQCZAJkAmQDMAJkAAACZMzMAtwB7AJkzzACZAP8AmWYAAJlmMwCZM2YAmWaZAJlmzACZM/8AmZkzAJmZ
ZgCZmZkAmZnMAJmZ/wCZzAAAmcwzAGbMZgCZzJkAmczMAJnM/wCZ/wAAmf8zAJnMZgCZ/5kAmf/MAJn/
/wDMAAAAmQAzAMwAZgDMAJkAzADMAJkzAADMMzMAzDNmAMwzmQDMM8wAzDP/AMxmAADMZjMAmWZmAMxm
mQDMZswAmWb/AMyZAADMmTMAzJlmAMyZmQDMmcwAzJn/AMzMAADMzDMAzMxmAMzMmQDMzMwAzMz/AMz/
AADM/zMAmf9mAMz/mQDM/8wAzP//AMwAMwD/AGYA/wCZAMwzAAD/MzMA/zNmAP8zmQD/M8wA/zP/AP9m
AAD/ZjMAzGZmAP9mmQD/ZswAzGb/AP+ZAAD/mTMA/5lmAP+ZmQD/mcwA/5n/AP/MAAD/zDMA/8xmAP/M
mQD/zMwA/8z/AP//MwDM/2YA//+ZAP//zABmZv8AZv9mAGb//wD/ZmYA/2b/AP//ZgAhAKUAX19fAHd3
dwCGhoYAlpaWAMvLywCysrIA19fXAN3d3QDj4+MA6urqAPHx8QD4+PgAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDwAAAAAPDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAA8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8AAAAADw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDwAAAAAPDw8A
AAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PAAAAAA8PDwAADw8PDw8PDw8PDw8PDw8PDw8PAAAPDw8AAAAA
Dw8PAAAADw8PDw8PDw8PDw8PDw8PDw8AAA8PDwAAAAAPDw8AAAAAAA8PDw8PAAAAAAAAAA8PDwAADw8P
AAAAAA8PDwAAAAAADw8PDw8AAAAAAAAADw8PAAAPDw8AAAAADw8PAAAAAAAADw8PDwAAAAAAAAAPDw8A
AA8PDwAAAAAPDw8AAAAAAAAPDw8PDwAAAAAAAAAAAAAADw8PAAAAAA8PDwAPDw8AAA8PDw8PAAAAAAAA
AAAAAAAPDw8AAAAADw8PAA8PDwAADw8PDw8AAAAADw8AAAAAAA8PDwAAAAAPDw8ADw8PAAAADw8PDwAA
AA8PDw8AAAAADw8PAAAAAA8PDwAPDwAAAAAPDw8PDw8PDw8PDwAAAAAPDw8AAAAADw8PAA8PAAAAAA8P
Dw8PAAAADw8PAAAAAA8PDwAAAAAPDw8ADw8AAAAADw8PDw8AAAAADw8AAAAADw8PAAAAAA8PDwAPDw8A
AAAADw8PDwAAAAAAAAAAAAAPDw8AAAAADw8PAAAPDwAAAAAPDw8PDwAAAAAAAAAAAA8PDwAAAAAPDw8A
AA8PDwAAAA8PDw8PAAAAAAAAAAAADw8PAAAAAA8PDwAAAA8PDwAAAA8PDw8AAAAAAAAPAAAPDw8AAAAA
Dw8PAAAAAA8PDw8PDw8PDw8AAAAADw8AAA8PDwAAAAAPDw8AAAAAAAAPDw8PDw8PDw8PDw8PDwAADw8P
AAAAAA8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8AAAAADw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AA8PDwAAAAAPDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAA8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8AAAAADw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP////+AAAABgAAAAYAA
AAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAA
AAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAH/////KAAAAEAA
AACAAAAAAQAIAAAAAAAAEgAAAAAAAAAAAAAAAQAAAAAAAAAAAACAAIAAgAAAAICAAAAAgAAAAICAAAAA
gADAwMAAwNzAAPDKpgCAgIAA1p7BAL9ongD//wAAAP8AAAD//wAAAP8A////APD7/wCkoKAABAQEAAgI
CAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ/wCTANYA/+zMAMbW
7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz/wAAZgAAAGYzAABm
ZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADMZgAAzJkAAMzMAADM
/wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMzZgAzM5kAMzPMADMz
/wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ/wAzzAAAM8wzADPM
ZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYAmQBmAMwAZgD/AGYz
AABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZMwBmmWYAZpmZAGaZ
zABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8AzACZmQAAmTOZAJkA
mQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz/wCZmTMAmZlmAJmZ
mQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/mQCZ/8wAmf//AMwA
AACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxmMwCZZmYAzGaZAMxm
zACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzMzADMzP8AzP8AAMz/
MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8zzAD/M/8A/2YAAP9m
MwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/MMwD/zGYA/8yZAP/M
zAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEApQBfX18Ad3d3AIaG
hgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+AAPDw8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8AAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8P
DwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP
Dw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAADw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAA
AAAAAAAAAAAAAAAPDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8P
DwAAAAAAAAAAAAAAAAAADw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAP
Dw8PDw8AAAAAAAAAAAAAAAAAAA8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8AAAAAAAAAAAAAAAAA
AAAADw8PDw8PAAAAAAAAAAAAAAAAAAAPDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PAAAAAAAAAAAA
AAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAADw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDwAAAAAA
AAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAA8PDwAADw8PDw8PDw8PDw8PDw8PDw8PAAAPDw8A
AAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAPDw8AAAAPDw8PDw8PDw8PDw8PDw8PDwAA
Dw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAADw8PAAAAAAAPDw8PDwAAAAAAAAAP
Dw8AAA8PDwAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAA8PDwAAAAAADw8PDw8AAAAA
AAAADw8PAAAPDw8AAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAPDw8AAAAAAAAPDw8P
AAAAAAAAAA8PDwAADw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAADw8PAAAAAAAA
Dw8PDw8AAAAAAAAAAAAAAA8PDwAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAA8PDwAP
Dw8AAA8PDw8PAAAAAAAAAAAAAAAPDw8AAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAP
Dw8ADw8PAAAPDw8PDwAAAAAPDwAAAAAADw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAA
AAAADw8PAA8PDwAAAA8PDw8AAAAPDw8PAAAAAA8PDwAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAA
AAAAAAAAAA8PDwAPDwAAAAAPDw8PDw8PDw8PDwAAAAAPDw8AAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAA
AAAAAAAAAAAAAAAPDw8ADw8AAAAADw8PDw8AAAAPDw8AAAAADw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8P
DwAAAAAAAAAAAAAAAAAADw8PAA8PAAAAAA8PDw8PAAAAAA8PAAAAAA8PDwAAAAAAAAAAAAAAAAAAAAAP
Dw8PDw8AAAAAAAAAAAAAAAAAAA8PDwAPDw8AAAAADw8PDwAAAAAAAAAAAAAPDw8AAAAAAAAAAAAAAAAA
AAAADw8PDw8PAAAAAAAAAAAAAAAAAAAPDw8AAA8PAAAAAA8PDw8PAAAAAAAAAAAADw8PAAAAAAAAAAAA
AAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAADw8PAAAPDw8AAAAPDw8PDwAAAAAAAAAAAA8PDwAAAAAA
AAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAA8PDwAAAA8PDwAAAA8PDw8AAAAAAAAPAAAPDw8A
AAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAPDw8AAAAADw8PDw8PDw8PDwAAAAAPDwAA
Dw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAADw8PAAAAAAAADw8PDw8PDw8PDw8P
Dw8AAA8PDwAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAA8PDwAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAPDw8AAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAPDw8AAAAAAAAAAAAA
AAAAAAAAAAAAAAAADw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAADw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAA8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8AAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAP
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8P
DwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP
Dw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAADw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P
Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=
</value>
</data>
</root>

507
EDOKA/Systemadministration/Diverses/frmNotfallDataGenerate.vb Normal file
View File

@@ -0,0 +1,507 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.IO
Imports System.ComponentModel
Imports UtilityLibrary.Win32
Public Class frmNotfallDataGenerate
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 ToolBar1 As System.Windows.Forms.ToolBar
Friend WithEvents btnClose As System.Windows.Forms.ToolBarButton
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents btnNotfallExpVorlagen As System.Windows.Forms.Button
Friend WithEvents btnNotfallData As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmNotfallDataGenerate))
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
Me.btnClose = New System.Windows.Forms.ToolBarButton()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.btnNotfallExpVorlagen = New System.Windows.Forms.Button()
Me.btnNotfallData = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'ToolBar1
'
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnClose})
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(328, 25)
Me.ToolBar1.TabIndex = 4
'
'btnClose
'
Me.btnClose.ImageIndex = 0
'
'ImageList1
'
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
'
'btnNotfallExpVorlagen
'
Me.btnNotfallExpVorlagen.Location = New System.Drawing.Point(16, 88)
Me.btnNotfallExpVorlagen.Name = "btnNotfallExpVorlagen"
Me.btnNotfallExpVorlagen.Size = New System.Drawing.Size(112, 32)
Me.btnNotfallExpVorlagen.TabIndex = 6
Me.btnNotfallExpVorlagen.Text = "Dokumentvorlagen Export"
'
'btnNotfallData
'
Me.btnNotfallData.Location = New System.Drawing.Point(16, 48)
Me.btnNotfallData.Name = "btnNotfallData"
Me.btnNotfallData.Size = New System.Drawing.Size(112, 32)
Me.btnNotfallData.TabIndex = 5
Me.btnNotfallData.Text = "Daten Export"
'
'frmNotfallDataGenerate
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(328, 173)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnNotfallExpVorlagen, Me.btnNotfallData, Me.ToolBar1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmNotfallDataGenerate"
Me.Text = "Datenexport Notfall-Lösung"
Me.ResumeLayout(False)
End Sub
#End Region
#Region " Deklarationen "
Dim _mExportPfad As String
Dim dtToReturn As DataTable = New DataTable()
Dim DokBerecht As New DataTable()
Dim sPfad As String
Dim iZaehler As Integer
#End Region
#Region " Formular Funktionen "
Private Sub frmNotfallDataGenerate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Export Notfallösung
Me.Name = "Datenexport Notfall-Lösung"
_mExportPfad = ""
End Sub
#End Region
#Region " Notfall Lösung"
#Region " Funktionen "
'**
'Öffnet den FolderBrowser um einen Ordner zu wählen
'@author Daniel Burren
'@version 31.08.2004
Private Sub GetPfad()
Dim f As New FolderSelect()
f.InitialDirectory = "C:\"
f.InitialDirectoryExpanded = True
Me.Cursor = Cursors.WaitCursor
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.Cursor = Cursors.WaitCursor
_mExportPfad = f.fullPath
End If
If f.DialogResult = DialogResult.Cancel Then
_mExportPfad = ""
End If
f.Dispose()
End Sub
#End Region
#Region " Daten Export"
'**
'Dateien und Prozeduren für den Datenexport auslesen
'@rem Gibt die in der Tabelle Notfall_DatenExport enthaltenen
'Definitionen zurück (in einem DataTable).
'Darin sind enthalten:
'-gespeicherte Prozedur
'-XML Dateiname
'-Progressbar Name
'@return Daten als DataTable
'@author Daniel Burren
'@version 13.09.2004
Private Function GetGenDokTables() As DataTable
GetGenDokTables = New DataTable()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.SP_Notfall_GetDatenExport"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
sdaAdapter.Fill(GetGenDokTables)
Catch ex As Exception
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
'**
'Generiert die XLM Dateien
'@rem Generiert die XML Dateien anhand des DateTables in dem die
'XML-Dateinamen und die gespeicherten Prozeduren enthalten sind.
'@param Exportpfad Exportpfad, in den die XML Dateien
'Exportiert werden sollen.
'@author Daniel Burren
'@version 31.08.2004
Private Function ExportData(ByVal Exportpfad As String) As Boolean
Dim TempDataTable As DataTable
TempDataTable = GetGenDokTables()
Dim fProgress As New frmProgress()
fProgress.Info.Text = "Starten des Exports"
fProgress.Bar1a.Visible = True
fProgress.Bar1a.Maximum = 100
fProgress.Bar1a.Step = (100 / (TempDataTable.Rows.Count + 1))
fProgress.Show()
Dim row As DataRow
For Each row In TempDataTable.Rows
fProgress.Info.Text = row.Item("Bezeichnung")
GenXMLDataTable(Exportpfad, row.Item("Prozedur"), row.Item("Dateiname"))
fProgress.Bar1a.PerformStep()
Next
fProgress.Bar1a.Value = 100
fProgress.Dispose()
MsgBox(MyMsg.Get_Meldungstext(260), MsgBoxStyle.Information)
End Function
'**
'SP ausführen und Daten als XML speichern
'@param Exportpfad Exportpfad, in den die XML Dateien
'Exportiert werden sollen.
'@param sProzedur gespeicherte Prozedur von welcher die Daten generiert
'werden.
'@param sFileName Dateiname (XML)
'@author Daniel Burren
'@version 31.08.2004
Private Function GenXMLDataTable(ByVal Exportpfad As String, ByVal sProzedur As String, ByVal sFileName As String) As Boolean
Dim sTempDataSet As DataSet = New DataSet()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
GenXMLDataTable = True
scmCmdToExecute.CommandText = sProzedur
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
'scmCmdToExecute.Parameters.Add(New SqlParameter("@intuser", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, iUserID))
sdaAdapter.Fill(sTempDataSet)
sTempDataSet.WriteXml(Exportpfad & "\" & sFileName, XmlWriteMode.WriteSchema)
Catch ex As Exception
GenXMLDataTable = False
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#End Region
#Region " Dokument Export "
Private Function ExportFiles(ByVal Exportpfad As String) As Boolean
'Dim objDokument As New edokadb.clsReporting_Dokumenttyp()
GenerateDataStruktur(Exportpfad)
'objDokument.Get_DocumentFrom_DB("office_vorlage_dateinr", 10, "Office_Vorlage_Datei", "vorlage", Exportpfad, "10.doc")
End Function
#End Region
#Region " Tree View Generierung"
Private Sub GenerateDataStruktur(ByVal Exportpfad As String)
Try
Me.Cursor = Cursors.WaitCursor
GenerateFolders(dtToReturn, DokBerecht, 0, Exportpfad)
Me.Cursor = Cursors.Default
Catch
MsgBox(Err.Description)
End Try
End Sub
Private Sub GenerateFolders(ByRef DataTableSearch As DataTable, ByRef DataTableOriginal As DataTable, ByVal TreeNr As Integer, ByVal Exportpfad As String)
'===============================================================================
'Description : Baut den Baum auf mit den Daten im DataTable
'Input : BenutzerID und das Treeview Objekt sowie 2 DataTables
'Criteria :
'Output :
'Date : bud 18.08.2004
'Modified : bud 21.10.2004
'===============================================================================
'
'===============================================================================
Dim i As Integer
Dim m_collDeletedNodes As Collection
Dim collNodeKeys As New Collection()
Dim lastid As Long
Dim pid As Long
Dim bAbbruch As Boolean = False
DataTableSearch = FilDokBerechtDataSet()
lastid = 1
m_collDeletedNodes = Nothing
m_collDeletedNodes = New Collection()
Dim sFolderStart As String
Dim sFolderOrg As String
Dim iDokID As Integer
Dim drv As DataRowView
sFolderOrg = Exportpfad
sFolderStart = Exportpfad
iZaehler = 0
Dim fProgress As New frmProgress()
fProgress.Info.Text = "Starten des Exports"
fProgress.Bar1a.Visible = True
fProgress.Bar1a.Maximum = DataTableSearch.Rows.Count
fProgress.Bar1a.Step = 1
fProgress.Show()
'Tree zusammenbauen
For i = 0 To DataTableSearch.Rows.Count - 1
If DataTableSearch.Rows(i).Item("ParentID") = 0 Then
If DivFnkt.FolderExist(Exportpfad & "\" & DataTableSearch.Rows(i).Item("bezeichnung")) = True Then
If bAbbruch = False Then
Try
If DivFnkt.Delete_Directory(Exportpfad & "\" & DataTableSearch.Rows(i).Item("bezeichnung")) = False Then
MsgBox(MyMsg.Get_Meldungstext(262), MsgBoxStyle.Exclamation)
bAbbruch = True
Exit For
End If
Catch
bAbbruch = True
Exit For
End Try
End If
End If
Else
Try
If DataTableSearch.Rows(i).Item("DokTypBez") Is System.DBNull.Value Then
'Keine Vorgänge
Else
Try
If lastid <> DataTableSearch.Rows(i).Item("dokumentartnr") Then
sPfad = ""
read_to_root(DataTableSearch.Rows(i).Item("dokumentartnr"), DataTableOriginal)
sPfad = (Replace(sPfad, "/", "-"))
sPfad = (Replace(sPfad, ":", "-"))
sPfad = (Replace(sPfad, "*", "-"))
sPfad = (Replace(sPfad, "<", "-"))
sPfad = (Replace(sPfad, ">", "-"))
sPfad = (Replace(sPfad, "|", "-"))
sPfad = (Replace(sPfad, "?", "-"))
sPfad = (Replace(sPfad, Chr(34), "-"))
sPfad = Exportpfad + sPfad
DivFnkt.Create_Folders(sPfad)
lastid = DataTableSearch.Rows(i).Item("dokumentartnr")
pid = lastid
End If
iZaehler = iZaehler + 1
GenDok(DataTableSearch.Rows(i).Item(8) / 10000, sPfad)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Catch ex As Exception
MsgBox("Dokart:" & DataTableSearch.Rows(i).Item("dokumentartnr") & " - " & DataTableSearch.Rows(i).Item("dokumenttypnr") & ex.Message, MsgBoxStyle.Critical)
End Try
End If
fProgress.Info.Text = CStr(DataTableSearch.Rows(i).Item("dokumentartnr")) & ".doc"
fProgress.Bar1a.PerformStep()
Next
If bAbbruch = False Then
fProgress.Bar1a.Value = DataTableSearch.Rows.Count
MsgBox(MyMsg.Get_Meldungstext(260), MsgBoxStyle.Information)
End If
fProgress.Dispose()
End Sub
Function read_to_root(ByVal sParent As String, ByVal DataTableOriginal As DataTable) As Integer
Dim parent As Integer
read_to_root = sParent
parent = sParent
While read_to_root <> 0
Dim dview As New DataView(DataTableOriginal, "dokumentartnr= " + Trim(Str(parent)), "Parentid, sort", DataViewRowState.CurrentRows)
Dim drv1 As DataRowView
For Each drv1 In dview
sPfad = "\" + (Replace(drv1.Item(1), "\", "-")) + sPfad
If drv1.Item(5) = 0 Then
read_to_root = 0
Else
If read_to_root(Trim(drv1.Item(5)), DataTableOriginal) = 0 Then
read_to_root = 0
Exit Function
End If
End If
dview.Dispose()
Next
End While
End Function
#Region " Daten - Berechtigte Dokumente"
Private Function GenDok(ByVal DokTypNr As Integer, ByVal ExportPfad As String)
'===============================================================================
'Description : Gibt die DokumentID zurück
'Input : Dokument Typ Nummer
'Criteria :
'Output :
'Date : bud 02.09.2004
'Modified :
'===============================================================================
'
'===============================================================================
Dim iDokumentID As Integer
Dim sDokName As String
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim objDokument As New edokadb.clsReporting_Dokumenttyp()
scmCmdToExecute.CommandText = "dbo.sp_Notfall_GetDokID"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
conn.OpenConnection()
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@DokTypNr", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokTypNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@DokID", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, iDokumentID))
scmCmdToExecute.Parameters.Add(New SqlParameter("@DokName", SqlDbType.VarChar, 50, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, sDokName))
scmCmdToExecute.ExecuteNonQuery()
If Not scmCmdToExecute.Parameters.Item("@DokID").Value Is Nothing And Not (scmCmdToExecute.Parameters.Item("@DokID").Value) Is System.DBNull.Value Then
iDokumentID = scmCmdToExecute.Parameters.Item("@DokID").Value
sDokName = scmCmdToExecute.Parameters.Item("@DokName").Value
End If
If iDokumentID <> 0 Then
objDokument.Get_DocumentFrom_DB("office_vorlage_dateinr", iDokumentID, "Office_Vorlage_Datei", "vorlage", ExportPfad, sDokName)
End If
Catch ex As Exception
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
conn.CloseConnection(True)
End Try
End Function
Private Function FilDokBerechtDataSet() As DataTable
'===============================================================================
'Description : Füllt eine DataTable mit den Dokumentinfos.
'Input : BenutzerID
'Criteria :
'Output : DataTable
'Date : bud 18.08.2004
'Modified :
'===============================================================================
'
'===============================================================================
FilDokBerechtDataSet = New DataTable()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_Notfall_GetNewDokTree"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
'scmCmdToExecute.Parameters.Add(New SqlParameter("@intuser", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, iUserID))
sdaAdapter.Fill(FilDokBerechtDataSet)
DokBerecht = FilDokBerechtDataSet
Catch ex As Exception
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#End Region
#End Region
#End Region
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Me.Close()
End Sub
Private Sub btnNotfallData_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNotfallData.Click
GetPfad()
Me.Cursor = Cursors.WaitCursor
If _mExportPfad <> "" Then
ExportData(_mExportPfad)
End If
Me.Cursor = Cursors.Default
End Sub
Private Sub btnNotfallExpVorlagen_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNotfallExpVorlagen.Click
GetPfad()
Me.Cursor = Cursors.WaitCursor
If _mExportPfad <> "" Then
ExportFiles(_mExportPfad)
End If
Me.Cursor = Cursors.Default
End Sub
End Class

BIN
EDOKA/Systemadministration/Diverses/vssver.scc Normal file
View File

Binary file not shown.