EDOKA_Tools/EDOKA_Toolset/Plugin_Börsenabrechnung/Formulare/Form1.vb

Imports System.Windows.Forms

Public Class Form1
    Dim db As New clsdb
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        db.Exec_sp_(4)
        Globals.Applikationsdaten = db.dsdaten.Tables(0).Copy
        db.Get_Partnerlist(ListPartner, ListboxBPNr, 0)
        Try
            Me.ListPartner.SelectedIndex = 0
        Catch
        End Try

    End Sub

    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
        db.Get_Partnerlist(ListPartner, ListboxBPNr, 0)
    End Sub

    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
        db.Get_Partnerlist(ListPartner, ListboxBPNr, 1)
    End Sub

    Private Sub ListPartner_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListPartner.SelectedIndexChanged
        Cursor = Cursors.WaitCursor
        ListboxBPNr.SelectedIndex = ListPartner.SelectedIndex
        db.Get_Struktur(Me.TreeStruktur, ListboxBPNr.SelectedItem)
        Cursor = Cursors.Default
    End Sub

    Private Sub TreeStruktur_AfterSelect(sender As Object, e As Windows.Forms.TreeViewEventArgs) Handles TreeStruktur.AfterSelect
        Cursor = Cursors.WaitCursor
        db.Get_Dokumente(Me.C1Daten, ListboxBPNr.SelectedItem, Me.TreeStruktur.SelectedNode.Tag)
        Cursor = Cursors.Default
    End Sub

    Private Sub DokumentAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentAnzeigenToolStripMenuItem.Click
        Dim colddokumentid As String
        Dim Dokumentid As String = Me.C1Daten.Columns("Dokumentid").Value.ToString
        colddokumentid = db.get_colddokumentid(Dokumentid, 0)
        If colddokumentid = "Office" Then
            show_office(Dokumentid, Me)
            Exit Sub
        End If

        If Not ShowColdDoc(Dokumentid, Me, colddokumentid) Then
            colddokumentid = db.get_colddokumentid(Dokumentid, 1)
            If Not ShowColdDoc(Dokumentid, Me, colddokumentid) Then
                colddokumentid = db.get_colddokumentid(Dokumentid, 2)
                If Not ShowColdDoc(Dokumentid, Me, colddokumentid) Then
                    show_office(Dokumentid, Me)
                End If
            End If
        End If

    End Sub

    Public Function ShowColdDoc(ByVal dokumentid As String, ByVal formx As Windows.Forms.Form, ByVal cold_dokumentid As String) As Boolean
        Dim f As New frmcoldview()
        f.Erstellungsdatum = ""
        f.Connectionstring = db.Connectionstring

        f.Colddokumentid = cold_dokumentid
        f.DokumentId = dokumentid
        If IsNothing(formx) Then
            formx = Me
        End If
        f.MdiParent = formx.MdiParent
        f.Width = 1
        f.Height = 1
        f.Show()
        If f.DocNotFound = True Then
            ' Journal_Dokumentzugriff(dokumentid, "COLD-Anzeige-Fehler", 0, 0, "", "")
            db.Journal_Dokumentzugriff(dokumentid, "Cold-Anzeige", 0, Me.C1Daten.Columns("Partnernr").Value, Me.C1Daten.Columns("Partner_Kurzname").Value, Me.C1Daten.Columns("Dokumenttyp").Value)
            ShowColdDoc = False
            f.Dispose()
        Else
            ShowColdDoc = True
            'Journal_Dokumentzugriff(dokumentid, "COLD-Anzeige", 0, 0, "", "")
            db.Journal_Dokumentzugriff(dokumentid, "Cold-Anzeige", 0, Me.C1Daten.Columns("Partnernr").Value, Me.C1Daten.Columns("Partner_Kurzname").Value, Me.C1Daten.Columns("Dokumenttyp").Value)
            f.Dispose()
        End If

    End Function

    Public Sub show_office(ByVal dokumentid As String, ByVal formx As Windows.Forms.Form)
        GC.Collect()
        GC.WaitForPendingFinalizers()
        GC.Collect()

        GC.WaitForPendingFinalizers()

        Dim s As String
        s = My.Settings.Temppath + "\" + "View_" + Format(Now, "yyyyMMddHHmmss") + "_" + Me.C1Daten.Columns("Dokumentname").Value.ToString
        If db.Get_From_DB(dokumentid, s) = False Then
            MsgBox("Das Dokumente kann nicht geladen werden.", vbExclamation)
            Exit Sub
        End If
        Process.Start(s)
        db.Journal_Dokumentzugriff(dokumentid, "Office-Anzeige", 0, Me.C1Daten.Columns("Partnernr").Value, Me.C1Daten.Columns("Partner_Kurzname").Value, Me.C1Daten.Columns("Dokumenttyp").Value)

    End Sub

    Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.Click

    End Sub

    Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
        DokumentAnzeigenToolStripMenuItem_Click(sender, e)
    End Sub

    Private Sub C1Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
        sender.bookmark = sender.rowcontaining(e.Y)
    End Sub

    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub TreeGX1_Click(sender As Object, e As EventArgs) 

    End Sub
End Class