52 lines
2.2 KiB
VB.net
52 lines
2.2 KiB
VB.net
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
|
|
|
|
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")
|
|
btnAktGrenze.Text = SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
|
|
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 "AMB" : Return "AMBAR"
|
|
Case Else : Return Grenzstelle
|
|
End Select
|
|
End Function
|
|
End Class |