EDOKA_Tools/EDOKA_Toolset/Plugin_Docm_Settings/FrmDocmSettings.vb

Public Class FrmDocmSettings

    Dim dbconn As New DB_Connection
    Dim db As New DB
    Dim db1 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)

            db1.Get_Loeschscript(Me.C1Dokumenttypen.Columns(0).Value)
            If db1.dsDaten.Tables(0).Rows.Count = 0 Then
                Me.Label8.Text = "nicht v."
                Me.TextBox2.Text = ""
                Me.CheckBox2.Checked = False
                Me.cbboxedoka.Checked = False
                Me.cbboxoutlook.Checked = False
                Me.cbboxclm.Checked = False
                Me.txtBeschreibung.Text = ""
            Else
                Me.Label8.Text = db1.dsDaten.Tables(0).Rows(0).Item(0).ToString
                Me.TextBox2.Text = db1.dsDaten.Tables(0).Rows(0).Item("inhalt")
                Me.CheckBox2.Checked = db.dsDaten.Tables(0).Rows(0).Item(7).ToString = "1"
                Me.cbboxclm.Checked = db.dsDaten.Tables(0).Rows(0).Item("CLM").ToString = "1"
                Me.cbboxedoka.Checked = db.dsDaten.Tables(0).Rows(0).Item("EDOKA").ToString = "1"
                Me.cbboxoutlook.Checked = db.dsDaten.Tables(0).Rows(0).Item("Outlook_Addin").ToString = "1"
                Me.txtBeschreibung.Text = db.dsDaten.Tables(0).Rows(0).Item("Beschreibung").ToString

            End If
        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 = ""
                Me.cbboxedoka.Checked = False
                Me.cbboxoutlook.Checked = False
                Me.cbboxclm.Checked = False
                Me.txtBeschreibung.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"
                Me.cbboxclm.Checked = db.dsdatendocm.Tables(0).Rows(0).Item("CLM").ToString = "1"
                Me.cbboxedoka.Checked = db.dsdatendocm.Tables(0).Rows(0).Item("EDOKA").ToString = "1"
                Me.cbboxoutlook.Checked = db.dsdatendocm.Tables(0).Rows(0).Item("Outlook_Addin").ToString = "1"
                Me.txtBeschreibung.Text = db.dsdatendocm.Tables(0).Rows(0).Item("Beschreibung").ToString
            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
            If Me.cbboxclm.Checked Then r.Item("clm") = 1 Else r.Item("clm") = 0
            If Me.cbboxedoka.Checked Then r.Item("edoka") = 1 Else r.Item("edoka") = 0
            If Me.cbboxoutlook.Checked Then r.Item("outlook_addin") = 1 Else r.Item("outlook_addin") = 0
            r.Item("Beschreibung") = Me.txtBeschreibung.Text
            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
            If Me.cbboxclm.Checked Then db.dsdatendocm.Tables(0).Rows(0).Item("clm") = 1 Else db.dsdatendocm.Tables(0).Rows(0).Item("clm") = 0
            If Me.cbboxedoka.Checked Then db.dsdatendocm.Tables(0).Rows(0).Item("edoka") = 1 Else db.dsdatendocm.Tables(0).Rows(0).Item("edoka") = 0
            If Me.cbboxoutlook.Checked Then db.dsdatendocm.Tables(0).Rows(0).Item("outlook_addin") = 1 Else db.dsdatendocm.Tables(0).Rows(0).Item("outlook_addin") = 0
            db.dsdatendocm.Tables(0).Rows(0).Item("Beschreibung") = Me.txtBeschreibung.Text
        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

    Private Sub C1Dokumenttypen_Click(sender As Object, e As EventArgs) Handles C1Dokumenttypen.Click

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If Me.Label8.Text = "nicht v." Then
            Dim r As DataRow = db1.dsDaten.Tables(0).NewRow
            r.Item(1) = Me.C1Dokumenttypen.Columns(0).Value
            r.Item(2) = Me.TextBox2.Text
            r.Item(3) = True
            r.Item(4) = Now
            r.Item(5) = Now
            r.Item(6) = Globals.Mitarbeiternr
            If Me.CheckBox2.Checked Then
                r.Item(7) = 1
            Else
                r.Item(7) = 0
            End If

            db1.dsDaten.Tables(0).Rows.Add(r)
        Else
            db1.dsDaten.Tables(0).Rows(0).Item(2) = Me.TextBox2.Text
            db1.dsDaten.Tables(0).Rows(0).Item(5) = Now
            db1.dsDaten.Tables(0).Rows(0).Item(6) = Globals.Mitarbeiternr
            If Me.CheckBox2.Checked Then
                db1.dsDaten.Tables(0).Rows(0).Item(7) = 1
            Else
                db1.dsDaten.Tables(0).Rows(0).Item(7) = 0
            End If
        End If
        db1.Update_Loeschscript()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If MsgBox("Löscheintrag wirklich löschen=??", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
            db1.dsDaten.Tables(0).Rows(0).Item("aktiv") = False
            db1.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
            db1.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.Mitarbeiternr
            db1.Update_Loeschscript()
        End If
    End Sub
End Class