neu

Aviso/frmAnkunftAendern.vb

@@ -0,0 +1,50 @@
+Public Class frmAnkunftAendern
+
+    Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AVISO = AVISO
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Private Sub btnAktGrenze_Click(sender As Object, e As EventArgs) Handles btnAktGrenze.Click
+        Me.Close()
+    End Sub
+
+    Private Sub btnNeuGrenze_Click(sender As Object, e As EventArgs) Handles btnNeuGrenze.Click
+        AVISO.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+        Me.Close()
+    End Sub
+
+    Private Sub frmAnkunftAendern_Load(sender As Object, e As EventArgs) Handles Me.Load
+        MsgBox(AVISO.Grenzstelle)
+        If AVISO Is Nothing Then Exit Sub
+        If AVISO.Grenzstelle.Replace("???", "") = "" Then
+            If AVISO.Zollstelle IsNot Nothing Then
+                btnAktGrenze.Text = SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name]  FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
+            Else
+                btnAktGrenze.Text = AVISO.Grenzstelle
+            End If
+        Else
+            btnAktGrenze.Text = getGrenzeName(AVISO.Grenzstelle)
+        End If
+        btnAktGrenze.Tag = AVISO.Grenzstelle
+        btnNeuGrenze.Text = getGrenzeName(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
+    End Sub
+
+    Function getGrenzeName(Grenzstelle) As String
+        Select Case Grenzstelle
+            Case "SUB" : Return "SUBEN"
+            Case "SBG" : Return "BAD REICHENHALL"
+            Case "WAI" : Return "WAIDHAUS"
+            Case "NKD" : Return "NICKELSDORF"
+            Case "NEU" : Return "NEUHAUS"
+            Case "SFD" : Return "SPIELFELD"
+            Case Else : Return Grenzstelle
+        End Select
+    End Function
+End Class