Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class frmMAEinstellung

#Region "Deklarationen"
    Dim ma As New TKB.VV.DB.clsMitarbeitereinstellung
    Dim data As New DataTable
    Dim FormDataChanged As Boolean = False
    Dim msg As New TKB.VV.Utils.MyMessage
    Dim sec As New TKB.VV.Utils.MySecurity
    Dim windowspositions As String = ""
#End Region

    Private Sub frmMAEinstellung_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        ma.Dispose()
        data.Dispose()
    End Sub

    Private Sub frmMAEinstellung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ma.cpMainConnectionProvider = Globals.conn
        ma.iMitarbeiternr = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
        data = ma.SelectAllWMitarbeiternrLogic()

        If data.Rows.Count = 0 Then
            Me.cboxVertragsuebersicht.Checked = False
            Me.cboxPendenzen.Checked = False
            Me.cboxAktivitaeten.Checked = False
            Me.cboxApplikation.Checked = False
            Me.cboxreporting.Checked = False
            Me.cbboxVertragsuebersicht.Text = ""
            Me.cbboxAktivitaeten.Text = ""
            Me.cbboxPendenzen.Text = ""
            Me.cbboxApplikationsverwaltung.Text = ""
            Me.cbboxReporting.Text = ""
        Else
            ma.iMitarbeitereinstellungnr = New SqlInt32(CType(data.Rows(0).Item(0), Int32))
            ma.SelectOne()
            Me.cboxAktivitaeten.Checked = ma.bAktivitaeten.Value = True
            Me.cboxApplikation.Checked = ma.bApplikationsuebersicht.Value = True
            Me.cboxPendenzen.Checked = ma.bPendenzen.Value = True
            Me.cboxVertragsuebersicht.Checked = ma.bVertragsuebersicht.Value = True
            Me.cboxLizenzmanagement.Checked = ma.bLizenzmanagement.Value = True
            Try
                Me.cboxreporting.Checked = ma.bReporting.Value = True
            Catch
                Me.cboxreporting.Checked = False
            End Try
            Try
                Me.cbboxVertragsuebersicht.Text = ma.iWPos1.ToString
                If Me.cbboxVertragsuebersicht.Text = "0" Then Me.cbboxVertragsuebersicht.Text = ""
            Catch ex As Exception
                Me.cbboxVertragsuebersicht.Text = ""
            End Try
            Try
                Me.cbboxAktivitaeten.Text = ma.iWPos2.ToString
                If Me.cbboxAktivitaeten.Text = "0" Then Me.cbboxAktivitaeten.Text = ""
            Catch ex As Exception
                Me.cbboxAktivitaeten.Text = ""
            End Try
            Try
                Me.cbboxPendenzen.Text = ma.iWPos3.ToString
                If Me.cbboxPendenzen.Text = "0" Then Me.cbboxPendenzen.Text = ""
            Catch ex As Exception
                Me.cbboxPendenzen.Text = ""
            End Try
            Try
                Me.cbboxApplikationsverwaltung.Text = ma.iWPos4.ToString
                If Me.cbboxApplikationsverwaltung.Text = "0" Then Me.cbboxApplikationsverwaltung.Text = ""
            Catch ex As Exception
                Me.cbboxApplikationsverwaltung.Text = ""
            End Try
            Try
                Me.cbboxReporting.Text = ma.iWPos5.ToString
                If Me.cbboxReporting.Text = "0" Then Me.cbboxReporting.Text = ""
            Catch ex As Exception
                Me.cbboxReporting.Text = ""
            End Try
            Try
                Me.cbboxLizenzmanagement.Text = ma.iWPos6.ToString
                If Me.cbboxLizenzmanagement.Text = "0" Then Me.cbboxLizenzmanagement.Text = ""
            Catch ex As Exception

            End Try
        End If

        Me.sec.Set_Form_Security(Me)
    End Sub

    Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
        save_data()
    End Sub

    Private Sub save_data()
        ma.cpMainConnectionProvider = Globals.conn
        ma.iMitarbeiternr = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
        ma.bAktivitaeten = New SqlBoolean(CType(Me.cboxAktivitaeten.Checked, Boolean))
        ma.bApplikationsuebersicht = New SqlBoolean(CType(Me.cboxApplikation.Checked, Boolean))
        ma.bPendenzen = New SqlBoolean(CType(Me.cboxPendenzen.Checked, Boolean))
        ma.bVertragsuebersicht = New SqlBoolean(CType(Me.cboxVertragsuebersicht.Checked, Boolean))
        ma.bReporting = New SqlBoolean(CType(Me.cboxreporting.Checked, Boolean))
        ma.bLizenzmanagement = New SqlBoolean(CType(Me.cboxLizenzmanagement.Checked, Boolean))
        If Me.cbboxVertragsuebersicht.Text = "" Then
            ma.iWPos1 = New SqlInt32(CType(0, Int32))
        Else
            ma.iWPos1 = New SqlInt32(CType(Me.cbboxVertragsuebersicht.Text, Int32))
        End If
        If Me.cbboxAktivitaeten.Text = "" Then
            ma.iWPos2 = New SqlInt32(CType(0, Int32))
        Else
            ma.iWPos2 = New SqlInt32(CType(Me.cbboxAktivitaeten.Text, Int32))
        End If
        If Me.cbboxPendenzen.Text = "" Then
            ma.iWPos3 = New SqlInt32(CType(0, Int32))
        Else
            ma.iWPos3 = New SqlInt32(CType(Me.cbboxPendenzen.Text, Int32))
        End If
        If Me.cbboxApplikationsverwaltung.Text = "" Then
            ma.iWPos4 = New SqlInt32(CType(0, Int32))
        Else
            ma.iWPos4 = New SqlInt32(CType(Me.cbboxApplikationsverwaltung.Text, Int32))
        End If
        If Me.cbboxReporting.Text = "" Then
            ma.iWPos5 = New SqlInt32(CType(0, Int32))
        Else
            ma.iWPos5 = New SqlInt32(CType(Me.cbboxReporting.Text, Int32))
        End If
        If Me.cbboxLizenzmanagement.Text = "" Then
            ma.iWPos6 = New SqlInt32(CType(0, Int32))
        Else
            ma.iWPos6 = New SqlInt32(CType(Me.cbboxLizenzmanagement.Text, Int32))
        End If
        If Me.windowspositions <> "" Then
            ma.sWParam1 = New SqlString(CType(Me.windowspositions, String))
        Else
            ma.sWParam1 = New SqlString(CType("", String))
        End If

        Globals.conn.OpenConnection()
        If data.Rows.Count = 0 Then
            ma.Insert()
        Else
            ma.Update()
        End If
        Globals.conn.CloseConnection(True)
        Me.FormDataChanged = False
    End Sub

    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub cboxAktivitaeten_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboxAktivitaeten.Click, cboxApplikation.Click, _
    cboxPendenzen.Click, cboxVertragsuebersicht.Click
        Me.FormDataChanged = True

    End Sub

#Region "Closing / Check_Changes"

    ''' <summary>
    ''' Schliessen des Formulars
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If Check_Changes() = False Then e.Cancel = True
    End Sub

    ''' <summary>
    ''' Prüfung, ob Datenänderungen vorgenommen wurden. 
    ''' </summary>
    ''' <remarks></remarks>
    Private Function Check_Changes() As Boolean
        Dim msgres As MsgBoxResult
        If Me.FormDataChanged Then
            msgres = msg.Show_MessageYesNoCancel(3)
            Select Case msgres
                Case MsgBoxResult.Yes
                    Save_data()
                    Return True
                Case MsgBoxResult.Cancel
                    Return False
                Case MsgBoxResult.No
                    Return True
            End Select
        Else
            Return True
        End If
    End Function
#End Region


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.windowspositions = ""
        Dim p As Form = Me.ParentForm
        Dim s As String = ""
        For Each windows As Form In p.MdiChildren
            If windows.Name = "frmVertragsuebersicht" Or windows.Name = "FrmAktivitaetenListe" Or windows.Name = "frmPendenzübersicht" Or windows.Name = "frmApplikation" Or windows.Name = "FrmReportSelect" Or windows.Name = "frmLizenzverwaltung" Then
                s = s + windows.Name + ";" + windows.Top.ToString + ";" + windows.Left.ToString + ";" + windows.Width.ToString + ";" + windows.Height.ToString + ":"
            End If
        Next
        Me.windowspositions = s
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.windowspositions = "-1"
    End Sub
End Class