Initial commit

EDOKA_Toolset/Plugin_FiVo/Form/frmData.vb

@@ -0,0 +1,76 @@
+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