Public Class frmWeitergabe

    Dim Pruefschrittnr As Integer
    Dim clsNotiz As New clsPruefschrittNotiz
    Dim clsmitarbeiter As New clsMitarbeiter


    Dim Verantwortlich As Integer = 0
    Dim empfaenger As Integer
    Sub New(ByVal Pruefschrittnr As Integer)
        InitializeComponent()
        Me.Pruefschrittnr = Pruefschrittnr
    End Sub



    Sub New(ByVal Pruefschrittnr As Integer, verantwortungnr As Integer)
        InitializeComponent()
        Me.Pruefschrittnr = Pruefschrittnr
        Me.Verantwortlich = verantwortungnr

    End Sub

    Sub New(ByVal Pruefschrittnr As Integer, verantwortungnr As Integer, AlsEmpfaenger As Boolean)
        InitializeComponent()
        Me.Pruefschrittnr = Pruefschrittnr
        If AlsEmpfaenger = True Then Me.empfaenger = verantwortungnr

    End Sub


    Private Sub frmWeitergabe_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.cbboxmitarbeiter.DataSource = clsmitarbeiter.Mitarbeiterdaten
        Me.cbboxmitarbeiter.DisplayMember = "Bezeichnung"
        Me.cbboxmitarbeiter.ValueMember = "Mitarbeiternr"
        If Me.Verantwortlich <> 0 Then
            Me.cbboxmitarbeiter.DataSource = Nothing
            Me.cbboxmitarbeiter.DataSource = clsmitarbeiter.VerantwortlichISIdaten
            Me.cbboxmitarbeiter.DisplayMember = "Bezeichnung"
            Me.cbboxmitarbeiter.ValueMember = "verantwortungisinr"
            Me.cbboxmitarbeiter.SelectedValue = Me.Verantwortlich
            Me.cbboxmitarbeiter.Enabled = False
        End If
        If Me.empfaenger <> 0 Then
            Me.cbboxmitarbeiter.SelectedValue = Me.empfaenger
            Me.cbboxmitarbeiter.Enabled = False
        End If
    End Sub

    Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click
        Me.DialogResult = DialogResult.OK
        Me.Close()
    End Sub

    Private Sub btnabbruch_Click(sender As Object, e As EventArgs) Handles btnabbruch.Click
        Me.DialogResult = DialogResult.Cancel
        Me.Close()
    End Sub
End Class