AVISO/Aviso/frmAnkunftAendern.vb

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