53 lines
2.4 KiB
VB.net
53 lines
2.4 KiB
VB.net
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
|
|
frmMain.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 |