Feature Frachtkostenberechnen um Gesamtfrachtkostenlogik erweitert.

Aviso/frmSendungsdetailsNEU.vb

@@ -5371,7 +5371,7 @@ Public Class frmSendungsdetailsNEU
 
     Sub calculateFreightCosts()
 
-        Dim frachkosten = New frmFrachtkostenBerechnen(txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text)
+        Dim frachkosten = New frmFrachtkostenBerechnen(txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text, txtFrachtkostenGesamt.Text)
 
 
         If frachkosten.ShowDialog() = DialogResult.OK Then
@@ -5382,6 +5382,13 @@ Public Class frmSendungsdetailsNEU
     End Sub
 
     Private Sub Button18_Click_1(sender As Object, e As EventArgs) Handles Button18.Click
-        calculateFreightCosts()
+
+        If txtFrachtkostenGesamt.Text = "" AndAlso txtGewicht.Text = "" Then
+            MsgBox("Bitte Gewicht oder Gesamtfrachtkosten angeben!")
+            txtGewicht.Focus()
+        Else
+            calculateFreightCosts()
+        End If
+
     End Sub
 End Class