Initial commit

SW/AssessmentMgmt/Pruefschritt/frmWeitergabe.vb

@@ -0,0 +1,59 @@
+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