You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
59 lines
2.0 KiB
59 lines
2.0 KiB
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 |