Frachtkostenberechnung Lukowa

Aviso/frmFrachtkostenBerechnen.vb

@@ -6,6 +6,15 @@ Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmFrachtkostenBerechnen
 
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Dim ustcntl As New usrcntlFrachtkostenberechnung()
+    End Sub
+
     'Dim absenderID As Integer = -1
     'Dim empfaengerID As Integer = -1
     'Dim origin As String
@@ -17,55 +26,17 @@ Public Class frmFrachtkostenBerechnen
     'Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
 
 
-    Sub New(absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String, ware As String)
+    'Sub New(absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String, ware As String)
 
-        InitializeComponent()
-        Try
-            Dim ustcntl As New usrcntlFrachtkostenberechnung(absID, empfID, gewichtInput, gesamtfrachtkostenInput, ware)
+    '    InitializeComponent()
+    '    Try
+    '        Dim ustcntl As New usrcntlFrachtkostenberechnung()
 
-            'If ustcntl = DialogResult.OK Then
-            '    txtFrachtkostenEU._value = frachkosten.EUAnteil
-            '    txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil
-            '    txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value
-            'End If
+    '    Catch ex As Exception
+    '        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+    '    End Try
 
-
-
-            '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)
-            'Else
-            '    absenderID = -1
-            'End If
-
-
-            'If empfID IsNot Nothing AndAlso empfID.ToString <> "" AndAlso IsNumeric(empfID) Then
-
-            '    empfaengerID = Int(empfID)
-            'Else
-            '    empfaengerID = -1
-            'End If
-
-
-        Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-        End Try
-
-    End Sub
+    'End Sub
 
 
     'Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load