Initial commit

SW/AssessmentMgmt/Pruefschritt/clsStatus.vb

@@ -0,0 +1,39 @@
+Public Class clsStatus
+    Dim stammdaten As New DB.clsStammdaten
+    Dim Status As New DataTable
+
+    Sub New()
+        MyBase.New
+        Status = stammdaten.Get_Stammdaten("PruefSchrittStatus", "Beschreibung")
+    End Sub
+
+    Public Function Get_Mögliche_Status(ByVal aktuellerStatus As Integer, ByRef cbbox As ComboBox) As DataTable
+        Dim dt As New DataTable
+        dt = Status.Copy
+        dt.Rows.Clear()
+
+        Select Case aktuellerStatus
+            Case 1, 2
+                For Each r As DataRow In Status.Rows
+                    If r.Item(0) = 1 Then addrow(dt, r)
+                    If r.Item(0) = 2 Then addrow(dt, r)
+                    If r.Item(0) = 3 Then addrow(dt, r)
+                Next
+
+        End Select
+        cbbox.DataSource = Nothing
+        cbbox.DataSource = dt
+        cbbox.DisplayMember = "Bezeichnung"
+        cbbox.ValueMember = "pruefschrittstatusnr"
+        cbbox.SelectedValue = aktuellerStatus
+    End Function
+
+    Sub addrow(ByRef dt As DataTable, dr As DataRow)
+        Dim r As DataRow = dt.NewRow
+        For Each c As DataColumn In dt.Columns
+            r.Item(c.ColumnName) = dr.Item(c.ColumnName)
+        Next
+        dt.Rows.Add(r)
+    End Sub
+
+End Class