edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

NEU

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-08-08 12:44:50 +02:00
parent f4c673510f
commit 82e1bf915b
638 changed files with 433536 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

116
UID/Mitarbeiter/frmMitarbBerechtigungen.Designer.vb generated Normal file
View File

@@ -0,0 +1,116 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMitarbBerechtigungen
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.btnSave = New System.Windows.Forms.Button()
Me.btnReload = New System.Windows.Forms.Button()
Me.dgvBer = New System.Windows.Forms.DataGridView()
Me.lblTitelDetails = New System.Windows.Forms.Label()
Me.lblTitel = New System.Windows.Forms.Label()
Me.picIcon = New System.Windows.Forms.PictureBox()
CType(Me.dgvBer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picIcon, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(439, 9)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 53
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'btnReload
'
Me.btnReload.Location = New System.Drawing.Point(358, 9)
Me.btnReload.Name = "btnReload"
Me.btnReload.Size = New System.Drawing.Size(75, 23)
Me.btnReload.TabIndex = 54
Me.btnReload.Text = "Reload"
Me.btnReload.UseVisualStyleBackColor = True
'
'dgvBer
'
Me.dgvBer.AllowUserToAddRows = False
Me.dgvBer.AllowUserToDeleteRows = False
Me.dgvBer.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvBer.Location = New System.Drawing.Point(7, 59)
Me.dgvBer.Name = "dgvBer"
Me.dgvBer.Size = New System.Drawing.Size(583, 315)
Me.dgvBer.TabIndex = 52
'
'lblTitelDetails
'
Me.lblTitelDetails.AutoSize = True
Me.lblTitelDetails.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTitelDetails.Location = New System.Drawing.Point(47, 29)
Me.lblTitelDetails.Name = "lblTitelDetails"
Me.lblTitelDetails.Size = New System.Drawing.Size(122, 13)
Me.lblTitelDetails.TabIndex = 51
Me.lblTitelDetails.Text = "BERECHTIGUNGEN"
'
'lblTitel
'
Me.lblTitel.AutoSize = True
Me.lblTitel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTitel.Location = New System.Drawing.Point(47, 9)
Me.lblTitel.Name = "lblTitel"
Me.lblTitel.Size = New System.Drawing.Size(139, 13)
Me.lblTitel.TabIndex = 50
Me.lblTitel.Text = "- - P R O G R A M M - -"
'
'picIcon
'
Me.picIcon.Location = New System.Drawing.Point(7, 9)
Me.picIcon.Name = "picIcon"
Me.picIcon.Size = New System.Drawing.Size(34, 33)
Me.picIcon.TabIndex = 49
Me.picIcon.TabStop = False
'
'frmMitarbBerechtigungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(601, 383)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.btnReload)
Me.Controls.Add(Me.dgvBer)
Me.Controls.Add(Me.lblTitelDetails)
Me.Controls.Add(Me.lblTitel)
Me.Controls.Add(Me.picIcon)
Me.Name = "frmMitarbBerechtigungen"
Me.Text = "frmMitarbBerechtigungen"
CType(Me.dgvBer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picIcon, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnSave As System.Windows.Forms.Button
Friend WithEvents btnReload As System.Windows.Forms.Button
Friend WithEvents dgvBer As System.Windows.Forms.DataGridView
Friend WithEvents lblTitelDetails As System.Windows.Forms.Label
Friend WithEvents lblTitel As System.Windows.Forms.Label
Friend WithEvents picIcon As System.Windows.Forms.PictureBox
End Class

120
UID/Mitarbeiter/frmMitarbBerechtigungen.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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

136
UID/Mitarbeiter/frmMitarbBerechtigungen.vb Normal file
View File

@@ -0,0 +1,136 @@
Imports System.Data.SqlClient
Imports System.ComponentModel
Public Class frmMitarbBerechtigungen
Private UID As New cProgramme
Private bindingSource1 As New BindingSource
Dim sqlConn As New sqlConn
Private dataAdapter As New SqlDataAdapter
Private cma As CurrencyManager
Public codename As String
Private Grid_aktiv As Boolean = False
Public progId As Integer = -1
Public maId As Integer = -1
Private Sub frmProgBerechtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
If codename = "ADMIN" Then picIcon.Image = My.Resources.admin
If codename = "UID" Then picIcon.Image = My.Resources.uid_ico
If codename = "DISPO" Then picIcon.Image = My.Resources.dispo_ico
If codename = "PARKZEIT" Then picIcon.Image = My.Resources.parkzeit
If codename = "AVISO" Then picIcon.Image = My.Resources.Aviso
lblTitel.Text = codename
'dgvBer.DataSource = Me.bindingSource1
Dim sql As String = " SELECT [ber_id] " &
" ,[ber_name]" &
" ,[ber_progId]," &
" isnull((select top 1 ber_allowed from [ADMIN].[dbo].[tblBerProg] where [ber_id]=[tblBerProg].bepr_berId and (SELECT [prog_codename] FROM [ADMIN].[dbo].[tblProgramme] WHERE prog_id= [ber_progId])=[tblBerProg].bepr_programm AND [tblBerProg].bepr_userId=" & maId & "),0) as allowed" &
" ,[ber_sicherheitsstufe]" &
" FROM [ADMIN].[dbo].[tblBerechtigungen]" &
" WHERE ber_progId = " & progId & ""
' initBinding("select * from tblBerechtigungen where ber_progId=" & progId)
initBinding(sql)
End Sub
Private Sub initBinding(sql)
' dgvInitWait = True
Dim sqlstr As String = sql
' dgvLKW.DataSource = bindingSDL
Dim d As New SqlDataAdapter()
Try
Dim connectionString As String = My.Resources.connStringAdmin
Me.dataAdapter = New SqlDataAdapter(sqlstr, connectionString)
Catch ex As SqlException
MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
End Try
Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapter)
Dim table As New DataTable()
Me.dataAdapter.Fill(table)
' table.Columns("KundenNr").DefaultValue = kdNr
table.Locale = System.Globalization.CultureInfo.InvariantCulture
'bindingSDL.Clear()
dgvBer.DataBindings.Clear()
dgvBer.DataSource = table
'dgvInitWait = False
Spalten_festlegen()
End Sub
Private Sub initDgv(ByVal sqlCommand As String)
Grid_aktiv = False
dgvBer.DataSource = Me.bindingSource1
Dim d As New SqlDataAdapter()
Try
Dim connectionString As String = My.Resources.connStringAdmin
dataAdapter = New SqlDataAdapter(sqlCommand, connectionString)
Catch ex As SqlException
MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
End Try
Dim commandBuilder As New SqlCommandBuilder(dataAdapter)
Dim table As New DataTable()
table.Locale = System.Globalization.CultureInfo.InvariantCulture
dataAdapter.Fill(table)
bindingSource1.DataSource = table
Spalten_festlegen()
Grid_aktiv = True
End Sub
Private Sub CurrentChanged(ByVal sender As Object, ByVal e As EventArgs)
MsgBox(DirectCast(sender, CurrencyManager).Position.ToString())
End Sub
Private Sub btnReload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReload.Click
initDgv(dataAdapter.SelectCommand.CommandText)
End Sub
Private Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
' Me.dataAdapter.Update(CType(Me.bindingSource1.DataSource, DataTable))
For Each r As DataGridViewRow In dgvBer.Rows
sqlConn.setBerechtigungenNEU(maId, r.Cells(0).Value, codename, r.Cells(3).Value)
Next
End Sub
Private Sub Spalten_festlegen()
With dgvBer
.RowTemplate.Height = 20
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.AllowUserToOrderColumns = True
.Columns(0).Visible = False 'ID nicht anzeigen
.Columns(1).Width = 250
.Columns(1).HeaderText = "Bezeichnung"
.Columns(4).Width = 150
.Columns(4).HeaderText = "Wert (alt)"
.Columns(2).Visible = False
End With
End Sub
' Private listChangedHandler As ListChangedEventHandler
' Private positionChangedHandler As EventHandler
' Private dataManager As CurrencyManager
'Overridable Sub bindingSource1_AddingNew(ByVal sender As Object, ByVal e As AddingNewEventArgs) Handles dgvBer.BindingContextChanged
' sender.tryDataBinding()
'MyBase.OnBindingContextChanged(e)
'MsgBox("test")
'Dim dtaSet As DataSet = bindingSource1.DataSource
'Dim dataTable As DataTable = dtaSet.Tables("tblBerechtigungen")
'Dim DataRow As DataRow = dataTable.NewRow()
'DataRow("ber_progId") = "1"
'e.NewObject = DataRow
' End Sub
Private Sub dgvBer_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles dgvBer.RowsAdded
If Grid_aktiv Then dgvBer.CurrentRow.Cells(3).Value = progId
End Sub
End Class

1868
UID/Mitarbeiter/frmMitarbDetails.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

622
UID/Mitarbeiter/frmMitarbDetails.resx Normal file
View File

@@ -0,0 +1,622 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAhBJREFUWEftlbFKA1EQRQP5FyG1fyBp/ANT2KYxWNkm+AExtYipLASDlYVpRBSC
RRoDQbBYEItAFLQwksJi9Qy5j8ljG5vdZgdmd959M3fuzEaspAVbKaAUUApYE/CzWJjH9h/cn+M46y4I
eBuN0ptq1XzcaKzQ1GLhD/V6OhsODectnFoI72u1UM85jpWrWvAgYNrphCSIMBXS+LnXMxwHT/r9kP86
GKyd4dJAPtaZXA1pApbzuV1Crolp8pUkFj+2WpaMCM4QkocwzhKnM4LwOOZePRCCmQCp50ICPieTsCru
MW0JAdoKZ23GC4xjeOOtYSZAyr1TqALeFKiRPo3/HZAj8Ww0jhGhjeIMaAJEwpoh9lODqQCnOSSI4ww5
GAMoxrE41sTipBdWoRBC3hgXOqOSWK4i5WDkqBZMk8WxasUrC38FRVkpoBRQvIDKZjMt1DPBPD0TzNN5
JC8zc+Kt3UP7Njv73fT0/NpibxvbB5brbXg7DoSqx+AQPhpPV+jfP7+/enjsjgcEi++lAZOnJBBSJNw7
mHJ4YyKkRgLb3TPDLq7u7IygvfaxxQxnfDw06dHJpb2ZApxG3sAh8UaOyESuHBqDz98/TJjfKL2CABV6
MibCRCKXSJr4zeHxp6GpcJwavw2r46FmkGmVrC82hIqAPOUgStNpe/7zUUeMSaQ1x0NQlGeCeXommJs3
01+wb33MpfBz/gAAAABJRU5ErkJggg==
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAYGAAAAEAGACocAAAFgAAACgAAABgAAAAwAAAAAEAGAAAAAAAgHAAAMQOAADEDgAAAAAAAAAA
AAB6TSF6TSFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSF6TSF6TSFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSFnNQJnNQJmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBtPAttPAtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBtPAtt
PAtwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwDLv7j////////////39fR0
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////
//+AXUJmMwBmMwBmMwBmMwDUy8X///////////90SSZmMwBmMwBmMwBmMwBmMwDu6+n///////////+A
XUJmMwBmMwBmMwDd1tH///////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////39fRm
MwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zd1tH////////////39fS3p5x0SSaYfWv////Uy8VmMwBmMwBm
MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwDm4N3////////////////Lv7hmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwD///////////////////////////////////////////////+jjH1mMwBmMwBm
MwBmMwC3p5z///////////+jjH1mMwBmMwBmMwBmMwCYfWv////////////Uy8VmMwBmMwBmMwBmMwCA
XUL39fT////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////Uy8VmMwBmMwBmMwBmMwBm
MwCMblju6+n////////////////////////////////d1tH////39fRmMwBmMwBmMwBmMwBmMwBwQRFw
QRFwQRFwQRFmMwBmMwBmMwBmMwD///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwCMblj/////
///////Bs6pmMwBmMwBmMwBmMwDLv7j///////////+jjH1mMwBmMwBmMwBmMwBmMwC3p5z/////////
//+YfWtmMwBmMwBmMwBmMwBmMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwB0SSbu6+n/////////
///////////////Lv7jd1tH///////////////+jjH1mMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm
MwBmMwCMblj////////////u6+n////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////m4N1mMwBm
MwBmMwB0SSb39fT////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
//////////////////////////+MblhmMwBmMwBmMwBmMwC3p5z///////////////+tmo1mMwBmMwBm
MwBmMwDBs6r////////////Bs6pmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwCtmo3/////
//////+3p5zUy8X///////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////Uy8VmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3////////39fRmMwBmMwBmMwCtmo3/////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////////////////////////
//////////90SSZmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwDUy8X/////////////////
///////m4N1mMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwDBs6r///////////+jjH2AXUL/
///////39fSAXUJmMwBmMwBmMwBmMwBmMwB0SSb////////////////////////////////////////m
4N1mMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////////m4N1mMwBm
MwBmMwBmMwBmMwDd1tH///////////+tmo1mMwBmMwC3p5z///////////////////////////+AXUJm
MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwDm4N3///////////90SSZmMwDBs6r////////Uy8Vm
MwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////9mMwBmMwBmMwBm
MwBmMwBmMwCjjH3///////////////////////////////////////////////+3p5xmMwBmMwBmMwBm
MwBmMwBmMwBmMwDu6+n////////Lv7hmMwBmMwC3p5z////////////Bs6pmMwBmMwBmMwBmMwBmMwDU
y8X////////////Bs6pmMwBmMwCYfWv///////////////////////////+3p5xmMwBmMwBmMwBwQRFw
QRFwQRFwQRFmMwBmMwBmMwD39fT////////39fRmMwBmMwB0SSb39fT///////+jjH1mMwBmMwBmMwBm
MwBmMwDUy8X///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwCAXUL/
//////////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCY
fWv///////////+MblhmMwDLv7j///////////+jjH1mMwBmMwBmMwBmMwBmMwC3p5z////////////u
6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm
MwCMblj////////////d1tFmMwBmMwBmMwCtmo3////////u6+lmMwBmMwBmMwBmMwBmMwC3p5z/////
///////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////m4N1m
MwBmMwBmMwBmMwBmMwC3p5z////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////d
1tFmMwDm4N3///////////90SSZmMwBmMwBmMwBmMwBmMwCAXUL///////////////+3p5xmMwBmMwBm
MwBmMwBmMwDBs6r////d1tG3p5yMblhmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwCjjH3/////////
///Bs6pmMwBmMwBmMwBmMwDm4N3///////+3p5xmMwBmMwBmMwBmMwCMblj////////////m4N1mMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////90SSZmMwBmMwBmMwBm
MwCjjH3///////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////+3p5z/////////
///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Bs6p0SSZmMwBmMwC3p5z/////
///////39fR0SSZmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwDBs6r///////////+3p5xmMwBmMwBm
MwBmMwCYfWv///////////+AXUJmMwBmMwBmMwBmMwD/////////////////////////////////////
//////////+jjH1mMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
///d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////Uy8VmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////////////+3p5xmMwBm
MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwDUy8X///////////+MblhmMwBmMwBmMwBmMwBmMwDLv7j/
///////d1tFmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+3p5xm
MwBmMwBmMwBmMwCMblj////////////////////////////////////////////u6+mAXUJmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBwQRFw
QRFwQRFwQRFmMwBmMwD39fT///////////90SSZmMwBmMwBmMwBmMwBmMwCAXUL///////////+3p5xm
MwBmMwBmMwDBs6r////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwB0
SSb////////////////////////////////////m4N23p5x0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCAXUL39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
XUK3p5zm4N3///////////////+3p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFw
QRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFtPAttPAtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBtPAttPAtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNQJnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJnNQJ6TSF6TSFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSF6TSF6TSFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw
QRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSH/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////R0e+rq+Krq+Krq+Krq+LR0e//////////////////
//////////+rq+Krq+Krq+Krq+Krq+Ld3fP////d3fOrq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Kr
q+K4uOb////////////////////////////d3fOrq+Krq+Krq+Krq+L////////////////Fxeqrq+Kr
q+Krq+L////////////p6ferq+Krq+Krq+Krq+Krq+L///////////////+4uOarq+Krq+Krq+Krq+Lp
6ff///////////+4uOarq+Krq+Krq+LR0e////////////////////////+rq+Krq+Krq+Krq+LR0e//
///////////////////////FxeoDA70DA70DA70DA71sbND///////////////////////////8DA70D
A70DA70DA70DA73Fxer////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn0
9Pv////////////////R0e8DA70DA70DA70DA73p6ff///////////9ZWcsDA70DA70DA73R0e//////
///d3fMDA70DA70DA70DA70DA7309Pv///////////9+ftQDA70DA70DA70DA72rq+L///////////9+
ftQDA70DA70DA72Ojtn////////////////////R0e8DA70DA70DA70DA72Ojtn/////////////////
//////////9sbNADA70DA70DA70DA73R0e/////////////////////p6fcDA70DA70DA70DA70DA73p
6ff////09PsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ERMfd3fP/////////
///09PsDA70DA70DA70DA73Fxer///////////8pKcIDA70DA70DA71sbND///////////8pKcIDA70D
A70DA70DA73R0e////////////+dnd0DA70DA70DA70DA72dnd3///////////+dnd0DA70DA70DA71Z
Wcv///////////////////+OjtkDA70DA70DA70DA71ZWcv////////////////////////////R0e8D
A70DA70DA70DA71+ftT////////////////////R0e8DA70DA70DA70DA70pKcL///////////9ERMcD
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcLp6ff///////////9ERMcDA70D
A70DA72rq+L////////p6fcDA70DA70DA70DA70DA73R0e////////9ZWcsDA70DA70DA70DA72rq+L/
//////////+4uOYDA70DA70DA70DA71sbND///////////+4uOYDA70DA70DA70DA73/////////////
///09PsDA70DA70DA70DA70DA70pKcL///////////////////////////////9sbNADA70DA70DA70D
A72rq+Krq+Krq+Krq+Krq+J+ftQDA70DA70DA70DA71ZWcv///////////9+ftQDA70DA70DA70DA73F
xer////////d3fOOjtkDA70DA70DA70DA70DA71sbND///////////9+ftQDA70DA70DA71+ftT/////
///FxeoDA70DA70DA70DA70DA71sbND///////+dnd0DA70DA70DA70DA72dnd3////////////d3fMD
A70DA70DA70DA70pKcL////////////d3fMDA70DA70DA70DA73d3fP///////////+rq+IDA70DA70D
A70DA70DA70DA73d3fP////////////////////////////R0e8DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA72Ojtn///////////+dnd0DA70DA70DA70DA72rq+L/////////////
//+rq+IDA70DA70DA70DA70DA73R0e////////+dnd0DA70DA70DA71ZWcv///////+rq+IDA70DA70D
A70DA70DA70DA73R0e////+rq+IDA70DA70DA70DA71sbND///////////////8DA70DA70DA70DA70D
A73p6ff////////09PsDA70DA70DA70DA73Fxer///////////9ERMcDA70DA70DA70DA70DA70DA73F
xer///////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA72rq+L///////////+4uOYDA70DA70DA70DA72Ojtn///////////////////9ZWcsDA70D
A70DA70DA71+ftT////////FxeoDA70DA70DA70DA73///////+OjtkDA70DA70DA70DA70DA70DA71s
bND////R0e8DA70DA70DA70DA70pKcL///////////////9ZWcsDA70DA70DA70DA73Fxer/////////
//9ZWcsDA70DA70DA72rq+L////////FxeoDA70DA70DA70DA70DA70DA70DA72rq+L/////////////
///////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer/
///////////d3fMDA70DA70DA70DA71ZWcv///////////////////+rq+IDA70DA70DA70DA70DA730
9Pv////d3fMDA70DA70DA70DA73d3fP///9ZWcsDA70DA70DA70DA70DA70DA70DA73R0e/09PsDA70D
A70DA70DA70DA73p6ff///////////9+ftQDA70DA70DA70DA72rq+L///////////9+ftQDA70DA70D
A71+ftT///////9sbNADA70DA70DA70DA70DA70DA70DA71+ftT/////////////////////////////
//////9sbNADA70DA70DA70pKcL09Pv///////8DA70DA70DA70DA70DA73p6ff///////////////8D
A70DA70DA70DA70pKcL////////////////////09PsDA70DA70DA70DA70DA73d3fP///////8DA70D
A70DA70DA724uOb///8pKcIDA70DA70DA70DA70DA70DA70DA71sbND///8pKcIDA70DA70DA70DA73F
xer///////////+rq+IDA70DA70DA70DA72Ojtn///////////+rq+IDA70DA70DA71ERMf////p6fcD
A70DA70DA70DA70DA70DA70DA70DA71ZWcv////////////////////////////////////R0e8DA70D
A70DA70DA724uOb////d3fMDA70DA70DA70DA70pKcL///////////////////9ZWcsDA70DA70DA70D
A73d3fP///////////////////8pKcIDA70DA70DA70DA73Fxer///////9ZWcsDA70DA70DA72dnd3p
6fcDA70DA70DA70DA71ZWcsDA70DA70DA70DA73p6fdsbNADA70DA70DA70DA72rq+L////////////F
xeoDA70DA70DA70DA71ZWcv////////////FxeoDA70DA70DA70DA7309Pudnd0DA70DA70DA70DA70p
KcIDA70DA70DA70DA7309Pv///////////////////////////////////9sbNADA70DA70DA71ERMf/
///FxeoDA70DA70DA70DA71ZWcv///////////////////9+ftQDA70DA70DA70DA73Fxer/////////
//////////9ERMcDA70DA70DA70DA724uOb///////+OjtkDA70DA70DA71+ftTFxeoDA70DA70DA70D
A724uOZsbNADA70DA70DA72Ojtmdnd0DA70DA70DA70DA72Ojtn////////////d3fMDA70DA70DA70D
A70pKcL////////////d3fMDA70DA70DA70DA73R0e8pKcIDA70DA70DA70DA72rq+IDA70DA70DA70D
A73d3fP////////////////////////////////////R0e8DA70DA70DA70DA73Fxeqrq+IDA70DA70D
A70DA72Ojtn///////////////////+rq+IDA70DA70DA70DA72rq+L///////////////////9ERMcD
A70DA70DA70DA73Fxer///////+rq+IDA70DA70DA71ERMerq+IDA70DA70DA70DA73d3fPR0e8DA70D
A70DA70DA72rq+IDA70DA70DA70DA71ZWcv///////////////8pKcIDA70DA70DA70DA73d3fP/////
//////8DA70DA70DA70DA71+ftQDA70DA70DA70DA71ERMf///8pKcIDA70DA70DA724uOb/////////
//////////////////////////////9sbNADA70DA70DA71sbNCdnd0DA70DA70DA70DA72rq+L/////
///////////////FxeoDA70DA70DA70DA71+ftT///////////////////8DA70DA70DA70DA70DA73d
3fP////////FxeoDA70DA70DA70DA71sbNADA70DA70DA70DA7309Pv///9sbNADA70DA70DA71ZWcsD
A70DA70DA70DA70pKcL///////////////9ZWcsDA70DA70DA70DA73Fxer///////////9ZWcsDA70D
A70DA70DA70DA70DA70DA70DA72rq+L///9ZWcsDA70DA70DA72dnd3/////////////////////////
///////////////FxeoDA70DA70DA70DA70pKcIDA70DA70DA70DA73Fxer////////////////////p
6fcDA70DA70DA70DA71ZWcv///////////////+4uOYDA70DA70DA70DA70pKcL09Pv////////p6fcD
A70DA70DA70DA70DA70DA70DA70DA71ERMf////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70D
A73d3fP///////////+OjtkDA70DA70DA70DA72rq+L///////////+OjtkDA70DA70DA70DA70DA70D
A70DA70DA73p6ff///+dnd0DA70DA70DA71sbND/////////////////////////////////////////
//9ERMcDA70DA70DA70DA70DA70DA70DA70DA73p6ff///////////////////////8pKcIDA70DA70D
A70DA73////////////p6fdERMcDA70DA70DA70DA72Ojtn///////////////8pKcIDA70DA70DA70D
A70DA70DA70DA71sbND///////////9sbNADA70DA70DA70DA70DA70DA70DA70DA73Fxer/////////
//+rq+IDA70DA70DA70DA71+ftT///////////+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT/////
//+rq+IDA70DA70DA70pKcL///////////////////////////////////////////+4uOYDA70DA70D
A70DA70DA70DA70DA70pKcL///////////////////////////9ZWcsDA70DA70DA70DA72dnd2rq+Kd
nd0DA70DA70DA70DA70DA70DA73p6ff///////////////9sbNADA70DA70DA70DA70DA70DA70DA72d
nd3////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA72rq+L////////////FxeoDA70DA70D
A70DA71ZWcv////////////FxeoDA70DA70DA70DA70DA70DA70DA73R0e/////////R0e8DA70DA70D
A70DA7309Pv///////////////////////////////////////////9ERMcDA70DA70DA70DA70DA70D
A71ZWcv///////////////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA72rq+L/////////////
//9sbNADA70DA70DA70DA70DA70DA70DA71+ftT////////////p6fcDA70DA70DA70DA70DA73/////
///////p6fcDA70DA70DA70DA70DA70DA71ERMf////////////09PsDA70DA70DA70DA73Fxer/////
//////////////////////////////////////+4uOYDA70DA70DA70DA70DA70DA72Ojtn/////////
//////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L/////////
//////////////+rq+IDA70DA70DA70DA70DA70DA70DA73R0e/////////////////R0e8DA70DA70D
A70DA70DA70DA70DA71ZWcv///////////////8pKcIDA70DA70DA70DA73d3fP///////////8pKcID
A70DA70DA70DA70DA72rq+L///////////////9ERMcDA70DA70DA72rq+L/////////////////////
//////////////////////////9ERMcDA70DA70DA70DA70DA72rq+L/////////////////////////
///FxeoDA70DA70DA70DA70DA70DA70DA70DA71ERMerq+Ld3fP////////////////////////////d
3fMDA70DA70DA70DA70DA70DA70DA73p6ff///////////////////9sbNADA70DA70DA70DA70DA70D
A70DA73///////////////9sbNADA70DA70DA70DA724uOb///////////9ZWcsDA70DA70DA70DA70p
KcL09Pv///////////////9+ftQDA70DA70DA72Ojtn/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////8AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAA=
</value>
</data>
</root>

679
UID/Mitarbeiter/frmMitarbDetails.vb Normal file
View File

@@ -0,0 +1,679 @@
Public Class frmMitarbDetails
Private UID As New cMitarbeiter
Private berechtigungen As New List(Of cBerechtigungen)
Public mid As Integer = -1
Private isUpdate As Boolean = False
Private mitarbeiter As New VERAG_PROG_ALLGEMEIN.cMitarbeiter
Private usrBerechtigung As New List(Of cUserBerechtigungen)
Private usrBerechtigungNEU As New List(Of cUserBerechtigungen)
Dim ZOLLDATENBEARB = False
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim FirmaTmp = ""
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(Firma)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.FirmaTmp = Firma
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmMitarbDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cboFirmaFMZOLL.fillWithSQL("SELECT[Firma_ID],[Firma_Bez] FROM [tblFirma] ", True, "FMZOLL", True)
' cboKasse.fillWithSQL("SELECT [Standard_RKSV_KasseId],[Name] FROM [Personal] ", True, "FMZOLL", True)
cboKasse.fillWithSQL("SELECT [rksv_id],[rksv_bez] FROM [tblRKSV_Kassen] ", True, "FMZOLL", True)
cboPersonal.fillWithSQL("SELECT ID, Name FROM Personal WHERE [Status]<>'L' ORDER BY Name ", False, "FMZOLL", True)
cboSpedbuch.fillWithSQL("SELECT ID, Name FROM Personal WHERE [Status]<>'L' ORDER BY Name ", False, "FMZOLL", True)
MyComboBox2.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", False, "FMZOLL", True)
MyComboBox3.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [tblPreislisten] ORDER BY PreislistenBez", False, "FMZOLL", True)
cboDP.fillWithSQL("SELECT [dpset_niederlassung] FROM [tblDienstSettings] ORDER BY dpset_niederlassung", False, "ADMIN", True)
MyListBox1.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [VERAG].[dbo].[tblFirma]", False, "FMZOLL")
MyListBox1.Items.Insert(0, New VERAG_PROG_ALLGEMEIN.MyListItem("Alle", "A"))
cboDPFirma.Items.Clear()
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
ZOLLDATENBEARB = False
txtPwd.Visible = False
berechtigungen = UID.getBerechtigungen()
cbxEinsteigsDat.Checked = False
cbxGebDat.Checked = False
If Not IsNothing(berechtigungen) Then
For Each d As cBerechtigungen In berechtigungen
If d.prog_codename = "ADMIN" Then cboAdminBer.Items.Add(d.ber_name)
If d.prog_codename = "DISPO" Then cboDispoBer.Items.Add(d.ber_name)
If d.prog_codename = "UID" Then cboUidBer.Items.Add(d.ber_name)
If d.prog_codename = "PARKZEIT" Then cboParkzeitBer.Items.Add(d.ber_name)
If d.prog_codename = "ZOLL" Then cboZollBer.Items.Add(d.ber_name)
If d.prog_codename = "SDL" Then cboSdlBer.Items.Add(d.ber_name)
If d.prog_codename = "AVISO" Then cboAvisoBer.Items.Add(d.ber_name)
Next
cboAdminBer.SelectedIndex = 0
End If
' cboNiederlassung.SelectedIndex = 0
If FirmaTmp <> "" Then
cboFirma.Text = FirmaTmp
End If
cboAbteilung.Items.Clear()
cboAbteilung.fillWithSQL("SELECT [abt_kuerzel],[abt_bezeichnung] FROM tblAbteilungen", False, "ADMIN", True)
cboNiederlassung.Items.Clear()
cboNiederlassung.fillWithSQL("SELECT [nl_kuerzel],[nl_bezeichnung] FROM tblNiederlassungen", False, "ADMIN", True)
'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollabteilung", "ZOLL"))
'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("quick-stop", "QS"))
'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Buchhaltung", "BH"))
'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EDV", "EDV"))
'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Fiskal", "FISK"))
'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Geschäftsführung", "GF"))
'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lager", "LAGER"))
' cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MDM", "MDM"))
'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verrechnung", "VRR"))
' cboNiederlassung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
' cboNiederlassung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Suben", "SUB"))
' cboNiederlassung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Salzburg", "SBG"))
' cboNiederlassung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Waidhaus", "WAI"))
' cboNiederlassung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Nickelsdorf", "NKD"))
txtGebDat.Format = DateTimePickerFormat.Custom
txtGebDat.CustomFormat = "dd.MM.yyyy"
datGekuendigtAm.Format = DateTimePickerFormat.Custom
datGekuendigtAm.CustomFormat = "dd.MM.yyyy"
datEinstiegsdatum.Format = DateTimePickerFormat.Custom
datEinstiegsdatum.CustomFormat = "dd.MM.yyyy"
If mid >= 0 Then
'mid = frmMitarbeiter.mid
mitarbeiter = UID.getMitarbeiterById(mid)
usrBerechtigung = UID.getUserBerechtigungen(mid)
' usrBerechtigungNEU = UID.getUserBerechtigungenNEU(mid)
If Not IsNothing(mitarbeiter) Then
initMitarbeiter()
Else
MsgBox("Fehler beim Laden der Daten!")
End If
Else
rbtnGeschlechtM.Checked = True
' btnSave.Visible = False
TabControl2.TabPages.Remove(TabPage3)
txtPwd.Text = "0000"
End If
If False Then
For Each ber As cUserBerechtigungen In usrBerechtigungNEU
If ber.bepr_programm = "ADMIN" Then cbxADMIN.Checked = True ': cboAdminBer.Text = ber.ber_name
If ber.bepr_programm = "SDL" Then cbxSDL.Checked = True ': cboSdlBer.Text = ber.ber_name
If ber.bepr_programm = "AVISO" Then cbxAVISO.Checked = True ': cboAvisoBer.Text = ber.ber_name
Next
End If
For Each ber As cUserBerechtigungen In usrBerechtigung
If ber.bepr_programm = "ADMIN" Then cbxADMIN.Checked = True : cboAdminBer.Text = ber.ber_name
If ber.bepr_programm = "DISPO" Then cbxDISPO.Checked = True : cboDispoBer.Text = ber.ber_name
If ber.bepr_programm = "UID" Then cbxUID.Checked = True : cboUidBer.Text = ber.ber_name
If ber.bepr_programm = "PARKZEIT" Then cbxPARKZEIT.Checked = True : cboParkzeitBer.Text = ber.ber_name
If ber.bepr_programm = "ZOLL" Then cbxZOLL.Checked = True : cboZollBer.Text = ber.ber_name
If ber.bepr_programm = "SDL" Then cbxSDL.Checked = True : cboSdlBer.Text = ber.ber_name
If ber.bepr_programm = "AVISO" Then cbxAVISO.Checked = True : cboAvisoBer.Text = ber.ber_name
Next
End Sub
Private Sub initMitarbeiter()
isUpdate = True
' mit_id.Text = mitarbeiter.mit_id
Label48.Text = mitarbeiter.mit_id
txtUsername.Text = mitarbeiter.mit_username
txtPwd.Text = mitarbeiter.mit_pwd
If mitarbeiter.mit_geschlecht = "m" Then rbtnGeschlechtM.Checked = True
If mitarbeiter.mit_geschlecht = "w" Then rbtnGeschlechtW.Checked = True
txtTitel.Text = mitarbeiter.mit_affix
txtVname.Text = mitarbeiter.mit_vname
txtNname.Text = mitarbeiter.mit_nname
If mitarbeiter.mit_gebdat = "" Then
cbxGebDat.Checked = False
Else
cbxGebDat.Checked = True : txtGebDat.Text = mitarbeiter.mit_gebdat
End If
txtStrasse.Text = mitarbeiter.mit_strasse
txtHausnummer.Text = mitarbeiter.mit_hausnr
txtLand.Text = mitarbeiter.mit_land
txtPlz.Text = mitarbeiter.mit_plz
txtOrt.Text = mitarbeiter.mit_ort
cboNiederlassung.changeItem(mitarbeiter.mit_niederlassung)
cboAbteilung.changeItem(mitarbeiter.mit_abteilung)
cboPosition.Text = mitarbeiter.mit_position
txtDurchwahl.Text = mitarbeiter.mit_durchwahl
txtEmail.Text = mitarbeiter.mit_email
txtMobiltel.Text = mitarbeiter.mit_mobiltel
cbxAnrufen.Checked = mitarbeiter.mit_allowAnruf
txtInfo.Text = mitarbeiter.mit_info
txtDakosySB.Text = mitarbeiter.mit_DAKOSY_SB
txtDyFullName.Text = If(mitarbeiter.mit_DAKOSY_SBFull, "")
txtTelotecSB.Text = mitarbeiter.mit_TELOTEC_SB
If mitarbeiter.mit_firma = "VERAG" Then
cboFirma.SelectedIndex = 0
ElseIf mitarbeiter.mit_firma = "ATILLA" Then
cboFirma.SelectedIndex = 1
ElseIf mitarbeiter.mit_firma = "IMEX" Then
cboFirma.SelectedIndex = 2
ElseIf mitarbeiter.mit_firma = "ALL" Then
cboFirma.SelectedIndex = 3
End If
cboFirmaFMZOLL.changeItem(If(mitarbeiter.mit_firmaFMZoll, ""))
cboKasse.changeItem("")
If mitarbeiter.mit_FMZollPersID IsNot Nothing Then
cboKasse.changeItem(SQL.getValueTxtBySql("SELECT [Standard_RKSV_KasseId] FROM [Personal] WHERE ID='" & mitarbeiter.mit_FMZollPersID & "'", "FMZOLL"))
End If
If mitarbeiter.mit_FirmenDatenAnzeige IsNot Nothing AndAlso mitarbeiter.mit_FirmenDatenAnzeige <> "" Then
For Each f In mitarbeiter.mit_FirmenDatenAnzeige.ToString.Split(",")
'Dim i = 0
For i = 0 To MyListBox1.Items.Count - 1
' If DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value = f Then
' MsgBox(MyListBox1.Items.IndexOf(i))
'End If
If DirectCast(MyListBox1.Items(i), VERAG_PROG_ALLGEMEIN.MyListItem).Value.ToString = f.ToString Then
MyListBox1.SetSelected(i, True)
End If
Next
Next
End If
If mitarbeiter.mit_einstiegsdatum = "" Then
cbxEinsteigsDat.Checked = False
Else
cbxEinsteigsDat.Checked = True : datEinstiegsdatum.Text = mitarbeiter.mit_einstiegsdatum
End If
If mitarbeiter.mit_kuendigungsdatum = "" Then
cbxGekuendigt.Checked = False
Else
cbxGekuendigt.Checked = True : datGekuendigtAm.Text = mitarbeiter.mit_kuendigungsdatum
End If
If mitarbeiter.mit_FMZollPersID > 0 Then
cboPersonal._value = mitarbeiter.mit_FMZollPersID
End If
If mitarbeiter.mit_DpUserStandardDP IsNot Nothing Then cboDP.changeItem(mitarbeiter.mit_DpUserStandardDP)
If mitarbeiter.mit_DpUserStandardFirma IsNot Nothing Then cboDPFirma.changeItem(mitarbeiter.mit_DpUserStandardFirma)
cbxSpedBuch.Checked = mitarbeiter.mit_FMZollPersIDKasseIsnotSpedBuch
If mitarbeiter.mit_FMZollPersIDSpedBuch > 0 Then
cboSpedbuch._value = mitarbeiter.mit_FMZollPersIDSpedBuch
End If
If mitarbeiter.mit_standartFiliale > 0 Then
MyComboBox2._value = mitarbeiter.mit_standartFiliale
End If
If mitarbeiter.mit_standardPreisliste > 0 Then
MyComboBox3._value = mitarbeiter.mit_standardPreisliste
End If
cbxTestaccount.Checked = If(mitarbeiter.mit_TESTonly, False)
picFoto.ImageLocation = mitarbeiter.mit_foto
End Sub
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
If txtVname.Text = "" And txtNname.Text = "" Then MsgBox("Bitte geben Sie einen Namen ein!") : Exit Sub
getMitarbeiter()
If isUpdate Then
mitarbeiter.mit_id = mid
If UID.updateMitarbeiter(mitarbeiter) Then saveBerechtigungen() : Me.Close()
Else
If UID.insertMitarbeiter(mitarbeiter) Then saveBerechtigungen() : Me.Close()
End If
End Sub
Private Sub saveBerechtigungen()
Dim ber_admin As String = ""
Dim ber_dispo As String = ""
Dim ber_uid As String = ""
Dim ber_parkzeit As String = ""
Dim ber_zoll As String = ""
Dim ber_sdl As String = ""
Dim ber_aviso As String = ""
For Each ber As cUserBerechtigungen In usrBerechtigung
If ber.bepr_programm = "ADMIN" Then ber_admin = ber.ber_name
If ber.bepr_programm = "DISPO" Then ber_dispo = ber.ber_name
If ber.bepr_programm = "UID" Then ber_uid = ber.ber_name
If ber.bepr_programm = "PARKZEIT" Then ber_parkzeit = ber.ber_name
If ber.bepr_programm = "ZOLL" Then ber_zoll = ber.ber_name
If ber.bepr_programm = "SDL" Then ber_sdl = ber.ber_name
If ber.bepr_programm = "AVISO" Then ber_aviso = ber.ber_name
Next
If cbxADMIN.Checked Then
UID.insertUpdateBerechtigungProg(mid, Nothing, "ADMIN", True)
Else
UID.deleteBerechtigungProg(mid, "ADMIN")
End If
If cbxAVISO.Checked Then
UID.insertUpdateBerechtigungProg(mid, Nothing, "AVISO", True)
Else
UID.deleteBerechtigungProg(mid, "AVISO")
End If
If cbxDISPO.Checked Then
UID.insertUpdateBerechtigungProg(mid, Nothing, "DISPO", True)
Else
UID.deleteBerechtigungProg(mid, "DISPO")
End If
If cbxSDL.Checked Then
UID.insertUpdateBerechtigungProg(mid, Nothing, "SDL", True)
Else
UID.deleteBerechtigungProg(mid, "SDL")
End If
Dim akt_ber_admin As String = ""
Dim akt_ber_dispo As String = ""
Dim akt_ber_uid As String = ""
Dim akt_ber_parkzeit As String = ""
Dim akt_ber_zoll As String = ""
Dim akt_ber_sdl As String = ""
Dim akt_ber_aviso As String = ""
If cbxADMIN.Checked Then akt_ber_admin = cboAdminBer.Text
If cbxDISPO.Checked Then akt_ber_dispo = cboDispoBer.Text
If cbxUID.Checked Then akt_ber_uid = cboUidBer.Text
If cbxPARKZEIT.Checked Then akt_ber_parkzeit = cboParkzeitBer.Text
If cbxZOLL.Checked Then akt_ber_zoll = cboZollBer.Text
If cbxSDL.Checked Then akt_ber_sdl = ""
If cbxAVISO.Checked Then akt_ber_aviso = cboAvisoBer.Text
If Not ber_admin = akt_ber_admin Then 'WEnn sich die Berechtigung geändert hat
Dim berid As Integer = getBerId("ADMIN", cboAdminBer.Text) 'ID anhand der ausgewählten Berechtigung holen
If akt_ber_admin = "" Then : UID.deleteBerechtigungProg(mid, "ADMIN") ' wenn keine gesetzt ist -> Berechtigung löschen
ElseIf ber_admin = "" Then : UID.insertBerechtigungProg(mid, berid, "ADMIN", True) ' wenn vorher keine gesetzt war -> insert
Else : UID.updateBerechtigungProg(mid, berid, "ADMIN") ' bei Änderung -> update
End If
End If
'If Not ber_dispo = akt_ber_dispo Then
' Dim berid As Integer = getBerId("DISPO", cboDispoBer.Text)
' If akt_ber_dispo = "" Then : UID.deleteBerechtigungProg(mid, "DISPO")
' ElseIf ber_dispo = "" Then : UID.insertBerechtigungProg(mid, berid, "DISPO", True)
' Else : UID.updateBerechtigungProg(mid, berid, "DISPO")
' End If
'End If
If Not ber_uid = akt_ber_uid Then
Dim berid As Integer = getBerId("UID", cboUidBer.Text)
If akt_ber_uid = "" Then : UID.deleteBerechtigungProg(mid, "UID")
ElseIf ber_uid = "" Then : UID.insertBerechtigungProg(mid, berid, "UID", True)
Else : UID.updateBerechtigungProg(mid, berid, "UID")
End If
End If
If Not ber_parkzeit = akt_ber_parkzeit Then
Dim berid As Integer = getBerId("PARKZEIT", cboParkzeitBer.Text)
If akt_ber_parkzeit = "" Then : UID.deleteBerechtigungProg(mid, "PARKZEIT")
ElseIf ber_parkzeit = "" Then : UID.insertBerechtigungProg(mid, berid, "PARKZEIT", True)
Else : UID.updateBerechtigungProg(mid, berid, "PARKZEIT")
End If
End If
If Not ber_zoll = akt_ber_zoll Then
Dim berid As Integer = getBerId("ZOLL", cboZollBer.Text)
If akt_ber_zoll = "" Then : UID.deleteBerechtigungProg(mid, "ZOLL")
ElseIf ber_zoll = "" Then : UID.insertBerechtigungProg(mid, berid, "ZOLL", True)
Else : UID.updateBerechtigungProg(mid, berid, "ZOLL")
End If
End If
' If Not ber_sdl = akt_ber_sdl Then
'Dim berid As Integer = getBerId("SDL", cboSdlBer.Text)
' If akt_ber_sdl = "" Then : UID.deleteBerechtigungProg(mid, "SDL")
' ElseIf ber_sdl = "" Then : UID.insertBerechtigungProg(mid, berid, "SDL", True)
' Else : UID.updateBerechtigungProg(mid, berid, "SDL")
' End If
' End If
' If Not ber_aviso = akt_ber_aviso Then
'Dim berid As Integer = getBerId("AVISO", cboAvisoBer.Text)
' If akt_ber_aviso = "" Then 'UID.deleteBerechtigungProg(mid, "AVISO")
'ElseIf ber_aviso = "" Then : UID.insertBerechtigungProg(mid, berid, "AVISO", True)
' Else : UID.updateBerechtigungProg(mid, berid, "AVISO")
' End If
' End If
End Sub
Private Function getBerId(ByVal codename As String, ByVal name As String) As String
For Each ber As cBerechtigungen In berechtigungen
If ber.prog_codename = codename And ber.ber_name = name Then Return ber.ber_id
Next
Return "-1"
End Function
Private Sub getMitarbeiter()
mitarbeiter.mit_username = txtUsername.Text
mitarbeiter.mit_pwd = txtPwd.Text
mitarbeiter.mit_affix = txtTitel.Text
If rbtnGeschlechtM.Checked Then mitarbeiter.mit_geschlecht = "m"
If rbtnGeschlechtW.Checked Then mitarbeiter.mit_geschlecht = "w"
mitarbeiter.mit_vname = txtVname.Text
mitarbeiter.mit_nname = txtNname.Text
If cbxGebDat.Checked Then mitarbeiter.mit_gebdat = txtGebDat.Text Else mitarbeiter.mit_gebdat = ""
mitarbeiter.mit_strasse = txtStrasse.Text
mitarbeiter.mit_hausnr = txtHausnummer.Text
mitarbeiter.mit_land = txtLand.Text
mitarbeiter.mit_plz = txtPlz.Text
mitarbeiter.mit_ort = txtOrt.Text
mitarbeiter.mit_niederlassung = cboNiederlassung._value
mitarbeiter.mit_abteilung = cboAbteilung._value
mitarbeiter.mit_position = cboPosition.Text
mitarbeiter.mit_durchwahl = txtDurchwahl.Text
mitarbeiter.mit_email = txtEmail.Text
mitarbeiter.mit_mobiltel = txtMobiltel.Text
mitarbeiter.mit_allowAnruf = cbxAnrufen.Checked
mitarbeiter.mit_info = txtInfo.Text
mitarbeiter.mit_DAKOSY_SB = txtDakosySB.Text
mitarbeiter.mit_DAKOSY_SBFull = txtDyFullName.Text
mitarbeiter.mit_TELOTEC_SB = txtTelotecSB.Text
If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 Then
mitarbeiter.mit_FMZollPersID = cboPersonal._value
Else
mitarbeiter.mit_FMZollPersID = -1
End If
mitarbeiter.mit_FirmenDatenAnzeige = ""
For Each a In MyListBox1.SelectedItems
If DirectCast(a, VERAG_PROG_ALLGEMEIN.MyListItem).Value = "A" Then
' For Each i In MyListBox1.Items
mitarbeiter.mit_FirmenDatenAnzeige = "A"
' Next
Exit For
End If
Next
If mitarbeiter.mit_FirmenDatenAnzeige = "" Then
For Each i In MyListBox1.SelectedItems
mitarbeiter.mit_FirmenDatenAnzeige &= DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ","
Next
End If
If mitarbeiter.mit_FirmenDatenAnzeige <> "" And mitarbeiter.mit_FirmenDatenAnzeige.ToString.EndsWith(",") Then
mitarbeiter.mit_FirmenDatenAnzeige = mitarbeiter.mit_FirmenDatenAnzeige.ToString.Substring(0, mitarbeiter.mit_FirmenDatenAnzeige.ToString.Length - 1)
End If
mitarbeiter.mit_FMZollPersIDKasseIsnotSpedBuch = cbxSpedBuch.Checked
mitarbeiter.mit_FMZollPersIDSpedBuch = Nothing
If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 And cbxSpedBuch.Checked Then
mitarbeiter.mit_FMZollPersIDSpedBuch = cboSpedbuch._value
End If
mitarbeiter.mit_DpUserStandardDP = cboDP._value
mitarbeiter.mit_DpUserStandardFirma = cboDPFirma._value
If IsNumeric(MyComboBox2._value) AndAlso MyComboBox2._value > 0 Then
mitarbeiter.mit_standartFiliale = MyComboBox2._value
Else
mitarbeiter.mit_standartFiliale = -1
End If
If IsNumeric(MyComboBox3._value) AndAlso MyComboBox3._value > 0 Then
mitarbeiter.mit_standardPreisliste = MyComboBox3._value
Else
mitarbeiter.mit_standardPreisliste = -1
End If
mitarbeiter.mit_firmaFMZoll = If(cboFirmaFMZOLL._value = "", Nothing, cboFirmaFMZOLL._value)
If ZOLLDATENBEARB Then
mitarbeiter.mit_EZOLL_SB = If(cboEZOLL_SB._value = "", Nothing, cboEZOLL_SB._value)
mitarbeiter.mit_ATLAS_SB = If(cboATLAS_SB._value = "", Nothing, cboATLAS_SB._value)
End If
If mitarbeiter.mit_FMZollPersID IsNot Nothing And cboKasse._value <> "" Then
cboKasse.changeItem(SQL.doSQL("UPDATE [Personal] SET Standard_RKSV_KasseId='" & cboKasse._value & "' WHERE ID='" & mitarbeiter.mit_FMZollPersID & "'", "FMZOLL"))
End If
If cboFirma.SelectedIndex = 0 Then
mitarbeiter.mit_firma = "VERAG"
ElseIf cboFirma.SelectedIndex = 1 Then
mitarbeiter.mit_firma = "ATILLA"
ElseIf cboFirma.SelectedIndex = 2 Then
mitarbeiter.mit_firma = "IMEX"
ElseIf cboFirma.SelectedIndex = 3 Then
mitarbeiter.mit_firma = "ALL"
End If
If cbxEinsteigsDat.Checked Then mitarbeiter.mit_einstiegsdatum = datEinstiegsdatum.Text Else mitarbeiter.mit_einstiegsdatum = ""
mitarbeiter.mit_gekuendigt = cbxGekuendigt.Checked
If cbxGekuendigt.Checked Then mitarbeiter.mit_kuendigungsdatum = datGekuendigtAm.Text Else mitarbeiter.mit_kuendigungsdatum = ""
If picFoto.ImageLocation <> "" Then mitarbeiter.mit_foto = picFoto.ImageLocation
mitarbeiter.mit_TESTonly = cbxTestaccount.Checked
End Sub
Private Sub Label8_Click(sender As Object, e As EventArgs)
txtPwd.Visible = Not txtPwd.Visible
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles picFoto.Click
Dim fd As OpenFileDialog = New OpenFileDialog()
Dim strFileName As String
If Not System.IO.Directory.Exists("\\192.168.0.90\f\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\") Then
System.IO.Directory.CreateDirectory("\\192.168.0.90\f\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\")
End If
If Not System.IO.Directory.Exists("\\192.168.0.91\f\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\") Then
System.IO.Directory.CreateDirectory("\\192.168.0.91\f\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\")
End If
fd.Title = "Bild auswählen"
fd.InitialDirectory = "F:\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\"
fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
fd.FilterIndex = 2
fd.RestoreDirectory = True
If fd.ShowDialog() = DialogResult.OK Then
strFileName = fd.FileName
picFoto.ImageLocation = strFileName
Dim myValue = InputBox("Bitte Name eingeben (mit Endung)", "FileName", cut_file(strFileName))
If myValue <> "" Then
FileCopy(fd.FileName, "\\192.168.0.91\f\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\" & myValue)
FileCopy(fd.FileName, "\\192.168.0.90\f\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\" & myValue)
End If
mitarbeiter.mit_foto = strFileName
End If
End Sub
Private Function cut_file(ByVal file As String) As String ' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function
While file.Contains("\")
file = file.Remove(0, 1)
End While
Return file
End Function
Private Sub cbxADMIN_CheckedChanged(sender As Object, e As EventArgs) Handles cbxADMIN.CheckedChanged
cboAdminBer.Enabled = cbxADMIN.Checked
End Sub
Private Sub cbxUID_CheckedChanged(sender As Object, e As EventArgs) Handles cbxUID.CheckedChanged
cboUidBer.Enabled = cbxUID.Checked
End Sub
Private Sub cbxDISPO_CheckedChanged(sender As Object, e As EventArgs) Handles cbxDISPO.CheckedChanged
cboDispoBer.Enabled = cbxDISPO.Checked
End Sub
Private Sub cbxPARKZEIT_CheckedChanged(sender As Object, e As EventArgs) Handles cbxPARKZEIT.CheckedChanged
cboParkzeitBer.Enabled = cbxPARKZEIT.Checked
End Sub
Private Sub cbxZOLL_CheckedChanged(sender As Object, e As EventArgs) Handles cbxZOLL.CheckedChanged
cboZollBer.Enabled = cbxZOLL.Checked
End Sub
Private Sub cbxSDL_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSDL.CheckedChanged
cboSdlBer.Enabled = cbxSDL.Checked
End Sub
Private Sub cbxAVISO_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAVISO.CheckedChanged
cboAvisoBer.Enabled = cbxAVISO.Checked
End Sub
Private Sub Label8_Click_1(sender As Object, e As EventArgs) Handles Label8.DoubleClick
txtPwd.Visible = True
Label8.Visible = False
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs)
If txtVname.Text = "" And txtNname.Text = "" Then MsgBox("Bitte geben Sie einen Namen ein!") : Exit Sub
getMitarbeiter()
If isUpdate Then
mitarbeiter.mit_id = mid
If UID.updateMitarbeiter(mitarbeiter) Then Me.Close()
End If
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEinsteigsDat.CheckedChanged
datEinstiegsdatum.Enabled = cbxEinsteigsDat.Checked
End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles cbxGebDat.CheckedChanged
txtGebDat.Enabled = cbxGebDat.Checked
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
frmMitarbBerechtigungen.codename = "SDL"
frmMitarbBerechtigungen.progId = 7
frmMitarbBerechtigungen.maId = mid
frmMitarbBerechtigungen.Show()
End Sub
Private Sub cbxGekuendigt_CheckedChanged(sender As Object, e As EventArgs) Handles cbxGekuendigt.CheckedChanged
datGekuendigtAm.Enabled = cbxGekuendigt.Checked
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim frmBenutzerBerGruppen As New frmBenutzerBerGruppen(mid, 7, "SDL")
frmBenutzerBerGruppen.Show(Me)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim frmBenutzerBerGruppen As New frmBenutzerBerGruppen(mid, 1, "ADMIN")
frmBenutzerBerGruppen.Show(Me)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim frmBenutzerBerGruppen As New frmBenutzerBerGruppen(mid, 5, "AVISO")
frmBenutzerBerGruppen.Show(Me)
End Sub
Private Sub cbxSpedBuch_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSpedBuch.CheckedChanged
cboSpedbuch.Enabled = sender.checked
If sender.checked Then
Label37.Text = "Benutzer Kasse:"
Else
Label37.Text = "Zuordnung / FM-ZOLL Personal - Tabelle:"
End If
End Sub
Private Sub cboNiederlassung_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboNiederlassung.SelectedIndexChanged
End Sub
Private Sub tbcntr_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntr.SelectedIndexChanged
If tbcntr.SelectedIndex = 1 Then
Try
cboATLAS_SB.fillWithSQL("SELECT [bassba_sbnr],[bassba_sbnr] FROM [atlas].[dbo].[bassba] ORDER BY bassba.bassba_sbnr", False, If(cboNiederlassung._value = "SBG", "ATLAS_SBG", "ATLAS"), True)
Catch ex As Exception
MsgBox("ATLAS Problem")
tbcntr.SelectedIndex = 0
Exit Sub
End Try
Try
cboEZOLL_SB.fillWithSQL("SELECT [PersonalID],[UserID] FROM [ezoll].[dbo].[zzPersonal] ORDER BY UserID ", False, "EZOLL", True)
Catch ex As Exception
MsgBox("EZOLL Problem")
tbcntr.SelectedIndex = 0
Exit Sub
End Try
If If(mitarbeiter.mit_EZOLL_SB, -1) > 0 Then
cboEZOLL_SB._value = mitarbeiter.mit_EZOLL_SB
End If
If If(mitarbeiter.mit_ATLAS_SB, "") <> "" Then
cboATLAS_SB._value = mitarbeiter.mit_ATLAS_SB
End If
ZOLLDATENBEARB = True
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim frmBenutzerBerGruppen As New frmBenutzerBerGruppen(mid, 3, "DISPO")
frmBenutzerBerGruppen.Show(Me)
End Sub
Private Sub lkl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lkl.LinkClicked
If vbYes = MsgBox("Möchten Sie das Kennwort wirklich zurücksetzen? " & vbNewLine & "Der Benutzer wird beim nächsten Login zur Eingabe aufgefordert.", vbYesNoCancel) Then
' txtPwd.Text = "0000"
getMitarbeiter()
mitarbeiter.mit_PasswortChanged = Nothing
UID.updateMitarbeiter(mitarbeiter)
End If
End Sub
End Class

187
UID/Mitarbeiter/frmMitarbeiter.Designer.vb generated Normal file
View File

@@ -0,0 +1,187 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMitarbeiter
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(frmMitarbeiter))
Me.Button3 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Button6 = New System.Windows.Forms.Button()
Me.dgvUID = New System.Windows.Forms.DataGridView()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.txtSuche = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel2.SuspendLayout()
CType(Me.dgvUID, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Button3
'
Me.Button3.Image = Global.ADMIN.My.Resources.Resources.plus
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.Location = New System.Drawing.Point(6, 41)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 33)
Me.Button3.TabIndex = 15
Me.Button3.Text = "Neu"
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Image = Global.ADMIN.My.Resources.Resources.stift
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.Location = New System.Drawing.Point(6, 80)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 33)
Me.Button4.TabIndex = 16
Me.Button4.Text = "Ändern"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.Image = Global.ADMIN.My.Resources.Resources.del
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button5.Location = New System.Drawing.Point(6, 132)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(75, 33)
Me.Button5.TabIndex = 17
Me.Button5.Text = "Löschen"
Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button5.UseVisualStyleBackColor = True
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Button6)
Me.Panel2.Controls.Add(Me.Button5)
Me.Panel2.Controls.Add(Me.Button4)
Me.Panel2.Controls.Add(Me.Button3)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel2.Location = New System.Drawing.Point(927, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(92, 591)
Me.Panel2.TabIndex = 22
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(6, 234)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(75, 34)
Me.Button6.TabIndex = 18
Me.Button6.Text = "Drucken"
Me.Button6.UseVisualStyleBackColor = True
'
'dgvUID
'
Me.dgvUID.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUID.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvUID.Location = New System.Drawing.Point(0, 0)
Me.dgvUID.Name = "dgvUID"
Me.dgvUID.Size = New System.Drawing.Size(927, 591)
Me.dgvUID.TabIndex = 20
'
'Panel1
'
Me.Panel1.Controls.Add(Me.txtSuche)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Label1)
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(927, 36)
Me.Panel1.TabIndex = 23
'
'txtSuche
'
Me.txtSuche.Location = New System.Drawing.Point(99, 9)
Me.txtSuche.Name = "txtSuche"
Me.txtSuche.Size = New System.Drawing.Size(300, 20)
Me.txtSuche.TabIndex = 47
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(405, 6)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 48
Me.Button1.Text = "Suche"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(486, 6)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 49
Me.Button2.Text = "Alle"
Me.Button2.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 12)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(60, 13)
Me.Label1.TabIndex = 50
Me.Label1.Text = "MA-Suche:"
'
'frmMitarbeiter
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.ClientSize = New System.Drawing.Size(1019, 591)
Me.ControlBox = False
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.dgvUID)
Me.Controls.Add(Me.Panel2)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmMitarbeiter"
Me.Text = "frmMitarbeiter"
Me.Panel2.ResumeLayout(False)
CType(Me.dgvUID, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents dgvUID As System.Windows.Forms.DataGridView
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents txtSuche As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
End Class

183
UID/Mitarbeiter/frmMitarbeiter.resx Normal file
View File

@@ -0,0 +1,183 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.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>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAgAwAAMQOAADEDgAAAAAAAAAA
AABmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////3
9fR0SSZmMwCjjH3///////////////+YfWvBs6r///90SSajjH3///+tmo23p5z///+AXUJmMwDUy8X3
9fRmMwCYfWv39fT////m4N3///9mMwBmMwBmMwCYfWv////39fS3p5xmMwB0SSb////Bs6pmMwBmMwBm
MwCtmo3///+MbljLv7j39fRmMwBmMwDm4N3////////////Uy8VmMwDm4N3m4N2MbljBs6r///+Mblhm
MwBmMwC3p5z///+tmo3///+AXUJmMwD39fT///////////+AXUKMblj////////////39fS3p5xmMwCY
fWv///+Mblj////Bs6pmMwDu6+nUy8W3p5z///////+tmo1mMwBmMwDLv7j39fRmMwDd1tHLv7hmMwDU
y8X39fRmMwBmMwBmMwBmMwD39fTLv7hmMwDLv7j///90SSZmMwDUy8Xm4N3///+jjH1mMwDBs6r///+M
bliYfWv///+3p5xmMwBmMwDm4N3m4N1mMwCAXUL///+Mbli3p5z///////////////90SSbm4N3/////
///////Lv7hmMwBmMwCAXUL///////+MblhmMwBmMwDUy8X////////m4N10SSZmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////p6ffFxerp6ff////09PvFxerp6ffR0e/FxerFxerFxer09Pv////09PvFxer/
///R0e/p6ff////FxerR0e/////FxerR0e/////Fxer09Pv////p6ffR0e////////+4uOYDA71sbND0
9Pu4uOYDA72dnd1sbNADA70DA70DA70pKcLd3fPFxeoDA73p6fcpKcJERMfp6fcpKcIpKcL///8pKcIp
KcL///8pKcKrq+L///9sbNADA7309Pv///////9ERMcDA70DA70DA70DA73Fxeqdnd0DA72dnd2rq+Ip
KcIpKcL09PsDA724uOYDA70DA72dnd1ZWcsDA73p6fdZWcsDA73p6fdZWcuOjtnd3fMDA70DA73R0e//
//////+dnd0DA71ZWctZWcsDA73R0e+4uOYDA72dnd3///9+ftQDA73FxepERMeOjtkDA70pKcIpKcKO
jtkDA73FxeqOjtkDA73FxeqOjtlZWcudnd0DA70DA72rq+L////////p6fcDA70pKcJZWcsDA7309Pvd
3fMDA71sbND///+OjtkDA73FxepZWctERMcDA72OjtkpKcJERMcDA72rq+Krq+IDA72rq+Krq+IDA71E
RMcpKcJZWct+ftT///////////9+ftQDA70DA70pKcL////09PsDA71ERMeOjtkpKcIpKcL09Pudnd0D
A70DA72rq+Kdnd0DA70DA71+ftTFxeoDA71+ftTFxeoDA70DA71+ftSdnd1ZWcv////////////FxeoD
A70DA71ZWcv///////9ZWcsDA70DA71ERMe4uOb///+4uOYDA70DA73Fxer09PspKcIDA71ZWcv09PsD
A71ZWcv09PsDA70DA73Fxeq4uOYDA7309Pv////////////09Pv09Pv////////////////09Pv09Pv/
///////////////09Pv09Pv////////////09Pv////////09Pv////////09Pv09Pv////////09Pv/
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

171
UID/Mitarbeiter/frmMitarbeiter.vb Normal file
View File

@@ -0,0 +1,171 @@
Imports System.ComponentModel
Public Class frmMitarbeiter
Dim ConnStr As String
Private UID As New cMitarbeiter
Private cOptionenDAL As New cOptionenDAL
Private Grid_aktiv As Boolean = False
Private Anzahl As Integer
Private locZeilen As Integer = -1
Public mid As Integer = -1
Private Sub LoadForm(sender As Object, e As EventArgs) Handles Me.Load
Dim tmp As String
tmp = "Provider=SQLOLEDB;Server=DEVELOPER\DEVSQL;Database=UID;"
ConnStr = frmMain.ConnStr
Try
' Me.Size = My.Settings.frmMainSize
' Me.Location = My.Settings.frmMainPosition
Catch ex As Exception
'nix tun - Standardgröße wird somit automatisch gesetzt
End Try
'Me.Dock = DockStyle.Fill
' Me.Width = frmMain.Width - frmMain.tsrcLeft.Width - 5
' Me.Height = frmMain.Height - (frmMain.tsrcTop.Height + frmMain.tstrBottom.Height) - 5
Me.LayoutMdi(MdiLayout.Cascade)
Dim l As Single = (frmMain.ClientSize.Width - Me.Width) / 2
Dim t As Single = ((frmMain.ClientSize.Height - Me.Height) / 2) - 30
Me.SetBounds(l, t, Me.Width, Me.Height)
Me.MdiParent = frmMain
' MsgBox(frmMain.ClientSize.Height & " - " & frmMain.ClientSize.Width)
FormBorderStyle = FormBorderStyle.None
MaximizeBox = False
MinimizeBox = False
StartPosition = FormStartPosition.CenterScreen
' Remove the control box so the form will only display client area.
ControlBox = False
' Me.Width = 1000
Grid_aktiv = True
Tabelle_anzeigen()
End Sub
Public Sub Tabelle_anzeigen()
'Paint wieder reaktivieren
locZeilen = -1
If Not Grid_aktiv Then Exit Sub
Dim sql As String = "SELECT mit_id,mit_username,mit_vname, mit_nname ,mit_niederlassung,mit_abteilung,mit_email,mit_durchwahl,mit_gekuendigt FROM tblMitarbeiter "
If txtSuche.Text <> "" Then
sql &= " WHERE (mit_username LIKE '%" & txtSuche.Text & "%' OR mit_nname LIKE '%" & txtSuche.Text & "%' OR mit_vname LIKE '%" & txtSuche.Text & "%') "
End If
dgvUID.DataSource = UID.AnzeigeTabelle(sql)
'Tabelle Kommt/Geht bereinigen
If dgvUID.RowCount = 0 Then
dgvUID.DataSource = Nothing
Else
Spalten_festlegen()
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvUID.Sort(dgvUID.Columns(4), ListSortDirection.Ascending)
End If
'Anzeige der Anzahl gewählter/aller Datensätze
' lblAnzahl.Text = Format(dgvUID.RowCount, "#,##0") & " ausgewählt"
'lblAnzahl.Refresh()
End Sub
Private Sub Spalten_festlegen()
With dgvUID
.RowTemplate.Height = 20
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.AllowUserToAddRows = False
.AllowUserToDeleteRows = False
.AllowUserToOrderColumns = False
.AllowUserToResizeColumns = False
.AllowUserToResizeRows = False
.RowTemplate.ReadOnly = True
.RowHeadersVisible = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.AllowUserToOrderColumns = True
'.Columns("Info").DisplayIndex = 7
.Columns(7).DisplayIndex = 6
.Columns(0).Visible = False 'ID nicht anzeigen
.Columns(2).Visible = False 'PWD nicht anzeigen
.Columns(1).Width = 80
.Columns(1).HeaderText = "Kurzbezeichnung"
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(3).Width = 150
.Columns(3).HeaderText = "Vorname"
.Columns(4).Width = 150
.Columns(4).HeaderText = "Nachname"
.Columns(5).Width = 80
.Columns(5).HeaderText = "Sicherheitsstufe"
.Columns(6).Width = 175
.Columns(6).HeaderText = "Info"
.Columns(7).Width = 80
.Columns(7).HeaderText = "Niederlassung"
End With
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
Me.Close()
End Sub
Private Sub dgvUID_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUID.CellDoubleClick
mid = dgvUID.CurrentRow.Cells(0).Value
frmMitarbDetails.Show()
End Sub
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
frmMitarbDetails.Show()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
mid = dgvUID.CurrentRow.Cells(0).Value
frmMitarbDetails.Show()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Select Case MsgBox("Soll der Eintrag Wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
Case vbYes
UID.delData(Convert.ToInt32(dgvUID.CurrentRow.Cells(0).Value))
Tabelle_anzeigen()
Case vbNo
End Select
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim l As IList(Of VERAG_PROG_ALLGEMEIN.cMitarbeiter)
l = cOptionenDAL.getDataMitarb()
frmPrintView.Show()
frmPrintView.BefüllenMitarb(l)
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Tabelle_anzeigen()
End Sub
Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs)
Tabelle_anzeigen()
End Sub
End Class

300
UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb generated Normal file
View File

@@ -0,0 +1,300 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlMitarbeiter
Inherits System.Windows.Forms.UserControl
'UserControl ü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()
Me.Button6 = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.dgvVERAG = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.dgvATILLA = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cbx = New System.Windows.Forms.CheckBox()
Me.txtSuche = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel2.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.TabPage3.SuspendLayout()
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(10, 196)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(75, 34)
Me.Button6.TabIndex = 18
Me.Button6.Text = "Drucken"
Me.Button6.UseVisualStyleBackColor = True
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Button6)
Me.Panel2.Controls.Add(Me.Button5)
Me.Panel2.Controls.Add(Me.Button4)
Me.Panel2.Controls.Add(Me.Button3)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel2.Location = New System.Drawing.Point(889, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(92, 684)
Me.Panel2.TabIndex = 24
'
'Button5
'
Me.Button5.Image = Global.ADMIN.My.Resources.Resources.del
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button5.Location = New System.Drawing.Point(10, 94)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(75, 33)
Me.Button5.TabIndex = 17
Me.Button5.Text = "Löschen"
Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button5.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Image = Global.ADMIN.My.Resources.Resources.stift
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.Location = New System.Drawing.Point(10, 42)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 33)
Me.Button4.TabIndex = 16
Me.Button4.Text = "Ändern"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Image = Global.ADMIN.My.Resources.Resources.plus
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.Location = New System.Drawing.Point(10, 3)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 33)
Me.Button3.TabIndex = 15
Me.Button3.Text = "Neu"
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.UseVisualStyleBackColor = True
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(889, 648)
Me.TabControl1.TabIndex = 25
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.dgvVERAG)
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(881, 622)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "VERAG"
Me.TabPage1.UseVisualStyleBackColor = True
'
'dgvVERAG
'
Me.dgvVERAG.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvVERAG.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVERAG.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvVERAG.Location = New System.Drawing.Point(3, 3)
Me.dgvVERAG.Name = "dgvVERAG"
Me.dgvVERAG.Size = New System.Drawing.Size(875, 616)
Me.dgvVERAG.TabIndex = 24
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.dgvATILLA)
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(881, 622)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "ATILLA"
Me.TabPage2.UseVisualStyleBackColor = True
'
'dgvATILLA
'
Me.dgvATILLA.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvATILLA.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvATILLA.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvATILLA.Location = New System.Drawing.Point(3, 3)
Me.dgvATILLA.Name = "dgvATILLA"
Me.dgvATILLA.Size = New System.Drawing.Size(875, 616)
Me.dgvATILLA.TabIndex = 25
'
'Panel1
'
Me.Panel1.Controls.Add(Me.cbx)
Me.Panel1.Controls.Add(Me.txtSuche)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Label1)
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(889, 36)
Me.Panel1.TabIndex = 26
'
'cbx
'
Me.cbx.AutoSize = True
Me.cbx.Location = New System.Drawing.Point(567, 13)
Me.cbx.Name = "cbx"
Me.cbx.Size = New System.Drawing.Size(73, 17)
Me.cbx.TabIndex = 25
Me.cbx.Text = "gekündigt"
Me.cbx.ThreeState = True
Me.cbx.UseVisualStyleBackColor = True
'
'txtSuche
'
Me.txtSuche.Location = New System.Drawing.Point(99, 9)
Me.txtSuche.Name = "txtSuche"
Me.txtSuche.Size = New System.Drawing.Size(300, 20)
Me.txtSuche.TabIndex = 47
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(405, 6)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 48
Me.Button1.Text = "Suche"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(486, 6)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 49
Me.Button2.Text = "Alle"
Me.Button2.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 12)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(60, 13)
Me.Label1.TabIndex = 50
Me.Label1.Text = "MA-Suche:"
'
'Panel3
'
Me.Panel3.Controls.Add(Me.TabControl1)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 36)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(889, 648)
Me.Panel3.TabIndex = 27
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.dgvIMEX)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(881, 622)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "IMEX"
Me.TabPage3.UseVisualStyleBackColor = True
'
'dgvIMEX
'
Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvIMEX.Location = New System.Drawing.Point(3, 3)
Me.dgvIMEX.Name = "dgvIMEX"
Me.dgvIMEX.Size = New System.Drawing.Size(875, 616)
Me.dgvIMEX.TabIndex = 25
'
'usrCntlMitarbeiter
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.Panel2)
Me.Name = "usrCntlMitarbeiter"
Me.Size = New System.Drawing.Size(981, 684)
Me.Panel2.ResumeLayout(False)
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False)
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents dgvVERAG As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents dgvATILLA As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents txtSuche As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents cbx As System.Windows.Forms.CheckBox
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents dgvIMEX As VERAG_PROG_ALLGEMEIN.MyDatagridview
End Class

120
UID/Mitarbeiter/usrCntlMitarbeiter.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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

373
UID/Mitarbeiter/usrCntlMitarbeiter.vb Normal file
View File

@@ -0,0 +1,373 @@
Imports System.ComponentModel
Public Class usrCntlMitarbeiter
Dim ConnStr As String
Private UID As New cMitarbeiter
Private cOptionenDAL As New cOptionenDAL
Private Grid_aktiv As Boolean = False
Private Anzahl As Integer
Private locZeilen As Integer = -1
Public mid As Integer = -1
Private Sub uctrlMitarbeiter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ConnStr = frmMain.ConnStr
Try
' Me.Size = My.Settings.frmMainSize
' Me.Location = My.Settings.frmMainPosition
Catch ex As Exception
'nix tun - Standardgröße wird somit automatisch gesetzt
End Try
Grid_aktiv = True
Tabelle_anzeigen()
txtSuche.Focus()
End Sub
Public Sub Tabelle_anzeigen()
If TabControl1.SelectedIndex = 0 Then
showVERAGATILLA("VERAG")
ElseIf TabControl1.SelectedIndex = 1 Then
showVERAGATILLA("ATILLA")
ElseIf TabControl1.SelectedIndex = 2 Then
showVERAGATILLA("IMEX")
End If
End Sub
Public Sub showVERAGATILLA(firma)
'Paint wieder reaktivieren
locZeilen = -1
If Not Grid_aktiv Then Exit Sub
Dim sql As String = "SELECT mit_id,mit_username,mit_vname, mit_nname ,mit_niederlassung,mit_abteilung,mit_email,mit_durchwahl,mit_gekuendigt FROM tblMitarbeiter WHERE (mit_firma='" & firma & "' OR mit_firma='ALL') "
If txtSuche.Text <> "" Then
sql &= " AND (mit_username LIKE '%" & txtSuche.Text & "%' OR mit_nname LIKE '%" & txtSuche.Text & "%' OR mit_vname LIKE '%" & txtSuche.Text & "%') "
End If
If cbx.CheckState <> CheckState.Indeterminate Then
sql &= " AND mit_gekuendigt=" & IIf(cbx.Checked, 1, 0)
End If
If firma = "VERAG" Then
' dgvVERAG.DataSource = UID.AnzeigeTabelleFirma(sql)
dgvVERAG.SET_SQL(sql, "ADMIN")
dgvVERAG.LOAD()
'Tabelle Kommt/Geht bereinigen
If dgvVERAG.RowCount = 0 Then
dgvVERAG.DataSource = Nothing
Else
sortVERAG()
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvVERAG.Sort(dgvVERAG.Columns(3), ListSortDirection.Ascending)
End If
ElseIf firma = "ATILLA" Then
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
dgvATILLA.SET_SQL(sql, "ADMIN")
dgvATILLA.LOAD()
'Tabelle Kommt/Geht bereinigen
If dgvATILLA.RowCount = 0 Then
dgvATILLA.DataSource = Nothing
Else
sortATILLA()
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvATILLA.Sort(dgvATILLA.Columns(3), ListSortDirection.Ascending)
End If
ElseIf firma = "IMEX" Then
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
dgvIMEX.SET_SQL(sql, "ADMIN")
dgvIMEX.LOAD()
'Tabelle Kommt/Geht bereinigen
If dgvIMEX.RowCount = 0 Then
dgvIMEX.DataSource = Nothing
Else
sortIMEX()
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvIMEX.Sort(dgvIMEX.Columns(3), ListSortDirection.Ascending)
End If
End If
End Sub
Private Sub sortVERAG()
With dgvVERAG
.RowTemplate.Height = 20
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.AllowUserToAddRows = False
.AllowUserToDeleteRows = False
.AllowUserToOrderColumns = False
.AllowUserToResizeColumns = False
.AllowUserToResizeRows = False
.RowTemplate.ReadOnly = True
.RowHeadersVisible = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.AllowUserToOrderColumns = True
.Columns(0).Visible = False 'ID nicht anzeigen
.Columns(1).Width = 150
.Columns(1).HeaderText = "Username"
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Width = 100
.Columns(2).HeaderText = "Vorname"
.Columns(3).Width = 130
.Columns(3).HeaderText = "Nachname"
.Columns(4).Width = 85
.Columns(4).HeaderText = "Niederlassung"
.Columns(5).Width = 85
.Columns(5).HeaderText = "Abteilung"
.Columns(6).Width = 120
.Columns(6).HeaderText = "Email"
.Columns(7).Width = 120
.Columns(7).HeaderText = "TelefonNr."
.Columns(8).Width = 80
.Columns(8).HeaderText = "Gekündigt"
End With
End Sub
Private Sub sortATILLA()
With dgvATILLA
.RowTemplate.Height = 20
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.AllowUserToAddRows = False
.AllowUserToDeleteRows = False
.AllowUserToOrderColumns = False
.AllowUserToResizeColumns = False
.AllowUserToResizeRows = False
.RowTemplate.ReadOnly = True
.RowHeadersVisible = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.AllowUserToOrderColumns = True
.Columns(0).Visible = False 'ID nicht anzeigen
.Columns(1).Width = 150
.Columns(1).HeaderText = "Username"
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Width = 100
.Columns(2).HeaderText = "Vorname"
.Columns(3).Width = 130
.Columns(3).HeaderText = "Nachname"
.Columns(4).Width = 85
.Columns(4).HeaderText = "Niederlassung"
.Columns(5).Width = 85
.Columns(5).HeaderText = "Abteilung"
.Columns(6).Width = 120
.Columns(6).HeaderText = "Email"
.Columns(7).Width = 120
.Columns(7).HeaderText = "TelefonNr."
.Columns(8).Width = 80
.Columns(8).HeaderText = "Gekündigt"
End With
End Sub
Private Sub sortIMEX()
With dgvIMEX
.RowTemplate.Height = 20
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.AllowUserToAddRows = False
.AllowUserToDeleteRows = False
.AllowUserToOrderColumns = False
.AllowUserToResizeColumns = False
.AllowUserToResizeRows = False
.RowTemplate.ReadOnly = True
.RowHeadersVisible = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.AllowUserToOrderColumns = True
.Columns(0).Visible = False 'ID nicht anzeigen
.Columns(1).Width = 150
.Columns(1).HeaderText = "Username"
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Width = 100
.Columns(2).HeaderText = "Vorname"
.Columns(3).Width = 130
.Columns(3).HeaderText = "Nachname"
.Columns(4).Width = 85
.Columns(4).HeaderText = "Niederlassung"
.Columns(5).Width = 85
.Columns(5).HeaderText = "Abteilung"
.Columns(6).Width = 120
.Columns(6).HeaderText = "Email"
.Columns(7).Width = 120
.Columns(7).HeaderText = "TelefonNr."
.Columns(8).Width = 80
.Columns(8).HeaderText = "Gekündigt"
End With
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim Firma = ""
Select Case TabControl1.SelectedIndex
Case 0 : Firma = "VERAG"
Case 1 : Firma = "ATILLA"
Case 2 : Firma = "IMEX"
End Select
Dim frmMitarbDetails As New frmMitarbDetails(Firma)
frmMitarbDetails.Show()
AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim frmMitarbDetails As New frmMitarbDetails
frmMitarbDetails.mid = dgvVERAG.CurrentRow.Cells(0).Value
frmMitarbDetails.Show()
AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If TabControl1.SelectedIndex = 0 Then
Select Case MsgBox("Soll der Mitarbeiter '" & dgvVERAG.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
Case vbYes
UID.delData(Convert.ToInt32(dgvVERAG.CurrentRow.Cells(0).Value))
Tabelle_anzeigen()
Case vbNo
End Select
ElseIf TabControl1.SelectedIndex = 1 Then
Select Case MsgBox("Soll der Mitarbeiter '" & dgvATILLA.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
Case vbYes
UID.delData(Convert.ToInt32(dgvATILLA.CurrentRow.Cells(0).Value))
Tabelle_anzeigen()
Case vbNo
End Select
ElseIf TabControl1.SelectedIndex = 2 Then
Select Case MsgBox("Soll der Mitarbeiter '" & dgvIMEX.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
Case vbYes
UID.delData(Convert.ToInt32(dgvIMEX.CurrentRow.Cells(0).Value))
Tabelle_anzeigen()
Case vbNo
End Select
End If
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim l As IList(Of VERAG_PROG_ALLGEMEIN.cMitarbeiter)
l = cOptionenDAL.getDataMitarb()
frmPrintView.Show()
frmPrintView.BefüllenMitarb(l)
End Sub
Private Sub handleClose()
Tabelle_anzeigen()
frmMain.BringToFront()
End Sub
Private Sub dgvVERAG_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVERAG.CellDoubleClick
Me.Cursor = Cursors.WaitCursor
Dim frmMitarbDetails As New frmMitarbDetails
frmMitarbDetails.mid = dgvVERAG.CurrentRow.Cells(0).Value
frmMitarbDetails.ShowDialog(Me)
dgvVERAG.RELOAD()
Me.Cursor = Cursors.Default
' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
End Sub
Private Sub dgvATILLA_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvATILLA.CellDoubleClick
Me.Cursor = Cursors.WaitCursor
Dim frmMitarbDetails As New frmMitarbDetails
frmMitarbDetails.mid = dgvATILLA.CurrentRow.Cells(0).Value
frmMitarbDetails.ShowDialog(Me)
dgvATILLA.RELOAD()
Me.Cursor = Cursors.Default
' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
End Sub
Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick
Me.Cursor = Cursors.WaitCursor
Dim frmMitarbDetails As New frmMitarbDetails
frmMitarbDetails.mid = dgvIMEX.CurrentRow.Cells(0).Value
frmMitarbDetails.ShowDialog(Me)
dgvIMEX.RELOAD()
Me.Cursor = Cursors.Default
' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
txtSuche.Text = ""
txtSuche.Focus()
Tabelle_anzeigen()
End Sub
Private Sub dgvVERAG_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVERAG.CellContentClick
End Sub
Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
If e.KeyCode = Keys.Return Then
If TabControl1.SelectedIndex = 0 Then
If dgvVERAG.SelectedRows.Count > 0 Then
dgvVERAG_CellContentClick(dgvVERAG, New DataGridViewCellEventArgs(0, dgvVERAG.SelectedRows(0).Index))
End If
ElseIf TabControl1.SelectedIndex = 1 Then
If dgvATILLA.SelectedRows.Count > 0 Then
dgvATILLA_CellContentClick(dgvATILLA, New DataGridViewCellEventArgs(0, dgvATILLA.SelectedRows(0).Index))
End If
End If
ElseIf TabControl1.SelectedIndex = 1 Then
If dgvIMEX.SelectedRows.Count > 0 Then
dgvIMEX_CellContentClick(dgvIMEX, New DataGridViewCellEventArgs(0, dgvIMEX.SelectedRows(0).Index))
End If
End If
End Sub
Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
Tabelle_anzeigen()
End Sub
Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckStateChanged
Tabelle_anzeigen()
End Sub
End Class