Initial commit

2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions
@@ -0,0 +1,37 @@
+Public Class frmData
+    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
+
+
+        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 = 1 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()
+        Dim wl As New WordLib
+        wl.DokumentID = doc.sDokumentid.Value
+        wl.Open_Excel(DivFnkt.Get_Filename(doc.sDokumentname.ToString, ""), doc.sDokumentid.ToString)
+
+    End Sub
+End Class