Projektdateien hinzufügen.

UID/frmFrachtkostenNew.vb

@@ -0,0 +1,53 @@
+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