Initial commit

SW/AssessmentMgmt/Pruefplan/FrmDefinition_Pruefplan.vb

@@ -0,0 +1,32 @@
+Public Class FrmDefinition_Pruefplan
+
+    Dim m_aktiv As Boolean
+    Property Aktiv As Boolean
+        Get
+            Return m_aktiv
+        End Get
+        Set(value As Boolean)
+            m_aktiv = value
+        End Set
+    End Property
+
+    Dim m_gueltig_bis As DateTime
+    Property Gueltig_Bis As DateTime
+        Get
+            Return m_gueltig_bis
+        End Get
+        Set(value As DateTime)
+            m_gueltig_bis = value
+        End Set
+    End Property
+    Private Sub FrmDefinition_Pruefplan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.dtGueltigBis.Value = Me.Gueltig_Bis
+        Me.cbAktiv.Checked = Me.Aktiv = True
+    End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        Me.Gueltig_Bis = Me.dtGueltigBis.Value
+        Me.Aktiv = Me.cbAktiv.Checked
+        Me.Close()
+    End Sub
+End Class