Initial commit

2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions
--- a/SW/AssessmentMgmt/Pruefschritt/frmMassnahme.vb
+++ b/SW/AssessmentMgmt/Pruefschritt/frmMassnahme.vb
@@ -0,0 +1,93 @@
+Public Class frmMassnahme
+
+    Dim Massnahme As New clsPruefschrittMassnahme
+
+    Dim m_key As Integer
+    Property Key As Integer
+        Get
+            Return m_key
+        End Get
+        Set(value As Integer)
+            m_key = value
+        End Set
+    End Property
+
+    Dim m_pruefschrittfinding_nr As Integer
+    Property Pruefschrittresultatnr As Integer
+        Get
+            Return m_pruefschrittfinding_nr
+        End Get
+        Set(value As Integer)
+            m_pruefschrittfinding_nr = value
+        End Set
+    End Property
+
+    Dim m_isReadonly As Boolean
+    Property IsReadonly As Boolean
+        Get
+            Return m_isReadonly
+        End Get
+        Set(value As Boolean)
+            m_isReadonly = value
+        End Set
+    End Property
+
+    Dim sec As New Utils.MySecurity
+
+    Private Sub frmMassnahme_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.cbboxVerantwortlich.DataSource = Massnahme.Verantwortung
+        Me.cbboxVerantwortlich.DisplayMember = "Bezeichnung"
+        Me.cbboxVerantwortlich.ValueMember = "Verantwortungnr"
+        If Key = -1 Then
+            Me.cbaktiv.Checked = True
+        Else
+            Massnahme.Get_Data(Me.Key)
+            Me.txtBeschreibung.Text = Massnahme.sBeschreibung.Value
+            Me.txtBezeichnung.Text = Massnahme.sKurzbeschreibung.Value
+            Me.cbaktiv.Checked = Massnahme.bAktiv.Value = True
+            Me.dtTermin.Value = Massnahme.daTermin.Value
+            Me.cbboxVerantwortlich.SelectedValue = Massnahme.iVerantwortungNr.Value
+            Me.txtResultat.Text = Massnahme.sMassnahmeResultat.Value
+        End If
+
+        If IsReadonly = True Then
+            sec.Set_Form_Readonly(Me)
+        End If
+    End Sub
+
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Me.DialogResult = DialogResult.Abort
+        Me.Close()
+    End Sub
+
+    Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
+        Me.DialogResult = DialogResult.Abort
+    End Sub
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+        ' Dim Save_Verantwortung As Integer
+        Me.DialogResult = DialogResult.OK
+        If Me.Key = -1 Then
+            Massnahme.Add_New()
+            Me.Key = Massnahme.iPruefschrittmassnahmeNr
+            '    Save_Verantwortung = -1
+        Else
+            Massnahme.Get_Data(Me.Key)
+            '   Save_Verantwortung = Massnahme.iVerantwortungNr.Value
+        End If
+        Massnahme.sKurzbeschreibung = New SqlTypes.SqlString(CType(Me.txtBezeichnung.Text, String))
+        Massnahme.sBeschreibung = New SqlTypes.SqlString(CType(Me.txtBeschreibung.Text, String))
+        Massnahme.sMassnahmeResultat = New SqlTypes.SqlString(CType(Me.txtResultat.Text, String))
+        Massnahme.iPruefschrittfindingnr = New SqlTypes.SqlInt32(CType(Me.m_pruefschrittfinding_nr, Int16))
+        Massnahme.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbaktiv.Checked, Boolean))
+        Massnahme.daTermin = New SqlTypes.SqlDateTime(CType(Me.dtTermin.Value, DateTime))
+        Massnahme.iVerantwortungNr = New SqlTypes.SqlInt32(CType(Me.cbboxVerantwortlich.SelectedValue, Int32))
+        Massnahme.Save_Data()
+
+
+        Me.Close()
+
+        'mailversand massnahe
+
+    End Sub
+End Class