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 Berufrow As LPDataSet.BerufRow

    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
    Dim FormdataChanged As Boolean = False

#Region "Eventhandler ChangeEreignisse"
    ''' <summary>
    ''' Allg Eventhandler für Chanage-Ereignise festlegen
    ''' </summary>
    ''' <param name="Container"></param>
    ''' <remarks></remarks>
    Private Sub AddChanges(ByVal Container As Control)
        Dim l As New List(Of Control)
        Me.GetControl(Me, "*", l)
        Dim evh As EventHandler = AddressOf ChangesMade
        For Each c As Control In l
            If TypeOf c Is TextBox Then
                Dim ctl As TextBox = c
                If ctl.Name <> "txtBerufNr" Then AddHandler ctl.TextChanged, evh
            End If
            If TypeOf c Is MaskedTextBox Then
                Dim ctl As MaskedTextBox = c
                AddHandler ctl.TextChanged, evh
            End If
            If TypeOf c Is ComboBox Then
                Dim ctl As ComboBox = c
                AddHandler ctl.SelectedValueChanged, evh
            End If
            If TypeOf c Is RichTextBox Then
                Dim ctl As RichTextBox = c
                AddHandler ctl.TextChanged, evh
            End If
            If TypeOf c Is CheckBox Then
                If c.Name <> "cboxNurAktive" Then
                    Dim ctl As CheckBox = c
                    AddHandler ctl.CheckedChanged, evh
                End If
            End If
            If TypeOf c Is CheckedListBox Then
                Dim ctl As CheckedListBox = c
                AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
            End If
        Next
    End Sub
    ''' <summary>
    ''' Envent-Handler für Change-Ereignisse
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
        Me.FormdataChanged = True
        Dim objtype As System.Type = sender.GetType
        If objtype.Name = "MaskedTextBox" Then
            Dim o As MaskedTextBox = sender
            If o.Text = "01.01.1900" Then o.Text = "  .  .    "
        End If
    End Sub
    Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
        Me.FormDataChanged = True
    End Sub


    ''' <summary>
    ''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
    ''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
    ''' </summary>
    ''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
    ''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
    ''' <param name="L">Liste der gefundenen Objekte</param>
    ''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
    ''' </returns>
    ''' <remarks></remarks>
    Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
        If L Is Nothing Then L = New List(Of Control)
        Dim Gut As Boolean
        Dim ReturnFlag As Boolean = False
        If Key IsNot Nothing Then Key = Key.ToLower

        If BaseControl.HasChildren = True Then
            For Each ctl As Control In BaseControl.Controls
                Gut = False
                If Key Is Nothing Then
                    Gut = True
                Else
                    If ctl.Name.Length >= Key.Length Then
                        Key = Key.ToLower
                        If Key.StartsWith("*") Then
                            If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
                        ElseIf Key.EndsWith("*") Then
                            If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
                        Else
                            If Key = ctl.Name.ToLower Then Gut = True
                        End If
                    End If
                End If

                If Gut = True Then
                    L.Add(ctl)
                    If ReturnAtFirstElement = True Then ReturnFlag = True
                End If
                If ReturnFlag = False Then
                    Call GetControl(ctl, Key, L)
                End If
            Next
        End If

        If L.Count - 1 > -1 Then
            Return True
        Else
            Return False
        End If
    End Function
#End Region

#Region "Closing / Check_Changes"
    ''' <summary>
    ''' Schliessen des Formulars
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If Check_Changes() = False Then
            e.Cancel = True
        Else
            Me.Dispose()
        End If
    End Sub

    ''' <summary>
    ''' Prüfung, ob Datenänderungen vorgenommen wurden. 
    ''' </summary>
    ''' <remarks></remarks>
    Private Function Check_Changes() As Boolean
        Dim msgres As MsgBoxResult
        If Me.FormdataChanged Then
            msgres = MsgBox("Daten wurden geändert. Sollen die Änderungen gespeichert werden?", vbYesNoCancel + vbQuestion)
            Select Case msgres
                Case MsgBoxResult.Yes
                    Save_Data()
                    Return True
                Case MsgBoxResult.Cancel
                    Return False
                Case MsgBoxResult.No
                    Me.FormdataChanged = False
                    Return True
            End Select
        Else
            Return True
        End If
    End Function

#End Region



    Private Sub frmFirma_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        refresh_tree()
        AddChanges(Me)
        Me.FormdataChanged = False
    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)
        Me.FormdataChanged = False
    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.txtAnrede.Text = firmarow.Anrede.ToString
            Me.txtBriefanrede.Text = firmarow.Briefanrede.ToString
            Me.txtbemerkung.Text = firmarow.Bemerkung.ToString
            Me.cbaktiv.Checked = firmarow.Aktiv = True
            Me.txtAusbildungsstandort.Text = firmarow.Ausbildungsstandort
            Me.txtAusbildungsbemekrung.Text = firmarow.Ausbildungsbemerkung

            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
        save_Data()
    End Sub

    Private Sub save_data()
        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.Anrede = Me.txtAnrede.Text
        firmarow.Briefanrede = Me.txtBriefanrede.Text
        firmarow.Bemerkung = Me.txtbemerkung.Text
        firmarow.Mutiert_am = Now
        firmarow.Ausbildungsstandort = Me.txtAusbildungsstandort.Text
        firmarow.Ausbildungsbemerkung = Me.txtAusbildungsbemekrung.Text
        firmarow.Aktiv = cbaktiv.Checked = True
        FirmaTableAdapter.Update(LPDataSet.Firma)
        Me.refresh_tree()
        Me.FormdataChanged = False
    End Sub

    Private Sub TSBtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnNew.Click
        firmarow = LPDataSet.Firma.NewFirmaRow
        Dim newkey As Integer = dbkey.Get_NewKey("Firma")
        firmarow.FirmaNr = newkey
        firmarow.NameZ1 = "*** Neu ***"
        firmarow.NameZ2 = ""
        firmarow.Strasse = ""
        firmarow.PLZ = ""
        firmarow.Ort = ""
        firmarow.Tel = ""
        firmarow.Fax = ""
        firmarow.Web = ""
        firmarow.EMail = ""
        firmarow.Anrede = ""
        firmarow.Briefanrede = ""
        firmarow.Bemerkung = ""
        firmarow.Ausbildungsbemerkung = ""
        firmarow.Ausbildungsstandort = ""
        firmarow.Mutiert_am = Now
        firmarow.Erstellt_am = Now
        firmarow.Aktiv = True
        LPDataSet.Firma.AddFirmaRow(firmarow)
        FirmaTableAdapter.Update(LPDataSet.Firma)
        Me.refresh_tree()
        Try
            Me.TreeView1.SelectedNode = Me.FindNode(Me.TreeView1.Nodes, newkey, "")
        Catch ex As Exception

        End Try
        Me.txtNameZ1.Focus()
    End Sub
    Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode
        Dim tmpNode As TreeNode
        For Each _child As TreeNode In _nodeCollection
            If _child.Tag = SearchVal Then

                Return _child
            End If
            tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
            If Not tmpNode Is Nothing Then
                Return tmpNode
            End If
        Next
        Return Nothing
    End Function
    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
    Dim bt As New DataTable
    Private Sub Refresh_Berufe()
        Me.c1berfufe.DataSource = Nothing
        BerufeTableAdapter.FillByBezeichnung(LPDataSet.Beruf)
        Me.c1berfufe.DataSource = LPDataSet.Beruf
        Me.c1berfufe.DataMember = LPDataSet.Beruf.TableName
        MySpalten.Spaltentitel_aktualisieren(Me.c1berfufe, "Beruf", bt, "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

    Private Sub SpeichernToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click
        Try
            Me.TSBtnSave_Click(sender, e)
        Catch
        End Try
    End Sub

    Private Sub NeuerDatensatzToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NeuerDatensatzToolStripMenuItem.Click
        Try
            Me.TSBtnSave_Click(sender, e)
        Catch
        End Try
        Me.TSBtnNew_Click(sender, e)
    End Sub

    Private Sub DatensatzLöschenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DatensatzLöschenToolStripMenuItem.Click
        Try
            Me.TSBtnDelete_Click(sender, e)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub SpeichernToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles SpeichernToolStripMenuItem1.Click
        Try
            TSBtnAnsprechpartnerSave_Click(sender, e)
        Catch
        End Try
    End Sub

    Private Sub NeuToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NeuToolStripMenuItem.Click
        Try
            ToolStripButton8_Click(sender, e)
        Catch ex As Exception

        End Try
    End Sub


    Private Sub TSBtnAnsprechpartnerDelete_Click(sender As System.Object, e As System.EventArgs) Handles TSBtnAnsprechpartnerDelete.Click
        Try
            Me.C1Ansprechpartner.Columns("Aktiv").Value = False
        Catch
        End Try
    End Sub

    Private Sub LöschenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LöschenToolStripMenuItem.Click
        Try
            TSBtnAnsprechpartnerDelete_Click(sender, e)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub ToolStripButton3_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton3.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(5)
        da.SelectCommand = sqlcmd

        da.Fill(ds, "Daten")
        sqlcmd.Dispose()
        SQLconnect.Close()

        Dim xls As New XLSLib.clsXLSLib
        xls.Write_Excel(ds.Tables(0), True)

    End Sub

    Private Sub RegisterFirmaAnsprechpartnerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RegisterFirmaAnsprechpartnerToolStripMenuItem.Click
        Me.tbCtrlFirma.SelectedIndex = 0
    End Sub

    Private Sub RegisterBerufeAnzeigenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RegisterBerufeAnzeigenToolStripMenuItem.Click
        Me.tbCtrlFirma.SelectedIndex = 1
    End Sub

    Private Sub NeuerBerufErfassenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NeuerBerufErfassenToolStripMenuItem.Click
        Dim s As String
        Dim allg As New clsAllgemein
        Dim f As New frmNeuerBeruf
        f.ShowDialog()
        If f.DialogResult = Windows.Forms.DialogResult.OK Then
            Berufrow = LPDataSet.Beruf.NewBerufRow
            Dim newkey As Integer = allg.GetNextKey("Beruf", "Berufnr")
            Berufrow.Berufnr = newkey
            Berufrow.Bezeichnung = f.TextBox1.Text
            Berufrow.Lehrjahre = f.TextBox2.Text
            Berufrow.Anmerkung = f.TextBox3.Text
            Berufrow.Beschreibung = ""
            Berufrow.Aktiv = True
            Berufrow.Erstellt_am = Now
            Berufrow.Mutiert_am = Now
            Berufrow.Mutierer = 1
            LPDataSet.Beruf.AddBerufRow(Berufrow)
            BerufeTableAdapter.Update(LPDataSet.Beruf)
            Me.Refresh_Berufe()
            Dim i As Integer
            For i = 0 To LPDataSet.Beruf.Rows.Count - 1
                If LPDataSet.Beruf.Rows(i).Item(0) = newkey Then Me.c1berfufe.Bookmark = i
            Next
        End If
    End Sub

    Private Sub C1Ansprechpartner_LostFocus(sender As Object, e As System.EventArgs) Handles C1Ansprechpartner.LostFocus
        TSBtnAnsprechpartnerSave_Click(sender, e)
    End Sub
End Class