You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
76 lines
2.7 KiB
76 lines
2.7 KiB
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 |