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