Änderungen AMBAR

UID/frmFrachtkostenNew.vb

@@ -4,7 +4,7 @@
     Public frachtfirma_id As Integer = -1
 
     Private Sub frmFrachtkostenNew_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
-        frmMain.BringToFront()
+        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()
@@ -25,6 +25,7 @@
     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
@@ -34,7 +35,7 @@
             cFrachtkosten.frtkst_provision = txtFirmaProvision.Text
             If cFrachtkostenSQL.setFrachtkosten(cFrachtkosten) Then Me.Close()
         End If
-        frmMain.Tabelle_anzeigen()
+        'frmMain.Tabelle_anzeigen()
     End Sub
 
     Private Sub cboFirmen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirmen.SelectedIndexChanged