feature_implementierung frachkostenberechnung

Aviso/frmFrachtkostenBerechnen.vb

@@ -0,0 +1,50 @@
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmFrachtkostenBerechnen
+
+    Dim absenderID As Integer
+    Dim empfaengerID As Integer
+    Dim origin As String
+    Dim destination As String
+
+
+    Sub New(absID As String, empfID As String)
+
+        InitializeComponent()
+        absenderID = CInt(absID)
+        empfaengerID = CInt(empfID)
+
+
+    End Sub
+
+
+    Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        txbVon.fillWithSQL("SELECT  ISNULL([LandKz],'-') AS  , ISNULL([PLZ],'-'), ISNULL([Ort],''), ISNULL([Straße],'-') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
+        txbNach.fillWithSQL("SELECT  ISNULL([LandKz],'-') AS  , ISNULL([PLZ],'-'), ISNULL([Ort],''), ISNULL([Straße],'-') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")
+
+
+    End Sub
+
+    Sub calculateFreight()
+
+        Dim duration = ""
+        Dim distance = ""
+
+        'If ALLG.sbAbgangZollstelle._value <> "" Then
+        '    origin = ALLG.sbAbgangZollstelle._value.Substring(0, 2) & " " & ALLG.sbAbgangZollstelle.Text
+        'End If
+
+
+        'Dim usrCntlEmpf = ADRESSEN.usrCntlEmpfaenger
+        destination &= usrCntlEmpf.txtStrasse.Text & " "
+        destination &= usrCntlEmpf.sbLand._value & " "
+        destination &= usrCntlEmpf.txtPlz.Text & " "
+        destination &= usrCntlEmpf.txtOrt.Text & " "
+
+
+        VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, "", distance)
+
+    End Sub
+
+End Class