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

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2021-04-20 07:44:06 +02:00
commit 1cc7ed8893
1562 changed files with 496306 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

138
BEA - Kopie/Diverse Formulare/frmAbout.designer.vb generated Normal file
View File

@@ -0,0 +1,138 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAbout
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAbout))
Me.btnOK = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.lblversiondatum = New System.Windows.Forms.Label()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblVersion = New System.Windows.Forms.Label()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btnOK
'
Me.btnOK.Location = New System.Drawing.Point(117, 335)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(75, 23)
Me.btnOK.TabIndex = 2
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.PictureBox1)
Me.Panel1.Controls.Add(Me.lblversiondatum)
Me.Panel1.Controls.Add(Me.PictureBox2)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.lblVersion)
Me.Panel1.Location = New System.Drawing.Point(3, 5)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(301, 324)
Me.Panel1.TabIndex = 6
'
'PictureBox1
'
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(7, 3)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(286, 44)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 3
Me.PictureBox1.TabStop = False
'
'lblversiondatum
'
Me.lblversiondatum.BackColor = System.Drawing.Color.White
Me.lblversiondatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblversiondatum.Location = New System.Drawing.Point(44, 299)
Me.lblversiondatum.Name = "lblversiondatum"
Me.lblversiondatum.Size = New System.Drawing.Size(200, 24)
Me.lblversiondatum.TabIndex = 2
Me.lblversiondatum.Text = "Version "
Me.lblversiondatum.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'PictureBox2
'
Me.PictureBox2.ErrorImage = CType(resources.GetObject("PictureBox2.ErrorImage"), System.Drawing.Image)
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.PictureBox2.Location = New System.Drawing.Point(7, 53)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(286, 195)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox2.TabIndex = 4
Me.PictureBox2.TabStop = False
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(6, 251)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(287, 24)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Berechtigungs-Administration"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblVersion
'
Me.lblVersion.BackColor = System.Drawing.Color.White
Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVersion.Location = New System.Drawing.Point(47, 275)
Me.lblVersion.Name = "lblVersion"
Me.lblVersion.Size = New System.Drawing.Size(197, 24)
Me.lblVersion.TabIndex = 1
Me.lblVersion.Text = "Version "
Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'frmAbout
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(307, 364)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.btnOK)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmAbout"
Me.Text = "Über..."
Me.Panel1.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents lblversiondatum As System.Windows.Forms.Label
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lblVersion As System.Windows.Forms.Label
End Class

6483
BEA - Kopie/Diverse Formulare/frmAbout.resx Normal file
View File

File diff suppressed because it is too large Load Diff

12
BEA - Kopie/Diverse Formulare/frmAbout.vb Normal file
View File

@@ -0,0 +1,12 @@
Public Class frmAbout
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Me.Close()
End Sub
Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.lblVersion.Text = "Version " & Globals.clsapplication.sVersion.Value
Me.lblversiondatum.Text = Globals.Versionsdatum
End Sub
End Class

129
BEA - Kopie/Diverse Formulare/frmExportContainer.Designer.vb generated Normal file
View File

@@ -0,0 +1,129 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmExportContainer
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmExportContainer))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ListView1 = New System.Windows.Forms.ListView()
Me.Typ = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.Bezeichnung = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.Key = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripSeparator1, Me.ToolStripButton1, Me.ToolStripButton2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(296, 25)
Me.ToolStrip1.TabIndex = 6
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 = "Anwendung beenden"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "Daten aufbereiten"
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "Inhalt löschen"
'
'ListView1
'
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.Typ, Me.Bezeichnung, Me.Key})
Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ListView1.Location = New System.Drawing.Point(0, 25)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(296, 567)
Me.ListView1.TabIndex = 7
Me.ListView1.UseCompatibleStateImageBehavior = False
Me.ListView1.View = System.Windows.Forms.View.Details
'
'Typ
'
Me.Typ.Text = "Typ"
'
'Bezeichnung
'
Me.Bezeichnung.Text = "Bezeichnung"
'
'Key
'
Me.Key.Text = "KeyValue"
'
'frmExportContainer
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(296, 592)
Me.Controls.Add(Me.ListView1)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmExportContainer"
Me.Text = "ExportContainer"
Me.TopMost = True
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents Typ As System.Windows.Forms.ColumnHeader
Friend WithEvents Bezeichnung As System.Windows.Forms.ColumnHeader
Friend WithEvents Key As System.Windows.Forms.ColumnHeader
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
End Class

3349
BEA - Kopie/Diverse Formulare/frmExportContainer.resx Normal file
View File

File diff suppressed because it is too large Load Diff

67
BEA - Kopie/Diverse Formulare/frmExportContainer.vb Normal file
View File

@@ -0,0 +1,67 @@
Public Class frmExportContainer
Dim WithEvents evh As _Generic_Event_Handler.Generic_Event_Handler = Globals.Generic_Event_Handler
Private Sub frmExportContainer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub evh_Export_Vorbereiten_Clicked(Type As String, Bezeichnung As String, Keyvalue As String) Handles evh.Export_Vorbereiten_Clicked
Dim arr(3) As String
arr(0) = Type
arr(1) = Bezeichnung
arr(2) = Keyvalue
Dim li As New ListViewItem(arr)
Me.ListView1.Items.Add(li)
End Sub
Private Sub frmExportContainer_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
Me.ListView1.Columns(0).Width = Me.ListView1.Width / 3
Me.ListView1.Columns(1).Width = Me.ListView1.Width / 3
Me.ListView1.Columns(2).Width = Me.ListView1.Width / 3
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Globals.ExcelExport_Form_exists = False
Me.Close()
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Dim frmf As New frmFortschritt
frmf.Show()
frmf.ProgressBar1.Value = 0
frmf.ProgressBar1.Maximum = Me.ListView1.Items.Count
Dim ds As New DataSet
Dim dc As New _DataClass.DataClass
ds.Tables.Clear()
Dim i As Integer = 1
For Each lvi As ListViewItem In Me.ListView1.Items
frmf.ProgressBar1.Value = frmf.ProgressBar1.Value + 1
Application.DoEvents()
Dim dt As New DataTable
dt = dc.Get_Data_for_ExcelExport(lvi.SubItems(0).Text, lvi.SubItems(2).Text)
If i = 1 Then
ds.Tables.Add(dt.Copy)
Else
For Each r As DataRow In dt.Rows
ds.Tables(0).ImportRow(r)
Next
End If
i = i + 1
Next
Dim rpt As New _FRReporting.frmAuswertung("ExcelExport", ds, Globals.clsapplication.sTmp_filepath.Value)
rpt.MdiParent = Me.MdiParent
rpt.Show()
frmf.Close()
frmf.Dispose()
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
Me.ListView1.Items.Clear()
End Sub
End Class

49
BEA - Kopie/Diverse Formulare/frmFortschritt.Designer.vb generated Normal file
View File

@@ -0,0 +1,49 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmFortschritt
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFortschritt))
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
Me.SuspendLayout()
'
'ProgressBar1
'
Me.ProgressBar1.Location = New System.Drawing.Point(12, 12)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(481, 23)
Me.ProgressBar1.TabIndex = 0
'
'frmFortschritt
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(505, 51)
Me.Controls.Add(Me.ProgressBar1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmFortschritt"
Me.Text = "Fortschritt"
Me.ResumeLayout(False)
End Sub
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
End Class

3279
BEA - Kopie/Diverse Formulare/frmFortschritt.resx Normal file
View File

File diff suppressed because it is too large Load Diff

6
BEA - Kopie/Diverse Formulare/frmFortschritt.vb Normal file
View File

@@ -0,0 +1,6 @@
Public Class frmFortschritt
Private Sub frmFortschritt_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class

89
BEA - Kopie/Diverse Formulare/frmLogin.designer.vb generated Normal file
View File

@@ -0,0 +1,89 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmLogin
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLogin))
Me.lblBitteAnmelden = New System.Windows.Forms.Label()
Me.cbMitarbeiter = New System.Windows.Forms.ComboBox()
Me.btnAbbruch = New System.Windows.Forms.Button()
Me.btnAnmelden = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'lblBitteAnmelden
'
Me.lblBitteAnmelden.Location = New System.Drawing.Point(12, 9)
Me.lblBitteAnmelden.Name = "lblBitteAnmelden"
Me.lblBitteAnmelden.Size = New System.Drawing.Size(136, 23)
Me.lblBitteAnmelden.TabIndex = 3
Me.lblBitteAnmelden.Text = "Bitte melden Sie sich an"
'
'cbMitarbeiter
'
Me.cbMitarbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cbMitarbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbMitarbeiter.FormattingEnabled = True
Me.cbMitarbeiter.Location = New System.Drawing.Point(15, 35)
Me.cbMitarbeiter.Name = "cbMitarbeiter"
Me.cbMitarbeiter.Size = New System.Drawing.Size(257, 21)
Me.cbMitarbeiter.TabIndex = 4
'
'btnAbbruch
'
Me.btnAbbruch.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnAbbruch.Location = New System.Drawing.Point(158, 76)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(104, 24)
Me.btnAbbruch.TabIndex = 6
Me.btnAbbruch.Text = "&Abbruch"
'
'btnAnmelden
'
Me.btnAnmelden.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnAnmelden.Location = New System.Drawing.Point(14, 76)
Me.btnAnmelden.Name = "btnAnmelden"
Me.btnAnmelden.Size = New System.Drawing.Size(104, 24)
Me.btnAnmelden.TabIndex = 5
Me.btnAnmelden.Text = "&Anmelden"
'
'frmLogin
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(308, 129)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.btnAnmelden)
Me.Controls.Add(Me.cbMitarbeiter)
Me.Controls.Add(Me.lblBitteAnmelden)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmLogin"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Benutzerauswahl"
Me.TopMost = True
Me.ResumeLayout(False)
End Sub
Friend WithEvents lblBitteAnmelden As System.Windows.Forms.Label
Friend WithEvents cbMitarbeiter As System.Windows.Forms.ComboBox
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
Friend WithEvents btnAnmelden As System.Windows.Forms.Button
End Class

138
BEA - Kopie/Diverse Formulare/frmLogin.resx Normal file
View File

@@ -0,0 +1,138 @@
<?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>
<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>
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACIiIAAAAAAAAAAAAAIi
IiJyIiIiIAAAAAAAACIndyInd3ciIiIAAAAAAAIid3cvJ3d3ciIiAAAAAAACJ3d3f4J3d3ciIgAAAAAA
Ind3co/3d3d3ciIAAAAAACJ3d3L//yd3d3IgAAAAAAACd3dy//+Cd3dyIAAAAAAAAnd3cv//9yd3cgAA
AAAAAAIneHf///9ndyAAAAAAAAAAInh3hzM3giIAAAAAAAAAAAAiIzMzMzMgAAAAAAAAAAAAAAMzMzMz
MAAAAAAAAAAAAAAzu7u7uzMAAAAAAAAAAAABO7u7u7uzAAAAAAAAAAAAA7u7u7u7uzAAAAAAAAAAAAO7
u7u7u7swAAAAAAAAAAATu7u7u7u7sQAAAAAAAAAAE7u7u7u7u7MAAAAAAAAAADu7u7u7u7uzAAAAAAAA
AAAbu7u7u7u7swAAAAAAAAAAG7u7u7u7u7MAAAAAAAAAABO7Mzu7u7szAAAAAAAAAAADMzMzMzMzMwAA
AAAAAAAAAzM3eIdzMzMAAAAAAAAAAAAzeIiIiHMxAAAAAAAAAAAAM4iIiIdzMAAAAAAAAAAAAAM4iIiI
MwAAAAAAAAAAAAAAM4iIczAAAAAAAAAAAAAAAAATMxAAAAAAAAD/4AAf/gAAD/gAAA/wAAAP8AAAD/AA
AA/wAAAP8AAAD/AAAA/wAAAf8AAAH/gAAD/4AAB//gAA//+AAH//gAB//wAAP/8AAD//AAA//wAAP/8A
AB//AAAf/wAAH/8AAB//AAAf/wAAP/+AAD//gAA//8AAP//AAH//4AD///gD/w==
</value>
</data>
</root>

41
BEA - Kopie/Diverse Formulare/frmLogin.vb Normal file
View File

@@ -0,0 +1,41 @@
''' <summary>
''' Form für den Login. Wird nur angezeigt, sofern in der Tabelle Application Show-Login = true
''' </summary>
''' <remarks></remarks>
Public Class frmLogin
Dim m_mitarbeiternr As Integer
Property Mitarbeiternr() As Integer
Get
Return m_mitarbeiternr
End Get
Set(ByVal value As Integer)
m_mitarbeiternr = value
End Set
End Property
Dim tmp_madaten As New DataTable
Dim tmp_clsmitarbeiter As New DB.MyMitarbeiter
Dim conn As New DB.clsConnectionProvider
Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn = Globals.conn
tmp_clsmitarbeiter.cpMainConnectionProvider = conn
conn.OpenConnection()
tmp_madaten = tmp_clsmitarbeiter.SelectAllwithFullname
Me.cbMitarbeiter.DataSource = tmp_madaten
Me.cbMitarbeiter.DisplayMember = "Fullname"
Me.cbMitarbeiter.ValueMember = "Mitarbeiternr"
conn.CloseConnection(True)
End Sub
Private Sub btnAnmelden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnmelden.Click
Me.Mitarbeiternr = Me.cbMitarbeiter.SelectedValue
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub
Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
Me.Mitarbeiternr = -1
Me.DialogResult = Windows.Forms.DialogResult.Cancel
End Sub
End Class

181
BEA - Kopie/Diverse Formulare/frmMsgBox.designer.vb generated Normal file
View File

@@ -0,0 +1,181 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMsgBox
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMsgBox))
Me.btnYes = New System.Windows.Forms.Button()
Me.btnno = New System.Windows.Forms.Button()
Me.btnAbbruch = New System.Windows.Forms.Button()
Me.txtmsg = New System.Windows.Forms.TextBox()
Me.btnOK = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.imgQuestion = New System.Windows.Forms.PictureBox()
Me.imgInformation = New System.Windows.Forms.PictureBox()
Me.imgExclamation = New System.Windows.Forms.PictureBox()
Me.imgCritical = New System.Windows.Forms.PictureBox()
Me.Panel1.SuspendLayout()
CType(Me.imgQuestion, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.imgInformation, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.imgExclamation, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.imgCritical, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btnYes
'
Me.btnYes.Location = New System.Drawing.Point(71, 84)
Me.btnYes.Name = "btnYes"
Me.btnYes.Size = New System.Drawing.Size(75, 23)
Me.btnYes.TabIndex = 0
Me.btnYes.Text = "&Ja"
Me.btnYes.UseVisualStyleBackColor = True
'
'btnno
'
Me.btnno.Location = New System.Drawing.Point(162, 84)
Me.btnno.Name = "btnno"
Me.btnno.Size = New System.Drawing.Size(75, 23)
Me.btnno.TabIndex = 1
Me.btnno.Text = "&Nein"
Me.btnno.UseVisualStyleBackColor = True
'
'btnAbbruch
'
Me.btnAbbruch.Location = New System.Drawing.Point(254, 84)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
Me.btnAbbruch.TabIndex = 2
Me.btnAbbruch.Text = "&Abbrechen"
Me.btnAbbruch.UseVisualStyleBackColor = True
'
'txtmsg
'
Me.txtmsg.BackColor = System.Drawing.Color.White
Me.txtmsg.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtmsg.Location = New System.Drawing.Point(67, 20)
Me.txtmsg.Multiline = True
Me.txtmsg.Name = "txtmsg"
Me.txtmsg.ReadOnly = True
Me.txtmsg.Size = New System.Drawing.Size(258, 44)
Me.txtmsg.TabIndex = 3
Me.txtmsg.TabStop = False
'
'btnOK
'
Me.btnOK.Location = New System.Drawing.Point(133, 84)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(75, 23)
Me.btnOK.TabIndex = 5
Me.btnOK.Text = "&OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.imgQuestion)
Me.Panel1.Controls.Add(Me.imgInformation)
Me.Panel1.Controls.Add(Me.imgExclamation)
Me.Panel1.Controls.Add(Me.txtmsg)
Me.Panel1.Controls.Add(Me.imgCritical)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(337, 78)
Me.Panel1.TabIndex = 6
'
'imgQuestion
'
Me.imgQuestion.Image = CType(resources.GetObject("imgQuestion.Image"), System.Drawing.Image)
Me.imgQuestion.InitialImage = CType(resources.GetObject("imgQuestion.InitialImage"), System.Drawing.Image)
Me.imgQuestion.Location = New System.Drawing.Point(12, 20)
Me.imgQuestion.Name = "imgQuestion"
Me.imgQuestion.Size = New System.Drawing.Size(39, 36)
Me.imgQuestion.TabIndex = 7
Me.imgQuestion.TabStop = False
'
'imgInformation
'
Me.imgInformation.Image = CType(resources.GetObject("imgInformation.Image"), System.Drawing.Image)
Me.imgInformation.InitialImage = CType(resources.GetObject("imgInformation.InitialImage"), System.Drawing.Image)
Me.imgInformation.Location = New System.Drawing.Point(12, 20)
Me.imgInformation.Name = "imgInformation"
Me.imgInformation.Size = New System.Drawing.Size(39, 36)
Me.imgInformation.TabIndex = 6
Me.imgInformation.TabStop = False
'
'imgExclamation
'
Me.imgExclamation.Image = CType(resources.GetObject("imgExclamation.Image"), System.Drawing.Image)
Me.imgExclamation.InitialImage = CType(resources.GetObject("imgExclamation.InitialImage"), System.Drawing.Image)
Me.imgExclamation.Location = New System.Drawing.Point(12, 20)
Me.imgExclamation.Name = "imgExclamation"
Me.imgExclamation.Size = New System.Drawing.Size(39, 36)
Me.imgExclamation.TabIndex = 5
Me.imgExclamation.TabStop = False
'
'imgCritical
'
Me.imgCritical.Image = CType(resources.GetObject("imgCritical.Image"), System.Drawing.Image)
Me.imgCritical.InitialImage = CType(resources.GetObject("imgCritical.InitialImage"), System.Drawing.Image)
Me.imgCritical.Location = New System.Drawing.Point(12, 20)
Me.imgCritical.Name = "imgCritical"
Me.imgCritical.Size = New System.Drawing.Size(39, 36)
Me.imgCritical.TabIndex = 4
Me.imgCritical.TabStop = False
'
'frmMsgBox
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(337, 116)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.btnno)
Me.Controls.Add(Me.btnYes)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmMsgBox"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "BEA"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.imgQuestion, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.imgInformation, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.imgExclamation, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.imgCritical, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnYes As System.Windows.Forms.Button
Friend WithEvents btnno As System.Windows.Forms.Button
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
Friend WithEvents txtmsg As System.Windows.Forms.TextBox
Friend WithEvents imgCritical As System.Windows.Forms.PictureBox
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents imgExclamation As System.Windows.Forms.PictureBox
Friend WithEvents imgQuestion As System.Windows.Forms.PictureBox
Friend WithEvents imgInformation As System.Windows.Forms.PictureBox
End Class

1596
BEA - Kopie/Diverse Formulare/frmMsgBox.resx Normal file
View File

File diff suppressed because it is too large Load Diff

26
BEA - Kopie/Diverse Formulare/frmMsgBox.vb Normal file
View File

@@ -0,0 +1,26 @@
Public Class frmMsgBox
Private Sub btnYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYes.Click
Me.DialogResult = Windows.Forms.DialogResult.Yes
Me.Close()
End Sub
Private Sub btnno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnno.Click
Me.DialogResult = Windows.Forms.DialogResult.No
Me.Close()
End Sub
Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
Me.DialogResult = Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub frmMsgBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
End Class

136
BEA - Kopie/Diverse Formulare/frmSplash.designer.vb generated Normal file
View File

@@ -0,0 +1,136 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSplash
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(frmSplash))
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.lblVersion = New System.Windows.Forms.Label()
Me.lblversiondatum = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Timer1
'
Me.Timer1.Enabled = True
Me.Timer1.Interval = 3000
'
'lblVersion
'
Me.lblVersion.BackColor = System.Drawing.Color.White
Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVersion.Location = New System.Drawing.Point(47, 275)
Me.lblVersion.Name = "lblVersion"
Me.lblVersion.Size = New System.Drawing.Size(197, 24)
Me.lblVersion.TabIndex = 1
Me.lblVersion.Text = "Version "
Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblversiondatum
'
Me.lblversiondatum.BackColor = System.Drawing.Color.White
Me.lblversiondatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblversiondatum.Location = New System.Drawing.Point(44, 299)
Me.lblversiondatum.Name = "lblversiondatum"
Me.lblversiondatum.Size = New System.Drawing.Size(200, 24)
Me.lblversiondatum.TabIndex = 2
Me.lblversiondatum.Text = "Version "
Me.lblversiondatum.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'PictureBox1
'
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(7, 3)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(286, 44)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 3
Me.PictureBox1.TabStop = False
'
'PictureBox2
'
Me.PictureBox2.ErrorImage = CType(resources.GetObject("PictureBox2.ErrorImage"), System.Drawing.Image)
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.PictureBox2.Location = New System.Drawing.Point(7, 53)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(286, 195)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox2.TabIndex = 4
Me.PictureBox2.TabStop = False
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(6, 251)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(287, 24)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Berechtigungs-Administration"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.PictureBox1)
Me.Panel1.Controls.Add(Me.lblversiondatum)
Me.Panel1.Controls.Add(Me.PictureBox2)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.lblVersion)
Me.Panel1.Location = New System.Drawing.Point(5, 4)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(301, 324)
Me.Panel1.TabIndex = 5
'
'frmSplash
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(310, 334)
Me.ControlBox = False
Me.Controls.Add(Me.Panel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "frmSplash"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmSplash"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents lblVersion As System.Windows.Forms.Label
Friend WithEvents lblversiondatum As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Panel1 As System.Windows.Forms.Panel
End Class

5204
BEA - Kopie/Diverse Formulare/frmSplash.resx Normal file
View File

File diff suppressed because it is too large Load Diff

15
BEA - Kopie/Diverse Formulare/frmSplash.vb Normal file
View File

@@ -0,0 +1,15 @@
Public Class frmSplash
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Close()
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.lblVersion.Text = "Version " & Globals.clsapplication.sVersion.Value
Me.lblVersiondatum.text = Globals.Versionsdatum
End Sub
End Class

190
BEA - Kopie/Diverse Formulare/frmTempBerechtigung.Designer.vb generated Normal file
View File

@@ -0,0 +1,190 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmTempBerechtigung
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(frmTempBerechtigung))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.InaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PerosnAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FunktionstelleAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BerechtigungAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PlattformAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.AllowMerge = False
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(957, 24)
Me.MenuStrip1.TabIndex = 5
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem})
Me.DateiToolStripMenuItem.MergeAction = System.Windows.Forms.MergeAction.MatchOnly
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "&Datei"
'
'SchliessenToolStripMenuItem
'
Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(957, 25)
Me.ToolStrip1.TabIndex = 6
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"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "ToolStripButton1"
'
'C1Daten
'
Me.C1Daten.AlternatingRows = True
Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.C1Daten.ContextMenuStrip = Me.ContextMenuStrip1
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Daten.FilterBar = True
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
Me.C1Daten.Location = New System.Drawing.Point(0, 49)
Me.C1Daten.Name = "C1Daten"
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Daten.Size = New System.Drawing.Size(957, 391)
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Daten.TabIndex = 7
Me.C1Daten.Text = "C1TrueDBGrid1"
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InaktivierenToolStripMenuItem, Me.PerosnAnzeigenToolStripMenuItem, Me.FunktionstelleAnzeigenToolStripMenuItem, Me.BerechtigungAnzeigenToolStripMenuItem, Me.PlattformAnzeigenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(199, 114)
'
'InaktivierenToolStripMenuItem
'
Me.InaktivierenToolStripMenuItem.Name = "InaktivierenToolStripMenuItem"
Me.InaktivierenToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.InaktivierenToolStripMenuItem.Text = "Inaktivieren"
'
'PerosnAnzeigenToolStripMenuItem
'
Me.PerosnAnzeigenToolStripMenuItem.Name = "PerosnAnzeigenToolStripMenuItem"
Me.PerosnAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.PerosnAnzeigenToolStripMenuItem.Text = "Person anzeigen"
'
'FunktionstelleAnzeigenToolStripMenuItem
'
Me.FunktionstelleAnzeigenToolStripMenuItem.Name = "FunktionstelleAnzeigenToolStripMenuItem"
Me.FunktionstelleAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.FunktionstelleAnzeigenToolStripMenuItem.Text = "Funktionstelle anzeigen"
'
'BerechtigungAnzeigenToolStripMenuItem
'
Me.BerechtigungAnzeigenToolStripMenuItem.Name = "BerechtigungAnzeigenToolStripMenuItem"
Me.BerechtigungAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.BerechtigungAnzeigenToolStripMenuItem.Text = "Berechtigung anzeigen"
'
'PlattformAnzeigenToolStripMenuItem
'
Me.PlattformAnzeigenToolStripMenuItem.Name = "PlattformAnzeigenToolStripMenuItem"
Me.PlattformAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.PlattformAnzeigenToolStripMenuItem.Text = "Plattform anzeigen"
'
'frmTempBerechtigung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(957, 440)
Me.Controls.Add(Me.C1Daten)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "frmTempBerechtigung"
Me.Text = "Temporäre Berechtigungen"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents InaktivierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents PerosnAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FunktionstelleAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BerechtigungAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents PlattformAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
End Class

423
BEA - Kopie/Diverse Formulare/frmTempBerechtigung.resx Normal file
View File

@@ -0,0 +1,423 @@
<?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="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<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="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAABkCAYAAABw4pVUAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAADcsSURBVHhe5X0HeFzVnf1IGmmqutyNKaZjG0w3nUAgEMC9
W1axqiW505OQxECAEByHhGzYb/8JyRI6JKFD2GQ3jfRkA5iAMe5WHUkz0lSNzv+c++bJspAMtnGs79vP
HO7MaN579/7O/bXbxvHYX9biibduwS/bH8QTW7+KF1g+uutr+P6W9Xhy9/34WfODeL7pQbzQtJHlRr7f
iOdaNuLptg14pu1+vNR8D15tuuuw4eU964fEi40sm+9iHQ4eL/Ae+8Ng19h4uekevL77G3hj50a8vmsD
Xtu9Aa/u+QZearLwAvF88wYDyc3CgxaavmPk+NPuB/Dj5i/iie234ukPb4LjKZJR+o0zcMVNYzC5yo0L
vjAOZ988GmfeOBrn3z4Bpy3Px+TafEypzWWZy/e5OKU+Fyc2ZOOkBh9Oq/Nicp0bU5a7D0t5ep0HU+o9
Q5an1btxKnGw5aQG3oMYqtzf9ZPZ9jNqsjGVUClMXi6Z+PgdC6fUZxucRJlZyE+h0Hq/yoUzbvSi+KHJ
eHrbzXC83vwALlyRj+zPOeC9zoFRZQ74FvL1Agdccx0YUcLPljowutgq9b6Q38krdyCHyC53wr8sk2Xm
YSl9pRnwlmUMWXr5HU9F5kGXbt7DVZ4xZLm/670VTmQvoxxSyK5wwE94Ky14qgZAn1Wm90HfdVPW/jkO
nLvKg+d2fwkOqdXU5X6MJAHjqzIwpo6VLKXA65zw8SEeEuAlEX5Cpd5nkZBMkpFOpLHSjnLX4UOJc2iU
Esv4nUOB7rE/DHZNH9h2CtVBQaelyn1AEvYp+4PfT6d8i5YT7Oyn1aThp83r4Xim8X6qph+F/DCbwnaQ
MQfJ8a3KQhpvlFVLTakhk9VWmcULnbVpyFiehrTlGciocRP+wwZnbfZ+kcbvHArSeY/9YbBr+lDLtlMO
GRSqcyAoN/N5X2nJrH8pebqWOFAgQmqdeLH9XvqQlm/g9DWFyCcZ0gwHe70Y9dzksZgkEQb92RXj9ucV
aewpJKf88JQOaqOp01ClvqM6HCzYS/eLwa7pg/6+L6QpBrxWkBbYrwcig/XPoTzHVadj6pocPMsAyfHD
bXfj1IYc5JApY/tWZsJBRh1rCAm+gagn9FltOkuCbDqWC+nIFMskRjbycJQyjRms/FBlFr9zKJDA9ofB
rumPzBTs966qlI+ocBp4K/b6DPkQl9pF6Ltqo/yIlEFW6sc7abKebf4mzmKElStC1EgK2LFIwifWSeip
17zYUaleQUL4IEdFlnmdwRtmqeKHCS7efyhksoEZhwgn27U/DHaNjXSBmpK+jHJIwckgJ6uMKM2ySgN9
TlPF9qSz3raV0fUefualvKeuG4GftX+TTr31O5hUl4eilMNWj3cIdSno9WJWrtIJZ1kWPGVe+hgn0ha4
kFOTT8dO88KbHikMZjb+tXBTwJRJhZemykuh0y+V+5AmOZV64Kz2I5NBk/yNTGzmOp9lbtXRRSw/y+X7
01bn4+nWB+B4seU7jPkLMJKORVGUVMmQoAsEMplZxRC00scLc+Gf58OY0rEYuXg0o4OR8CzJQVaxH27i
SJSZS48kcuAsySMK4CopNHAvHQFXcRGyluTDSdk4ZlCGixT8+OGgFbJ9b9ptjNJYyiwaQlYVWoS81PIg
Tl+eh1H8skJb2TdjnkSKLqajz1zKEHiBGxd+6TxMqTkNF62ehklLTsXkkik4u/5inNlwKc6qv/SIlMIZ
K44ULsbUVRcS03D2qgv6cNbKaThj5bmYtOosXLXhWhSVj2Kekod0heoKBqgZ7luoMSSiT0NsQl4kIVNI
yD4aIkJMSafNXCC7JBvn3DIVf8Lv8D7eQTN2ohE7EEAbWhHi+24icsTKJpZNR6RU2wNooRT6o4n/dmE3
tvHfb+K/xnlrz0HOHB8Kl+Ugn+bLIdcgd0B5Z5KMfUzWC60P7utDbEKkIUwUnUuYKM7xYGrdFGzHB3zQ
h3zkLvyz8R9oi7I6oXZ0BDvR0Rn6l5cBloHgESzV9lAzOrua+tDevQdt4V1oCm/H9thm0rUbVzRciLyr
szBigQ8jyjw0Z7RGyu/og0wSTkxelY9nW+6H46dtDzLszUMBP1QGbqIskcLY2FGZiYzFLmrPKFyy9kLq
xAfYHf8QCXQhGutEFyuEZC/Qg/+7iCctJCQHfpDsoUhiiFGLQmgnHdtx9YrLcfTcMcif7YFnYTpclLO/
gSVJ2UtIrkXIs+0bcdKKHKM2ZjhEIa5IqREhLjgXe1G0eBQuX32p0ZCm6A4kerr44CR6wlGEI0GEokcW
wdiRQSjahe4uir4rjnB3At3hBEJEezSCRnbY7clmbKZ5v+zGqzF26bFwLcxmmkBnbgdNzPEkcynDFBLy
XLM0JLABJ6/wI5uEaGzKJH+GEEYClRlMbLLhmuHBtLoLaB9ltYNoad6NZCSGZCyOWCKMcLL7gNDVG0pB
r22E+5V7EU7uH/pOiLWyvt+/3BeD1UMY7Lt7sfcZdtkf4R52SGpHJI4+kA8Ee5Jo643SsHeQjnYGHhcj
/XqGvou88K0tsvI6ugjHunQTZdkaYgh5pfU+TKr3wV+WAQ0UpleTQWaVGfQjTsXJTHZci/w4f9XlJCSI
9q4OQ0ScRERiXYYQIR6PpsC/7QPrc/t7kR41zhZGGMFEFJ1sWGcibsogS6GL1wrdfJYQiVqIRnr6EImy
ZOO7kvxOgj00wd6aKiO8R7QnwWeq0+yth41EquyOd6ErYaE7HjaIxKIW9Dz7uamyP1SvcI+ezeexLrFo
L+IxEpPoRUeiG3t6m2myWnAeI7Gc+XkMi33IMPIlGcsZbZEYDbP4qQinrU6ZrNdbvmbmFXzMMDW6ml7N
xIUZuJ0NK7OU2Tpv1RWMHbrQGexCLx8uwXYlQqaMUah7GzuQkL3CsAnZS0qKEArMRh8hsR6D7hTUYENA
JGkQC6ukEOL8PNHDnprYByLEJsMixK6HVSbUqViqU4kUCxYZ0ahgkdC/A9iw6yJC1KlCbIsIikWTSEbp
UlinUKwbjTRZjdiD81afh9z5OQya3MzpUoTUZFiWiPL1EH2EvNraj5BlB0ZIsKezT7A2Iuzlgkjai73a
YYENICxCwpaGpCCC+qOLQuuPbgqsP+xnROORPoQTEVMHY1L6g8/rosSMybFLox00n4RNTCRmETMQ5pkp
LRK6hMNBiGbHPgkhjbTWAwkJ9nbtg1CSjaKwhTDV9qNghJaC3qtRImW/YBDRV/aDhCmi47xPjILce19C
wk8JK5hCJ/1CO/2NDb0P9lhkDCSlPyxzZpu2vd/VtfJfw4aQzmQnSMk+CPYKNjEWjIAotGjcQiwFve7r
aaaxe2ELvVNI8rl2mUIHoQ4Ro1ASFE48HuQ9gyQkSG0gKCQ5ZtWlk2indgeI1hRaKMgAoWdYghcZ+5LT
X/Bd6nyD4IgSMtBkiZCgGjUAqqSEYZszfdf0ZJocOVMhSfVXGY3KPNiQYGQOSEqKJEPKAEI6epkYmtcW
IXEKTWT0EcLrbEKMwKgp/JQxT5jEWGgz72UG+z/bQh8ZFLhNRFcPKd0Hqc/1jOFCiFFZhneh3niqFCxT
Idg+RTbeIiFurhUQZiJFB5mI8O82SI7lUCUg2e2UrZbWsOzTmhRBer58UYzYx1xRG1U/Pd+AdTA+g9hb
T723HHeM8ar1XPuZezWmO2GRorI/IrZGDS9C2Hhmp+FErwW9ZhhogY1LwRBCMpIiI0IiREY3s1yWPeG4
IcWGTc5eAVmwnbjRnH6wHXY3Hbkgh26cOiOrgZHWvhGXwA4RthBTBEWhDkWKSpEQpSYJMSaFKqWJw4YQ
9VyKlo0BepPg3yJgWoDO7jAS/IsEoh6uBkrICQq/p5ukdPFLIV7DMt4dQzwaI2E9LBOIhmMGep0UyWER
Q+EyEe3qoqCYGavhQhevZdiP1nAErfxbV4/VMZQHxJK9FFjCXBPuYgVjfCb/Y8URbQshGaTkmMQluvhc
1ilKRJjVRSIkNEpzF2PvZzYeCLXyazF0BNuQTDIT7wxCjexuVwPYp6iBw4YQCTsc6gH9N2vBtlLAsXgv
ghSQKhQyKm2ZDUtTUr2Swk8yiVJp90b1amlSnMmcAXtwjALt7mZvp6ASMWoTn9FDBnqJHmqa8pG2bobH
FDTlAIqdpBAUfohmqDMYNqT28n2cxETbg+jpYGX5GkGaukDQ3IvVMlCSGU0yyeulttHHCOwiVmASJQFi
lCQk2BGiAd6DbZUchhchAXYzVoJyt5I1CjHCRsnOMytgJNPeBzljfS7bb/uD9mQH2noDaKWj1Gvr7/wb
e2dnmBFbmL2VpCghYwc1xCdl6ihX8oeAxpBEBNEciqKDwhA5/Jo19kdyLdVgP+9m747wm/QfQqSr3eQt
IbIc6omYMNiKyIKqrak1wwc0du1GR6SdnYc5CrU/3sXrSaRM8BElZGDYK0JinWy2eleQdphk0PiwOSFs
DW3l91Wd3f3+6X0jiW0mWvm6lZ81s2wiWszfd+qKZBOjoHYKgz2T4jVOncTIbBmTFuJTqAoihDwZAtr4
t90dinqs93LY1DnsDOzi31rRTbJDPS3ojLIVcaJnDzp6Gk1naKbQmyj8RlMf1aOJUM33sA6ihwmwFTui
uXWP0RJxLFN4RE3WRwlhb1PnIyEtLW1o6tC0TZjfa8S7kbdNszbhLf77X/zD4C2Dt/A2sYmvN+Fv5q/v
8N97qff/4F//iV28h0ixaJEwZAJJNXt5OEynKp+kYRX6pW4N8CVpLlmVGCsUiHViT3cjmhNNRpgSagsF
I5ELe7CVNfuQREj06hhtfNXKzmBNve3ku52p/3+IzdiObdgc/qfsA9oTbdS8OH0T6yFfQ9MwjJx6CIE2
plisnCrJvmwav/7RL+OkWcfDf7kHI2cUomhWLvLn2Mi3MHsEcucUwj3TD9+8fOQtLDLvc24owKgZ43Dq
4km4oOIivLHtDWyNf2DuHOH/g3FmEdSYBO28kstIhJaeBNEjmTq0hlvQEms036cxxE/++gzufPIrqPp2
JRq+vxw3PrkGtT+qQcUPylH3WB2qf9CA6u+vMGXVI3Wo/GE1UYUqovqRKqx5bCXqvleDdQ+vxu92/sYY
MnmX7a07+EQGDcMp7FV83kshhMJtrGIHNndsMn2q+N4FOG7BeJxYeTQKF+cir9iH7BIv/KWCz0JJLjxl
2cgs88JZ7oWr1A9vSQ5yi7XgYgyOKZ2IU8tOxbw75+HR3/+IDdttLHuAjQzRzDCTQDjWYdQzqokyEhTt
CWBn22bWMsDaNOPnH76MC6vPxfiZY+D6bBZc17vgmetD2iwKQ4sPZqXDPzcP2XMKiDy+zoF3Husxj/Uj
cub4kT+LgrwiC0dPH4fK+0upLVupbRR0bA/roFocBkIOdnBRhCgz3tO2jb03hG3syTIDV930GbivykQO
G5dTzAaWeuAuc8HVB74nOZnlHriWZ7OCmXCUsoJlTvM3X2k2vAv8cE/3wHGmA1X/Xom/xv/MezdhV3IH
WnqbpSvoiLYZQoLtjUgklYsHsDu6hWQ04neB/8Znb7kM3quykDcvB6OqRqGotgjeCj/SyzKRvswJd3U2
n5WL7KUFplQHcbNzuMvd8BDqQDmLScxML46aPx4nzzsJ78b/yado0CVKZ8/O8WkTckjD74YQ2nNWqili
ueyttLe5VxTgrBvPh+PaTJz6hTNwxtfOR8YSLwrrRsFfloO0OU6MqhkDx+w0CoU9VoSUsHKatKngZ/UU
SrUHGcWZGFk9Go6rHFj03SXGt8jdy94HRYRcLX0Kg1q0xVqwI7bd9N5fhX6FK+64As7rMuCjdmrRWgbb
p0Vt/ZeCihRPeQ47Sy4yl7HdpXw+6+FckY6shnQ45kpYmfAvduOEquNx1PVHYXOS/iceMP6qkwGGyf6H
EyE9SeYJ8U40hxtptTup0rtwWslUeK8pQEHxeEy777P4M132t5r+HY7rHHAvzqZZyseYyrEYXTvWaISz
MguZtS5k1btZSQpLginTjCWFstiBkbVjMGLJWCz6dhneJeFa7fGXpndJCBM1OtWOniB2xRWntdNgbsP0
+2Yhd0E+3MVeQ4QhwF7eZENCYTsdxRRMsRNpVW6k12VZs3kNbPcK6zuuSifySJrvOj9KHijnszVOnMT7
W3ebsPpTJ+SQTBadukZs4wz92mJtFFCIvbcZN/7wdqRd4ELRvDGYUHUivrf7B/gt/ogN276DnJICeBez
gQuz4ZxLIkpYQWkHn5lZx9daYCFNISFZddQcvi6sKYRzhhu5M4tQ/8ha/CH8DzY0yGcFsCUkrWjjU9vo
v/bg6tuvZWCQj5EVY5C+iFpBLTBLYEWCvaJGAjGE8PMyCqaUJclPEyESkqayCZGRU06TO8uNi2++GH/s
/jM+TOwyhARC9FlMcQ4LIQcb9ooQmQymbCba2BOVMWnDHwN/xjW3XIfC60bh6JKJ8NyQjUeaf4S/M8Rd
//e74S/Ow+iqsfAWZ5vlqJlajimhkAQjMHuhBV972VkcMx3IL2e0tngUfUIefUoDzdcWamMzocyhnc1u
xuSlp2PMvHGYUHksHJ91YMQamkVpgU2GTUgfKXxmDdutxeNsp1a7p1VnWMtUS9KMD3FNzzTrqp745xN8
Qiu2RnZRCsq2GOoz8x92hHRFI6xcr0nCdoV2UzRWjvva5lcx545ZKLgyF+MppKlrzsAP9jyCX1NXHtz2
kCHFtchLR+pD3nJGOXXZ7M3spRRW5go6Xa24lz3XKnuarYzFThRW0AfNzoXv+jzM37gUb4T+BztYK2UM
py87E8eVHI/RJePgW5KL3NoCc52jikIXEWp8f0JsM6bPVlET9Zqm0tOQberjpc/Ln5+LE3jPR/7+CMlo
xrbEdkqAGT3brvE6TR0PqzxEQxwaoghqZLa3x7xX9N/aK4PShv/a/ArmfmE6Jlw/BoXX5uGsdWfimdAz
+CX+B3dv+jpyygrhuIamaXEWshnxuOTcaSrSVFEtk5Gw+N63ysvIKCNFyghkzvQgb/4IXL9hJv6759c4
rvgETFx2IsYvO9qYQ8fCTIy4idqhzUfV0gKW/QmxzZVNiL3KnxrqrWW0tYRmarofE4snYuMvNprEsIMt
U5LaGg2wA9JkBek/5UOGGyF2tKGhdymyhqObgzsYFHbS1rbivfDfUL+xEqOvLsQppScyWjkR337/uzRf
7+De9x7AhIYJJhJKm0/NYOibSbttbZShVjRQaKy8NMaQok08ixwmfC2qHmWChJNXn2o5cOYN+RVFcMxj
AxVKL2AAsY7kqNG2CTSE6J6EbcqkiesoHP2twglvWR6c17txUukpuPU/b6U5bEFjbxM6etvZvjh2tuw0
JtqY6TitxHAjRNqhtUhanxSm+Yr3yNnR4bZuYQPUpxqxtecdLPnKXORd5seEBRNw5rqz8a33/o2kvI21
P1+L078wxfgJV3EWChrykKFdUamV4mlaA6uoi/Vwr3DDWcWG8G8ZpcxzavLgmJPGhNJvTJ+zTAuY2Q71
9Jv4N/kkkdGfEEOGtafDkCNCBD7DVZmNEctGo2jmSJRvqDBkKHJUFNcR6TAj0olk3AyZdHR3pkazP+U8
5JWWu80WX+1odZRrX6GXxKT1bZj5OEK6kpqggjUHwYpYU7RaeEDXlwwwHN5qNGVT8K9YcMdsHDfnWIyb
Nx7HV52Cx9uepp68izv/8FUUMkP3LfIgexkTRjr4LFW4mBVO2XY78tHrTPoV30o/MipoxtiRMlhvE02x
hyta6jNTIoI5hSFCWmc0hO9FFO+jsDr7i/mmMygxza8agYL5ozHr7nlsqxZOtxkNsKcNLFDwCWviTQOL
H0eIhijPXXUuk2QmnUtdJsQXCWaprtqmzkOCRMhTjfd+WoSkJoVESCyeIoXhMEmh20OgZ5fxKXvofhfd
tQjOczNxSvlknFo5Gf+57VFsIi0PvPUAfHO9yF7igZ8ZfOEK2nKGodocqYpnrsyAZ22qdylMVqkGyRcI
JrQlJHSbDEFESAD8LL3OyXyH96SWyTRmVVM4NIGFN4+CW0M3zOjPbjjfRG7vdr5PBy7Hzfak5m/sORwR
NEwJYZXNdC3fM+IQIXYvMovSEmGaLkYmvZpXUGi6m2njbqx/6m54z/NjzOfH4rz6c/H07idovv6Ce/90
F/KZnxQwm5cv0FYwdw0bIA2hoF2rSIgaYRMiweu9DZuM/lDjSapJ+qQdChoohHTeM2NpGpxLs4wTH185
AceXnWjGpLdgK1saRiDaYdpjkaH5j2FGyMCwV4RYc9l06nEhYSaoDPhekz/UGTQGm2SJsa1rq4lWGhlC
1txXi8mzJ2HCdQyJq6bgF+Gf400GxXf/nuZrcS4y6RuOWjsWeXUkR4mifIpMFuujnu5sYMP0fiAhA2C2
btdnmvzC3EchNIXgXpZBAdFM0VTmzy7EqFmj8Wb89wyjd1KXaWqjLWb2UHM8PRE68UivKfVe7VObNaml
kYLhRYgWxRlSLGKstbV7EWWOEmVE0sbephnEDzu2Ykd4O/UlgK/+x5dw8vSJKLwiHxetmIbXOl9mD/0L
vvX2A8i4Ph25S7PpU+iwK1zwVHssR0wSPCt9dPCspzan9idkH1gmzCR68isij5qVRb+Tu9yLPCachbx3
0axC+rWJ+Mn7P6FebKUVUM7fik4GJtr/EYtZ8/txClsCFxnqeGqbmWk8koR81GTtu5RUWatm6kL0K6Fk
r8GWxibSAARYwZawhs35d2oJ9Yna0oYvfv82TLzhGORfmoNzqs/Ez0Ov0mj8DV9986vwzGbUNIPPX0Qh
Mj/w1TICpMNPr3LCVccMno3p8yX9SwPLt9hkyEy5tVey2gVXeTpNlQP++U5MnHsMHnrtIdakjU68Gbtj
ysSDpl1d4U4Kd69D13oBs46YJlq+07R12BHSSz+iyrNiZhihN44gk8SO3l7CWu2zOxg0pAht7HVsHsJa
0ZHQxGkzvvX6Bpw272QUfCYPpyw9ES8Efop/Mvq6+0934tgVx8Cz2IPMRTpbhJEVw11HSZoJH7OWk7A+
AlKwnTxDd2mUq8ZlyJCZMmSwTfJPGdSucRWF+NJjt7NjdGBnfAfrqjy8C83de0ybKGITUcln2Iu6Fbwo
iNEKF5FyWAjRqTsHS4icmnFsqpiBCImziRYprVrnRCIamdkqiQx0BbGjcaeZ4Wtu18xeCB/GtmD9Y+sx
ZclkjLy+CJd84UI81vwo/oQ/YsVLDThlzSlIm54Bf3EO8iqZp2iEVuFvtUJdmwBiH0IsGNJoqjQ2lc22
+Uioi0nocQ2jMf2+z9E4NbO+HaxbFDsDOwwJ8nutgRYa2t4+DZF22BAphhhpyqdNyKEMv5sVIsb0kJwU
9hIjsHexWRrtau1mchXu4itWmA0NRRjfs3FaAKKl/br2oV/+G45aNAGOSx04444z8HjkcaaO72Ltizdj
/MIJKJg1AnmLcuFewrrSOWfVUejq/er51AQz35Fy/GYYX1GWaXgm0suoUYvdKFiSj8KZOZhx97X4gAF3
J3VUwYd8hQXLX8TpxPmxFqsgFqL/IJJ8393B5FeCVzIctkz1/gg54MTwUAmx1stG+0jRDJqtNVL7lmCL
FJ+9TgsRYgSdYSxCTWGW38lAoClpGt0Y1yKDRmx850Ezxeujwz1m7bF4tPVxmq8PsOHN7yD/2kJMrDrW
7GZ1sJdrU5E0IL3SaqhGhpW7mLEw02jiGgeO+toJjLCcKKhl1Da/EJOrJ+GviT+Qika2od2snumDWSGp
zTj77kuh1YJWFIW72IZuhip07Fo496kToqGTg50PGUpDpMaqqL4TCLUZM6DRn2CEBHbRTrN1GpjTflH+
AY2tirlCdOZvYeGPFiCvKpdO14n0+emYcvMZeDX2hlmVcscrX0HalWnIK86Gr5KhLLXDXUsTy3xCYbEO
OPDQ/GrE2JiDBidyvjjSDMW76vPM2NdRtUfj9dhrTP60muR9OnKtRlGgq9hKjl2QZ9N25wB2xTVHqSyK
qW2s3Qi/vSuAYJeIZGL8MXnIYR3LGhj2mu0IZrl/aq8FK6bK2XtDNHklX6EFZl1h6k6EHkOmis5QhChM
7oxE0MJeqpnG6h/WwDWPzps93sxHVGSbRQmn1k/Bb5ilvM+U7ZZXb4Z3jgsT1o0xyZ23NhuZFSSlhA1U
nqEhEfo+oyUyaczW875AUmji/MsL4Lia/qPmGN7tV0xG/5ha5qOJ5618vYXvtvA5m1PYwrxkD/8186+k
MKzVL100wUoaSWBYQyvDiBA59b7NOh8hQ3ZZRjiJjo6AGZBjvouYHH43exyxJ9jMnqfN920o/+4y5M5l
3lHlN35BDjuNiZumeX2zcnB6/VT8Hn+gT3kLt//qVjimszELFXh4kVtXZOYwMkvoK4p5baX2Slr+xTR+
jso0FNw4GkX1IzFyGXOPqqNwzprTccG6acQFmHbjeTj35nNw1q1n4czbpmJqCpNWT+H3zsVFqy9GyT1L
8XbX29QXLUnSEj5GlYrNjhQhg0VZe33GXjNl7wURehkCt7fTbDGJMtFLqDXlV7TbPUwyWlH1cC1813nh
WmiZIVXYv4YhLuuUtdCFUaXa4z0CJ1SejDf473/wS9S+UoncZdlwzKYvWeI2q1iyGMV4GCn6mfi5NAso
h7+KJK1mpCVnLw0SSGYG85txFSOQTQ3Ukh/PAg+yGFpnLGEQYH+PcJd6kMPoLvsGP86oPB1/6Pi9GXbU
7GhTt2b3hxkhex24TYZFhL05Rx5b9lZ/0wyjlnZq0E7LaN7teh+3PnUbHOc42Gg/jvsiIyyaHOeqVGU1
2nuDAxNXn4Bx5ROQPT0XU286i5T8nNryW6z77TqMXTmB9aNWzaS2LM5CbqUfvgo2nDmIs5b34f08t5I4
mjEnidEose47dhXJKHUjt8xvRgNkJrNqSIh2x2o4PnVOmO6Rx6Q0e74fp1VNwtu9b9FnWvOimiUdloQo
mhqoGSJDg4s9rGEwor1KUnItYdNiiC5s6ngPt/zgdqQxxD3xxuOQrulWRk5OrfZQ8sZKZ9RmopCCc1zr
QH7xCIxYMhpZ17twxdc/g2ejT5GS32LxM2WYePOpZmmRf6kfhcpTeB9zTGEDfYv23bMNZmxLcysimT3f
V8vojK+dJUwgS/mdvnCZ0CixZhD1mvXQ9LKPhBxfcgL+Evkr5dCEPaEmEzV+XB7yLyekPRwwy/cTjKXk
vLWsM0FnreMlEj3sQ/xbU6iRZGjApAPbEnKPO3Hjw7fAc4mXeUW2GdXV4V4mMrIFolLvGT0V1o2Ae6Hf
OPiCpUWGoHPuOBMv4gX8hbFZ2fPVZmmRbxFNzzwnvDQ941aPpJaw0TKBupegZ0jwvK/mVDwkXPvwzRiZ
ERIhIuxJK742I8w0cdlM7E5eeqpZKLcn1mQGUxUkigxNQ4QjDO77EaLZxKbeln81IVp/oRyX/xhRhbo7
EAp1ors7ZMaBOroZzCaD1I0u7O7V0LuWI+zC9C9Ox5TyqRizaCwrmWWeYSqpXmwLT69FiHpzDcNg+gmt
UhlbN56RGH3FPDcuuf8yPBF/Fn+moy9/tgKumVmYUDMGRSU0UVfJtygspv9QciiSV9BHraAgdF8RJdhZ
vd0ZRIg0ydYQ3uP4WybihJoTcOyM4yjgJjSHW+kbgbaWDkaKkT5CzJaJI02IiTSongprFVlpilN+RDF6
Z6IDgR5NhLaYYe33+a/soXIcveQYOC5y4NhVx5qj70wFJRAbNhlVaUinXTe5RjHrtygd+VX5yKvIRcZc
RlKznbjogSvpUX7FsPj3qHq2EkdXkrAZachZTGdc7odbp71p/oS+xFFHB78yy7q3yDCmUc9PETKwQ1AO
jgVpdP7j4DjbgfrvNGBXUmt64yZT1yaiI0rIYMPvmldWCKuDWBTWCtFkxGwdUBasEdQPejZTM3aj5vs1
yJmRh/ySIhTW0DcsGYQMW0AapSUyapl5KwQ2y01JEKMgZfGF1QVmwbbjcw6cf8/leL7nRSaP76DqiXLk
zvZifOVI5Jm5di9NEkko5/3YFoOU8NN1wE7/Z9vg8zUlnEWnP6Z6HArnjsDFKy+haJvQQiF3RjtNQssA
0oT5w4oQOTZ7gkpni2ghgBYEBKLtaOtV7qv9F4248cmbzESQBggdSxi5rGOSNq+/EPQsSxASYN8cuXox
e7hm/Hyrs63jY+mMtXhbY1M5pfQpN7hwwfpL8N/4Bd5lplL3ZAVGLylE2jU0d3T0efUjkLuSHaCSwpCm
kGBpniHH1gpbK1NkuCg83xKavsscOL1mKt4Mvcm2KCDpxJZdH5j8qpP51RElZFCTxURPa7I0BqRhEQ2P
KGWKUK2VpciBr//peniu8poVHVrx7mygXdfk0hoKV4JIkaG8QytHhIxyRkEkxrmcDVBkpAy8Pp3awmuU
X5RlILM4C0U145BbMpoZeAauuf8a/CL5Gv7GBPKWl1ejYAFN26wMM1/uqc5FWoWHbcuCDn82h+zIwUso
/YMItl3P9xb7kLewAFNXnIUHf/Nttr0RbwX+jtZkC0I0xdqKrahSByQMK0I0UKjdSxqQEyGGIOUejM8V
2j74ykNwX+RD0UKSsciF3LX5VsMVxdyqilnPULSjVequEo85NcdZqhnCLGTVS4j8nvyA7D6v1cIHT61O
Rc1B2lwXRlYdjfwFRciZmYPP3XklXup8zgyLrPxZHcZW0acsYu4xn9GUOkM1X5dTO0rpg7SM1HbiIoX3
VsQlU6XVjwXzi/DtPz9k/J9WLjYyINEolzYm7WnfboKVw0LIwS+27iIJ7Cm0p9rB2hFjtk7N0CDjH5v+
iu/+4mG4LvRi0oopcC3wmfMbzbD4KlZktSpFUEPMgcgMfV2lDEVZaZkLCUVn4GoMylmnhdD8rhrC7+s8
XaMxJMldwRyhnI6+rABFSwuRN9uPa75+JX7W+ZSZDp758EwcteJYmkcGBwwGfMvzrBWNzFWs1fZ8bWsI
72+Oo+LzZa6kIYseLsav42/SAzYaaMhxa9tmaGtpe5Da8mkT8lpzvwmqsgOboBIhOh8qGoGlJdSMD2Ia
jmvFHS/eCc/ns+FflIuspW7L9vNexkTZQuBrc3o0hSu4JeAU7M80wydk8lrBfu+mudF7ozlM/tKrMswU
ryKrdGbtVzIkfgOvMyD+B0qfLjMjvaMbxjIoIMlLGRjUs+PxWuO3ZC7ZZicdv90xXNRWz1Kfqf8pK89g
aP02CWnDh+HtbCVDrHiv2Y0rOewvMTzgCapDJkQnM/C/PR1t7BFa6tOKu1+7H8eUHw/nXI+ZdnXW0G7X
ZphebsM+wN5FjXHTL7iraesHKZ2sw1BQ3YzJkcaRPDP2pIiKhGjn0+e+9Vm6+TcozD9h9g9nw1Ns+S5n
BdtKLcmQc6dGGN+leXZ2GvsEahFk9pYsdOLotSfjuJpJeGrrS9QPDZZEmYMEzDzOx82H/EuncEWI5jQ0
lN4UJiFop5VtwXkNFzE6ScOIqjHs5fIFbJidfNmQ2gp9n9l/37dUdKVlP4OVafW8LzUtaw19Ausq519Q
l4/8ZXTmMxhhzXXjim9chkcC/w/zHp9jRn1lkopuLTT39t1Ef2KeQ/Svi7TYroPWGtPUOK5zYmL1FDz5
3s+wja3UvnqZq48byzqsixwGhr0aLNTe1zZm5VoSoEmmt5PvYcKciRi/9BiMqhxr9gtqz14moxsdV66h
cUHLcbR6UDmGQ4vhhkIV/z4UlKuwx2tQUMMkGqlV0jiivMAMyYwozoeTpmriqgkYWz/KZO59S4dEoMa8
ZD77Q6bUhrSPpDsbcpBVWQjv4pHInzEOj/ztx3Tz2rYdoL9kYDNcCFGUpSRJy3u6qMYyV/8b34SJ80/C
6AXjkXmdm0lgIXLKcpFdbq2xko0Xcsv4np/JKWdVDQ1nBSOuIaB9gZnsvbqPjkHPK2HSuTjP7J4tnJeL
Y5aNx3G1R5lpXM/iLIxcWQhfncuYyyyteNeIri34/iQICiKENRQcZZBz81iS6YFnXgHcV+aYCaztjL80
7nvECBks7FUSqKGEplgrtid2sQLNuO7WGSi8ZhSOWnQ03Nf74brBSzB6ms6wlnDztfd6tymzpjOamjE0
3BTu/qBw1329l/fzooCJZ9EMZvCf88P3WTdyP+9D/nQ//DMYIi9g+Px5+iz9IpD8DbUlbQVNklkMIUhI
hK0lNin6TChLQ86KUXAvykPe3JH40stfZlutww2GDSFmj2FSI70JM+Cm3eHKZR9983Gsengd7nzxHjr4
+3DX6/cSXzO4W3jtXtxD3Pvqvbjvla/h/v3ga89/dUjc9fyduPvle3D7c3fgKz9bj3tfuQ/3vHQP7n2B
z+LfvvTsF3DbMzfi/t/ei9XP16OAoezo5SNQqPl1hdPa2qAgYJmVhMq/yJmrzUZYgghaQN908zjjg8bV
H4Pjqk/E1V+5mp5klzFbw4qQnt4EAh3t6GSGLk3ZHND63S5WtJO60s5rtOpd0JnoWgVlLySwDqTRqvgu
fq4tCwda6tpWPk27OAQ9U0tBNeeivyi71vEe27AFT217DEcvHofMz9Opl+Ubk5nJCMpbnAvvkjyTCGYv
Ydi82INsRmNeLcIuyYK/yo+85QwCrnXglNsmW1vqrvbhvOVnmvua5RmfJiGHkqnrUC97qb4qodUkOkws
yMRQm4fb6HOaDTEWLKGFEOilqTMJFWMUczpbJ3R0+YGWulYnywUYegZ6maTynjr6T6cOiWyLLut0k6f/
9wmcXX4WRn5+BM1aEY4pOxY503Mxas44jJw5BkU3FKHgGvqhq7zIvjIDnivZIT/rQPYMmrrLHfDT9OXf
UGBOhcg6OwOTZp6ArYn3zHidEkOt+RUhWpSttV1KDDU9/S8dOtEQu44oovxNz9BwdJwwmyHNMkvrcOS9
x7/uPRxZa52U2ep4PfsUuQOFOdiM9+mmIPauo9L9NfxvafDuoM6WDlAsu/DyOy/h9W0/xys7XsEvAr/E
y7tfwWs7/wuv8rPXtryCV95/Hi9vehYvbXoSz296Aj9598d4+t1H8dimH+EnW57Bf7z5MJ4hsc///Rk8
85tHTZdrTzLSGk6EmCP7zHF95rgRS2WZvVPm7Mn8k4RFRAhl9DF+L8HvC3qtz+3vHAzse9pIhJMkyyLa
HNfHempvoFm6w38a8FTg0WQMpzSJkSLbpRVmOjzfMomKJxupXdoJv4elzCCDlp4P+V39QAZjq+guhJkI
a87niBEyMOw1GhJhuqpDqrp7rYPFWCFl7zp2W7BOoraGV/qTwTaY910krzORPCjo2oH3FSEWLFLsLWgK
z5u76LmSHdjVTTHFWih4ZtxsU5vMHM1gKNaOcLSNRLYiGm9lFt6GjkQzdnVt43eDvLYVbdFGhjDd6Opu
Y6cjicQwIiREbYiYg/l7otbZiaqMEI2RCMJaimlriAWdPCeByWQF6Xs6eg4OnTSN9nJP3WuvCbTMoDRE
a8IUeGgZkiJCUmSWIEmISmZ17IHSW83raMOqORWNJtac/UfCtLtFh9zwaqNpARKhqWrto+SXjywhH4my
enRurvYSCtaqE231MqC/EAY9VJ823pw0ykrLt5iN+MbXHFhpn3ytxgv2+lxzFF8K3ZEghWoRopWT+jEB
7Yxqaaez76Qh4vOFdh1GFu5GTAd4dnejJxxmZ7PaZS0ZZaAStX7ERQRrzEjrzTRjOmwI0aqTMCMa2VKr
1LIgbRUOsdd1G5gDkPtBlVd0JYhQ6+hVRU0HXpooK9lpoirrPEfrcONgcu9hxzJD2o/S0tFsVkwGOto0
FmqGy6UDOquxk6C1MxNtPdQ8s6qa0CK/YBfrSALbokG0hGmizII/M56KNpLaycDhUyXk9eb7MKXeR0L4
hWWpn6uoSIN+I1DQaKgWop27+nISEkRnqMMQIrusKMYmJEJh2KRoE49NjC38/iTY6E5oy1gnrUQ7ceBl
NM48hsLX3L2g13vJoIPm/bv5XXvuQpqiJUqafm1tbTUarL0s7TRP0jgdE6JlTJEU9GM10gYG9ibP0lyP
OcWBWhLUZBxJ089SSGO1zU2EaKuCyBFJyrt0iOB5q6alfq7C85Gfq9DrfQh5o3EDptbmmN+wEFvmF3b4
JfPbIbqwwo2Mxdk4e+0lZLsVnXSMCp9MeEvzI5XW9mdz/nofbDPWjQQrOxR6WOleXt+bGLpMxruJ0KCl
nqlf+xkKun+MZmZfWIcg94HPMQv8CPkFIckoQdDW7p5ExEBrzGzYn8kM2puTtKOK/dTsedH6AlkDTWft
oszOWX0JfPNHwlmaTa1gXiPN0DiahmYGEvKL3Q/iTBKSLUJEQooQ82uWmjdY5kF6cR4JuYhcNyPY3WwI
ke+TozabXFjx/4vQgo7OZILRFyM+EmL26lM7zPoCdhaLkADOWXUZCRkFp1bJfBwhb+zZaDRkICFGQ0RI
hRfOJXk4b+3FpKMFoTA1hA+lttPZwURJ/X+QZbjB2oA6NAa75sDA+zAEV0Rp+RCaLkZ4OhVbS4Zktqat
vAS5c0fCtTQXGVUkREMmIkMDmAMJ+XnjRpy+nCZr2UcJ0cyafk40szh/ACEMAOn3QiSkkz1DPaSTGKxU
eBpIhakHUw513096/6DZfNo7ZHko9xdEhjRDoxRm1IKhdzKiU/aYZpIQyeyihkuQN7fIrLx0aSkSCTD+
Q5oykJDXmzZgSp3f/Ji9TYh+NNfMYS/T2lc/MhcX9BHSEW5Er9ZgkZCgSEmyJIYqgyRMpB1sOZzvrx//
0o7cOEnRceaMpwllqzRpzOA7exVnNeHihgtROKcI2Uuy4VUkS1k7qylraop+g2ofQl5t3oBJ9dqcvy8h
ZjFBeab5oV3nonycu+YiBnB7EIjsNvZTY1XqIeYAfJZ9v44woNQhx+YQgYMsh7rvJ72/+S0r5UJDlId6
fx0tYrboyWTQciDKYCXWwc80sKkDD3eZQxEK5+SZ0WR/uQv6uVX9gKdWz3yEkFdaNpjf8u4jhGqk3EOb
63Wkq37xOGNhDs5cfb61PimygxXpRBsTpRZGSl1MniKMXnSg8WClfgvE/MTDQZZD3feT3v/jrv+4cn/3
V+Ip562Iyvo5CysUD8dpSXp0UPkWOvbtmLbqXHNUra/YQw2h1dkfIS+lCHGTDDkbmxC3CNGCMiYzaQt9
mLLmHHzIf7tiHxjbqGG3nUQg3opglNHXEAjF6HcOAYPdsz8Gu+ZAMNg9+2Owa2x0JFrQmFSu0WocuA55
DiT2oLVHOyY3U1o6Q3UzdJKenzJUYqiDNfdrsp6nyTq1IQdeTVMS6YQ2TWrdk1lSU+KEr2okLr77cryZ
/B0fvZOq2Ip3kltYEQ1sa6JIR/odHnSyn+0Pg11zIBjsnv0x2DU2tIrROje+na806aa1zPK0Sgd3UDc+
MEuQzls/DY5ZDuStzDfrx7RcyakoizIWIW7KWz/u+XTTfUMTkmUIccKp80XIbMbMLFx48zRctvx889uu
p5ZMxflrPoNpKy5gFHHuYcOF9efsF4NdcyAY7J79Mdg1NqatOB/nrLwYZ6+8FOc3XMrvX4yL6i/AhQ3n
4/yV5+DMtVNx8b2XmsOjncznfKtzDAmKsMzZX9o1NpCQnzVvxMkNeYMSoqU6+qV8TetqXa5+gnrUDdkY
N3MEcmaNgIehnGdhHjyLcg4b3Auz94vBrjkQDHbP/hjsmj6o7QtGmixceYZCW0VTcuDyGTJT5oz54gxk
rWCWvpwuQAvH6RZca2l95CaGIsST8iH9CcnUPg1e4KjORF5DAfxLXDi6fARGLcxFQcVopJeIcQ1Guk1G
f1jKcr1mbxqq/KT3Gao8lPsT6WW5JgNX0qc8Q6Gtoik5cPkMLy2M9riYRXda3aL8g/IVMust+Q4g5EES
UkBCrEl3mxCzXJPvHXX8vIwOSAvaZmvzJVn+PL8jh69NNNouoBOodSr14SiXszE6u3eo8pPeZ6jyUO6v
tteSmBpGoszAlfQpz1Boq2jKOHD5DJkprUGuz4D/1jwrIdSS1tq0j/oQmxCvLhxAiF47VlkspjdkmOx9
jA6fpNplrnLDeQvVUKRJuw4XpKH7w2DXHAgGu2d/DHaNDbXdhr4rwZdSfimoI5uT8KQVGibR95Zbe1w0
Vugl6ZL1voQ0fYeEMK0fQEgGH5AuJhUN6IYr+BnLHB1XwSjBVICsa31tJlXycEGauT8Mds2BYLB79sdg
19jQGmPHSspBi70pH53G7aLg3Snotfxy1ioGR9p7T7nKkUu+2TVu5FDDFALvQ8hzLdIQZpHaykUhZ5IU
JS5ak6VY2aiXSFFJxvW5r4GllmKyMrrGBABlaQdefgJksqftD+Z7n/R5g5TmPmzXUOX+rjdbuSUXdVjJ
SrJjz3dKJpKfSv1N5oqv3Q00Y9UZZhTEW5aOTGqPtlzkEKfV5+C5RhLyWNvXcQLNkJ9maEQde8xCfplf
yKvOQmGDz4xp6cb2ngwfK+llac8o6rU+O1Lwl6eZUnXuD+tvH/3+pwkjB8rFlo2gz2yZ2K/tv5m/97s+
pyQdRaVu+BmJnUMr9fxuEvJ4+72YemshvExcvDqalaWfzOnUtYw5fF2abqCLc8h0bgr5NFuC/f5IQb/W
L+h1DusjDPx8uCK/OB2jFmdhNOV8+dqxeG7Ll+H43qY1mLFxMs5al4cz1uXj3FtH46L1E3H27Udh6m0T
cPzKAoMTVhAr83DSCiGHNs+CXp+w8lCQd0g4cVU+kcvXOTiesb6g1/rM/vzwYvB6fRKcRJme1lCIMxvy
seDrk/DEpnXUkO1fwqPbvojHdnwFP9r5ZTy66y48snM9vr/9Ljze9k083v6gwROBjQZPBTYYPB34Bkth
A55oPwSk7nuweLLjm+Y+jwce2Af6zP7bYcUgdfqkeIp4um0jHt36VTzx/i346dbb8P8BI0jHe+jzOWgA
AAAASUVORK5CYII=
</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>368, 17</value>
</metadata>
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 955, 389&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 955, 389&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>231, 17</value>
</metadata>
</root>

159
BEA - Kopie/Diverse Formulare/frmTempBerechtigung.vb Normal file
View File

@@ -0,0 +1,159 @@
Public Class frmTempBerechtigung
Dim dc As New _DataClass.DataClass
Dim SpaltenTitel As New Utils.Tabellenspalte
Dim sec As New Utils.MySecurity
Private Sub frmTempBerechtigung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Refresh_Data()
sec.Set_Form_Security(Me)
End Sub
Sub Refresh_Data()
Dim dt As New DataTable
dt = dc.Get_Temp_Berechtgungen()
Me.C1Daten.DataSource = Nothing
Me.C1Daten.DataSource = dt
Me.C1Daten.DataMember = dt.TableName
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Daten, "TempBerechtigung", dt)
End Sub
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Me.SaveFileDialog1.AddExtension = True
Me.SaveFileDialog1.DefaultExt.Insert(0, "*.xls")
Me.SaveFileDialog1.Filter = "Excel-Dateien|*.xls"
Me.SaveFileDialog1.ShowDialog()
If Me.SaveFileDialog1.FileName <> "" Then
If Me.SaveFileDialog1.FileName.EndsWith(".xls") Or Me.SaveFileDialog1.FileName.EndsWith("XLS") Then
Me.DatatableToExcel(Me.C1Daten.DataSource, Me.SaveFileDialog1.FileName)
Else
Me.C1Daten.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ";", "", "", True, System.Text.Encoding.Default.BodyName)
End If
End If
Exit Sub
End Sub
Public Shared Function DatatableToExcel(ByVal aDataTable As DataTable, ByVal aOutputFilename As String) As Boolean
Application.DoEvents()
Dim f As New FrmFortschritt
Dim app As New Object
Dim wb As New Object
Dim ws As New Object
Try
f.Show()
Application.DoEvents()
f.ProgressBar1.Minimum = 0
f.ProgressBar1.Maximum = aDataTable.Rows.Count
app = CreateObject("Excel.application")
'Dim wb As Object
'Dim ws As Object
' Dim app As New Excel.ApplicationClass
' Dim wb As Excel.Workbook
' Dim ws As Excel.Worksheet
wb = app.Workbooks.add()
'wb = app.Workbooks.Add()
ws = wb.ActiveSheet()
Dim dc As DataColumn
Dim dr As DataRow
Dim colIndex As Integer
Dim rowIndex As Integer
' Columns erstellen
For Each dc In aDataTable.Columns
colIndex += 1
app.Cells(1, colIndex) = dc.ColumnName
Next
' Rows hinzufügen
For Each dr In aDataTable.Rows
f.ProgressBar1.Value = rowIndex
rowIndex += 1
colIndex = 0
For Each dc In aDataTable.Columns
colIndex += 1
app.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
Next
Next
ws.Columns.AutoFit()
wb.SaveAs(aOutputFilename)
app.Workbooks.Open(aOutputFilename)
' Excel anzeigen wenn fertig exportiert
app.Visible = True
ws = Nothing
wb = Nothing
app = Nothing
f.Close()
Return True
Catch ex As Exception
f.Close()
MsgBox(ex.Message)
End Try
End Function
Private Sub PerosnAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PerosnAnzeigenToolStripMenuItem.Click
Dim f As New frmUebersicht(C1Daten.Columns("Personalnr").Value)
f.MdiParent = Me.MdiParent
f.Show()
End Sub
Private Sub FunktionstelleAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FunktionstelleAnzeigenToolStripMenuItem.Click
Dim f As New frmUebersicht(C1Daten.Columns("Funktionstellenr").Value)
f.MdiParent = Me.MdiParent
f.Show()
End Sub
Private Sub InaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InaktivierenToolStripMenuItem.Click
If MsgBox("Temporäre Berechtigung inaktivieren?", vbYesNo) = MsgBoxResult.Yes Then
dc.Delete_temp_Berechtigung(C1Daten.Columns("NrTempBerechtigung").Value, Globals.clsmitarbeiter.iMitarbeiternr.Value)
Me.Refresh_Data()
End If
End Sub
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
FunktionstelleAnzeigenToolStripMenuItem.Enabled = False
BerechtigungAnzeigenToolStripMenuItem.Enabled = False
PlattformAnzeigenToolStripMenuItem.Enabled = False
If C1Daten.Columns("Datatype").Value = "Funktionstelle" Then
FunktionstelleAnzeigenToolStripMenuItem.Enabled = True
End If
If C1Daten.Columns("Datatype").Value = "Berechtigung" Then
BerechtigungAnzeigenToolStripMenuItem.Enabled = True
End If
If C1Daten.Columns("Datatype").Value = "Plattform" Then
PlattformAnzeigenToolStripMenuItem.Enabled = True
End If
End Sub
Private Sub BerechtigungAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BerechtigungAnzeigenToolStripMenuItem.Click
Dim f As New frmUebersicht(C1Daten.Columns("Funktionstellenr").Value)
f.MdiParent = Me.MdiParent
f.Show()
End Sub
Private Sub PlattformAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PlattformAnzeigenToolStripMenuItem.Click
Dim f As New frmUebersicht(C1Daten.Columns("Funktionstellenr").Value)
f.MdiParent = Me.MdiParent
f.Show()
End Sub
Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.Click
End Sub
Private Sub C1Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
End Sub
End Class