Public Class frmFrachtkostenNew

    Dim cFrachtkostenSQL As New cFrachtkostenSQL
    Public frachtfirma_id As Integer = -1

    Private Sub frmFrachtkostenNew_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        frmMainV2.BringToFront()
    End Sub
    Private Sub frmFrachtkostenNew_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim firmen As List(Of cFrachtkostenFirmen) = cFrachtkostenSQL.getAllFirmen()
        If Not firmen Is Nothing AndAlso firmen.Count > 0 Then
            For Each f In firmen
                cboFirmen.Items.Add(New MyListItem(f.kd_firma, f.kd_id))
            Next
            cboFirmen.SelectedIndex = 0
        End If
        If frachtfirma_id >= 0 Then
            For Each i In cboFirmen.Items
                Dim oItem As MyListItem = CType(i, MyListItem)
                If oItem.Value = frachtfirma_id Then
                    cboFirmen.SelectedItem = i
                End If
            Next
        End If
    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

        Dim cFrachtkosten As New cFrachtkosten
        Dim oItem As MyListItem = CType(cboFirmen.SelectedItem, MyListItem)
        If cboFirmen.Items.Count > 0 AndAlso cboFirmen.SelectedIndex >= 0 AndAlso IsNumeric(oItem.Value) Then
            cFrachtkosten.frtkst_firmaId = oItem.Value
            cFrachtkosten.frtkst_preisLDM = txtFirmaPreisProLDM.Text
            cFrachtkosten.frtkst_preisM3 = txtFirmaPreisProM3.Text
            cFrachtkosten.frtkst_provision = txtFirmaProvision.Text
            If cFrachtkostenSQL.setFrachtkosten(cFrachtkosten) Then Me.Close()
        End If
        'frmMain.Tabelle_anzeigen()
    End Sub

    Private Sub cboFirmen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirmen.SelectedIndexChanged
        If cboFirmen.Items.Count > 0 Then
            Dim oItem As MyListItem = CType(cboFirmen.SelectedItem, MyListItem)
            Dim frachtosten As cFrachtkosten = cFrachtkostenSQL.getFrachtkosten(oItem.Value)
            txtFirmaPreisProM3.Text = frachtosten.frtkst_preisM3
            txtFirmaPreisProLDM.Text = frachtosten.frtkst_preisLDM
            txtFirmaProvision.Text = frachtosten.frtkst_provision
        End If
    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub
End Class