Feature Frachtkostenberechnen um Gesamtfrachtkostenlogik erweitert.

Aviso/frmFrachtkostenBerechnen.vb

@@ -17,12 +17,26 @@ Public Class frmFrachtkostenBerechnen
     Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
 
 
-    Sub New(absID As String, empfID As String, gewichtInput As Double)
+    Sub New(absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String)
 
         InitializeComponent()
         Try
 
-            gewicht = IIf(gewichtInput.ToString <> "", CDbl(gewichtInput), 0)
+
+            If gesamtfrachtkostenInput IsNot Nothing AndAlso gesamtfrachtkostenInput.ToString <> "" AndAlso IsNumeric(gesamtfrachtkostenInput) Then
+                gesamtFrachtkosten = CDbl(gesamtfrachtkostenInput)
+                tbxGesamtfrachtkosten._value = gesamtFrachtkosten
+            Else
+                gesamtFrachtkosten = 0
+            End If
+
+
+            If gewichtInput IsNot Nothing AndAlso gewichtInput.ToString <> "" AndAlso IsNumeric(gewichtInput) Then
+                gewicht = CDbl(gewichtInput)
+            Else
+                gewicht = 0
+            End If
+
 
             If absID IsNot Nothing AndAlso absID.ToString <> "" AndAlso IsNumeric(absID) Then
                 absenderID = CInt(absID)
@@ -176,7 +190,15 @@ Public Class frmFrachtkostenBerechnen
     Sub calculateFreightCosts()
 
         Try
-            gesamtFrachtkosten = gewicht * CDbl(txbFactor._value)
+
+            If gesamtFrachtkosten = 0 Then
+
+                gesamtFrachtkosten = gewicht * CDbl(txbFactor._value)
+                tbxGesamtfrachtkosten._value = gesamtFrachtkosten
+
+            End If
+
+
             tbxGesamtfrachtkosten._value = gesamtFrachtkosten
             EUAnteil = gesamtFrachtkosten * tbEUAnteil._value
             nichtEUAnteil = gesamtFrachtkosten * CDbl(tbNichtEUAnteil._value)