Imports FastReport
Imports System.Data.SQLite
Imports System.IO
Public Class frmFirma

    Dim AnsprechpartnerTableAdapter As New LPDataSetTableAdapters.AnsprechpartnerTableAdapter
    Dim BerufeTableAdapter As New LPDataSetTableAdapters.BerufTableAdapter
    Dim FirmenberufTableadapter As New LPDataSetTableAdapters.FirmaBerufTableAdapter
    Dim ZeitTableAdapter As New LPDataSetTableAdapters.ZeitenTableAdapter

    Dim Ansprechpartnerrow As LPDataSet.AnsprechpartnerRow
    Dim firmarow As LPDataSet.FirmaRow
    Dim FirmaBerufRow As LPDataSet.FirmaBerufRow

    Dim dbkey As New clsdbkey
    Dim MySpalten As New Utils.Tabellenspalte


    Private Sub frmFirma_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        refresh_tree()
    End Sub

    Private Sub refresh_tree()
        FirmaTableAdapter.FillByName(Me.LPDataSet.Firma)
        Me.FirmaTableAdapter.GetDataByName()
        Me.TreeView1.Nodes.Clear()
        For Each r As DataRow In LPDataSet.Firma.Rows
            Dim tn As New TreeNode
            tn.Text = r.Item("NameZ1") + " " + r.Item("NameZ2") + ", " + r.Item("Ort")
            tn.Tag = r.Item("FirmaNr")
            Try
                If r.Item("Aktiv") = False Then
                    Dim fnt_strikeout
                    fnt_strikeout = New System.Drawing.Font(TreeView1.Font.FontFamily, TreeView1.Font.Size, FontStyle.Strikeout)
                    tn.NodeFont = fnt_strikeout
                End If
            Catch ex As Exception
            End Try
            Me.TreeView1.Nodes.Add(tn)
        Next
    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        refresh_details(Me.TreeView1.SelectedNode.Tag)
        tbCtrlFirma_SelectedIndexChanged(sender, e)
    End Sub

    Private Sub refresh_details(ByVal Firmanr As Integer)
        Try
            firmarow = LPDataSet.Firma.FindByFirmaNr(Firmanr)
            Me.txtNameZ1.Text = firmarow.NameZ1.ToString
            Me.txtNameZ2.Text = firmarow.NameZ2.ToString
            Me.txtStrasse.Text = firmarow.Strasse.ToString
            Me.txtPlz.Text = firmarow.PLZ.ToString
            Me.txtOrt.Text = firmarow.Ort.ToString
            Me.txtTel.Text = firmarow.Tel.ToString
            Me.txtFax.Text = firmarow.Fax.ToString
            Me.txtWeb.Text = firmarow.Web.ToString
            Me.txtMail.Text = firmarow.EMail.ToString
            Me.txtbemerkung.Text = firmarow.Bemerkung.ToString
            Me.cbaktiv.Checked = firmarow.Aktiv = True

            Refresh_Ansprechpartner(Firmanr)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Refresh_Ansprechpartner(ByVal FirmaNr As Integer)
        AnsprechpartnerTableAdapter.FillByFirmaNr(LPDataSet.Ansprechpartner, FirmaNr)
        Me.C1Ansprechpartner.DataSource = LPDataSet.Ansprechpartner
        Me.C1Ansprechpartner.DataMember = LPDataSet.Ansprechpartner.TableName
        MySpalten.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Ansprechpartner, "Ansprechpartner", LPDataSet.Ansprechpartner, "True")
    End Sub

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

    Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
        firmarow = LPDataSet.Firma.FindByFirmaNr(Me.TreeView1.SelectedNode.Tag)
        firmarow.NameZ1 = Me.txtNameZ1.Text
        firmarow.NameZ2 = Me.txtNameZ2.Text
        firmarow.Strasse = Me.txtStrasse.Text
        firmarow.PLZ = Me.txtPlz.Text
        firmarow.Ort = Me.txtOrt.Text
        firmarow.Tel = Me.txtTel.Text
        firmarow.Fax = Me.txtFax.Text
        firmarow.Web = Me.txtWeb.Text
        firmarow.EMail = Me.txtMail.Text
        firmarow.Bemerkung = Me.txtbemerkung.Text
        firmarow.Mutiert_am = Now
        firmarow.Aktiv = cbaktiv.Checked = True
        FirmaTableAdapter.Update(LPDataSet.Firma)
        Me.refresh_tree()
    End Sub

    Private Sub TSBtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnNew.Click
        firmarow = LPDataSet.Firma.NewFirmaRow
        firmarow.FirmaNr = dbkey.Get_NewKey("Firma")
        firmarow.NameZ1 = "*** Neu ***"
        firmarow.NameZ2 = ""
        firmarow.Strasse = ""
        firmarow.PLZ = ""
        firmarow.Ort = ""
        firmarow.Tel = ""
        firmarow.Fax = ""
        firmarow.Web = ""
        firmarow.EMail = ""
        firmarow.Bemerkung = ""
        firmarow.Mutiert_am = Now
        firmarow.Erstellt_am = Now
        firmarow.Aktiv = True
        LPDataSet.Firma.AddFirmaRow(firmarow)
        FirmaTableAdapter.Update(LPDataSet.Firma)
        Me.refresh_tree()
    End Sub

    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnAnsprechpartnerNeu.Click
        Ansprechpartnerrow = LPDataSet.Ansprechpartner.NewRow
        Ansprechpartnerrow.AnsprechpartnerNr = dbkey.Get_NewKey("Ansprechpartner")
        Ansprechpartnerrow.Name = "*** Neu ***"
        Ansprechpartnerrow.FirmaNr = Me.TreeView1.SelectedNode.Tag
        Ansprechpartnerrow.Vorname = ""
        Ansprechpartnerrow.Tel = ""
        Ansprechpartnerrow.EMail = ""
        Ansprechpartnerrow.Erstellt_am = Now
        Ansprechpartnerrow.Mutierer = 1
        Ansprechpartnerrow.Mutiert_am = Now
        Ansprechpartnerrow.Aktiv = True
        LPDataSet.Ansprechpartner.AddAnsprechpartnerRow(Ansprechpartnerrow)
        AnsprechpartnerTableAdapter.Update(LPDataSet.Ansprechpartner)
        Me.Refresh_Ansprechpartner(Me.TreeView1.SelectedNode.Tag)
    End Sub


    Private Sub TSBtnAnsprechpartnerSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnAnsprechpartnerSave.Click
        AnsprechpartnerTableAdapter.Update(Me.LPDataSet.Ansprechpartner)
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Me.Close()
    End Sub

    Private Sub tbCtrlFirma_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbCtrlFirma.SelectedIndexChanged
        Select Case Me.tbCtrlFirma.SelectedTab.Text
            Case "Berufe"
                Refresh_Berufe()
                Refresh_Firmenberufe()
                Refresh_LB_Ansprechpartner()
                Refresh_LB_Zeit()
            Case Else
        End Select
    End Sub

    Private Sub Refresh_Berufe()
        BerufeTableAdapter.Fill(LPDataSet.Beruf)
        Me.c1berfufe.DataSource = LPDataSet.Beruf
        Me.c1berfufe.DataMember = LPDataSet.Beruf.TableName
        MySpalten.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.c1berfufe, "Beruf", LPDataSet.Beruf, "True")
    End Sub

    Private Sub Refresh_Firmenberufe()
        Me.c1FirmenBerufe.DataSource = Nothing
        FirmenberufTableadapter.FillByFirmaNr(LPDataSet.FirmaBeruf, Me.TreeView1.SelectedNode.Tag)
        Me.c1FirmenBerufe.DataSource = LPDataSet.FirmaBeruf
        Me.c1FirmenBerufe.DataMember = LPDataSet.FirmaBeruf.TableName
        MySpalten.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.c1FirmenBerufe, "Firmaberuf", LPDataSet.FirmaBeruf, "True")
    End Sub

    Private Sub Refresh_LB_Ansprechpartner()
        Dim daten As New LPDataSet.AnsprechpartnerDataTable
        AnsprechpartnerTableAdapter.FillByFirmaNrAktiv(daten, Me.TreeView1.SelectedNode.Tag)
        Me.lbAnsprechpartner.DataSource = daten
        Me.lbAnsprechpartner.DisplayMember = "Fullname"
        Me.lbAnsprechpartner.ValueMember = "Ansprechpartnernr"
    End Sub

    Private Sub Refresh_LB_Zeit()
        Dim daten As New LPDataSet.ZeitenDataTable
        ZeitTableAdapter.FillByAktiv(daten)
        Me.LbZeit.DataSource = daten
        Me.LbZeit.DisplayMember = "Bezeichnung"
        Me.LbZeit.ValueMember = "Zeitnr"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FirmaBerufRow = LPDataSet.FirmaBeruf.NewFirmaBerufRow
        FirmaBerufRow.FirmaBerufNr = dbkey.Get_NewKey("FirmaBeruf")
        FirmaBerufRow.FirmaNr = Me.TreeView1.SelectedNode.Tag
        FirmaBerufRow.Berufnr = Me.c1berfufe.Columns("Berufnr").Value
        FirmaBerufRow.AnsprechpartnerNr = Me.lbAnsprechpartner.SelectedValue
        FirmaBerufRow.ZeitNr = Me.LbZeit.SelectedValue
        FirmaBerufRow.Bemerkung = ""
        FirmaBerufRow.Aktiv = True
        FirmaBerufRow.Erstellt_am = Now
        FirmaBerufRow.Mutierer = 1
        FirmaBerufRow.Mutiert_am = Now
        FirmaBerufRow.Anzahl = lbAnzahl.SelectedItem
        LPDataSet.FirmaBeruf.AddFirmaBerufRow(FirmaBerufRow)
        FirmenberufTableadapter.Update(LPDataSet.FirmaBeruf)
        Me.Refresh_Firmenberufe()
    End Sub

    Private Sub c1FirmenBerufe_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles c1FirmenBerufe.Leave
        Check_Changes_Firmenberufe()
    End Sub

    Private Sub Check_Changes_Firmenberufe()
        Dim t As New DataTable
        t = c1FirmenBerufe.DataSource

        If LPDataSet.FirmaBeruf.DataSet.HasChanges Then
            If MsgBox("Angebote Berufe wurde verändert. Wollen Sie die Änderungen speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                FirmenberufTableadapter.Update(LPDataSet.FirmaBeruf)
            End If
        End If
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Dim allg As New clsAllgemein
        Dim selectFirst As Boolean = False
        Dim ds As New DataSet
        Dim SQLconnect As New SQLite.SQLiteConnection()
        SQLconnect.ConnectionString = My.Settings.LPConnectionString & ";"
        SQLconnect.Open()
        Dim da As New SQLiteDataAdapter("", SQLconnect)
        Dim sqlcmd As New SQLiteCommand
        sqlcmd.Connection = SQLconnect
        sqlcmd.CommandType = CommandType.Text
        sqlcmd.CommandText = allg.Get_SQLAbfrage_Statement(1)
        da.SelectCommand = sqlcmd

        da.Fill(ds, "Daten")
        sqlcmd.Dispose()
        SQLconnect.Close()
        Exit Sub
        Dim report As New Report
        ' register the dataset
        report.RegisterData(ds)
        ' enable the "Employees" datasource programmatically. 
        ' You can also do this in the "Report|Choose Report Data..." menu.
        report.GetDataSource("Daten").Enabled = True
        ' design the report
        report.Design()
        ' free resources used by report
        report.Dispose()

    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Dim f As New frmReportview
        f.MdiParent = Me.MdiParent
        f.Show()
    End Sub

    Private Sub TSBtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnDelete.Click
        firmarow = LPDataSet.Firma.FindByFirmaNr(Me.TreeView1.SelectedNode.Tag)
        firmarow.Aktiv = False
        firmarow.Mutiert_am = Now
        firmarow.Mutierer = 1
        FirmaTableAdapter.Update(LPDataSet.Firma)
        Me.refresh_tree()
    End Sub
End Class