Imports System.Windows.Forms
Imports C1.Win.C1TrueDBGrid

Public Class frmData
    Dim WithEvents wl As New WordLib
    Dim dbc As New DB_Connection
    Dim daten As New DB
    Private Sub frmData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Globals.conn.sConnectionString = Globals.sConnectionstring
        daten.Get_Applikationsdaten()
        Globals.AppldataRow = 1
        refresh_data

    End Sub
    Sub refresh_data()
        daten.Get_data()
        Me.C1Daten.DataSource = daten.dsDaten.Tables(0)
        Me.C1Daten.DataMember = daten.dsDaten.Tables(0).TableName
        Try
            'Me.C1Daten.Columns("aktiv").FilterText = True
            'Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
            For i As Integer = 0 To C1Daten.Splits(0).DisplayColumns.Count - 1
                Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
            Next
        Catch
        End Try
    End Sub

    Private Sub DokumentAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentAnzeigenToolStripMenuItem.Click
        DivFnkt.show_office(Me.C1Daten.Columns("Dokumentid").Value, Me)
    End Sub

    Private Sub DokumentBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentBearbeitenToolStripMenuItem.Click
        Dim doc As New edokadb.clsDokument
        doc.cpMainConnectionProvider = Globals.conn
        doc.sDokumentid = New SqlTypes.SqlString(CType(Me.C1Daten.Columns("Dokumentid").Value, String))
        doc.SelectOne()
        wl.DokumentID = doc.sDokumentid.Value
        wl.Open_Excel(DivFnkt.Get_Filename(doc.sDokumentname.ToString, ""), doc.sDokumentid.ToString)

    End Sub

    Sub msg_saved() Handles wl.Dokument_now_Saved
        Dim bm As Object
        'Me.Label1.Text = "Das Dokument wurde erfolgreich gespeichert."
        bm = Me.C1Daten.Bookmark
        refresh_data()
        Me.C1Daten.Bookmark = bm

    End Sub

    Sub Msg_Not_Saved() Handles wl.Dokument_Not_Saved
        Try
            Dim bm As Object
            'Me.Label1.Text = "Das Dokument wurde nicht in der EDOKA-Datenbank gespeichert."
            bm = Me.C1Daten.Bookmark
            refresh_data()
            Me.C1Daten.Bookmark = bm
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


    End Sub


    Private Sub C1Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
        Me.Label1.Text = ""
        Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
        Me.C1Daten.Bookmark = Me.C1Daten.RowBookmark(Me.C1Daten.RowContaining(e.Y))
    End Sub

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