Initial commit

2021-04-20 07:39:40 +02:00
commit 1efa65864e
3895 changed files with 2126363 additions and 0 deletions
--- a/EDOKA/Backup/Dokumentmanagement/FrmStatusWechsel.vb
+++ b/EDOKA/Backup/Dokumentmanagement/FrmStatusWechsel.vb
@@ -0,0 +1,496 @@
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Imports System.ComponentModel
+Imports UtilityLibrary.Win32
+Public Class frmStatuswechsel
+    Inherits System.Windows.Forms.Form
+
+#Region " Vom Windows Form Designer generierter Code "
+
+    Public Sub New()
+        MyBase.New()
+
+        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
+        InitializeComponent()
+
+        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
+
+    End Sub
+
+    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+            If Not (components Is Nothing) Then
+                components.Dispose()
+            End If
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    ' Für Windows Form-Designer erforderlich
+    Private components As System.ComponentModel.IContainer
+
+    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
+    'Sie kann mit dem Windows Form-Designer modifiziert werden.
+    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents Button2 As System.Windows.Forms.Button
+    Friend WithEvents cbStatus As System.Windows.Forms.ComboBox
+    Friend WithEvents cbMitarbeiter As System.Windows.Forms.ComboBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Button3 As System.Windows.Forms.Button
+    Friend WithEvents cbmoeglicheStati As System.Windows.Forms.ComboBox
+    Friend WithEvents cbsave As System.Windows.Forms.ComboBox
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents txtstatus As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents txtBemerkung As System.Windows.Forms.TextBox
+    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmStatuswechsel))
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.cbStatus = New System.Windows.Forms.ComboBox()
+        Me.cbMitarbeiter = New System.Windows.Forms.ComboBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.cbmoeglicheStati = New System.Windows.Forms.ComboBox()
+        Me.cbsave = New System.Windows.Forms.ComboBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.txtstatus = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.txtBemerkung = New System.Windows.Forms.TextBox()
+        Me.SuspendLayout()
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(8, 232)
+        Me.Button1.Name = "Button1"
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "&Abbruch"
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(304, 232)
+        Me.Button2.Name = "Button2"
+        Me.Button2.TabIndex = 1
+        Me.Button2.Text = "&OK"
+        '
+        'cbStatus
+        '
+        Me.cbStatus.Location = New System.Drawing.Point(112, 16)
+        Me.cbStatus.Name = "cbStatus"
+        Me.cbStatus.Size = New System.Drawing.Size(264, 21)
+        Me.cbStatus.TabIndex = 2
+        Me.cbStatus.Text = "ComboBox1"
+        '
+        'cbMitarbeiter
+        '
+        Me.cbMitarbeiter.Location = New System.Drawing.Point(112, 48)
+        Me.cbMitarbeiter.Name = "cbMitarbeiter"
+        Me.cbMitarbeiter.Size = New System.Drawing.Size(240, 21)
+        Me.cbMitarbeiter.TabIndex = 3
+        Me.cbMitarbeiter.Text = "ComboBox1"
+        '
+        'Label1
+        '
+        Me.Label1.Location = New System.Drawing.Point(8, 16)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(96, 23)
+        Me.Label1.TabIndex = 4
+        Me.Label1.Text = "Dokumentstatus"
+        '
+        'Label2
+        '
+        Me.Label2.Location = New System.Drawing.Point(8, 48)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(80, 23)
+        Me.Label2.TabIndex = 5
+        Me.Label2.Text = "Verantwortlich"
+        '
+        'Button3
+        '
+        Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Bitmap)
+        Me.Button3.Location = New System.Drawing.Point(176, 264)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(24, 24)
+        Me.Button3.TabIndex = 6
+        Me.Button3.Visible = False
+        '
+        'cbmoeglicheStati
+        '
+        Me.cbmoeglicheStati.Items.AddRange(New Object() {"abc", "def", "gagas d sd", "sdf sdf sfd "})
+        Me.cbmoeglicheStati.Location = New System.Drawing.Point(354, 48)
+        Me.cbmoeglicheStati.Name = "cbmoeglicheStati"
+        Me.cbmoeglicheStati.Size = New System.Drawing.Size(21, 21)
+        Me.cbmoeglicheStati.TabIndex = 7
+        Me.cbmoeglicheStati.Text = "ComboBox1"
+        '
+        'cbsave
+        '
+        Me.cbsave.Items.AddRange(New Object() {"abc", "def", "gagas d sd", "sdf sdf sfd "})
+        Me.cbsave.Location = New System.Drawing.Point(352, 48)
+        Me.cbsave.Name = "cbsave"
+        Me.cbsave.Size = New System.Drawing.Size(21, 21)
+        Me.cbsave.TabIndex = 8
+        Me.cbsave.Text = "ComboBox1"
+        Me.cbsave.Visible = False
+        '
+        'Panel1
+        '
+        Me.Panel1.Location = New System.Drawing.Point(374, 8)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(16, 100)
+        Me.Panel1.TabIndex = 9
+        '
+        'txtstatus
+        '
+        Me.txtstatus.Location = New System.Drawing.Point(112, 80)
+        Me.txtstatus.Name = "txtstatus"
+        Me.txtstatus.Size = New System.Drawing.Size(224, 23)
+        Me.txtstatus.TabIndex = 10
+        Me.txtstatus.Text = "Label3"
+        Me.txtstatus.Visible = False
+        '
+        'Label3
+        '
+        Me.Label3.Location = New System.Drawing.Point(8, 72)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(96, 32)
+        Me.Label3.TabIndex = 11
+        Me.Label3.Text = "Berechtigt für Folgestatus"
+        Me.Label3.Visible = False
+        '
+        'Label4
+        '
+        Me.Label4.Location = New System.Drawing.Point(8, 104)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(192, 16)
+        Me.Label4.TabIndex = 12
+        Me.Label4.Text = "Bemerkung für den Verantwortlichen"
+        '
+        'txtBemerkung
+        '
+        Me.txtBemerkung.Location = New System.Drawing.Point(8, 120)
+        Me.txtBemerkung.Multiline = True
+        Me.txtBemerkung.Name = "txtBemerkung"
+        Me.txtBemerkung.Size = New System.Drawing.Size(368, 104)
+        Me.txtBemerkung.TabIndex = 13
+        Me.txtBemerkung.Text = ""
+        '
+        'frmStatuswechsel
+        '
+        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
+        Me.ClientSize = New System.Drawing.Size(384, 263)
+        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtBemerkung, Me.Label4, Me.Label3, Me.txtstatus, Me.Panel1, Me.cbsave, Me.Button3, Me.Label2, Me.Label1, Me.cbMitarbeiter, Me.cbStatus, Me.Button2, Me.Button1, Me.cbmoeglicheStati})
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmStatuswechsel"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Status / Verantwortlicher wechseln"
+        Me.ResumeLayout(False)
+
+    End Sub
+
+#End Region
+
+    Dim m_dokumentid As String
+    Property Dokumentid() As String
+        Get
+            Return m_dokumentid
+        End Get
+        Set(ByVal Value As String)
+            m_dokumentid = Value
+        End Set
+    End Property
+
+    Dim m_mitarbeiternr As Integer
+    Property Mitarbeiternr() As Integer
+        Get
+            Return m_mitarbeiternr
+        End Get
+        Set(ByVal Value As Integer)
+            m_mitarbeiternr = Value
+        End Set
+    End Property
+
+    Dim m_currentstatus As Integer
+    Property currentstatus() As Integer
+        Get
+            Return m_currentstatus
+        End Get
+        Set(ByVal Value As Integer)
+            m_currentstatus = Value
+        End Set
+    End Property
+    Dim WithEvents mcbstatus As New MultiComboBox()
+    Dim WithEvents mcbmitarbeiter As New MultiComboBox()
+
+    Dim moeglichstati As DataTable
+    Dim Funktionsliste As String
+    Dim selectedstatus As Integer
+
+    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        Me.mcbstatus = New MultiComboBox(Me.cbStatus)
+        Me.mcbstatus.CheckNullValue = True
+        Me.mcbstatus.NullValueMessage = MyTxt.gettext(18)
+        Me.mcbstatus.DisplayColumnName = "Bezeichnung"
+        Me.mcbstatus.ValueColumnName = "dokumentstatusnr"
+        Me.mcbstatus.Fill_Data(Generic_Select(2), False)
+        Me.mcbstatus.SelectedValue = Me.currentstatus
+
+        Me.moeglichstati = Generic_Select(6)
+        Me.cbmoeglicheStati.Items.Clear()
+        Dim i As Integer
+        For i = 0 To Me.moeglichstati.Rows.Count - 1
+            Me.cbmoeglicheStati.Items.Add(Me.moeglichstati.Rows(i).Item("bezeichnung"))
+        Next
+
+        Me.Funktionsliste = ""
+        mcbmitarbeiter = New MultiComboBox(Me.cbMitarbeiter)
+        fill_mcbmitarbeiter()
+
+        Dim ttip As New ToolTip()
+        ttip.SetToolTip(Me.cbmoeglicheStati, Globals.MyTxt.gettext(22000))
+
+
+    End Sub
+
+    Private Sub fill_mcbmitarbeiter()
+        Me.mcbmitarbeiter.DataSource = Nothing
+        Me.mcbmitarbeiter.Items.Clear()
+        Me.mcbmitarbeiter.CheckNullValue = True
+        Me.mcbmitarbeiter.NullValueMessage = MyTxt.gettext(18)
+        Me.mcbmitarbeiter.DisplayColumnName = "mitarbeiter"
+        Me.mcbmitarbeiter.ValueColumnName = "mitarbeiternr"
+        Me.mcbmitarbeiter.Fill_Data(DivFnkt.Berechtigte_Mitarbeiter(0, 0, 0, Me.Dokumentid, 3, 0, 0, 0, Me.Funktionsliste), False)
+        '        Me.mcbmitarbeiter.Fill_Data(DivFnkt.Berechtigte_Mitarbeiter(0, 0, 0, Me.Dokumentid, 3, 0, 0, 0, Me.Funktionsliste), False)
+
+        Me.mcbmitarbeiter.SelectedValue = Me.Mitarbeiternr
+
+    End Sub
+
+    Private Function Generic_Select(ByVal typ As Integer) As DataTable
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+
+        Select Case typ
+            Case 2
+                scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statuswechsel"
+            Case 3
+                scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Mitarbeiter"
+            Case 4
+                scmCmdToExecute.CommandText = "SP_message_generate_verantwortlicher_wechsel"
+            Case 6
+                scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statuswechsel"
+            Case 7
+                scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statuswechsel_funktionen"
+            Case 13
+                scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_ist_kundenberater"
+            Case Else
+        End Select
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+        scmCmdToExecute.Connection = conn.scoDBConnection
+        Try
+            Select Case typ
+                Case 2
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
+                Case 4
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.mcbstatus.SelectedValue))
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@verantwortlicher", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.mcbmitarbeiter.SelectedValue))
+                Case 6
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
+                Case 7
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.selectedstatus))
+                Case 13
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
+                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
+                Case Else
+            End Select
+            If typ = 1 Then
+            End If
+            sdaAdapter.Fill(dtToReturn)
+            If typ = 2 Then
+                Me.currentstatus = scmCmdToExecute.Parameters("@currentstatus").Value
+            End If
+            Return dtToReturn
+        Catch ex As Exception
+            ' // some error occured. Bubble it to caller and encapsulate Exception object
+            Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+        End Try
+    End Function
+
+    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
+        Me.Close()
+    End Sub
+
+    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
+        '26.10.03 - Hutter
+        Dim statuswechsel As Boolean = False
+        Dim verantwechsel As Boolean = False
+
+        If Me.mcbstatus.Text = "In Bearbeitung" Then
+            If Archivfnkt.check_bereits_archiviert(Me.Dokumentid, False) = False Then
+                Windows.Forms.Application.DoEvents()
+                Me.Cursor = Cursors.Default
+                Exit Sub
+            Else
+                If Globals.dokumentid_changed Then
+                    Me.Dokumentid = Globals.DokumentID_New_Copy
+                End If
+            End If
+        End If
+        '26.10.03
+
+        Dim sth As New Statushandling()
+        Dim doc As New edokadb.clsDokument()
+        doc.cpMainConnectionProvider = conn
+        conn.OpenConnection()
+        doc.sDokumentid = New SqlString(CType(Me.Dokumentid, String))
+        doc.SelectOne()
+
+        Dim statush As New Statushandling()
+        statush.NeuerStatus = Me.mcbstatus.SelectedValue
+        statush.Check_Neuer_Status()
+        If statush.Folgestatus = True And Me.mcbmitarbeiter.SelectedValue = Me.Mitarbeiternr Then
+            MyMsg.show_standardmessage(21, MsgBoxStyle.Critical)
+            Me.mcbmitarbeiter.Focus()
+            statush.Dispose()
+            doc.Dispose()
+            Exit Sub
+        End If
+
+        If UCase(Me.mcbstatus.Text) <> "KONTROLLIERT (JEDERZEIT)" Then
+            doc.bBereit_zur_archivierung = New SqlBoolean(CType(False, Boolean))
+        End If
+        If statush.Ausgangsarchivierung = True Then
+            doc.bBereit_zur_archivierung = New SqlBoolean(CType(True, Boolean))
+        End If
+        If doc.iVerantwortlich.Value <> Me.mcbmitarbeiter.SelectedValue Then
+            '26.10.03 - hutter
+            verantwechsel = True
+            '26.10.03
+            doc.iVerantwortlich = New SqlInt32(CType(Me.mcbmitarbeiter.SelectedValue, Int32))
+            sth.BemerkungVerantwortlicher = Me.txtBemerkung.Text
+            sth.Meldung_Verantwortlicher(Me.Dokumentid, Me.mcbmitarbeiter.SelectedValue)
+        End If
+
+        If statush.Ablgeschossen = True Or Me.mcbstatus.Text = "Abgeschlossen" Then
+            doc.iVerantwortlich = New SqlInt32(CType(9998, Int32))
+        End If
+
+        If doc.iStatusnr.Value <> Me.mcbstatus.SelectedValue Then
+            '26.10.03
+            statuswechsel = True
+            '26.10.03
+            Dim st As New SqlDataAdapter("Select status_bezeichnungnr from dokument_status where dokument_statusnr=" & Me.mcbstatus.SelectedValue, Globals.sConnectionString)
+            Dim std As New DataSet()
+            st.Fill(std, "bez")
+            If std.Tables(0).Rows(0).Item(0) <> 8 Then
+                doc.iStatusnr = New SqlInt32(CType(Me.mcbstatus.SelectedValue, Int32))
+            End If
+            sth.Meldung_Status(Me.Dokumentid, Me.mcbstatus.SelectedValue)
+            std.Dispose()
+            st.Dispose()
+        End If
+        doc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
+        doc.daMutiertam = New SqlDateTime(CType(Now, DateTime))
+
+        If Not doc.iDokdurchkubeweitergegeben.Value = 1 Then
+            Dim tx As DataTable
+            tx = Generic_Select(13)
+            If tx.Rows(0).Item(0) = 1 Then
+                doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(1, Int32))
+            Else
+                doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32))
+            End If
+            tx.Dispose()
+        End If
+
+        '26.10.03 - Hutter
+        If Me.mcbstatus.Text = "In Bearbeitung" Then
+            doc.bAusgangsarchiviert = New SqlBoolean(CType(False, Boolean))
+            doc.bEingangsarchiviert = New SqlBoolean(CType(False, Boolean))
+        End If
+
+        doc.Update()
+        conn.CloseConnection(True)
+
+        If statuswechsel Or verantwechsel Then
+            statush.insert_history_status(CType(Me.mcbstatus.SelectedValue, Int32), Me.Dokumentid, Me.mcbmitarbeiter.SelectedValue)
+        End If
+        statush.check_abschluss(Me.Dokumentid, Me.mcbmitarbeiter.SelectedValue)
+        Me.Close()
+        doc.Dispose()
+        statush.Dispose()
+        '26.10.03
+    End Sub
+
+    Private Sub cbmoeglicheStati_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.DropDown
+        Me.cbmoeglicheStati.Width = 200
+        Me.cbsave.Visible = True
+    End Sub
+
+    Private Sub cbmoeglicheStati_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.Leave
+        Me.cbsave.Visible = False
+        Me.cbmoeglicheStati.Width = 21
+    End Sub
+
+    Private Sub cbmoeglicheStati_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.SelectedValueChanged
+        Dim i As Integer
+        Dim DATA As DataTable
+        Me.cbsave.Visible = False
+        Me.cbmoeglicheStati.Width = 21
+        Me.txtstatus.Text = Me.cbmoeglicheStati.Text
+        Me.Label3.Visible = True
+        Me.txtstatus.Visible = True
+        If Me.txtstatus.Text = Me.mcbstatus.Text Then
+            Me.Label3.Visible = False
+            Me.txtstatus.Visible = False
+            Me.Funktionsliste = ""
+            Me.selectedstatus = 0
+        Else
+            For i = 0 To Me.moeglichstati.Rows.Count - 1
+                If Me.txtstatus.Text = Me.moeglichstati.Rows(i).Item("bezeichnung") Then
+                    Me.selectedstatus = Me.moeglichstati.Rows(i).Item("nr")
+                End If
+            Next
+        End If
+        Me.Funktionsliste = ""
+        DATA = Generic_Select(7)
+        For i = 0 To DATA.Rows.Count - 1
+            If Me.Funktionsliste <> "" Then Me.Funktionsliste = Me.Funktionsliste + ";"
+            Me.Funktionsliste = Me.Funktionsliste + LTrim(DATA.Rows(i).Item("funktionnr"))
+        Next
+        fill_mcbmitarbeiter()
+        Me.mcbmitarbeiter.Focus()
+    End Sub
+
+    Private Sub cbsave_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbsave.SelectedIndexChanged
+
+    End Sub
+
+    Private Sub cbmoeglicheStati_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.SelectedIndexChanged
+
+    End Sub
+
+    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBemerkung.TextChanged
+
+    End Sub
+End Class