Public Class FrmDocmSettings

    Dim dbconn As New DB_Connection
    Dim db As New DB

    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub FrmDocmSettings_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        db.Get_Dokumenttypen()
        Me.C1Dokumenttypen.DataSource = db.dsDaten.Tables("Dokumenttypen")
        Me.C1Dokumenttypen.Splits(0).DisplayColumns(0).Width = 30
        Me.C1Dokumenttypen.Splits(0).DisplayColumns(1).Width = Me.GroupBox1.Width - 53
    End Sub

    Private Sub C1Dokumenttypen_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Dokumenttypen.RowColChange$
        Try
            Dim i As Integer = Me.C1Dokumenttypen.Columns(0).Value
            db.Get_Dokumentstatus(Me.C1Dokumenttypen.Columns(0).Value)
            Me.C1DokumenttypStatus.DataSource = db.dsdaten1.Tables(0)
        Catch ex As Exception
        End Try

    End Sub

    Private Sub C1DokumenttypStatus_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1DokumenttypStatus.RowColChange
        Try
            Dim i As Integer = Me.C1DokumenttypStatus.Columns(0).Value
            db.Get_Dokumentstatus_docm(Me.C1DokumenttypStatus.Columns(0).Value)
            If db.dsdatendocm.Tables(0).Rows.Count = 0 Then
                Me.Label2.Text = Me.C1DokumenttypStatus.Columns(0).Value.ToString
                Me.Label5.Text = "(nicht vorhanden)"
                Me.TextBox1.Text = ""
            Else
                Me.Label2.Text = db.dsdatendocm.Tables(0).Rows(0).Item(1).ToString
                Me.Label5.Text = db.dsdatendocm.Tables(0).Rows(0).Item(0).ToString
                Me.TextBox1.Text = db.dsdatendocm.Tables(0).Rows(0).Item(2).ToString
                Me.CheckBox1.Checked = db.dsdatendocm.Tables(0).Rows(0).Item(7).ToString = "1"
            End If
        Catch ex As Exception
        End Try

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If MsgBox("Datensatz wirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
            db.dsdatendocm.Tables(0).Rows(0).Item("aktiv") = False
            db.dsdatendocm.Tables(0).Rows(0).Item("mutiert_am") = Now
            db.dsdatendocm.Tables(0).Rows(0).Item("mutierer") = Globals.Mitarbeiternr
            db.Update_Daten()
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Label5.Text = "(nicht vorhanden)" Then
            Dim r As DataRow = db.dsdatendocm.Tables(0).NewRow
            r.Item(1) = Me.C1DokumenttypStatus.Columns(0).Value
            r.Item(2) = Me.TextBox1.Text
            r.Item(3) = True
            r.Item(4) = Now
            r.Item(5) = Now
            r.Item(6) = Globals.Mitarbeiternr
            If Me.CheckBox1.Checked Then
                r.Item(7) = 1
            Else
                r.Item(7) = 0
            End If

            db.dsdatendocm.Tables(0).Rows.Add(r)
        Else
            db.dsdatendocm.Tables(0).Rows(0).Item(2) = Me.TextBox1.Text
            db.dsdatendocm.Tables(0).Rows(0).Item(5) = Now
            db.dsdatendocm.Tables(0).Rows(0).Item(6) = Globals.Mitarbeiternr
            If Me.CheckBox1.Checked Then
                db.dsdatendocm.Tables(0).Rows(0).Item(7) = 1
            Else
                db.dsdatendocm.Tables(0).Rows(0).Item(7) = 0
            End If
        End If
        db.Update_Daten()
    End Sub

    Private Sub FrmDocmSettings_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        Me.GroupBox1.Width = Me.ClientSize.Width / (2 * 2)

        Me.GroupBox2.Width = Me.ClientSize.Width / (2 * 2)

    End Sub

    Private Sub AlleVorlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleVorlagenToolStripMenuItem.Click
        Me.C1Dokumenttypen.DataSource = Nothing
        db.Get_Dokumenttypen()
        Me.C1Dokumenttypen.DataSource = db.dsDaten.Tables("Dokumenttypen")
        Me.C1Dokumenttypen.Splits(0).DisplayColumns(0).Width = 30
        Me.C1Dokumenttypen.Splits(0).DisplayColumns(1).Width = Me.GroupBox1.Width - 53
    End Sub

    Private Sub VorlagenMitDOCMSettingsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlagenMitDOCMSettingsToolStripMenuItem.Click
        Me.C1Dokumenttypen.DataSource = Nothing
        db.Get_Dokumenttypen_mit_docm()
        Me.C1Dokumenttypen.DataSource = db.dsDaten.Tables("Dokumenttypen")
        Me.C1Dokumenttypen.Splits(0).DisplayColumns(0).Width = 30
        Me.C1Dokumenttypen.Splits(0).DisplayColumns(1).Width = Me.GroupBox1.Width - 53
    End Sub
End Class